Google
 

Trailing-Edge - PDP-10 Archives - bb-d549g-sb - syserk.mac
There are 15 other files named syserk.mac in the archive. Click here to see a list.
	TITLE	SYSERK -- SYSTEM ERROR FILE PROCESSOR -- MAINLINE CODE
	SUBTTL	VERSION 15(1312)	K. COYE/ RLD/ PJB/ ES/ TJW/ LWE/ SRL/ GSK





;COPYRIGHT (C) 1972,1975,1977,1978,1979,1980 BY
;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY  OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF THE  SOFTWARE  IS  HEREBY
;TRANSFERED.
;
;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT  NOTICE
;AND  SHOULD  NOT  BE  CONSTRUED  AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.
;
;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY  OF  ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.




	SEARCH	SYRUNV
	SEARCH	SYRLOW

	.REQUIRE SYRLIB


	;EXTERNALS DEFINED HERE ARE IN SYRLIB.MAC, THE LIBRARY
	;OF COMMON ROUTINES FOR ALL PARTS OF THE SYSERR PACKAGE.

	EXTERNAL HEADRD,ABORT,CHRCHK,DATECK,FILERR,TOOBIG,MBCHAR
	EXTERNAL CNISUM,BADNAM,MASSVM,DEVCHK,ERRINT,SKIPIT,IDCHK
	EXTERNAL STRCHK,DETCHK,DMPENT,HDRLST,PAGXCD,DVCHAR,TMCHAR
	EXTERNAL SAYDAY,GETNBS,.OCTLE,.DECML,.ASCIE,.SIXBT,ENTRST,NOTRAN,SPACE3
	EXTERNAL .HAFWD,.SPECL,.HTIME,.PPNWW,.ODECW,.UDATE,.TASCI,.PPNWT
	EXTERNAL .TDIRW,R5VSIX,MONVER,BADADD,TAB031,TYPAST,BLDPTR
	EXTERNAL ACLST,SAVE4P,RET4P,HWDUMP,TYPBCD,LSTEB,JFLOOP,CNIDCD
	EXTERNAL XORTAB,BITLST,.DVTAB,.MXBLK,.TRBLK,.SUBLK,.SECBK
	EXTERNAL WDCNT,COMPAR,SKPRTN,TYPNBS,TITLST,SKIPWD,ADVBFF
	EXTERNAL FIXBUF,STBUFF,INPWD,GOSUM,GETWD,FFPRNT,SLPRNT,CLPRNT
	EXTERNAL TBPRNT,CHROUT,TTYSIX,MDECHR,FIXNAM,DUMPOS,DSKPOS,TAPPOS





	;INTERNALS DEFINED HERE ARE FOR USE BY SYRLIB
	INTERNAL KONMSK,KLEDMP,MINERB,DEVDSP,ALLTBL,MDE000
	INTERNAL NAMLTH,TYPMES,LINE,ALLLTH,NAMTBL,DUMDAY
	INTERNAL DEVTYP,ERINDX,PCSTBL,PDLPNT,BITCHK,ERRLTH
	INTERNAL ERRTBL,SUMUPD,MASNAM,MASLTH
	INTERNAL FE$NAM,BLTTAB




	.JBVER==137
	LOC	.JBVER

	BYTE	(3)VWHO(9)VSYSER(6)VMINOR(18)VEDIT
	SALL


	TWOSEG
	RELOC	400000




	;DUMMY MACROS TO DEFINE ALL THE BITS AND TEXT
	;IN EACH DIAGNOSTIC FUNCTION READ
	;
	;DIAGFN	(A,B,C,D,E)
	;WHERE:
	;	A - FUNCTION #
	;	B - LEFT MOST BIT #
	;	C - BYTE SIZE IN DECIMAL,0=1
	;	D - SIGNAL WHEN TRUE
	;	E - TEXT TO LIST

	DEFINE	DFNALL<
DIAGFN (110,10,00,1,< APR2-M8539-APR C DIR P ERR IN H    >)
DIAGFN (110,08,00,1,< APR1-M8539-APR I/O PF ERR IN H     >)
DIAGFN (110,09,00,1,< APR1-M8539-APR MB PAR ERR IN H     >)
DIAGFN (110,07,00,1,< APR1-M8539-APR NXM ERR IN H        >)
DIAGFN (110,11,00,1,< APR2-M8539-APR S ADR P ERR IN H    >)
DIAGFN (110,06,00,1,< APR1-M8539-APR SBUS ERR IN H       >)
DIAGFN (162,15,00,0,< MBZ4-M8537-CHAN ADR PAR ERR L      >)
DIAGFN (160,25,00,0,< MBZ3-M8537-CHAN NXM ERR L          >)
DIAGFN (160,16,00,0,< MBZ4-M8537-CHAN PAR ERR L          >)
DIAGFN (104,30,00,1,< CLK3-M8526-CLK CRAM PAR ERR H      >)
DIAGFN (103,30,00,1,< CLK3-M8526-CLK DRAM PAR ERR H      >)
DIAGFN (102,30,00,1,< CLK1-M8526-CLK ERROR STOP H        >)
DIAGFN (107,30,00,0,< CLK3-M8526-CLK ERROR L             >)
DIAGFN (105,30,00,1,< CLK3-M8526-CLK FM PAR ERR H        >)
DIAGFN (106,30,00,1,< CLK3-M8526-CLK FS ERROR H          >)
DIAGFN (171,04,00,1,< CRC4-M8535-CRC LONG WC ERR H       >)
DIAGFN (171,02,00,1,< CRC4-M8535-CRC OVN ERR IN H        >)
DIAGFN (171,01,00,1,< CRC4-M8535-CRC RH20 ERR IN H       >)
DIAGFN (171,03,00,1,< CRC4-M8535-CRC SHORT WC ERR H      >)
DIAGFN (161,15,00,0,< MBZ4-M8537-MBOX ADR PAR ERR L      >)
DIAGFN (162,24,00,0,< MBZ4-M8537-MBOX MB PAR ERR L       >)
DIAGFN (161,22,00,0,< MBZ3-M8537-MBOX NXM ERR L          >)
DIAGFN (161,24,00,0,< MBZ4-M8537-MBOX SBUS ERR L         >)
DIAGFN (177,22,00,0,< CSH6-M8513-PAGE REFILL ERROR L     >)
DIAGFN (110,12,00,1,< APR2-M8539-APR PWR FAIL IN H       >)

;the above signals should comprise all error signals,
;bubbled up to the top with edit 702[rld]

DIAGFN (162,32,00,0,< MBC3-M8531-A CHANGE COMING A L     >)
DIAGFN (164,31,00,0,< MBC4-M8531-ACKN PULSE L            >)
DIAGFN (131,05,00,0,< DP3-M8524-AD CRY 01 L              >)
DIAGFN (132,05,00,0,< DP3-M8524-AD OVERFLOW 00 L         >)
DIAGFN (132,06,00,0,< IRD4-M8524-AD CRY -02 A L          >)
DIAGFN (136,17,00,1,< IRD4-M8522-AD CRY -02 A H          >)
DIAGFN (137,12,00,1,< IRD4-M8522-AD CRY 12 H             >)
DIAGFN (137,13,00,1,< IRD4-M8522-AD CRY 18 H             >)
DIAGFN (137,14,00,1,< IRD4-M8522-AD CRY 24 H             >)
DIAGFN (137,15,00,1,< IRD4-M8522-AD CRY 36 H             >)
DIAGFN (136,12,00,0,< IRD3-M8522-AD=0 L                  >)
DIAGFN (137,16,00,1,< IRD4-M8522-ADX CRY 12 H            >)
DIAGFN (137,17,00,1,< IRD4-M8522-ADX CRY 24 H            >)
DIAGFN (162,33,00,0,< MBC3-M8531-ANY SBUS RQ IN L        >)
DIAGFN (170,26,00,1,< CSH3-M8513-ANY VAL HOLD H          >)
DIAGFN (116,11,00,1,< APR2-M8539-APR ANY EBOX ERR FLG H  >)
DIAGFN (110,14,00,1,< APR2-M8539-APR APR INTERRUPT H     >)
DIAGFN (112,10,00,1,< APR2-M8539-APR C DIR P ERR EN IN H >)
DIAGFN (111,06,00,1,< APR5-M8539-APR CURRENT BLOCK 4 H   >)
DIAGFN (111,07,00,1,< APR5-M8539-APR CURRENT BLOCK 2 H   >)
DIAGFN (111,08,00,1,< APR5-M8539-APR CURRENT BLOCK 1 H   >)
DIAGFN (111,12,00,1,< APR3-M8539-APR CWSX H              >)
DIAGFN (115,10,00,1,< APR3-M8539-APR EBOX DISABLE CS H   >)
DIAGFN (115,12,00,1,< APR6-M8539-APR EBOX CCA H          >)
DIAGFN (115,13,00,1,< APR6-M8539-APR EBOX ERA H          >)
DIAGFN (115,14,00,1,< APR6-M8539-APR EBOX SBUS DIAG H    >)
DIAGFN (115,16,00,0,< APR6-M8539-APR EBOX LOAD REG L     >)
DIAGFN (115,17,00,0,< APR6-M8539-APR EBOX READ REG L     >)
DIAGFN (116,12,00,1,< APR6-M8539-APR EBOX UBR H          >)
DIAGFN (117,10,00,1,< APR3-M8539-APR EBOX SEND F02 H     >)
DIAGFN (117,12,00,1,< APR6-M8539-APR EBOX EBR H          >)
DIAGFN (117,13,00,1,< APR6-M8539-APR EBOX SPARE H        >)
DIAGFN (115,09,00,1,< APR3-M8539-APR EBUS RETURN H       >)
DIAGFN (116,09,00,0,< APR3-M8539-APR EBUS REQ L          >)
DIAGFN (116,10,00,1,< APR3-M8539-APR EBUS F01 E H        >)
DIAGFN (117,09,00,1,< APR3-M8539-APR EBUS DEMAND H       >)
DIAGFN (116,13,00,1,< APR6-M8539-APR EN REFILL RAM WR H  >)
DIAGFN (114,15,00,1,< APR4-M8539-APR F02 EN H            >)
DIAGFN (113,09,00,1,< APR3-M8539-APR FETCH COMP H        >)
DIAGFN (114,16,00,1,< APR3-M8539-APR FM 36 H             >)
;DIAGFN (114,11,00,1,< APR4-M8539-APR FM ADR 10 H         >)
;DIAGFN (114,12,00,1,< APR4-M8539-APR FM ADR 4 H          >)
;DIAGFN (114,13,00,1,< APR4-M8539-APR FM ADR 2 H          >)
;DIAGFN (114,14,00,1,< APR4-M8539-APR FM ADR 1 H          >)
;DIAGFN (114,08,00,1,< APR5-M8539-APR FM BLOCK 4 H        >)
;DIAGFN (114,09,00,1,< APR5-M8539-APR FM BLOCK 2 H        >)
;DIAGFN (114,10,00,1,< APR5-M8539-APR FM BLOCK 1 H        >)
;ABOVE 7 LINES REMOVED WITH [517]
DIAGFN (114,17,00,1,< APR3-M8539-APR FM ODD PARITY H     >)
DIAGFN (112,08,00,1,< APR1-M8539-APR I/O PF ERR EN IN H  >)
DIAGFN (112,09,00,1,< APR1-M8539-APR MB PAR ERR EN IN H  >)
DIAGFN (114,07,00,1,< APR5-M8539-APR MBOX CTL 03 H       >)
DIAGFN (115,07,00,1,< APR5-M8539-APR MBOX CTL 06 H       >)
DIAGFN (112,07,00,1,< APR1-M8539-APR NXM ERR EN IN H     >)
DIAGFN (111,09,00,1,< APR5-M8539-APR PREV BLOCK 4 H      >)
DIAGFN (111,10,00,1,< APR5-M8539-APR PREV BLOCK 2 H      >)
DIAGFN (111,11,00,1,< APR5-M8539-APR PREV BLOCK 1 H      >)
DIAGFN (111,13,00,1,< APR3-M8539-APR PREV SEC 13 H       >)
DIAGFN (111,14,00,1,< APR3-M8539-APR PREV SEC 14 H       >)
DIAGFN (111,15,00,1,< APR3-M8539-APR PREV SEC 15 H       >)
DIAGFN (111,16,00,1,< APR3-M8539-APR PREV SEC 16 H       >)
DIAGFN (111,17,00,1,< APR3-M8539-APR PREV SEC 17 H       >)
DIAGFN (116,08,00,0,< APR5-M8539-APR PT DIR WR L         >)
DIAGFN (117,08,00,0,< APR5-M8539-APR PT WR L             >)
DIAGFN (112,12,00,1,< APR2-M8539-APR PWR FAIL EN IN H    >)
DIAGFN (113,10,00,1,< APR3-M8539-APR READ COMP H         >)
DIAGFN (112,11,00,1,< APR2-M8539-APR S ADR P ERR EN IN H >)
DIAGFN (112,06,00,1,< APR1-M8539-APR SBUS ERR EN IN H    >)
DIAGFN (115,08,00,0,< APR5-M8539-APR SET PAGE FAIL L     >)
DIAGFN (110,01,00,1,< APR2-M8539-APR SWEEP BUSY EN H     >)
DIAGFN (110,13,00,1,< APR2-M8539-APR SWEEP DONE IN H     >)
DIAGFN (112,13,00,1,< APR2-M8539-APR SWEEP DONE EN IN H  >)
DIAGFN (113,12,00,1,< APR3-M8539-APR USER COMP H         >)
DIAGFN (115,11,00,0,< APR2-M8539-APR WR BAD ADR PAR L    >)
DIAGFN (116,07,00,1,< APR5-M8539-APR WR PT SEL 0 H       >)
DIAGFN (117,07,00,1,< APR5-M8539-APR WR PT SEL 1 H       >)
DIAGFN (113,11,00,1,< APR3-M8539-APR WRITE COMP H        >)
DIAGFN (102,23,00,1,< MCL5-M8530-ARMM 12 H               >)
DIAGFN (163,27,00,0,< MBC3-M8531-B CHANGE COMING L       >)
DIAGFN (170,30,00,1,< MBX1-M8529-CACHE BIT H             >)
DIAGFN (174,29,00,0,< CSH1-M8513-CACHE IDLE L            >)
DIAGFN (171,30,00,1,< MBX2-M8529-CACHE TO MB 34 H        >)
DIAGFN (172,30,00,1,< MBX2-M8529-CACHE TO MB 35 H        >)
DIAGFN (173,30,00,1,< MBX4-M8529-CACHE TO MB DONE H      >)
DIAGFN (174,30,00,0,< MBX4-M8529-CACHE TO MB T2 L        >)
DIAGFN (175,30,00,0,< MBX4-M8529-CACHE TO MB T3 L        >)
DIAGFN (176,30,00,0,< MBX4-M8529-CACHE TO MB T4 A L      >)
DIAGFN (162,27,00,1,< MBC2-M8531-CACHE WR 00 A H         >)
DIAGFN (162,28,00,1,< MBC2-M8531-CACHE WR 09 A H         >)
DIAGFN (162,29,00,1,< MBC2-M8531-CACHE WR 18 A H         >)
DIAGFN (162,30,00,1,< MBC2-M8531-CACHE WR 27 A H         >)
DIAGFN (170,23,00,1,< CSH6-M8513-CACHE WR IN H           >)
DIAGFN (165,27,00,1,< MBC1-M8531-CAM SEL 1 H             >)
DIAGFN (165,28,00,1,< MBC1-M8531-CAM SEL 2 H             >)
DIAGFN (176,11,00,1,< CHC1-M8533-CBUS ERROR E H          >)
DIAGFN (175,11,00,1,< CHC1-M8533-CBUS LAST WORD E H      >)
DIAGFN (161,16,00,1,< MBZ5-M8537-CBUS PAR LEFT TE H      >)
DIAGFN (162,16,00,1,< MBZ5-M8537-CBUS PAR RIGHT TE H     >)
DIAGFN (174,11,00,1,< CHC1-M8533-CBUS READY E H          >)
DIAGFN (170,12,00,1,< CHC5-M8533-CBUS SEL 0 E H          >)
DIAGFN (171,12,00,1,< CHC5-M8533-CBUS SEL 1 E H          >)
DIAGFN (172,12,00,1,< CHC5-M8533-CBUS SEL 2 E H          >)
DIAGFN (173,12,00,1,< CHC5-M8533-CBUS SEL 3 E H          >)
DIAGFN (174,12,00,1,< CHC5-M8533-CBUS SEL 4 E H          >)
DIAGFN (175,12,00,1,< CHC5-M8533-CBUS SEL 5 E H          >)
DIAGFN (176,12,00,1,< CHC5-M8533-CBUS SEL 6 E H          >)
DIAGFN (177,12,00,1,< CHC5-M8533-CBUS SEL 7 E H          >)
DIAGFN (177,30,00,1,< MBX1-M8529-CCA ALL PAGES CYC H     >)
DIAGFN (172,23,00,0,< CSH6-M8513-CCA CYC DONE L          >)
DIAGFN (176,22,00,0,< CSH6-M8513-CCA INVAL T4 L          >)
DIAGFN (170,31,00,0,< MBX1-M8529-CCA REQ L               >)
DIAGFN (171,31,00,1,< MBX1-M8529-CCA SEL 1 H             >)
DIAGFN (172,31,00,1,< MBX1-M8529-CCA SEL 2 H             >)
DIAGFN (175,18,00,1,< CCL2-M8536-CCL ACT FLAG REQ H      >)
DIAGFN (173,19,00,0,< CCL3-M8536-CCL AF T2 L             >)
DIAGFN (171,18,00,0,< CCL3-M8536-CCL ALU MINUS L         >)
DIAGFN (176,18,00,1,< CCL2-M8536-CCL BUF ADR 3 H         >)
DIAGFN (176,06,00,1,< CCW4-M8534-CCL CCW REG LOAD H      >)
DIAGFN (172,16,00,1,< CCL3-M8536-CCL CCWF T2 H           >)
DIAGFN (175,16,00,1,< CCL2-M8536-CCL CCWF REQ H          >)
DIAGFN (173,16,00,1,< CCL4-M8536-CCL CH MB SEL 2 H       >)
DIAGFN (173,18,00,1,< CCL4-M8536-CCL CH MB SEL 1 H       >)
DIAGFN (171,19,00,0,< CCL4-M8536-CCL CH TEST MB PAR L    >)
DIAGFN (174,16,00,1,< CCL3-M8536-CCL CHAN REQ H          >)
DIAGFN (174,18,00,1,< CCL3-M8536-CCL CHAN EPT H          >)
DIAGFN (174,19,00,1,< CCL4-M8536-CCL CHAN TO MEM H       >)
DIAGFN (177,18,00,0,< CCL6-M8536-CCL CSH CHAN CYC L      >)
DIAGFN (177,16,00,1,< CCL1-M8536-CCL ERR REQ H           >)
DIAGFN (172,18,00,1,< CCL3-M8536-CCL MB REQ T2 H         >)
DIAGFN (171,16,00,1,< CCL3-M8536-CCL MB RIP A H          >)
DIAGFN (177,19,00,1,< CCL3-M8536-CCL MEM PTR EN H        >)
DIAGFN (175,19,00,1,< CCL2-M8536-CCL MEM STORE REQ H     >)
DIAGFN (170,16,00,1,< CCL5-M8536-CCL ODD WC PAR H        >)
DIAGFN (172,19,00,1,< CCL4-M8536-CCL REVERSE H           >)
DIAGFN (176,19,00,0,< CCL4-M8536-CCL START MEM L         >)
DIAGFN (176,16,00,1,< CCL4-M8536-CCL STORE CCW H         >)
DIAGFN (170,18,00,1,< CCL5-M8536-CCL WC GE4 H            >)
DIAGFN (170,19,00,0,< CCL5-M8536-CCL WC=0 L              >)
DIAGFN (177,08,00,1,< CCW3-M8534-CCL WC=1 H              >)
DIAGFN (177,09,00,1,< CCW3-M8534-CCL WC=2 H              >)
DIAGFN (176,05,00,1,< CCW3-M8534-CCL WC=3 H              >)
DIAGFN (172,05,00,1,< CCW3-M8534-CCW ACT CTR 0 EN H      >)
DIAGFN (172,06,00,1,< CCW3-M8534-CCW ACT CTR 1 EN H      >)
DIAGFN (172,07,00,1,< CCW3-M8534-CCW ACT CTR 2 EN H      >)
DIAGFN (170,08,00,1,< CCW5-M8534-CCW ACT FLAG REQ ENA H  >)
DIAGFN (170,09,00,1,< CCW3-M8534-CCW ALU C8 OUT H        >)
DIAGFN (170,10,00,1,< CCW3-M8534-CCW ALU C2 OUT H        >)
DIAGFN (172,08,00,0,< CCW1-M8534-CCW BUF ADR 0 L         >)
DIAGFN (172,09,00,0,< CCW1-M8534-CCW BUF ADR 1 L         >)
DIAGFN (172,10,00,0,< CCW1-M8534-CCW BUF ADR 2 L         >)
DIAGFN (170,06,00,1,< CCW6-M8534-CCW CCWF REQ ENA H      >)
DIAGFN (171,10,00,1,< CCW6-M8534-CCW CCWF WAITING H      >)
DIAGFN (171,09,00,1,< CCW1-M8534-CCW MEM ADR=0 H         >)
DIAGFN (170,07,00,1,< CCW6-M8534-CCW MEM STORE ENA H     >)
DIAGFN (177,10,00,1,< CCW4-M8534-CCW ODD ADR PAR H       >)
DIAGFN (177,05,00,1,< CCW6-M8534-CCW RAM ADR 1 H         >)
DIAGFN (177,06,00,1,< CCW6-M8534-CCW RAM ADR 2 H         >)
DIAGFN (177,07,00,1,< CCW6-M8534-CCW RAM ADR 4 H         >)
DIAGFN (170,05,00,1,< CCW4-M8534-CCW WD READY H          >)
DIAGFN (171,05,00,1,< CCW4-M8534-CCW WD0 REQ H           >)
DIAGFN (171,06,00,1,< CCW4-M8534-CCW WD1 REQ H           >)
DIAGFN (171,07,00,1,< CCW4-M8534-CCW WD2 REQ H           >)
DIAGFN (171,08,00,1,< CCW4-M8534-CCW WD3 REQ H           >)
DIAGFN (177,11,00,1,< CHC1-M8533-CH CBUS REQ H           >)
DIAGFN (175,14,00,1,< CHC2-M8533-CH CONTR REQ H          >)
DIAGFN (177,13,00,1,< CHC2-M8533-CH CONTR CYC H          >)
DIAGFN (174,14,00,1,< CHC3-M8533-CH CTOM H               >)
DIAGFN (172,14,00,1,< CHC2-M8533-CH DONE INTR H          >)
DIAGFN (176,13,00,1,< CHC1-M8533-CH MB REQ INH H         >)
DIAGFN (170,14,00,1,< CHC2-M8533-CH RESET INTR H         >)
DIAGFN (176,14,00,1,< CHC1-M8533-CH REVERSE H            >)
DIAGFN (175,13,00,1,< CHC5-M8533-CH SEL 8A H             >)
DIAGFN (171,14,00,1,< CHC2-M8533-CH START INTR H         >)
DIAGFN (177,14,00,1,< CHC2-M8533-CH START H              >)
DIAGFN (173,14,00,1,< CHC2-M8533-CH STORE H              >)
DIAGFN (170,11,00,1,< CHC1-M8533-CH T0 H                 >)
DIAGFN (171,11,00,1,< CHC1-M8533-CH T1 H                 >)
DIAGFN (172,11,00,1,< CHC1-M8533-CH T2 H                 >)
DIAGFN (173,11,00,1,< CHC1-M8533-CH T3 H                 >)
DIAGFN (160,22,00,1,< MBZ1-M8537-CHAN CORE BUSY H        >)
DIAGFN (161,23,00,0,< MBZ3-M8537-CHAN MEM REF L          >)
DIAGFN (171,22,00,0,< CSH5-M8513-CHAN RD T5 L            >)
DIAGFN (162,19,00,0,< MBZ1-M8537-CHAN READ L             >)
DIAGFN (172,24,00,0,< CSH5-M8513-CHAN T4 L               >)
DIAGFN (172,22,00,0,< CSH6-M8513-CHAN WR CACHE L         >)
DIAGFN (173,31,00,0,< MBX2-M8529-CHAN WR CYC L           >)
DIAGFN (171,27,00,0,< CSH5-M8513-CHAN WR T5 L            >)
DIAGFN (174,13,00,1,< CHC1-M8533-CHX CTOM H              >)
DIAGFN (172,13,00,1,< CHC1-M8533-CHX DONE H              >)
DIAGFN (170,13,00,1,< CHC1-M8533-CHX RESET H             >)
DIAGFN (171,13,00,1,< CHC1-M8533-CHX START H             >)
DIAGFN (173,13,00,1,< CHC1-M8533-CHX STORE H             >)
DIAGFN (103,35,00,1,< CLK4-M8526-CLK 1777 EN H           >)
DIAGFN (106,35,00,0,< CLK5-M8526-CLK AR/ARX PAR CHECK L  >)
DIAGFN (100,33,00,1,< CLK5-M8526-CLK BURST CNT=0 H       >)
DIAGFN (100,34,00,1,< CLK5-M8526-CLK BURST 128 H         >)
DIAGFN (100,35,00,1,< CLK5-M8526-CLK BURST 64 H          >)
DIAGFN (101,30,00,1,< CLK5-M8526-CLK BURST 32 H          >)
DIAGFN (101,31,00,1,< CLK5-M8526-CLK BURST 16 H          >)
DIAGFN (101,32,00,1,< CLK5-M8526-CLK BURST 08 H          >)
DIAGFN (101,33,00,1,< CLK5-M8526-CLK BURST 04 H          >)
DIAGFN (101,34,00,1,< CLK5-M8526-CLK BURST 02 H          >)
DIAGFN (101,35,00,1,< CLK5-M8526-CLK BURST 01 H          >)
DIAGFN (103,31,00,0,< CLK2-M8526-CLK BURST L             >)
DIAGFN (105,34,00,0,< CLK5-M8526-CLK CRAM PAR CHECK L    >)
DIAGFN (106,34,00,0,< CLK5-M8526-CLK DRAM PAR CHECK L    >)
DIAGFN (102,32,00,1,< CLK4-M8526-CLK EBOX REQ H          >)
DIAGFN (103,33,00,0,< CLK4-M8526-CLK EBOX CLK L          >)
DIAGFN (104,31,00,0,< CLK2-M8526-CLK EBOX SS L           >)
DIAGFN (104,33,00,1,< CLK3-M8526-CLK EBOX SOURCE H       >)
DIAGFN (105,33,00,1,< CLK5-M8526-CLK EBOX CRM DIS H      >)
DIAGFN (106,33,00,1,< CLK5-M8526-CLK EBOX EDP DIS H      >)
DIAGFN (107,33,00,1,< CLK5-M8526-CLK EBOX CTL DIS H      >)
DIAGFN (100,30,00,1,< CLK1-M8526-CLK EBUS CLK H          >)
DIAGFN (107,35,00,0,< CLK5-M8526-CLK ERR STOP EN L       >)
DIAGFN (104,34,00,0,< CLK5-M8526-CLK FM PAR CHECK L      >)
DIAGFN (102,35,00,1,< CLK4-M8526-CLK FORCE 1777 H        >)
DIAGFN (107,34,00,0,< CLK5-M8526-CLK FS CHECK L          >)
DIAGFN (102,31,00,0,< CLK2-M8526-CLK GO L                >)
DIAGFN (103,34,00,1,< CLK4-M8526-CLK INSTR 1777 H        >)
DIAGFN (103,32,00,1,< CLK4-M8526-CLK MB XFER H           >)
DIAGFN (104,35,00,1,< CLK5-M8526-CLK MBOX CYCLE DIS H    >)
DIAGFN (105,35,00,0,< CLK5-M8526-CLK MBOX RESP SIM L     >)
DIAGFN (102,34,00,0,< CLK4-M8526-CLK PAGE FAIL EN L      >)
DIAGFN (107,31,00,1,< CLK4-M8526-CLK PAGE FAIL H         >)
DIAGFN (106,32,00,1,< CLK5-M8526-CLK RATE SEL 2 H        >)
DIAGFN (107,32,00,1,< CLK5-M8526-CLK RATE SEL 1 H        >)
DIAGFN (100,31,00,1,< CLK1-M8526-CLK SBUS CLK H          >)
DIAGFN (104,32,00,1,< CLK5-M8526-CLK SOURCE SEL 2 H      >)
DIAGFN (105,32,00,1,< CLK5-M8526-CLK SOURCE SEL 1 H      >)
DIAGFN (102,33,00,1,< CLK3-M8526-CLK SYNC H              >)
DIAGFN (136,18,00,1,< CON4-M8525-CON AR 36 H             >)
DIAGFN (132,23,00,1,< CON4-M8525-CON AR LOADED H         >)
DIAGFN (137,18,00,1,< CON4-M8525-CON ARX 36 H            >)
DIAGFN (133,23,00,0,< CON4-M8525-CON ARX LOADED L        >)
DIAGFN (131,18,00,1,< CON3-M8525-CON CACHE LOOK EN H     >)
DIAGFN (131,19,00,1,< CON3-M8525-CON CACHE LOAD EN H     >)
DIAGFN (133,05,00,1,< CON2-M8524-CON CLR PRIVATE INSTR H >)
DIAGFN (132,18,00,0,< CON1-M8525-CON COND EN 00-07 L     >)
DIAGFN (133,22,00,1,< CON2-M8525-CON COND INSTR ABORT H  >)
DIAGFN (137,22,00,1,< CON2-M8525-CON COND ADR 10 H       >)
DIAGFN (132,19,00,0,< CON1-M8525-CON COND/SEL VMA L      >)
DIAGFN (132,20,00,0,< CON1-M8525-CON COND/MBOX CTL L     >)
DIAGFN (133,19,00,1,< CON1-M8525-CON COND/VMA GETS # H   >)
DIAGFN (134,19,00,1,< CON1-M8525-CON COND/LOAD VMA HELD H>)
DIAGFN (135,18,00,1,< CON3-M8525-CON DELAY REQ H         >)
DIAGFN (133,20,00,1,< CON3-M8525-CON EBUS REL H          >)
DIAGFN (117,11,00,0,< CON5-M8539-CON FM WRITE PAR L      >)
DIAGFN (134,24,00,0,< CON5-M8525-CON FM WRITE PAR L      >)
DIAGFN (136,24,00,0,< CON5-M8525-CON FM XFER L           >)
DIAGFN (135,22,00,0,< CON2-M8525-CON INSTR GO L          >)
DIAGFN (131,21,00,0,< CON3-M8525-CON KI10 PAGING MODE L  >)
DIAGFN (132,22,00,0,< CON2-M8525-CON LOAD IR L           >)
DIAGFN (134,22,00,1,< CON2-M8525-CON LOAD ACCESS COND H  >)
DIAGFN (135,19,00,0,< CON1-M8525-CON LOAD SPEC INSTR L   >)
DIAGFN (136,22,00,1,< CON2-M8525-CON LOAD DRAM H         >)
DIAGFN (135,24,00,0,< CON5-M8525-CON MBOX WAIT L         >)
DIAGFN (133,24,00,0,< CON5-M8525-CON MEM CYCLE L         >)
DIAGFN (134,21,00,1,< CON2-M8525-CON NICOND TRAP EN H    >)
DIAGFN (135,21,00,1,< CON2-M8525-CON NICOND 07 H         >)
DIAGFN (136,21,00,1,< CON2-M8525-CON NICOND 08 H         >)
DIAGFN (137,21,00,1,< CON2-M8525-CON NICOND 09 H         >)
DIAGFN (133,21,00,0,< CON4-M8525-CON PC+1 INH L          >)
DIAGFN (132,24,00,1,< CON5-M8525-CON PI CYCLE H          >)
DIAGFN (134,04,00,0,< CON5-M8524-CON PI CYCLE A L        >)
DIAGFN (137,24,00,0,< CON5-M8525-CON PI DISMISS L        >)
DIAGFN (133,18,00,0,< CON1-M8525-CON SKIP EN 40-47 L     >)
DIAGFN (134,18,00,0,< CON1-M8525-CON SKIP EN 50-57 L     >)
DIAGFN (134,20,00,1,< CON3-M8525-CON SR 00 H             >)
DIAGFN (135,20,00,1,< CON3-M8525-CON SR 01 H             >)
DIAGFN (136,20,00,1,< CON3-M8525-CON SR 02 H             >)
DIAGFN (137,20,00,1,< CON3-M8525-CON SR 03 H             >)
DIAGFN (131,22,00,1,< CON3-M8525-CON TRAP EN H           >)
DIAGFN (134,23,00,1,< CON4-M8525-CON UCODE STATE 01 H    >)
DIAGFN (135,23,00,1,< CON4-M8525-CON UCODE STATE 03 H    >)
DIAGFN (136,23,00,1,< CON4-M8525-CON UCODE STATE 05 H    >)
DIAGFN (137,23,00,1,< CON4-M8525-CON UCODE STATE 07 H    >)
DIAGFN (136,19,00,0,< CON1-M8525-CON VMA SEL 2 L         >)
DIAGFN (137,19,00,0,< CON1-M8525-CON VMA SEL 1 L         >)
DIAGFN (130,18,00,1,< CON3-M8525-CON WR EVEN PAR ADR H   >)
DIAGFN (130,19,00,1,< CON3-M8525-CON WR EVEN PAR DATA H  >)
DIAGFN (130,20,00,1,< CON3-M8525-CON WR EVEN PAR DIR H   >)
DIAGFN (164,32,00,1,< MBC4-M8531-CORE ADR 34 H           >)
DIAGFN (164,33,00,1,< MBC4-M8531-CORE ADR 35 H           >)
DIAGFN (160,15,00,1,< MBZ1-M8537-CORE BUSY H             >)
DIAGFN (163,28,00,1,< MBC3-M8531-CORE BUSY A H           >)
DIAGFN (165,29,00,0,< MBC4-M8531-CORE DATA VALID -1 L    >)
DIAGFN (165,30,00,0,< MBC4-M8531-CORE DATA VALID -2 L    >)
DIAGFN (165,31,00,0,< MBC4-M8531-CORE DATA VALID L       >)
DIAGFN (165,32,00,1,< MBC4-M8531-CORE RD IN PROG H       >)
DIAGFN (141,00,00,1,< CRA3-M8511-CRA DISP PARITY H       >)
;DIAGFN (146,00,06,1,< CRA3-M8511-CRA LOC 05-10 H        >)
;DIAGFN (147,01,05,1,< CRA3-M8511-CRA LOC 00-04 H        >)
DIAGFN (144,09,00,1,< CRM5-M8528-CRAM PAR 1ST 00 H       >)
DIAGFN (144,11,00,1,< CRM5-M8528-CRAM PAR 00 H           >)
DIAGFN (144,15,00,1,< CRM5-M8528-CRAM PAR 1ST 04 H       >)
DIAGFN (144,17,00,1,< CRM5-M8528-CRAM PAR 04 H           >)
DIAGFN (144,21,00,1,< CRM5-M8528-CRAM PAR 1ST 08 H       >)
DIAGFN (144,23,00,1,< CRM5-M8528-CRAM PAR 08 H           >)
DIAGFN (144,27,00,1,< CRM5-M8528-CRAM PAR 1ST 12 H       >)
DIAGFN (144,29,00,1,< CRM5-M8528-CRAM PAR 12 H           >)
DIAGFN (144,33,00,1,< CRM5-M8528-CRAM PAR 1ST 16 H       >)
DIAGFN (144,35,00,1,< CRM5-M8528-CRAM PAR 16 H           >)
DIAGFN (173,01,00,1,< CRC2-M8535-CRC ACT CTR 0R H        >)
DIAGFN (173,02,00,1,< CRC2-M8535-CRC ACT CTR 1R H        >)
DIAGFN (173,03,00,1,< CRC2-M8535-CRC ACT CTR 2R H        >)
DIAGFN (174,01,00,1,< CRC1-M8535-CRC ACT FLAG ENA H      >)
DIAGFN (175,04,00,0,< CRC1-M8535-CRC AF REQ ENA L        >)
DIAGFN (177,01,00,0,< CRC6-M8535-CRC CH ADR 0C L         >)
DIAGFN (177,02,00,0,< CRC6-M8535-CRC CH ADR 1C L         >)
DIAGFN (177,03,00,0,< CRC6-M8535-CRC CH ADR 2C L         >)
DIAGFN (177,04,00,0,< CRC6-M8535-CRC CH ADR 3C L         >)
DIAGFN (170,00,00,1,< CRC6-M8535-CRC CH BUF ADR 0 H      >)
DIAGFN (171,00,00,1,< CRC6-M8535-CRC CH BUF ADR 1 H      >)
DIAGFN (172,00,00,1,< CRC6-M8535-CRC CH BUF ADR 2 H      >)
DIAGFN (173,00,00,1,< CRC6-M8535-CRC CH BUF ADR 3 H      >)
DIAGFN (174,00,00,1,< CRC6-M8535-CRC CH BUF ADR 4 H      >)
DIAGFN (175,00,00,1,< CRC6-M8535-CRC CH BUF ADR 5 H      >)
DIAGFN (176,00,00,1,< CRC6-M8535-CRC CH BUF ADR 6 H      >)
DIAGFN (170,03,00,1,< CRC4-M8535-CRC DONE IN H           >)
DIAGFN (172,03,00,1,< CRC3-M8535-CRC ERR IN H            >)
DIAGFN (172,02,00,1,< CRC3-M8535-CRC LAST WORD IN H      >)
DIAGFN (176,01,00,1,< CRC1-M8535-CRC MEM PTR0 H          >)
DIAGFN (176,02,00,1,< CRC1-M8535-CRC MEM PTR1 H          >)
DIAGFN (176,03,00,1,< CRC1-M8535-CRC MEM PTR2 H          >)
DIAGFN (176,04,00,1,< CRC1-M8535-CRC MEM PTR3 H          >)
DIAGFN (170,02,00,0,< CRC4-M8535-CRC MEM STORE ENA L     >)
DIAGFN (174,03,00,1,< CRC3-M8535-CRC OP CODE 00 H        >)
DIAGFN (174,04,00,1,< CRC3-M8535-CRC OP CODE 01 H        >)
DIAGFN (177,00,00,1,< CRC1-M8535-CRC PTR DIF=0 H         >)
DIAGFN (173,04,00,1,< CRC2-M8535-CRC RAM CYC H           >)
DIAGFN (172,01,00,1,< CRC3-M8535-CRC READY IN H          >)
DIAGFN (170,01,00,0,< CRC4-M8535-CRC RESET IN L          >)
DIAGFN (172,04,00,1,< CRC3-M8535-CRC REVERSE IN H        >)
DIAGFN (175,01,00,0,< CRC6-M8535-CRC SEL 1D L            >)
DIAGFN (175,02,00,0,< CRC6-M8535-CRC SEL 2D L            >)
DIAGFN (175,03,00,0,< CRC6-M8535-CRC SEL 4D L            >)
DIAGFN (170,04,00,1,< CRC4-M8535-CRC STORE IN H          >)
DIAGFN (174,02,00,0,< CRC5-M8535-CRC WR RAM L            >)
DIAGFN (170,20,00,0,< CHX2-M8515-CSH 0 ANY VAL L         >)
DIAGFN (177,25,00,0,< CHA3-M8513-CSH 0 ANY WR L          >)
DIAGFN (171,20,00,0,< CHX2-M8515-CSH 1 ANY VAL L         >)
DIAGFN (175,25,00,0,< CHA3-M8513-CSH 1 ANY WR L          >)
DIAGFN (172,20,00,0,< CHX2-M8515-CSH 2 ANY VAL L         >)
DIAGFN (176,25,00,0,< CHA3-M8513-CSH 2 ANY WR L          >)
DIAGFN (173,20,00,0,< CHX2-M8515-CSH 3 ANY VAL L         >)
DIAGFN (174,25,00,0,< CHA3-M8513-CSH 3 ANY WR L          >)
DIAGFN (174,27,00,1,< CSH3-M8513-CSH ADR PMA EN H        >)
DIAGFN (160,32,00,1,< MBC2-M8531-CSH ADR WR PULSE H      >)
DIAGFN (172,28,00,0,< CSH1-M8513-CSH CCA CYC L           >)
DIAGFN (174,31,00,1,< MBX1-M8529-CSH CCA INVAL CSH H     >)
DIAGFN (175,31,00,1,< MBX1-M8529-CSH CCA VAL CORE H      >)
DIAGFN (173,28,00,0,< CSH7-M8513-CSH CCA WRITEBACK L     >)
DIAGFN (160,33,00,0,< MBC2-M8531-CSH DATA CLR DONE IN L  >)
DIAGFN (161,27,00,0,< MBC2-M8531-CSH DATA CLR T1 L       >)
DIAGFN (161,28,00,0,< MBC2-M8531-CSH DATA CLR T2 L       >)
DIAGFN (161,29,00,0,< MBC2-M8531-CSH DATA CLR T3 L       >)
DIAGFN (170,27,00,0,< CSH4-M8513-CSH DATA CLR DONE L     >)
DIAGFN (174,20,00,1,< CHX4-M8515-CSH DIR 0 PAR ODD H     >)
DIAGFN (175,20,00,1,< CHX4-M8515-CSH DIR 1 PAR ODD H     >)
DIAGFN (176,20,00,1,< CHX4-M8515-CSH DIR 2 PAR ODD H     >)
DIAGFN (177,20,00,1,< CHX4-M8515-CSH DIR 3 PAR ODD H     >)
DIAGFN (176,28,00,0,< CSH7-M8513-CSH E WRITEBACK L       >)
DIAGFN (170,29,00,0,< CSH4-M8513-CSH EBOX T3 L           >)
DIAGFN (171,25,00,1,< CSH6-M8513-CSH EBOX LOAD REG H     >)
DIAGFN (171,29,00,0,< CSH4-M8513-CSH EBOX T1 L           >)
DIAGFN (172,29,00,0,< CSH1-M8513-CSH EBOX REQ EN L       >)
DIAGFN (173,29,00,0,< CSH4-M8513-CSH EBOX T2 L           >)
DIAGFN (174,28,00,0,< CSH1-M8513-CSH EBOX CYC B L        >)
DIAGFN (175,22,00,0,< CSH2-M8513-CSH EBOX RETRY REQ L    >)
DIAGFN (176,24,00,0,< CSH4-M8513-CSH EBOX T0 L           >)
DIAGFN (177,29,00,0,< CSH4-M8513-CSH EBOX WR T4 L        >)
DIAGFN (160,19,00,0,< MBZ1-M8537-CSH EN CSH DATA L       >)
DIAGFN (171,26,00,0,< CSH7-M8513-CSH FILL CACHE RD L     >)
DIAGFN (173,25,00,1,< CHX3-M8513-CSH LRU 1 H             >)
DIAGFN (172,25,00,1,< CHX3-M8513-CSH LRU 2 H             >)
DIAGFN (175,28,00,0,< CSH1-M8513-CSH MB CYC L            >)
DIAGFN (161,18,00,1,< MBZ6-M8537-CSH PAR BIT H           >)
DIAGFN (161,26,00,1,< MBZ6-M8537-CSH PAR BIT A H         >)
DIAGFN (162,17,00,1,< MBZ5-M8537-CSH PAR BIT IN H        >)
DIAGFN (162,26,00,1,< MBZ6-M8537-CSH PAR BIT B H         >)
DIAGFN (170,28,00,0,< CSH4-M8513-CSH REFILL RAM WR L     >)
DIAGFN (161,30,00,1,< MBC2-M8531-CSH SEL LRU H           >)
DIAGFN (174,26,00,0,< CSH5-M8513-CSH T0 L                >)
DIAGFN (173,26,00,0,< CSH5-M8513-CSH T1 L                >)
DIAGFN (176,26,00,0,< CSH5-M8513-CSH T2 L                >)
DIAGFN (175,26,00,0,< CSH5-M8513-CSH T3 L                >)
DIAGFN (175,21,00,1,< CHX3-M8515-CSH USE ADR 2 H         >)
DIAGFN (176,21,00,1,< CHX3-M8515-CSH USE ADR 3 H         >)
DIAGFN (177,21,00,1,< CHX3-M8515-CSH USE ADR 4 H         >)
DIAGFN (172,27,00,1,< CSH6-M8513-CSH USE HOLD H          >)
DIAGFN (170,21,00,1,< CHX3-M8515-CSH USE IN 0 H          >)
DIAGFN (171,21,00,1,< CHX3-M8515-CSH USE IN 1 H          >)
DIAGFN (172,21,00,1,< CHX3-M8515-CSH USE IN 2 H          >)
DIAGFN (173,21,00,1,< CHX3-M8515-CSH USE IN 3 H          >)
DIAGFN (174,21,00,1,< CHX3-M8515-CSH USE IN 4 H          >)
DIAGFN (175,23,00,1,< CSH6-M8513-CSH USE WR EN H         >)
DIAGFN (163,29,00,1,< MBC3-M8531-CSH VAL SEL ALL H       >)
DIAGFN (161,31,00,1,< MBC2-M8531-CSH VAL WR PULSE H      >)
DIAGFN (163,30,00,1,< MBC3-M8531-CSH VAL WR DATA H       >)
DIAGFN (171,23,00,0,< CSH6-M8513-CSH WR DATA RDY L       >)
DIAGFN (163,31,00,1,< MBC3-M8531-CSH WR SEL ALL H        >)
DIAGFN (170,25,00,0,< CSH2-M8513-CSH WR TEST L           >)
DIAGFN (170,32,00,1,< MBX4-M8529-CSH WR WD 2 EN H        >)
DIAGFN (171,32,00,1,< MBX4-M8529-CSH WR WD 3 EN H        >)
DIAGFN (176,31,00,1,< MBX4-M8529-CSH WR WD 0 EN H        >)
DIAGFN (177,31,00,1,< MBX4-M8529-CSH WR WD 1 EN H        >)
DIAGFN (161,32,00,1,< MBC2-M8531-CSH WR WR PULSE H       >)
DIAGFN (163,32,00,1,< MBC3-M8531-CSH WR WR DATA H        >)
DIAGFN (106,24,00,1,< CTL1-M8527-CTL AD LONG H           >)
DIAGFN (105,25,00,1,< CTL1-M8527-CTL ADX CRY 36 H        >)
DIAGFN (106,25,00,1,< CTL1-M8527-CTL ADX CRY 36 A H      >)
DIAGFN (100,28,00,0,< CTL2-M8527-CTL AR 00-08 LOAD L     >)
DIAGFN (104,28,00,1,< CTL2-M8527-CTL AR 00-11 CLR H      >)
DIAGFN (101,28,00,0,< CTL2-M8527-CTL AR 09-17 LOAD L     >)
DIAGFN (105,28,00,1,< CTL2-M8527-CTL AR 12-17 CLR H      >)
DIAGFN (100,26,00,1,< CTL2-M8527-CTL ARL SEL 2 H         >)
DIAGFN (101,26,00,1,< CTL2-M8527-CTL ARL SEL 1 H         >)
DIAGFN (103,28,00,1,< CTL2-M8527-CTL ARL SEL 4 H         >)
DIAGFN (106,28,00,1,< CTL2-M8527-CTL ARR CLR H           >)
DIAGFN (100,27,00,0,< CTL2-M8527-CTL ARR LOAD A L        >)
DIAGFN (101,27,00,0,< CTL2-M8527-CTL ARR LOAD B L        >)
DIAGFN (102,26,00,1,< CTL2-M8527-CTL ARR SEL 2 H         >)
DIAGFN (103,26,00,1,< CTL2-M8527-CTL ARR SEL 1 H         >)
DIAGFN (102,28,00,1,< CTL2-M8527-CTL ARX LOAD H          >)
DIAGFN (104,26,00,1,< CTL2-M8527-CTL ARXL SEL 2 H        >)
DIAGFN (105,26,00,1,< CTL2-M8527-CTL ARXL SEL 1 H        >)
DIAGFN (106,26,00,1,< CTL2-M8527-CTL ARXR SEL 2 H        >)
DIAGFN (107,26,00,1,< CTL2-M8527-CTL ARXR SEL 1 H        >)
DIAGFN (102,25,00,1,< CTL1-M8527-CTL COND/AR GETS EXP H  >)
DIAGFN (103,25,00,0,< CTL1-M8527-CTL DISP RET L          >)
DIAGFN (107,24,00,0,< CTL1-M8527-CTL INH CRY 18 L        >)
DIAGFN (136,14,00,0,< CTL1-M8522-CTL INH CRY 18 L        >)
DIAGFN (104,25,00,0,< CTL1-M8527-CTL LOAD PC L           >)
DIAGFN (104,27,00,1,< CTL2-M8527-CTL MQ SEL 2 H          >)
DIAGFN (105,27,00,1,< CTL2-M8527-CTL MQ SEL 1 H          >)
DIAGFN (106,27,00,1,< CTL2-M8527-CTL MQM EN H            >)
DIAGFN (102,27,00,1,< CTL2-M8527-CTL MQM SEL 2 H         >)
DIAGFN (103,27,00,1,< CTL2-M8527-CTL MQM SEL 1 H         >)
DIAGFN (101,25,00,0,< CTL1-M8527-CTL SPEC MTR CTL L      >)
DIAGFN (107,28,00,0,< CTL2-M8527-CTL SPEC CALL L         >)
DIAGFN (100,24,00,1,< CTL1-M8527-CTL SPEC/SCM ALT H      >)
DIAGFN (100,25,00,0,< CTL1-M8527-CTL SPEC/SAVE FLAGS L   >)
DIAGFN (101,24,00,1,< CTL1-M8527-CTL SPEC/CLR FPD H      >)
DIAGFN (102,24,00,1,< CTL1-M8527-CTL SPEC/GEN CRY 18 H   >)
DIAGFN (103,24,00,1,< CTL1-M8527-CTL SPEC/SECTION HOLD H >)
DIAGFN (104,24,00,1,< CTL1-M8527-CTL SPEC/FLAG CTL H     >)
DIAGFN (105,24,00,1,< CTL1-M8527-CTL SPEC/SP MEM CYCLE H >)
DIAGFN (136,15,00,1,< CTL1-M8522-CTL SPEC/GEN CRY 18 H   >)
DIAGFN (177,23,00,0,< CSH6-M8513-DATA DLY 1 L            >)
DIAGFN (163,33,00,1,< MBC3-M8531-DATA VALID A OUT H      >)
DIAGFN (164,27,00,1,< MBC3-M8531-DATA VALID B OUT H      >)
DIAGFN (107,27,00,0,< CTL3-M8527-DIAG LOAD EBUS REG L    >)
DIAGFN (107,25,00,1,< CTL3-M8527-DIAG MEM RESET H        >)
DIAGFN (140,03,00,1,< CRA3-M8511-DISP 02 A H             >)
DIAGFN (140,04,00,1,< CRA3-M8511-DISP 03 A H             >)
DIAGFN (140,05,00,1,< CRA3-M8511-DISP 04 A H             >)
DIAGFN (140,00,00,0,< CRA3-M8511-DISP EN 00-07 L         >)
DIAGFN (140,01,00,0,< CRA3-M8511-DISP EN 00-03 L         >)
DIAGFN (140,02,00,0,< CRA3-M8511-DISP EN 30-37 L         >)
;DIAGFN (130,15,03,1,< IRD1-M8522-DR ADR 00-02 A H        >)
;DIAGFN (131,12,06,1,< IRD1-M8522-DR ADR 03-08 A H        >)
;DIAGFN (133,12,03,1,< IRD1-M8522-DRAM A 00-02 H          >)
;DIAGFN (133,15,03,1,< IRD1-M8522-DRAM B 00-02 H          >)
;DIAGFN (134,14,04,1,< IRD1-M8522-DRAM J 01-04 H          >)
;DIAGFN (135,14,04,1,< IRD1-M8522-DRAM J 07-10 H          >)
DIAGFN (135,13,00,1,< IRD3-M8522-DRAM ODD PARITY H       >)
;DIAGFN (135,12,00,1,< IRD1-M8522-DRAM PAR H              >)
;ABOVE LINES REMOVED WITH 517
DIAGFN (176,27,00,1,< CSH2-M8513-E CACHE WR CYC H        >)
DIAGFN (174,22,00,0,< CSH2-M8513-E CORE RD RQ L          >)
DIAGFN (103,14,00,1,< PIC4-M8532-EBUS CS04 E H           >)
DIAGFN (102,11,00,1,< PIC4-M8532-EBUS CS05 E H           >)
DIAGFN (102,12,00,1,< PIC4-M8532-EBUS CS06 E H           >)
DIAGFN (102,13,00,1,< PIC2-M8532-EBUS DEMAND E H         >)
DIAGFN (135,07,00,1,< SCD2-M8524-FE SIGN H               >)
DIAGFN (172,32,00,1,< MBX1-M8529-FORCE NO MATCH H        >)
DIAGFN (160,27,00,1,< MBC5-M8531-FORCE VALID MATCH 0 H   >)
DIAGFN (160,28,00,1,< MBC5-M8531-FORCE VALID MATCH 1 H   >)
DIAGFN (160,29,00,1,< MBC5-M8531-FORCE VALID MATCH 2 H   >)
DIAGFN (160,30,00,1,< MBC5-M8531-FORCE VALID MATCH 3 H   >)
DIAGFN (136,16,00,1,< IRD4-M8522-GEN CRY 36 H            >)
DIAGFN (162,22,00,0,< MBZ3-M8537-HOLD ERA L              >)
DIAGFN (132,13,00,1,< IRD3-M8522-IR EN AC H              >)
DIAGFN (132,12,00,1,< IRD3-M8522-IR EN I/O, JRST H       >)
DIAGFN (136,13,00,1,< IRD1-M8522-IR I/O LEGAL H          >)
DIAGFN (134,13,00,0,< IRD3-M8522-IR JRST 0, L            >)
DIAGFN (130,12,00,1,< IRD3-M8522-IR NORM 08 H            >)
DIAGFN (130,13,00,1,< IRD3-M8522-IR NORM 09 H            >)
DIAGFN (130,14,00,1,< IRD3-M8522-IR NORM 10 H            >)
DIAGFN (174,32,00,1,< MBX3-M8529-MB DATA CODE 1 H        >)
DIAGFN (175,32,00,1,< MBX3-M8529-MB DATA CODE 2 H        >)
DIAGFN (160,20,00,1,< MBZ1-M8537-MB IN SEL 1 H           >)
DIAGFN (161,20,00,1,< MBZ1-M8537-MB IN SEL 2 H           >)
DIAGFN (162,20,00,1,< MBZ1-M8537-MB IN SEL 4 H           >)
DIAGFN (160,18,00,1,< MBZ5-M8537-MB PAR BIT IN H         >)
DIAGFN (176,32,00,1,< MBX3-M8529-MB PAR H                >)
DIAGFN (177,32,00,1,< MBX2-M8529-MB REQ HOLD H           >)
DIAGFN (170,33,00,1,< MBX5-M8529-MB REQ IN H             >)
DIAGFN (171,33,00,1,< MBX2-M8529-MB SEL 1 H              >)
DIAGFN (172,33,00,1,< MBX2-M8529-MB SEL 2 H              >)
DIAGFN (173,33,00,1,< MBX2-M8529-MB SEL HOLD H           >)
DIAGFN (175,24,00,0,< CSH3-M8513-MB TEST PAR A IN L      >)
DIAGFN (171,28,00,0,< CSH3-M8513-MB WR RQ CLR NXT L      >)
DIAGFN (174,33,00,1,< MBX6-M8529-MB0 HOLD IN H           >)
DIAGFN (175,33,00,1,< MBX6-M8529-MB1 HOLD IN H           >)
DIAGFN (176,33,00,1,< MBX6-M8529-MB2 HOLD IN H           >)
DIAGFN (177,33,00,1,< MBX6-M8529-MB3 HOLD IN H           >)
DIAGFN (164,28,00,1,< MBC3-M8531-MBC INH 1ST MB REQ H    >)
DIAGFN (175,27,00,1,< CSH3-M8513-MBOX GATE VMA 27-33 H   >)
DIAGFN (170,24,00,0,< CSH6-M8513-MBOX PT DIR WR L        >)
DIAGFN (173,23,00,0,< CSH2-M8513-MBOX RESP L             >)
DIAGFN (170,34,00,0,< MBX5-M8529-MBX MEM TO C EN L       >)
DIAGFN (161,21,00,0,< MBZ1-M8537-MBZ1 RD-PSE-WR REF L    >)
DIAGFN (106,22,00,1,< MCL4-M8530-MCL 18 BIT EA H         >)
DIAGFN (105,22,00,1,< MCL4-M8530-MCL 23 BIT EA H         >)
DIAGFN (107,20,00,1,< MCL4-M8530-MCL EA TYPE 10 H        >)
DIAGFN (107,21,00,1,< MCL4-M8530-MCL EA TYPE 09 H        >)
DIAGFN (104,23,00,0,< MCL6-M8530-MCL EBOX CACHE L        >)
DIAGFN (105,23,00,0,< MCL6-M8530-MCL EBOX MAY BE PAGED L >)
DIAGFN (107,23,00,0,< MCL6-M8530-MCL EBOX MAP L          >)
DIAGFN (104,22,00,0,< MCL4-M8530-MCL LOAD VMA CONTEXT L  >)
DIAGFN (105,18,00,1,< MCL2-M8530-MCL LOAD AR H           >)
DIAGFN (106,18,00,1,< MCL2-M8530-MCL LOAD ARX H          >)
DIAGFN (107,22,00,1,< MCL5-M8530-MCL MBOX CYC REQ H      >)
DIAGFN (102,19,00,1,< MCL1-M8530-MCL MEM/ARL IND H       >)
DIAGFN (115,15,00,0,< APR6-M8539-MCL MEM/REG FUNC L      >)
DIAGFN (102,20,00,1,< MCL2-M8530-MCL PAGE TEST PRIVATE H >)
DIAGFN (104,20,00,1,< MCL3-M8530-MCL PAGE UEBR REF H     >)
DIAGFN (105,20,00,1,< MCL3-M8530-MCL PAGE ADDRESS COND H >)
DIAGFN (106,20,00,1,< MCL3-M8530-MCL PAGE ILL ENTRY H    >)
DIAGFN (103,21,00,0,< MCL4-M8530-MCL PREV COND L         >)
DIAGFN (103,23,00,1,< MCL5-M8530-MCL PREV SEC TO ARMM H  >)
DIAGFN (106,23,00,1,< MCL6-M8530-MCL REG FUNC H          >)
DIAGFN (103,19,00,0,< MCL1-M8530-MCL REQ EN L            >)
DIAGFN (107,18,00,0,< MCL2-M8530-MCL STORE AR L          >)
DIAGFN (107,19,00,0,< MCL2-M8530-MCL VMA EXTENDED L      >)
DIAGFN (102,22,00,1,< MCL4-M8530-MCL VMA GETS AD H       >)
DIAGFN (103,22,00,1,< MCL4-M8530-MCL VMA INC H           >)
DIAGFN (103,18,00,1,< MCL2-M8530-MCL VMA PAUSE H         >)
DIAGFN (105,19,00,1,< MCL2-M8530-MCL VMA PUBLIC H        >)
DIAGFN (106,19,00,0,< MCL2-M8530-MCL VMA PREVIOUS L      >)
DIAGFN (102,18,00,1,< MCL2-M8530-MCL VMA READ H          >)
DIAGFN (103,20,00,1,< MCL3-M8530-MCL VMA UPT H           >)
DIAGFN (104,19,00,1,< MCL2-M8530-MCL VMA USER H          >)
DIAGFN (104,18,00,1,< MCL2-M8530-MCL VMA WRITE H         >)
DIAGFN (104,21,00,0,< MCL4-M8530-MCL VMAX EN L           >)
DIAGFN (105,21,00,1,< MCL4-M8530-MCL VMAX SEL 2 H        >)
DIAGFN (106,21,00,1,< MCL4-M8530-MCL VMAX SEL 1 H        >)
DIAGFN (102,21,00,1,< MCL4-M8530-MCL XR PREVIOUS H       >)
DIAGFN (165,33,00,1,< MBC4-M8531-MEM ADR PAR H           >)
DIAGFN (162,21,00,1,< MBZ1-M8537-MEM BUSY H              >)
DIAGFN (173,32,00,1,< MBX3-M8529-MEM DATA TO MEM H       >)
DIAGFN (171,34,00,0,< MBX3-M8529-MEM DIAG L              >)
DIAGFN (161,17,00,1,< MEM5-M8537-MEM PAR IN H            >)
DIAGFN (166,27,00,1,< MBC4-M8531-MEM RD RQ B H           >)
DIAGFN (172,34,00,1,< MBX5-M8529-MEM RD RQ IN H          >)
DIAGFN (166,28,00,1,< MBC4-M8531-MEM RQ 0 H              >)
DIAGFN (166,29,00,1,< MBC4-M8531-MEM RQ 1 H              >)
DIAGFN (166,30,00,1,< MBC4-M8531-MEM RQ 2 H              >)
DIAGFN (166,31,00,1,< MBC4-M8531-MEM RQ 3 H              >)
DIAGFN (166,32,00,0,< MBC4-M8531-MEM START L             >)
DIAGFN (161,19,00,0,< MBZ1-M8537-MEM TO C DIAG EN L      >)
DIAGFN (164,29,00,0,< MBC3-M8531-MEM TO C EN L           >)
DIAGFN (173,34,00,1,< MBX3-M8529-MEM TO C SEL 1 H        >)
DIAGFN (174,34,00,1,< MBX3-M8529-MEM TO C SEL 2 H        >)
DIAGFN (166,33,00,0,< MBC4-M8531-MEM WR RQ L             >)
DIAGFN (175,34,00,1,< MBX5-M8529-MEM WR RQ IN H          >)
DIAGFN (116,23,00,1,< MTR2-M8538-MTR ACCT ON H           >)
DIAGFN (116,22,00,1,< MTR2-M8538-MTR EXEC ACCT EN H      >)
DIAGFN (117,21,00,1,< MTR5-M8538-MTR INCR SEL 2 H        >)
DIAGFN (117,22,00,1,< MTR5-M8538-MTR INCR SEL 1 H        >)
DIAGFN (115,21,00,1,< MTR3-M8538-MTR INTERVAL ON H       >)
DIAGFN (115,22,00,1,< MTR3-M8538-MTR INTERVAL DONE H     >)
DIAGFN (115,23,00,1,< MTR3-M8538-MTR INTERVAL OVRFLO H   >)
DIAGFN (116,21,00,1,< MTR2-M8538-MTR PI ACCT EN H        >)
DIAGFN (116,25,00,1,< MTR2-M8538-MTR TIME ON H           >)
DIAGFN (117,20,00,1,< MTR5-M8538-MTR VECTOR REQ H        >)
DIAGFN (160,21,00,1,< MBZ3-M8537-NXM ACKN H              >)
DIAGFN (160,23,00,0,< MBZ3-M8537-NXM ANY L               >)
DIAGFN (161,25,00,0,< MBZ3-M8537-NXM DATA VAL L          >)
DIAGFN (162,23,00,1,< MBZ4-M8537-NXM T2 H                >)
DIAGFN (160,24,00,0,< MBZ4-M8537-NXM T6,7 L              >)
DIAGFN (173,22,00,0,< CSH2-M8513-ONE WORD RD L           >)
DIAGFN (175,29,00,0,< CSH4-M8513-ONE WORD WR T0 L        >)
DIAGFN (162,25,00,1,< PAG5-M8537-PAG MB 00-17 PAR H      >)
DIAGFN (160,26,00,1,< PAG5-M8537-PAG MB 18-35 PAR H      >)
DIAGFN (171,24,00,0,< CSH4-M8513-PAGE FAIL T2 L          >)
DIAGFN (174,23,00,0,< CSH6-M8513-PAGE FAIL HOLD L        >)
DIAGFN (177,24,00,1,< CSH4-M8513-PAGE FAIL DLY H         >)
DIAGFN (170,22,00,0,< CSH5-M8513-PAGE REFILL COMP L      >)
DIAGFN (174,24,00,0,< CSH5-M8513-PAGE REFILL T9,12 L     >)
DIAGFN (176,23,00,0,< CSH5-M8513-PAGE REFILL T8 L        >)
DIAGFN (176,29,00,0,< CSH5-M8513-PAGE REFILL T4 L        >)
DIAGFN (177,26,00,0,< CSH5-M8513-PAGE REFILL T10 L       >)
DIAGFN (164,30,00,0,< MBC3-M8531-PHASE CHANGE COMING L   >)
DIAGFN (100,10,00,1,< PIC1-M8532-PI1 ACTIVE H            >)
DIAGFN (103,15,00,1,< PIC2-M8532-PI2 HONOR INTERNAL H    >)
DIAGFN (103,16,00,1,< PIC2-M8532-PI2 READY H             >)
DIAGFN (103,13,00,1,< PIC2-M8532-PI2 STATE HOLD H        >)
DIAGFN (103,11,00,1,< PIC2-M8532-PI2 TIMER DONE H        >)
DIAGFN (110,15,00,1,< PIC3-M8539-PI3 APR PIA 04 H        >)
DIAGFN (110,16,00,1,< PIC3-M8539-PI3 APR PIA 02 H        >)
DIAGFN (110,17,00,1,< PIC3-M8539-PI3 APR PIA 01 H        >)
DIAGFN (116,33,00,1,< PIC3-M8538-PI3 MTR PIA 04 H        >)
DIAGFN (116,34,00,1,< PIC3-M8538-PI3 MTR PIA 02 H        >)
DIAGFN (116,35,00,1,< PIC3-M8538-PI3 MTR PIA 01 H        >)
DIAGFN (103,12,00,1,< PIC5-M8532-PI5 EBUS PI GRANT H     >)
DIAGFN (103,17,00,1,< PIC5-M8532-PI5 EBUS REQ H          >)
DIAGFN (177,28,00,0,< CSH2-M8513-RD PAUSE 2ND HALF L     >)
DIAGFN (173,24,00,0,< CSH2-M8513-RD PSE 2ND REQ EN L     >)
DIAGFN (172,26,00,1,< CSH1-M8513-READY TO GO A H         >)
DIAGFN (176,34,00,1,< MBX3-M8529-REFILL HOLD H           >)
DIAGFN (177,34,00,1,< MBX5-M8529-RQ 0 IN H               >)
DIAGFN (170,35,00,1,< MBX5-M8529-RQ 1 IN H               >)
DIAGFN (171,35,00,1,< MBX5-M8529-RQ 2 IN H               >)
DIAGFN (172,35,00,1,< MBX5-M8529-RQ 3 IN H               >)
DIAGFN (161,33,00,1,< MBC2-M8531-RQ HOLD FF H            >)
DIAGFN (162,31,00,1,< MBC2-M8531-SBUS ADR HOLD H         >)
DIAGFN (173,35,00,1,< MBX2-M8529-SBUS ADR 34 H           >)
DIAGFN (174,35,00,1,< MBX2-M8529-SBUS ADR 35 H           >)
DIAGFN (175,35,00,0,< MBX3-M8529-SBUS DIAG 3 L           >)
DIAGFN (176,35,00,0,< MBX3-M8529-SBUS DIAG CYC L         >)
DIAGFN (136,07,00,1,< SCD2-M8524-SC .GE. 36 H            >)
DIAGFN (134,07,00,1,< SCD2-M8524-SC SIGN H               >)
DIAGFN (133,04,00,0,< SCD1-M8524-SCAD=0 L                >)
DIAGFN (137,02,00,1,< SCD5-M8524-SCD ADR BRK INH H       >)
DIAGFN (137,05,00,1,< SCD5-M8524-SCD ADR BRK CYC H       >)
DIAGFN (137,06,00,1,< SCD5-M8524-SCD ADR BREAK PREVENT H >)
DIAGFN (131,03,00,1,< SCD4-M8524-SCD CRY0 H              >)
DIAGFN (131,04,00,1,< SCD4-M8524-SCD CRY1 H              >)
DIAGFN (131,06,00,1,< SCD4-M8524-SCD DIV CHK H           >)
DIAGFN (132,03,00,1,< SCD4-M8524-SCD FOV H               >)
DIAGFN (130,06,00,1,< SCD4-M8524-SCD FPD H               >)
DIAGFN (132,04,00,1,< SCD4-M8524-SCD FXU H               >)
DIAGFN (135,04,00,1,< SCD5-M8524-SCD KERNEL MODE H       >)
DIAGFN (136,02,00,1,< SCD5-M8524-SCD KERNEL OR USER IOT H>)
DIAGFN (134,03,00,1,< SCD5-M8524-SCD LEAVE USER H        >)
DIAGFN (133,03,00,1,< SCD5-M8524-SCD LOAD FLAGS A H      >)
DIAGFN (133,06,00,1,< SCD4-M8524-SCD NICOND 10 H         >)
DIAGFN (131,02,00,1,< SCD4-M8524-SCD OV H                >)
DIAGFN (133,02,00,1,< SCD4-M8524-SCD PCP H               >)
DIAGFN (135,05,00,0,< SCD5-M8524-SCD PRIVATE INSTR L     >)
DIAGFN (135,06,00,0,< SCD5-M8524-SCD PRIVATE INSTR EN L  >)
DIAGFN (134,06,00,1,< SCD5-M8524-SCD PUBLIC PAGE H       >)
DIAGFN (135,02,00,0,< SCD5-M8524-SCD PUBLIC EN L         >)
DIAGFN (135,03,00,1,< SCD5-M8524-SCD PUBLIC A H          >)
DIAGFN (130,02,00,1,< SCD4-M8524-SCD TRAP REQ 2 H        >)
DIAGFN (130,03,00,1,< SCD4-M8524-SCD TRAP CYC 2 H        >)
DIAGFN (130,04,00,1,< SCD4-M8524-SCD TRAP CYC 1 H        >)
DIAGFN (130,05,00,1,< SCD4-M8524-SCD TRAP REQ 1 H        >)
DIAGFN (136,03,00,1,< SCD3-M8524-SCD TRAP MIX 32 H       >)
DIAGFN (136,04,00,1,< SCD3-M8524-SCD TRAP MIX 33 H       >)
DIAGFN (137,03,00,1,< SCD3-M8524-SCD TRAP MIX 34 H       >)
DIAGFN (137,04,00,1,< SCD3-M8524-SCD TRAP MIX 35 H       >)
DIAGFN (137,07,00,0,< SCD4-M8524-SCD TRAP CLEAR L        >)
DIAGFN (134,02,00,0,< SCD5-M8524-SCD USER A L            >)
DIAGFN (134,05,00,0,< SCD5-M8524-SCD USER EN L           >)
DIAGFN (136,05,00,1,< SCD5-M8524-SCD USER IOT A H        >)
DIAGFN (136,06,00,0,< SCD5-M8524-SCD USER IOT EN L       >)
DIAGFN (105,31,00,1,< SHD1-M8526-SH AR PAR ODD H         >)
DIAGFN (160,17,00,1,< SHD1-M8537-SH AR PAR ODD A H       >)
DIAGFN (106,31,00,1,< SHD1-M8526-SH ARX PAR ODD H        >)
DIAGFN (134,12,00,1,< IRD3-M8522-TEST SATISFIED H        >)
DIAGFN (132,02,00,1,< SCD4-M8524-VMA HELD OR PC 00 H     >)
DIAGFN (160,31,00,1,< MBC1-M8531-WRITE OK H              >)
DIAGFN (173,27,00,1,< CSH4-M8513-WRITEBACK T1 A H        >)
DIAGFN (177,35,00,0,< MBX4-M8529-WRITEBACK T2 L          >)
DIAGFN (175,05,06,1,< CCW2-M8534-CCW CHA 18-23 H	>)
DIAGFN (176,07,04,1,< CCW2-M8534-CCW CHA 14-17 H	>)
DIAGFN (174,05,06,1,< CCW2-M8534-CCW CHA 24-29 H	>)
DIAGFN (173,05,06,1,< CCW2-M8534-CCW CHA 30-35 H	>)
DIAGFN (102,14,04,1,< PIC4-M8532-EBUS CS00-03 E H	>)
DIAGFN (167,00,09,1,< MBZ1-M8537-EBUS REG 00-08 H	>)
DIAGFN (167,14,13,1,< MBZ1-M8537-EBUS REG 14-26 H	>)
DIAGFN (167,27,07,1,< MBC1-M8531-EBUS REG 27-33 H	>)
DIAGFN (167,34,02,1,< MBZ1-M8537-EBUS REG 34,35 H	>)
DIAGFN (132,14,04,1,< IRD1-M8522-IR AC 09-12 H		>)
DIAGFN (113,20,16,1,< MTR1-M8538-MTR CACHE COUNT 02-17 H>)
DIAGFN (112,20,16,1,< MTR1-M8538-MTR EBOX COUNT 02-17 H	>)
DIAGFN (114,24,12,1,< MTR1-M8538-MTR INTERVAL 06-17 H	>)
DIAGFN (111,20,16,1,< MTR1-M8538-MTR PERF COUNT 02-17 H	>)
DIAGFN (115,24,12,1,< MTR3-M8538-MTR PERIOD 06-17 H	>)
DIAGFN (110,20,16,1,< MTR1-M8538-MTR TIME 02-17 H	>)
DIAGFN (142,00,06,1,< CRA4-M8511-SBR RET 05-10 H	>)
DIAGFN (143,01,05,1,< CRA4-M8511-SBR RET 00-04 H	>)
DIAGFN (100,18,06,1,< MCL3-M8530-VMA HELD OR PC 01-06 H	>)
DIAGFN (101,18,06,1,< MCL3-M8530-VMA HELD OR PC 07-12 H	>)
	>



	;HERE ARE ROUTINES TO LIST THE CONTENTS OF THE FUNCTION READS
	;THIS MODULE IS CALLED VIA GETSEG FROM EITHER SYSERC OR SYSERD
	;AND RETURNS TO EITHER UPON COMPLETION BY MOVING A PRE-
	;STORED RETURN ADDRESS TO AC15 FOR OVRLAY TO FIND.  THE
	;CALLING MODULE STORES THIS VALUE IN 14 AND ITS NAME IN 16

	;AC CONTENTS ARE:
	;P1, - FR WORD TO BE TRANSLATED
	;P2, - CURRENT OFFSET INTO THE TABLES
	;P3, - CURRENT TRUE VALUE,,FN #


LST000:	MOVEI	T1,CHROUT	;OUR TYPEOUT ROUTINE
	PUSHJ	P,.TYOCH##	;INITSCAN ROUTINES
	TYPEIT	<
CONTENTS OF DIAGNOSTIC FUNCTION READS (FOR REV. LEVEL 8)
REGISTER VALUES:
>
;FOLLOWING SEVERAL SECTIONS TO PRINT CRAM ARE ADDED WIT EDIT 422
	TYPEIT	<	CRAM
 LOC/  J  T AR  AD BR MQ FM SCAD SC FE SH  # VMA MEM COND SPEC M
>
;CRAM ADDR
	MOVE	T2,KLEFIL+47	;GET CRAM LOC 0-4
	LDB	T1,[POINT 5,T2,5]
	LSH	T1,6		;[525]LEFT SHIFT 5
	MOVE	T2,KLEFIL+46	;CRAM LOC 5-10
	LDB	T3,[POINT 6,T2,5]
	IOR	T1,T3		;ADDR TO T1
	LSH	T1,^D24		;LEFT JUSTIFY
	MOVEI	T2,4		;# TO PRINT
	PUSHJ	P,LST36##
	TYPEIT	</>
;BUILD P1-P4 WITH CONTENTS OF CRAM BITS
	PUSHJ	P,SAVE4P##
	MOVE	P1,KLEFIL+47	;FR 147 TO P1
	MOVE	P2,KLEFIL+46	;FR 146 TO P2
	MOVE	P3,KLEFIL+45	;FR 145 TO P3
	MOVE	P4,KLEFIL+44	;FR 144 TO P4
;NOW J FIELD
	LDB	T1,[POINT 3,P1,17]	;5-7
	LSH	T1,4		;LEFT 4
	LDB	T2,[POINT 4,P1,23]	;8-11
	IOR	T1,T2		;J TO T1
	LSH	T1,4		;LEFT 4
	LDB	T2,[POINT 4,P1,29]	;12-15
	IOR	T1,T2		;T1 HAS 5-15
	LSH	T1,^D24		;LEFT JUSTIFY
	MOVEI	T2,4		;# TO PRINT
	PUSHJ	P,LST36##
	PUSHJ	P,.TSPAC
;T
	SETZ	T1,
	TRNE	P4,1B32		;76/
	 TRO	T1,1B34
	TRNE	P4,1B34	;78?
	 TRO	T1,1B35
	PUSHJ	P,.TOCTW
	PUSHJ	P,.TSPAC
;AR
	SETZ	T1,
	TRNE	P2,1B32		;36?
	 TRO	T1,1B30
	TRNE	P4,1B20		;68?
	 TRO	T1,1B31
	TRNE	P4,1B22		;70?
	 TRO	T1,1B32
	TLNE	P3,(1B15)	;45?
	 TRO	T1,1B33
	TLNE	P4,(1B14)	;64?
	 TRO	T1,1B34
	TLNE	P4,(1B16)	;66?
	 TRO	T1,1B35
	LSH	T1,^D30		;LEFT JUSTIFY
	MOVEI	T2,2		;# TO PRINT
	PUSHJ	P,LST36##
	PUSHJ	P,.TSPAC
;AD
	SETZ	T1,
	LDB	T2,[POINT 3,P2,17]	;25-27 FIRST
	LSH	T2,6		;LEFT 6
	IOR	T1,T2
	LDB	T2,[POINT 4,P2,11]	;NOW 20--23
	IOR	T1,T2		;TO T1
	TRNE	P2,1B20		;28?
	 TRO	T1,1B25
	TRNE	P2,1B26		;32?
	 TRO	T1,1B26
	TRNE	P4,1B28		;74?
	 TRO	T1,1B30
	TLNE	P2,(1B14)	;24?
	 TRO	T1,1B31
	LSH	T1,^D24		;LEFT JUSTIFY
	MOVEI	T2,4		;# TO PRINT
	PUSHJ	P,LST36##
	PUSHJ	P,.TSPAC
;BR
SETZ	T1,
	TRNE	P3,1B28		;54?
	 TRO T1,1B34
	TRNE	P3,1B26		;52?
	 TRO	T1,1B35
	PUSHJ	P,.TOCTW
	PUSHJ	P,.TSPAC
	PUSHJ	P,.TSPAC
;MQ
	SETZ	T1,
	TRNE	P1,1B32		;16?
	 TRO	T1,1B35
	PUSHJ	P,.TOCTW
	PUSHJ	P,.TSPAC
	PUSHJ	P,.TSPAC
;FM
	LDB	T1,[POINT 3,P3,34]	;56-58
	PUSHJ	P,.TOCTW
	PUSHJ	P,.TSPAC
	PUSHJ	P,.TSPAC
;SCAD
	SETZ	T1,
	TLNE	P3,(1B10)	;42?
	 TRO	T1,1B28
	TLNE	P4,(1B8)	;60?
	 TRO	T1,1B29
	TLNE	P1,(1B8)	;00?
	 TRO	T1,1B30
	TLNE	P3,(1B8)	;40?
	 TRO	T1,1B31
	TLNE	P3,(1B9)	;41?
	 TRO	T1,1B32
	LDB	T2,[POINT 3,P1,11]	;01-03
	IOR	T1,T2
	LSH	T1,^D27		;LEFT JUSTIFY
	MOVEI	T2,3
	PUSHJ	P,LST36
	PUSHJ	P,.TSPAC
	PUSHJ	P,.TSPAC
;SC
	SETZ	T1,
	TLNE	P4,(1B10)	;62?
	 TRO	T1,1B35
	PUSHJ	P,.TOCTW
	PUSHJ	P,.TSPAC
	PUSHJ	P,.TSPAC
;FE
	SETZ	T1,
	TLNE	P1,(1B14)	;04?
	 TRO	T1,1B35
	PUSHJ	P,.TOCTW
	PUSHJ	P,.TSPAC
	PUSHJ	P,.TSPAC
;SH
	SETZ	T1,
	TLNE	P3,(1B16)	;46?
	TRO	T1,1B34
	TLNE	P3,(1B17)	;47?
	 TRO	T1,1B35
	PUSHJ	P,.TOCTW
	PUSHJ	P,.TSPAC
;#
	LDB	T1,[POINT 3,P2,23]	;29-31
	LSH	T1,3		;LEFT 3
	LDB	T2,[POINT 3,P2,29]	;33-35
	IOR	T1,T2
	LSH	T1,3		;LEFT 3
	LDB	T2,[POINT 3,P2,35]	;37-39
	IOR	T1,T2
	LSH	T1,^D27		;LEFT JUSTIFY
	MOVEI	T2,3
	PUSHJ	P,LST36
	PUSHJ	P,.TSPAC
	PUSHJ	P,.TSPAC
;VMA
	SETZ	T1,
	TLNE	P3,(1B14)	;44?
	 TRO	T1,1B34
	TRNE	P4,1B26		;72?
	TRO	T1,1B35
	PUSHJ	P,.TOCTW
	PUSHJ	P,.TSPAC
	PUSHJ	P,.TSPAC
;MEM
	LDB	T1,[POINT 4,P3,23]	;48-51  [710]
	LSH	T1,^D30		;LEFT JUSTIFY
	MOVEI	T2,2
	PUSHJ	P,LST36
	PUSHJ	P,.TSPAC
	PUSHJ	P,.TSPAC
	PUSHJ	P,.TSPAC
;COND
	LDB	T1,[POINT 3,P1,35]	;17-19
	LSH	T1,3		;LEFT 3
	TRNE	P3,1B27		;53?
	TRO	T1,1B33
	TRNE	P3,1B29		;55?
	 TRO	T1,1B34
	TRNE	P3,1B35		;59?
	 TRO	T1,1B35
	LSH	T1,^D30		;LEFT JUSTIFY
	MOVEI	T2,2
	PUSHJ	P,LST36
	PUSHJ	P,.TSPAC
	PUSHJ	P,.TSPAC
	PUSHJ	P,.TSPAC
;SPEC
	SETZ	T1,
	MOVE	T2,KLEFIL+41	;FR 141 TO T2
	LDB	T1,[POINT 6,T2,5]	;CRA DIS +CRA DIS 0-4
	LSH	T1,^D30		;LEFT JUSTIFY
	MOVEI	T2,2
	PUSHJ	P,LST36
	PUSHJ	P,.TSPAC
;M
	SETZ	T1,
	TLNE	P3,(1B11)	;43?
	 TRO	T1,1B35
	PUSHJ	P,.TOCTW
	PUSHJ	P,.TCRLF


;START OF [517]
	TYPEIT	<	DRAM
	 ADR: A B P J
	 >
	LDB	T2,[POINT 3,KLEFIL+30,17]	;ADR 0-2
	LDB	T1,[POINT 6,KLEFIL+31,17]	;ADR 3-8
	LSH	T2,6				;LEFT 6 PLACES
	IOR	T1,T2				;[535]MERGE
	LSH	T1,^D27				;LEFT JUSTIFY  [1216]
	MOVEI	T2,3				;# OF DIGITS TO PRINT
	PUSHJ	P,LST36##
	TYPEIT	</>
	PUSHJ	P,.TSPAC
	LDB	T1,[POINT 3,KLEFIL+33,14]	;A 0-2
	PUSHJ	P,.TOCTW
	PUSHJ	P,.TSPAC
	LDB	T1,[POINT 3,KLEFIL+33,17]	;B 0-2
	PUSHJ	P,.TOCTW
	PUSHJ	P,.TSPAC
	LDB	T1,[POINT 1,KLEFIL+35,12]	;PARITY BIT
	PUSHJ	P,.TOCTW
	PUSHJ	P,.TSPAC
	LDB	T2,[POINT 4,KLEFIL+34,17]	;J 1-4
	LSH	T2,6				;LEFT 6
	LDB	T1,[POINT 4,KLEFIL+35,17]	;J 7-10
	IOR	T1,T2				;[535]MERGE
	PUSHJ	P,.TOCTW
	PUSHJ	P,.TCRLF
;END OF [517] ADDITION
	PUSHJ	P,RET4P		;RESTORE P1-P4
;END EDIT 422
	TYPEIT	<
	AR : >
	MOVEI	P1,20		;FR#
	MOVE	T1,KLEFIL(P1)	;CONTENTS
	MOVEI	T2,^D12		;# OF CHARS TO PRINT
	PUSHJ	P,LST36##
	TYPEIT	<	BR : >
	AOS	P1
	MOVE	T1,KLEFIL(P1)	;CONTENTS
	MOVEI	T2,^D12		;# OF CHARS TO PRINT
	PUSHJ	P,LST36	;LIST IT
	TYPEIT	<	MQ : >
	AOS	P1
	MOVE	T1,KLEFIL(P1)	;CONTENTS
	MOVEI	T2,^D12		;# OF CHARS TO PRINT
	PUSHJ	P,LST36	;LIST IT
	PUSHJ	P,.TCRLF
	TYPEIT	<	FM : >
	AOS	P1
	MOVE	T1,KLEFIL(P1)	;CONTENTS
	MOVEI	T2,^D12		;# OF CHARS TO PRINT
	PUSHJ	P,LST36	;LIST IT
	TYPEIT	<	BRX : >
	AOS	P1
	MOVE	T1,KLEFIL(P1)	;CONTENTS
	MOVEI	T2,^D12		;# OF CHARS TO PRINT
	PUSHJ	P,LST36	;LIST IT
	TYPEIT	<	ARX : >
	AOS	P1
	MOVE	T1,KLEFIL(P1)	;CONTENTS
	MOVEI	T2,^D12		;# OF CHARS TO PRINT
	PUSHJ	P,LST36	;LIST IT
	PUSHJ	P,.TCRLF
	;START [517]
	PUSH	P,P1		;SAVE P1
	TYPEIT	<	FM ADDR:	>
	LDB	T1,[POINT 4,KLEFIL+14,14]	;GET ADDRESS
	PUSHJ	P,.TOCTW
	TYPEIT	<	FM BLOCK:	>
	LDB	T1,[POINT 3,KLEFIL+14,10]	;GET BLOCK NUMBER
	PUSHJ	P,.TOCTW
	PUSHJ	P,.TCRLF
	POP	P,P1				;RESTORE P1
;END [517]
	TYPEIT	<	ADX : >
	AOS	P1
	MOVE	T1,KLEFIL(P1)	;CONTENTS
	MOVEI	T2,^D12		;# OF CHARS TO PRINT
	PUSHJ	P,LST36	;LIST IT
	TYPEIT	<	AD : >
	AOS	P1
	MOVE	T1,KLEFIL(P1)	;CONTENTS
	MOVEI	T2,^D12		;# OF CHARS TO PRINT
	PUSHJ	P,LST36	;LIST IT
	TYPEIT	<	SC : >
	HLRZ	T1,KLEFIL+31	;GET SC0-4
	ANDI	T1,3700		;BY THEMSELVES
	HLRZ	T2,KLEFIL+30	;GET SC5-9
	ANDI	T2,3700		;BY THEMSELVES
	LSH	T2,-6		;MOVE OVER
	IOR	T1,T2		;PUT THE HALVES TOGETHER
	LSH	T1,^D25		;LEFT JUSTIFY
	MOVEI	T2,4		;# CHARS TO PRINT
	PUSHJ	P,LST36	;DO THE PRINTING
	PUSHJ	P,.TCRLF	;NEXT LINE
	TYPEIT	<	FE : >
	HLRZ	T1,KLEFIL+33	;GET FE0-4
	ANDI	T1,3700		;BY THEMSELVES
	HLRZ	T2,KLEFIL+32	;GET FE5-9
	ANDI	T2,3700		;BY THEMSELVES
	LSH	T2,-6		;MOVE OVER
	IOR	T1,T2		;PUT THE HALVES TOGETHER
	LSH	T1,^D25		;LEFT JUSTIFY
	MOVEI	T2,4		;# CHARS TO PRINT
	PUSHJ	P,LST36	;DO THE PRINTING
	TYPEIT	<	PI GEN : >
	HLRZ	T1,KLEFIL+1	;GET PI-GEN-1-7
	ANDI	T1,177
	LSH	T1,^D27	;LEFT JUSTIFY
	MOVEI	T2,3		;# CHARS TO PRINT
	PUSHJ	P,LST36
	TYPEIT	<	PI ON : >
	HLRZ	T1,KLEFIL	;GET PI-ON-1-7
	ANDI	T1,177
	LSH	T1,^D27	;LEFT JUSTIFY
	MOVEI	T2,3		;# CHARS TO PRINT
	PUSHJ	P,LST36
	TYPEIT	<	PI HOLD : >
	HLRZ	T1,KLEFIL	;GET PI-HOLD-1-7
	ANDI	T1,77400
	LSH	T1,-10	;MOVE RIGHT
	LSH	T1,^D27	;LEFT JUSTIFY
	MOVEI	T2,3		;# CHARS TO PRINT
	PUSHJ	P,LST36
	;NOW BUILD  AND THEN LIST THE CONTENTS OF PC,VMA, AND VMA HOLD

	PUSHJ	P,.TCRLF
	TYPEIT	<	PC : >
	MOVE	P1,KLEFIL+50	;FR150 TO P1
	MOVE	P2,KLEFIL+51
	MOVE	P3,KLEFIL+52
	MOVE	P4,KLEFIL+53
	MOVE	T1,[21042104]	;THE MASK WORD
	PUSHJ	P,PCVMAH	;ROUTINE TO UNSCRAMBLE THE BITS
	LSH	T2,-2		;RIGHT JUSTIF
	TLZ	T2,1B30		;CLEAR BIT 12
	MOVE	T1,T2
	LSH	T1,^D15		;[506]LEFT JUSTIF
	MOVEI	T2,7		;CHARS TO PRINT
	PUSHJ	P,LST36		;PRINT
	TYPEIT	<	VMA HELD : >
	MOVE	P1,KLEFIL+54	;FR154 TO P1
	MOVE	P2,KLEFIL+55
	MOVE	P3,KLEFIL+56
	MOVE	P4,KLEFIL+57
;	PUSHJ	P,SAVE4P	;SAVE THESE FR VALUES FOR VMA[1014]
	MOVE	T1,[21042104]	;THE MASK WORD
	PUSHJ	P,PCVMAH	;ROUTINE TO UNSCRAMBLE THE BITS
	LSH	T2,-2		;RIGHT JUSTIF
	TLZ	T2,1B30		;CLEAR BIT 12
	MOVE	T1,T2
	LSH	T1,^D15		;[506]LEFT JUSTIF
	MOVEI	T2,7		;CHARS TO PRINT
	PUSHJ	P,LST36		;PRINT
	TYPEIT	<	VMA : >
	MOVE	P1,KLEFIL+54	;FR154 TO P1
	MOVE	P2,KLEFIL+55
	MOVE	P3,KLEFIL+56
	MOVE	P4,KLEFIL+57
;	PUSHJ	P,RET4P		;RESTORE THE FR VALUES[1014]
	MOVE	T1,[4210421]	;THE MASK WORD
	PUSHJ	P,PCVMAH	;ROUTINE TO UNSCRAMBLE THE BITS
	TLZ	T2,1B30		;CLEAR BIT 12
	MOVE	T1,T2
	LSH	T1,^D15		;[506]LEFT JUSTIF
	MOVEI	T2,7		;CHARS TO PRINT
	PUSHJ	P,LST36		;PRINT
	PUSHJ	P,.TCRLF
;HERE BUILD THEN LIST THE LOGICAL AND'S & OR'S FOR ALL
;FUNCTION READ VALUES.  CHECKS STUCK BITS

	SETOM	P3		;AND STORAGE
	SETZM	P4		;OR STORAGE
	MOVSI	P1,-100		;AOB PNTR
LSTAND:	MOVE	P2,KLEFIL(P1)	;GET A FR
	AND	P3,P2
	IOR	P4,P2
	AOBJN	P1,LSTAND	;GET NEXT
	SKIPN	P3		;IF ZERO
	 JRST	LSTANA		;DON'T LIST
	TYPEIT	<	LOGICAL AND OF ALL FR VALUES:	>
	MOVE	T1,P3
	MOVEI	T2,^D12		;LIST 12 CARACTERS
	PUSHJ	P,LST36
LSTANA:	CAMN	P4,[-1]		;IF -1
	 JRST	LSTANB		;DON'T LIST
	TYPEIT	<	LOGICAL OR OF ALL FR VALUES:	>
	MOVE	T1,P4
	MOVEI	T2,^D12
	PUSHJ	P,LST36
LSTANB:	PUSHJ	P,.TCRLF	;NEXT LINE

	TLNN	F,F.DET		;/DETAIL SPEC'D?
	 JRST 	QUIT		;SAVE SEVERAL PAGES OF PAPER
	MOVEI	P2,0		;STARTING OFFSET TO FR TABLES, ETC

	;ROUTINE TO APPLY MASK TO FR WORD AND LIST IF REQUIRED

LST001:	TYPEIT	<
	SIGNAL NAMES WHICH OCCURED TRUE *EITHER HIGH OR LOW*  
>
	TYPEIT	<
	SIGNIFICANT ERROR SIGNALS ARE LISTED FIRST
>
	MOVEI	P2,0		;STARTING OFFSET
	MOVE	P3,FRNUM(P2)	;TRUE STATE ,, FR#
LST002:	MOVE	P1,KLEFIL(P3)	;GET FR VALUE
	MOVE	T1,MSKWD(P2)	;NEXT MASK VALUE
	TLNN	P3,1B35		;WHICH TEST TO MAKE?
	 JRST	LST003		;COMPLEMENT TEST
	TDNE	P1,T1		;APPLY MASK
	 PUSHJ	P,LSTTXT	;DO TEXT
	AOS	P2		;BUMP OFFSET
	MOVE	P3,FRNUM(P2)	;NEXT
	HLRZ	T2,P3		;EOF?
	CAIE	T2,-1	
	 JRST	LST002		;DO NEXT
	JRST	GOBACK		;ALL DONE

LST003:	SETCA	P1,P1		;COMPLEMENT THE WORD
	TDNE	P1,T1		;APPLY MASK
	 PUSHJ	P,LSTTXT	;DO TEXT
	SETCA	P1,P1		;RE-COMPLEMENT
	AOS	P2		;BUMP OFFSET
	MOVE	P3,FRNUM(P2)	;NEXT
	HLRZ	T2,P3		;EOF?
	CAIE	T2,-1	
	 JRST	LST002		;DO NEXT
	JRST	GOBACK		;ALL DONE
	
;HERE WHEN FINISHED SO GO BACK TO HI SEG WHICH CALLED US

GOBACK:	PUSHJ	P,.TCRLF
	MOVE	T1,16	;GET SEG WHICH CALLED US
	MOVEM	T1,OVRBLK+1	;SETUP
	MOVE	15,14		;SET RETURN ADDRESS IN THAT SEG
	MOVEM	17,SAVEAC+17
	MOVEI	17,SAVEAC
	BLT	17,SAVEAC+16	;PUT AWAY AC'S
	JRST	OVRLAY	;RETURN TO OUR CALLER

QUIT:	TYPEIT	<=====REST OF INFORMATION AVAILABLE BY USING /DETAIL SWITCH=====>
	JRST	GOBACK		;NOW LEAVE THIS HI-SEG



;ROUTINE TO UNSCRAMBLE FR WORDS FOR PC,VMA,&VMA HELD
;USES AND DESTROYS P1-P4

PCVMAH:	SETZ	T2,
	AND	P1,T1		;APPLY TO FIRST WORD
	IOR	T2,P1
	AND	P2,T1
	LSH	P2,1
	IOR	T2,P2
	AND	P3,T1
	LSH	P3,2
	IOR	T2,P3
	AND	P4,T1
	LSH	P4,3
	IOR	T2,P4
	POPJ	P,0
	;HERE ARE ROUTINES WHICH LIST THE BYTE(IF REQ'D) AND THE TEXT 

LSTTXT:	PUSHJ	P,SAVE4P	;SAVE P1-P4
	SETZM	KLEEND		;CLEAR BYTE FLAG
	MOVE	P1,LINCTN	;GET # SPACES LEFT ON THIS LINE
	SKIPN	P1		;TIME FOR CRLF?
	 PUSHJ	P,[
	  PUSHJ	P,.TCRLF
	  MOVEI	P1,3
	  POPJ	P,0]
	SUBI	P1,1		;DECREMENT COUNT
	MOVEM	P1,LINCTN
	HLRZ	T1,PNTWD(P2)	;GET # OF BITS INBYTE
	SKIPE	T1		;A BYTE TO LIST
	 PUSHJ	P,LSTBIT		;GO TO THE CORRECT ROUTINE
	MOVEI	T2,.TSPAC	;ASSUME SPACE
	CAIE	P1,2		;STARTING A FRESH LINE?
	MOVEI	T2,.TTABC	;TAB BETWEEN TEXT UNLESS
	SKIPE	KLEEND		;BYTE VALUE LISTED THEN
	 MOVEI	T2,.TSPAC	;1 PACES
	PUSHJ	P,@T2		;DO EITHER
	HRRZ	T1,PNTWD(P2)	;ADDRESS OF TEXT FOR THIS BIT OR BYTE
	PUSHJ	P,.TSTRG	;LIST THE TEXT
	PUSHJ	P,RET4P		;RESTORE P1-P4
	POPJ	P,0


	;HERE TO LIST A BYTE OF DATE BEFORE LISTING THE TEXT

LSTBIT:	ANDI	T1,777		;# OF BITS TO SHIFT RIGHT
	MOVNS	T1,T1		;-=SHIFT RIGHT
	MOVE	T3,P1		;SAVE LINE POSITION
	MOVE	P1,KLEFIL(P3)	;GET VALUE  [1143]
	AND	P1,MSKWD(P2)	;GET THE BYTE ALONE
	LSH	P1,0(T1)	;MOVE IT DOWN
	MOVEI	T1,[ASCIZ/ [/]
	CAIE	T3,2		;STARTING A FRESH LINE?
	 MOVEI	T1,[ASCIZ/	[/]
	PUSHJ	P,.TSTRG
	MOVE	T1,P1
	PUSHJ	P,.TOCTW
	TYPEIT	<]>
	SETOM	KLEEND
	POPJ	P,0


	;NOW DEFINE THE TABLES OF POINTERS AND BYTES SIZES TO LIST
	RADIX 10	;****NOTE*****

	DEFINE	DIAGFN (A,B,C,D,E)<
	IFIDN<C><00>,<
	XWD 0,[ASCIZ!E!]
	>
	IFDIF<C><00>,<
	BYTE (9) C,<35-<B+C-1>> (18)<[ASCIZ\E\]>
	>
	>
	;WHAT IS XLISTED IS "PNTWD: DFNALL" TO SAVE PAPER
	XLIST
PNTWD:	DFNALL
	XWD -1,0
	LIST
	;NOW DEFINE THE MASK WORDS
	;THE EXPRESSION OF ZZ USES ARGUEMENT (C) TO BUILD
	;A MASK BYTE OF (C) 1'S.
	;***STIL IN RADIX 10***

	DEFINE	DIAGFN	(A,F,C,D,E)<


	IFDIF<C><00>,<
	ZZ==0
	REPEAT <C>,<
	ZZ==ZZ*2+1
	>
	<ZZ>B<F+C-1>
	>

	IFIDN<C><00>,<
	1B<F>
	>
	>
	;WHAT IS XLISTED IS "MSKWD: DFNALL" TO SAVE PAPER
	XLIST

MSKWD:	DFNALL
	XWD	-1,0
	LIST

;DEFINE A TABLE OF TRUE VALUE FOR THE BIT AND THE FR #


	RADIX 8		;******NOTE*****

DEFINE	DIAGFN (A,B,C,D,E)<

	BYTE (18)  D,<A-100>
	>
	;WHAT IS XLISTED IS "FRNUM: DFNALL" TO SAVE PAPER
	XLIST

FRNUM:	DFNALL
	XWD -1,0
	LIST




	;LABELS DEFINED HERE ARE SIMPLY TO ALLOW THIS SEGMENT TO
	;BE COMPILED
ALLLTH:
ALLTBL:
BITCHK:
DEVDSP:
DEVTYP:
DUMDAY:
erindx:
errLTH:
ERRTBL:
KLEDMP:
KONMSK:
LINE:
MASLTH:
MASNAM:
MINERB:
NAMLTH:
MDE000:
BLTTAB:
FE$NAM:
NAMTBL:
PCSTBL:
PDLPNT:
SUMUPD:
TYPMES:	Z

	END	LST000