Trailing-Edge
-
PDP-10 Archives
-
BB-D868D-BM
-
language-sources/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 14(1267) K. COYE/ RLD/ PJB/ ES/ TJW/ LWE/ SRL/ GSK
;COPYRIGHT (C) 1972,1975,1977,1978,1979 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