Google
 

Trailing-Edge - PDP-10 Archives - BB-H138A-BM - 3a-sources/syrunv.mac
There are 16 other files named syrunv.mac in the archive. Click here to see a list.
;<BAKER.SYSERR>SYRUNV.MAC.21, 14-Aug-78 12:13:06, Edit by BAKER
;<BAKER.SYSERR>SYRUNV.MAC.20, 14-Aug-78 10:31:49, Edit by BAKER
;<BAKER.SYSERR>SYRUNV.MAC.19, 11-Aug-78 17:32:15, Edit by BAKER
;FIX MB ERR REG 1&3 DEFINITIONS & ADD ERA TO 102 ENTRY
;<BAKER.SYSERR>SYRUNV.MAC.15,  4-Aug-78 15:28:51, Edit by BAKER
;<BAKER.SYSERR>SYRUNV.MAC.13,  4-Aug-78 13:48:28, Edit by BAKER
;MORE FOR KS HALT STATUS BLOCK
;<BAKER.SYSERR>SYRUNV.MAC.12, 28-Jul-78 12:57:49, Edit by BAKER
;FIX HANDLING OF ZERO LENGTH HEADER
;<BAKER.SYSERR>SYRUNV.MAC.11, 25-Jul-78 09:58:56, Edit by BAKER
;<BAKER.SYSERR>SYRUNV.MAC.10, 21-Jul-78 13:18:39, Edit by BAKER
;<BAKER.SYSERR>SYRUNV.MAC.9, 21-Jul-78 09:52:42, Edit by BAKER
;<BAKER.SYSERR>SYRUNV.MAC.8, 21-Jul-78 08:27:33, Edit by BAKER
;<BAKER.SYSERR>SYRUNV.MAC.7, 20-Jul-78 15:01:08, Edit by BAKER
;ADD SUPPORT FOR KS HALT STATUS BLOCK
;<BAKER.SYSERR>SYRUNV.MAC.6, 14-Jul-78 08:54:30, Edit by BAKER
;<BAKER.SYSERR>SYRUNV.MAC.5, 12-Jul-78 14:12:36, Edit by BAKER
;<BAKER.SYSERR>SYRUNV.MAC.4, 12-Jul-78 09:49:52, Edit by BAKER
;<BAKER.SYSERR>SYRUNV.MAC.3, 12-Jul-78 09:01:24, Edit by BAKER
;<BAKER.SYSERR>SYRUNV.MAC.2, 11-Jul-78 09:50:03, Edit by DRUEKE
;FIX ENTRY SWITCH, BRIEF BUFFER OVERFLOW & HALT STATUS BLOCK
;<SYSERR>SYRUNV.MAC.16, 29-Jun-78 11:41:46, EDIT BY IQL-BAKER
;ADD DEFINITION OF BITS IN KS10 CONI APR
;<SYSERR>SYRUNV.MAC.15, 27-Jun-78 17:00:19, EDIT BY IQL-BAKER
;<SYSERR>SYRUNV.MAC.14, 27-Jun-78 16:20:15, EDIT BY IQL-BAKER
;<SYSERR>SYRUNV.MAC.13, 27-Jun-78 15:59:41, EDIT BY IQL-BAKER
;<SYSERR>SYRUNV.MAC.12, 27-Jun-78 15:48:32, EDIT BY WOJCIK
;YANK OUT BOGUS 163 ENTRY DEFINITION
;<SYSERR>SYRUNV.MAC.11, 27-Jun-78 15:30:46, EDIT BY IQL-BAKER
;REWORK THE SWITCH DEFAULT LIST
;<SYSERR>SYRUNV.MAC.10, 26-Jun-78 11:37:14, EDIT BY IQL-BAKER
;<SYSERR>SYRUNV.MAC.9, 26-Jun-78 09:53:22, EDIT BY IQL-BAKER
;ADD C.R. TO KLINIK ENTRY IN SYSERC
;<BAKER.SYSERR>SYRUNV.MAC.8, 23-Jun-78 09:28:18, Edit by DRUEKE
;FIX BRF230..CHANGE GT,0 TO NE,-1 BECAUSE OF WAY PTR IS MADE [TJW]
;<BAKER.SYSERR>SYRUNV.MAC.7, 23-Jun-78 08:24:49, Edit by DRUEKE
;EDIT 743 AFFECTS SYSERN
;<SYSERR>SYRUNV.MAC.6, 22-Jun-78 15:29:09, EDIT BY IQL-BAKER
;FIX UP SOME DETAILS IN BRF112 [TJW]
;<SYSERR>SYRUNV.MAC.5, 22-Jun-78 14:33:31, EDIT BY IQL-BAKER
;WORK ON BRF112 - DX20
;<SYSERR>SYRUNV.MAC.4, 22-Jun-78 13:53:48, EDIT BY DRUEKE
;FIX BRF230 VALUES
;<SYSERR>SYRUNV.MAC.3, 22-Jun-78 13:51:00, EDIT BY WOJCIK
;MORE BRIEF 230 WORK
;<SYSERR>SYRUNV.MAC.2, 22-Jun-78 13:46:06, EDIT BY WOJCIK
;FIX UP THE 230 BRIEF PROCESSOR
;<SYSERR>SYRUNV.MAC.1, 22-Jun-78 11:17:04, EDIT BY WOJCIK
;HERE WE BEGIN TRACKING EDITS



	UNIVERSAL SYRUNV  PARAMETER FILE FOR SYSERR PKG.
	SUBTTL	VERSION 12(763)		K. COYE/ RLD/ PJB/ ES/ TJW





;COPYRIGHT (C) 1972,1975,1977,1978 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.



	subttl REVISION HISTORY

	;REVISION HISTORY
	;EDIT #'S 100-435 ARE XLISTED TO SAVE A PAGE OR 2
XLIST
	;100 - STARTING POINT OF EDITS SINCE CORRECT
	;	PROCEDURE IS NOW STARTING FOR VERSION 3
	;101 - FIXED PAGE LIMIT CHECK(SPR #10-13,341)
	;102 - FIXED TO HAVE KONTYP POINT AT SOFTWARE IF
	;	SOFTWARE DETECTED ERROR
	;103 - NOW COMPILES WITH MACRO 50(271) MISSING
	;	")" IN DUM010 MACRO DEFINITION
	;RELEASED AS VER 3A WITH #103
	;104 - SUPPORT FOR MASSBUS DEVICE ERROR REPORTING.
	;105 - ADDED STR ID TO CODE 10 ENTRIES AND SUPPORT OF /STR
	;	SWITCH WHEN LISTING CODE 10'S
	;106 - ADDED CODE TO GENERATE SUMMARY LISTING OF RELOADS
	;	THANKS TO A.E.C. OF CANADA FOR SPR#10-14,235
	;	ALSO ALLOWS CCL ENTRY AND MODIFIED MONITOR VERSION
	;	DECODE. SPR# 10-14,276 MODIFIED SYSERR VERSION
	;	DECODE IN SUMMARY LISTINGS
	;107 - ADDED CODE TO LOOK FOR AND THEN READ ERROR.X01
	;	THRU ERROR.X77 IF THEY EXIST.
	;
	;released as version 3b with #107.
	;
	;110 - answer to spr #10-14,080; problems with compar,sumupd,
	;	and devchk routines. also put some disk flag counts
	;	under conditional DEBUG where they belong.
	;111 - ADDED SUPPORT FOR TU70/DX10 (ER.TAP)
	;112 - MODIFIED MAGTAPE SUMMARY OUTPUT LISTINGS
	;113 - ADDED SUPPORT FOR DEBUG/JOB STOPCD'S (ER.MSE)
	;114 - ADDED SUPPORT FOR DL10 HARDWARE ERRORS (ER.DLE)
	;115 - ADDED CODE TO SUPPORT RE-SYNC FEATURE WHERE 1ST WORD
	;	OF EVERY BLOCK OF ERROR.SYS IS AN OFFSET TO 1ST
	;	VALID ENTRY IN THIS BLOCK. IF SYSERR GETS CONFUSED,
	;	IT WILL GET THE NEXT BLOCK, FIND THE NEXT ENTRY AND
	;	CONTINUE. SHOULD STILL SUPPORT OLD STYLE FILES.
	;116 - ADDED /DETAIL SWITCH TO MASSBUS LISTINGS
	;117 - ADDED SUPPORT FOR KA/KI NXM ERROR REPORTING (ER.NXM)
	;120 - ADDED CODE TO START SUPPORTING OVERLAYS OF HIGH
	;	SEGMENTS.
	;121 - ADDED SUPPORT OF CODE 42 ENTRIES, MAGTAPE
	;	STATISTICS FOR TAPSER MONITORS ER.TPS.
	;****LIR RELEASE WITH EDIT 121 FOR TAPSER SUPPORT.****
	;122 - MODIFIED CODE 6,10,&11 ENTRIES TO SUPPORT CHN. TERMINATION
	;	CHECK FAILS AND COUNTS OF AVAIL SLOTS IN BAT BLOCKS.
	;123 - ADDED SUPORT FOR LOGGING CONFIGURATION
	;	STATUS CHANGES ER.CSC.
	;124 - ADDED /DEV: SUPPORT TO CODE 6 ENTRIES
	;125 - ADDED /DSKBTH AND /MASBTH SWITCHES.
	;	SEE SYSERR.RNO FOR COMPLETE DESCRIPTION.
	;126 - ADDED /RETRY: SWITCH. AGAIN,SEE SYSERR.RNO
	;127 - ADDED SUPPORT FOR ER.KDT AND ER.KDI KL10
	;	DATA PARITY ERROR HANDLERS.
	;130 - ANSWER TO SPR#10-15,998 /MAGPAR NOT REPORTING
	;	TAPE PARITY ERRORS CHANGED SYSERA.MAC AT
	;	BC20.2+5.
	;131 - ADDED SUPPORT FOR ER.KAE, KL10 ADDRESSING FAIL-
	;	URES(NXM&ADDR PARITY)
	;132 - CORRECTIONS TO SETUP TO CALL .NAME NEEDED TO HANDLE
	;	6 CHARACTER DEVICE NAMES IN NETWORK ENVIRONMENTS.
	;133 - CORRECTION TO SKIPWD ROUTINE, T1 MUST BE PRESERVED
	;	ACROSS THE CALL TO ADVBFF.
	;134 - ADDED CODE TO SUPPORT LISTING OF MEMORY CONFIG.
	;	TABLES WITH SEVERAL ENTRIES. TABLE LOOKS LIKE
	;	MONITORS NXMTAB.
	;135 - CHANGED CODE AROUND MDEO20+@30 TO CHECK FOR CONI 
	;	ERROR BITS VICE RETRY COUNT TO SEE IF WE WANT
	;	TO TRY TO LIST DEV REGISTERS.
	;136 - ADDED SUPPORT OF NEW HEADER FORMAT. HEADER IS
	;	NOW 4 WORDS LONG WITH 4TH BEING PROCESSOR S/N.
	;	ALSO MAX ENTRY LENGTH IS NOW 777 VICE 77
	;137 - ADDED USER P,PN AND PGM NAME TO MEM PAR PRINTOUTS
	;140 - ADDED USERS'S ID ETC TO CODE 10 ENTRIES.
	;141 - MODIFIED TO DUMP UNKNOWN ENTRIES IN RANGE OF SYSERR
	;	IN OCTAL VICE JUST SKIPPING THEM.
	;142 - MODIFIED MDE012 TO CHECK FOR SOFTWARE ERRORS
	;	FIRST AND GO TO ABORT IF FOUND SINCE OTHER 
	;	INFO CAN BE MISLEADING, ALSO ANSWER TO SPR #10-16355,FIX CODE AT MDELST
	;	TO COMPARE DEV NAMS IF NO DRIVE TYPE.
	;143 - CORRECTED SOME CODE IN SYSERR AROUND SETINP: TO CORRECTLY
	;	SET DEFAULT INPUT DEVICE TO SYS IF NONE SPECIFIED.
	;144 - CORRECT DECODE OF LBN'S AT UNIT BOUNDARIES AND ADD
	;	WARNING TO USER'S TTY IF BAT SLOTS ARE < 5
	;	REGARDLESS OF SWITCHES SPEC'D.  CHECKED IN
	;	SUM10 AND SUM11 ROUTINES WHICH ARE ALWAYS CALLED.
	;145 - CORRECT CHKLST ROUTINE IN SYSERS TO RETURN IMMED.
	;	IF NO DEVICES TO CHECK
	;146 - FIX LINE COUNTS IN MACROS FOR EXPANDED ENTRIES.
	;**RELEASED AS VERSION 4 WITH EDIT 146**

	;147 - ADDED SUPPORT FOR RP05; SAVE [P,PN] FOR GETSEG SPEC BLOCK;
	;	ANDADD A CRLF TO SYSERS BEFORE RETURNING 
	;	TO SYSERR
	;150 - MODIFIED SUPPORT FORCODES 60,61,&67 TO ACCOMPLISH SUPPORT 
	;	FOR KL10 ERROR REPORTING WITHOUT CHANGING KLSER
	;	IN THE 602 MONITOR.
	;151 - FIXED BUG IN SYSERS AT GOBACK ROUTINE TO CORRECTLY
	;	SAVE P,PN
	;152 - CHANGES IN SYSERB TO CHECK FOR MOL&DRY IF NO CONI BITS SETS
	;	MAY INDICATE DEVICE OFF-LINE (MASSBUS DEVICES)
	;153 - ANSWERS FOR SPR'S #10-18192 & 10-18168
	;154 - CHANGES TO BIT DEFINITIONS FOR RH10&RP04. SUMMARY WILL
	;	LIST RH10 CONI BIT 23 AS "DRE" VICE "RES" AND RP04 
	;	ERROR REG #3 BIT 4 WILL BE "DIS" VICE "PRE".
	;***********************************************
	;

	;EDITS FOR TOPS-20 SUPPORT START WITH 200
	;
	;***********************************************


	;200 - CHECKS TO SEE WHAT MONITOR WE ARE UNDER

	;201 - SUPPORT FOR CODES 101 & 102; RELOAD AND BUGHLT/BUGCHK
	;	FROM TOPS-20. ADDED MODULE SYSERD TO SUPPORT TOPS-20 ENTRIES.
	;202 - SUPPORT OF CODES 160&161; PROCESSOR PARITY ERRORS
	;203 - SUPPORT FOR CODE 130--FRONT END DEVICE ERROR REPORTING
	;204 - CHANGE DEFINITION OF E.RCNT AND TOTPRT IN SYSERS
	;	TO LIST CORRECTLY THE # OF ERROR ENTRIES SEEN
	;	INSTEAD OF 377(8) MAX
	;205 - REWRITE DMPENT-IT JUST DIDN'T WORK AT ALL
	;206 - SUPPORT FOR CODE 111 ENTRIES,SEC%MB,MASSBUS ERRORS
	;207 - SUPPORT FOR CODE 131 FRONT END RELOADED
	;210 - MODIFIED CODE IN STBUFF AND ADVBFF TO DUMP ENTIRE
	;	BLOCK WHEN A BAD SPOT IS FOUND.
	;211 - ADDED /DEV SUPPORT FOR ALL TOPS-20 ENTRIES. ALSO MODIFIED
	;	MEANING OF FORMER F.REM BIT IN F.  THIS SUPPORTS ONLY
	;	USING /DEV: SWITCH IN COMMAND LINE.
	;212 - COSMETIC CHANGES TO OUTPUT FORMATS AND CORRECTION TO
	;	FILE DATE/TIME STAMPS IN SYSERS SUMMARY LISTINGS
	;213 - CHANGED BG%001 IN SYSERD TO SUPPORT 3TYPES OF BUGCHKS
	;214 - CHANGED SETDAT IN SYSERR TO CONVERT LOCAL DATE/TIME
	;	STAMPS TO GMT IN /BEGIN:&/END: SWITCHES IF UNDER TOPS-20.
	;215 - ADDED DEVICE STATISTICS TO MASSBUS ENTRY LISTINGS IF
	;	/DETAIL: WAS SPECIFIED.
	;216 - ADDED "RP04" & "TU16" TO SUPPORTED /DEV: NAMES
	;	FOR CODE 111 ENTRIES
	;217 - CHANGED WKBUFF LENGTH TO 777 TO HANDLE LARGEST
	;	POSSIBLE ENTRY SIZE AND KEEP REST OF LOW SEGMENT INTACT.
	;220 -  ADDED CODETO SUPPORT EXTRA ITEMS IN CODE 101 &102 ENTRIES
	;221 - MODIFIED TOPS-20 MASSBUS DEVICE NAMES TO ALSO
	;	SUPPORT SLAVE # ID FOR MAGTAPE UNITS
	;222 - ADDED SUPPORT FOR TU45'S
	;223 - ADDED COUNT OF ERROR FILE INCONSISTENCIES TO SUMMARY LIST
	;224 - CHANGED FORMAT OF USER'S ID IN ALL LISTINGS
	;225 - CODE ADDED TO CORRECTLY SUPPORT CCL FILE COMMANDS
	;226 - CODE TO SUPPORT CODE 130 ENTRIES WITH FE%COD OF 200(8).
	;227 - CHANGES TO SYSERD TO LINK CODE 130-201 ENTRIES
	;	TOGETHER TO REFORM KLERROR FILES FROM THE F/E
	;	AND THEN LIST THEM.
	;
	;230	CHANGE TO FORMAT OF KLERROR FILE,LENGTH IS IN BYTES
	;	VICE WORDS.
	;231 - FIXES IN SYSERD AT PAKDON: TO CLEAR KLEFL2 AFTER FILE IS
	;	BUILT.MCO#1050
	;***** RELEASED AS VERSION 5 WITH EDIT 230 *****
	;***** FIRST RELEASE FOR TOPS-20            *****
	;*******
	;EDITS FOR VERSION 6 START WITH 300
	;*******
	;300 - COMBINED TOPS-10 AND TOPS-20 VERSIONS BACK INTO ONE VERSION
	;	WHICH WILL COMPILE FOR EITHER MONITOR DEPENDING ON
	;	THE VALUE OF TWO SWITCHES, TOPS-10 AND TOPS-20.
	;	  IFN TOPS?0 CONTROLS ARE USED THROUGHOUT TO CONTROL ASSEMBLY.
	;301 - REMOVED COMMON ROUTINES FROM ALL MODULES AND ADDED
	;	SYRLIB.MAC TO EASE PACKAGE MINTENANCE. SYRLIB.REL WILL
	;	BE LOADED WITH EACH MODULE.  ALSO CREATED SYRLOW.MAC
	;	FROM SYRUNV. THIS IS THE DEFINITION OF HE LOW SEGMENT
	;	AND WILL ALSO BE LOADED WITH EACH MODULE.
	;302 - FIX TO SYSERA AND SYERB CAUSED BY CHANGE IN DEFINITION
	;	OF UNIPCT IN MONITOR.SPR #10-19056
	;303 - ANSWER TO SPR #10-19009, INCORRECT HANDLING OF ENTRIES
	;	IN ERROR FILE NOT INTENDED FOR SYSERR. CHANGES ARE IN SYRLIB
	;304 - REWORKED DEVCHK ROUTINE IN SYRLIB TO USE .MKMSK IN SCAN
	;305 - ADDED SUPPORT FOR TU16 &TU45 TO TOPS-10 CODE 21 ENTRIES
	;306 - MODIFIED SETDAT & SETDA1 IN SYSERR TO SUBTRACT 1 HOUR FROM
	;	STDATE&ENDATE IF DAYLIGHT SAVINGS IN EFFECT UNDER TOPS-20
	;307 - MODIFED PACKAGE TO LIST ALL CONTENTS OF REGISTERS EVEN IF
	;	CONTENS ARE ZERO
	;310 - CORRECTLY SUPPORT RP05 & RP06. SEVERAL BIT DEFINITIONS
	;	ARE DIFFERENT IN DEVICE ERROR REGISTERS 2 & 3
	;311 - FIX LOW SEGMENT LENGTH BUG BY CORRECTING DEFINITION
	;	OF LOWEND IN SYRLOW.
	;312 - ADD CODE TO SUPPORT TU72-E UNDER TOPS-10 CODE21 ENTRIES
	;313 - ADD SUPPORT FOR RH20 IN CODE 11 ENTRIES UNDER TOPS-10.
	;314 - CHANGED LISTING FORMAT FOR KLERROR FUNCTION READS
	;	ADDED NEW HIGH SEGMENT SYSERK-USED ONLY TO LIST THESE FUNCTION
	;	READS.  MODIFIED OVERLAY ROUTINE TO USE ADDRESS STORED IN 
	;	15 IF NON-ZERO FOR START ADDRESS VICE THAT STORED
	;	BY LINK.
	;315 - SUPPORT FOR RP05&RP06 UNDER TOPS-20 CODE 111 ENTRIES
	;316 - ANSWER TO SPR 10-19498-FIX DEFAULT INPUT DEV IF
	;	P,PN IS SPECIFIED. FIX IN SYSERR AT SETFIX
	;317 - FIX SML111 ROUTINES IN SYSERS TO UNDERSTAND RP05&RP06
	;320 - REMOVED "(CODE XXX)" FROM HEADER AND SUMMARY LISTINGS
	;	ALSO ADDED PROMPT "FOR HELP..." TO INIT ROUTINES
	;321 - SUPPORT KLERR DEVICE NAME WIH KLCPU DEV
	;	NAME AND OTHERS
	;322 - L.I.R. RELEASE FOR TU16/TU72-E  AND RP05/RP06 FOR TOPS-10
	;323 - SUPPORT TOPS-10 ERROR FILES RUNNING UNDER TOPS-20
	;324 - SUPPORT /DEV SWITCH ONLY  WHEN UNDER TOPS-10 IE-NO MASALL
	;325 - ADDED NEW SWITCH "/NDEV:" AS OPPOSITE OF "/DEV" FUNCTION
	;326 - ALSO LIST ERROR BITS FROM DEV ERROR REG IN "ERROR:"
	;	STATEMENT FOR CODE 11 ENTRIES.
	;327 - LIST BIT TRANSLATION OF MAINT REG FOR RP04,5,&6 UNDER
	;	BOTH TOPS-20 & TOPS-10
	;********
	;EDITS FOR VESION 7 START WITH 400
	;********
	;400 - START SUPPORT OF TOPS-20 FILES LISTED UNDER TOPS-10.
	;	ALSO CHANGE DEFAULT OF I.DEV  IFF UNDER TOPS-20.
	;	BY DEFINING A LOGICAL NAME "QAP"=<SYSTEM> AND THEN
	;	USING "QAP" AS THE DEFAULT DEVICE.
	;	THIS DELETES REQUIREMENT TO DEFINE LOGICAL "SYS".
	;401 - SUPPORT OF NEW TYPES 30 &31 FOR NEW FRONT END SOFTWARE UNDER
	;	TOPS-10.  ALMOST EXACT COPIES OF 130 & 131
	;402 - CHANGE BIT DEFINITIONS FOR RH20 CONI
	;	TO CONFORM TO FUNCTION SPECIFICATION FOR THE DEVICE.
	;403 - FIX BUG IN "/DETAIL" CKECKS IN KL10 ENTRY ROUTINES
	;	IN SYSERC ALSO ADDED DECIMAL POINTS TO DECIMAL VALUES
	;	IN SUMMARY LISTINGS.
	;404 - ADDED ADDITIONAL BITS TO TOPS-10 FE RELOAD STATUS WORD CODE
	;	31
	;405 - ADDED NEW ENTRY-ER.DST-DAEMON STARTED #7
	;406 - IMPROVEMENTS TO TAPSER ERROR REPORTING (CODE 21)
	;407 - CORRECTIONS TO KLERROR ENTRY FOR TOPS-10
	;410 - CHANGES TO SUPPORT TOPS-20 RELEASE 2
	;	1-ONLY PRINT LOAGGED IN DIR IN SEVERAL CASES
	;	2-FIXES TO KLERROR ALA TOPS-10
	;	3-ALL FILES HAVE SPECIAL OFFSETCODE -REMOVE 
	;	SPECIAL CASES TESTS IN SYRLIB AT FIXBUF
	;411 - ADD NEW ENTRY TYPE ER.DEB- SOFTWARE REQUESTED DATA-CODE 17
	;412 - START TO REMOVE TOPS-10,TOPS-20 CONDITOONAL BY REORDERING SYRLOW
	;	AND CANGING BLT TO SET UP LOW SEG IS SYSERR
	;413 - NOW NO ASSY SWITCHES ARE REQUIRED TO ASSEMBLE FOR
	;	NORMAL USE.
	;****DEFINE FULSEG TO 0 IF USER DESIRES TO LIST TOPS-20 ERROR
	;	FILE ON TOPS-10 AND REASSEMBLE. CAUTION!!REQUIRES A 
	;	VERY LARGE LOW SEG!!!
	;413 - NEW ENTRY ER.LPT==71 FOR LP100 CONTROLLERS  ALSO NEW
	;	LISTING SWITCH TYPE,"URD" IE,"/URDALL" FOR UNIT REC-
	;	ORD DEVICES.
	;415 - 1B11 IN TAPTRY OF ER.TAP(21) IS RH20 CONTROLLER VICE 
	;	RH10
	;416 - CHANGE TO LOW SEG DEFINITIONS OF ENTLTH AND FIX TO SYSERC&D
	;	FOR KLERROR SUPPORT
	;417 - SUPPORT FOR /REMOTE SWTC-PRODUCES BINARY OUTPUT FILE
	;	OF SELECTED ENTRIES FOR RE-TRANSMISSION TO ANOTER
	;	10 OR 20 SITE
	;420 - ADDED 10 WORDS OF "GOOD DATA" TO CODE 161 ENTRIES
	;421 - ADDED SUPPORT FOR EXTRACTED CRASH.EXE INFO-CODE 5
	;422 - ADDED CODE TO EXTRACT AND LIST CONTENTS OF CRAM TO SYSERK
	;423 - FIXES IN SYSERB TO CORRECTLY DETERMINE CONTROLLER TYPE
	;	ALSO ADDED "CSR" AND "STAT AVAIL" TO DX10 CONI DECODE
	;424 - FIXES IN SYSERB TO CORRECTLY DETERMINE MASBUS TYPE
	;	FOR LBN DECODE AND SUMMARY COUNTERS
	;425 - ADDED TWO SYMBOLS TO UNV, RH1KON & RH2KON, TO DETERMINE
	;	WHICH OR BOTH RH10 AND/OR RH20 HEADERS TO LIST IN
	;	MASSBUS SUMMARY FOR DEVICE REGISTERS UNDER TOPS-10.
	;	IF SITE HAS ONLY RH10 CONTROLLER DEFINE RH2KON TO 0
	;	OR VICE VERSA. BOTH ARE TURNED ON IN DISTRIBUTED
	;	VERSION.
	;426 - PROVIDE CORRECT SUPPORT FOR TIME ZONE OFFSETS UNDER TOPS-20
	;	AFFECTS TIMES LISTED IN HEADERS.
	;427 - FIX AC LISTING ROUTINES IN SYSERB FOR CODE 2
	;430 - FIX DATE/TIME IN SYRLIB AT GETNB1 FOR TOPS-20
	;431 - FIX SYSERA TO COMPILE W MACRO 50A
	;432 - CORRECTLY LIST MONIOR VERSION FOR TOPS-20 IN
	;	EVENT CODES 101 & 102
	;433 - SECOND PASS AT TOPS-20 TIME ZONE PRINTOUTS
	;434 - FIXES IN SYSERB&D TO HANDLE /DEV ALSO CHANGE
	;	SYRLIB TO ABORT ENTRY IF DEVICE NAME NOT FOUND
	;	IN NAME TABLE SEARCH.
	;435 - FIXES IN SYSERB & D TO REALLY LIST 'CHAN REF' FOR T20 AND
	;	ADD 'DMA NXM' TO T10 SBUS DIAG ERRORS.
	;VERSION 7 RELEASED WITH EDIT 434
LIST
	;*********************
	; VERSION 10 EDITS START AT 500
	;*********************

	;500 - START ADDING SUPPORT FOR NETWORKS
	;	ADD SUPPORT FOR NCU STARTED, D-L DUMP, & D-L LOAD
	;	ADD NEW MODULE SYSERN FOR NETWORK SUPPORT
	;501 - START ADDING SUPPORT FOR DX20- CODE 112
	;502 - START ADDING SUPPORT FOR NETWORK OPR & MAINT LOG ENTRIES

	;*********************
	; PJB ASSUMES COMMAND - - 1 MAY '77
	;*********************

	;503 - CONTINUE ADDING SUPPORT FOR DX20
	;504 - FIX IN SYRLIB TO CORRECTLY LIST DAYLIGHT
	;	SAVING'S TIME UNDER TOPS-20 - ARGUMENT TO
	;	ODCNV JSYS.  ALSO FIXED MONITOR VERSION DECODE
	;	FOR TOPS-20.
	;505 - FIX RP04DC IN SYSERD TO USE ALL CYLINDER BITS
	;	AFFECTS RP06 UNDER TOPS-20 & 10 0NLY [RD]
	;506 - FIX IN SYSERK TO CORRECTLY LIST PC, VMA AND
	;	VMA HELD VALUES IN KLERROR LISTINGS [RLD]
	;507 - CHANGE DX20 MASSBUSS REGISTER INFO TO AGREE
	;	WITH MAR'77 FUNCTIONAL SPEC [PJB]
	;510 - FINAL ADDITIONS FOR FIRST TEST OF DX20 SUPPORT [PJB]
	;511 - FIXES TO DX20 SUPPORT, AND REVERSED INDEXES FOR TU16/TU45
	;	TABLES TO MAKE CORRECT DEFAULT CASE FOR 111 ENTRIES,
	;	ALSO REINSTALLED FILE CONSISTENCY CHECKS TO SUPPORT OLD
	;	STYLE ERROR FILES UNDER TOPS-20. IE BLOCK OFFSETS ARE
	;	USED BUT ER.OFF IS MISSING.[RLD]
	;512 - FIXES TO SUPPORT INCORRECT ERROR TYPE (111 VS 112) AND
	;	OTHER HACKS TO MAKE DX20 SUPPORT PASSABLE FOR ISI SHIP
	;513 - FIXES IN SYRLIB TO GET ONLY DEVICE & CHAN TYPE 
	;	FROM MB%TYP
	;514 - KLINIK SUPPORT [PJB]
	;515 - ADD NETWORK DEFINITIONS
	;516 - DELETE 'CHAN NOT READY'
	;517 - ADDITIONS AND DELETIONS AS A RESULT OF FAULT
	;	INSERTION OF RELEASE 2
	;520 - ADD SUPPORT FOR SEC%6S-DN64 STATISTICS
	;521 - INSERT X.BYTE ROUTINE FOR BYTE OUTPUT
	;522 - INSERTION OF NETWORK LINE COUNTER SUPPORT
	;	7B ON SYSTEM 2102  26-JUL-77

	;523 - FINISH SUPPORT OF NETWORK COUNTER ENTRY
	;	PUT SUPPORT IN PROCSC FOR KLINIK
	;524 - FINISH SUPPORT OF OTHER NETWORK ENTRIES
	;525 - FIX TO CRAM ADDR LISTING OF KLERROR LISTING IN SYSERK
	;526 - SMALL FIXES TO TOPS-20 BUGCHK LISTINGS AS PER REQUEST OF
	;	SOFT. ENG. AND FIX TO SPR 10-23133, REWORK STRCHK IN
	;	SYRLIB; FIX TO SPR 10-23487,ADMIT TO DEFAULT VALUES IN TOPS-10
	;	CRASH INFO.
	;527 - CHANGE LBN LIST VALUE TO OCTAL FOR TOPS-20 MASSBUS ENTRIES TO
	;	FACILITATE CHECKD TRANSLATION. ALSO FIX RP04DC IN SYSERD
	;	(CORRECTION TO EDIT 505)
	;530 - CHANGE KLERROR DUMPS TO WORK IN DEBUG MODE ONLY
	;531 - PAUL DID IT
	;532 - SUPPORT FOR /SEQ:(VAL,VAL,ETC) SWITCH, SUPPORTS UP TO 20. ARGUEMENTS
	;533 - ADDED SCNMAC.MAC MACRO DEFINITIONS, ETC TO SYRUNV SO SCNMAC.UNV
	;	NEED NOT BE SEARCHED.
	;534 - ADD SUPPORT FOR R1%ERW WORD IN 131 ENTRIES IN SYRUNV&SYSERD
	;535  - FIX IN SYSERK TO CORRECTLY LIST DRAM CONTENTS
	;536 - ADD SUPPORT FOR TM03(ASSUMES NO BIT DEFINITION CHANGES-
	;	ONLY A TYPO CHANGE)
	;537 - SUPPORT FOR LEVEL OF DETAIL ARGUEMENTS TO /DETAIL SWITCH
	;540 - TOPS-20 PUTS FULL APRID INTO WD 3 OF ALL HEADERS TO SUPPLY
	;	U-CODE VERSION NUMBER, AFFECTS RELOAD ENTRY AND ALL HEADERS
	;541 - SUPPORT /CPURLD - RELOAD ENTRIES  & /CPUCHK - BUGHLT/BUGCHK
	;542 - FIX BAD KLINIK PASSWORD ENTRIES
	;543 - FIX TO FRONT END RELOAD ENTRIES FOR TOPS-20 TO CORRECTLY
	;	LIST "STOPCD" IF PRESENT.
	;544 - SECOND FIX TO LIST FE'S STOPCD
	;545 - FIX IN SYRLIB AT XFRHDR TO ONLY SAVE S/N FROM HEADER WORD SINCE
	;	TOPS-20 NOW SAVES FULL APRID.
	;546 - FIX SYSERN TO CORRECTLY LIST DN64 COUNTERS-HI BYTE VALUE WASN'T
	;	BEING LISTED-RLD-
	;547 - FIX BCK111D TO CHECK FOR NXM IN CHAN STATUS 1	[PJB]
	;550 - SEVERAL FIXES FOR TM10A MAGTAPE SUPPORT AND IMPROVEMENTS
	;	TO DX10 LISTING  ALL IN SYSERB
	;551 - REMOVE ASSEMBLY SWITCH REQUIREMENT FOR RH10/RH20 TO GET
	;	CORRECT HEADERS IN SYSERS LISTING, NOW CHECKS TO SEE
	;	IF IT SAW AN ENTRY UNDER RH20 OR RH10 BEFORE LISING
	;	THE HEADER,  IF BOTH SEEN,BOTH HDRS WILL BE LISTED
	;552 - ANSWER TO SPR#10-23712, SYSERR NOT CORRECTLY DETERMINING
	;	CONTROLLER TYPE FOR MASSBUS DEVICE ENTRIES UNDER
	;	TOPS-10, FIX IN SYSERB AT MDE13B + ABOUT 20.

	;***********************
	;EDITS FOR VERSION 11 START AT 600
	;***********************

	;600 - 2020 SUPPORT FOR UBA/RH11 CONTROLLER   [PJB]
	;601 - 2020 SUPPORT FOR RM03	[PJB]
	;602 - CHANGE 'DETAIL' MESSAGE TO TYPE PRESENT SETTING   [PJB]
	;603 - START SUPPORT FOR BRIEF OUTPUT  [PJB]
	;604 - ADD F.DEV CHECK TO NETWORK ENTRIES   [ES]
	;605 - KLINIK FIXES	[ES]
	;606 - REWORK /DEV: SWITCH IN BCK111: ROUTINE  [PJB]
	;607 - FIX 111 PARITY BIT-CHECK AND SUMMARY ROUTINES TO HANDLE
	;	DEVICES OTHER THAN RP04, RS04, & TU16  CORRECTLY  [PJB]
	;610 - CHANGE TO ACCEPT 15 BIT SYSTEM S/N FOR KS-10
	;	ADD 'PS:' TO DEFAULT INPUT FILE DEFINITION  [PJB]
	;611 - FIX 'UNIT NAME' CONSTRUCTION IN 'MBCHAR'  [PJB]
	;612 - ADD WARNING FOR 2 DEVICES AT SAME PHYSICAL ADDRESS  [PJB]
	;613 - FIX MBCHA1 TO INSURE SUMMARY KNOWS CONTROLLER TYPE  [PJB]
	;	ALSO SOME COSMETICS FOR RH11 & RM03 SUMMARY LISTINGS
	;	FIX CONTROL & STATUS #1 BIT TRANSLATOR - RIGHT JUSTIFY
	;614 - CREATE 162(62) ENTRY - NEW MEMORY PARITY INTERRUPT  [PJB]



	;*************
	;EDITS FOR VERSION 12 START WITH 700
	;*************
	
	;700 - ADD "CACHE TURNED OFF" STATUS BIT (1B5) TO RETRY WORD
	;	USED FOR TOPS-10 TRAP REPORTS [RLD]
	;701 - ADD USER ID & PGM TO TOPS-10 MAGTAPE ERROR REPORTS [RLD]
	;702 - re-order SIGNAL NAMES IN SYSERK LIST FOR KLERROR TO GET ALL
	;	"ERROR" SIGNALS TO TOP AS PER D.D.C. REQUEST
	;703 - ADD ERROR FILE DEFINITIONS FOR NETWORK ERROR LOGGING TO
	;	SYRUNV TO START SUPPORTING NETWORK ERROR LOGGING WITH
	;	6.04 AND REL. 3A
	;704 - SUPPORT DX20/TU70,1,2-E AS STD SOFTWARE-REMOVE AS MANY
	;	HACKS OF EDIT 512 AS POSSIBLE. ENTRY WILL STILL BE 112
	;	WITHIN SYSERR BUT 111 IN ERROR FILE.
	;705 - FIX /REMOTE SUPPORT FOR KLERROR UNDER TOPS-10 AND TOPS-20.
	;	MAKE ALL CHECKS FOR LISTABILITY THEN BUILD PACKET. IF REMOTE
	;	MAKE CHECKS AND REETURN RATHER THAN BUILD PACKET
	;706 - FIX /SEQ FOR KLERROR ENTRIES
	;707 - FIX /RETRY SUPPORT FOR ENTRIES 111 & 112 IN SYSERD
	;710 - FIX "MEM" FIELD OF CRAM PRINTOUT IN SYSERK
	;711 - ADD SUPPORT TO 102 ENTRIES TO LIST CONI APR, CONI PAG,
	;	AND DATAI PAG. VALUES WERE ADDED TO RELEASE 3 TOPS-20
	;	TOO LATE FOR LAST VERSION OF SYSERR
	;712 - NEW PAGE HEADER FORMAT & CLEAN UP SYSERS LISTINGS  [PJB]
	;****************************
	;TJW JOINS THE FUN 6 MAY 78**
	;****************************
	;713 - BEGIN INSTALLING IPCF SUPPORT[TJW]
	;714 - REWORK ENTRY 112 TO SUPPORT "STANDARD SOFTWARE"[RLD]
	;715 - ADD SUPPORT FOR ER.SLM, TOPS-10 SYSTEM LOGGING FROM OPR[RLD]
	;716 - FIXES FOR DX20 SUPPORT UNDER TOPS-20 [RLD]
	;717 - 1B0 IN BAD ADDRESSES FOR 161 AND 162=GOOD DATA WORD NOT FOUND
	;	BITS 0-5 RESERVED FOR FLAGS,6-35 FOR ADDRESS [RLD]
	;720 - FIX DX20 U-CODE VERSION # LISTING IN SYSERD, WRONG BYTE POINTERS
	;721 - FIX DEFINITION OF CONTROLLER TYPE FOR DX20/TOPS-20 SUPPORT
	;	IN SYSERD.-RLD
	;722 - FIX THE SETUP FOR KONTYP FOR KL-APR IN 102 ENTRIES-RLD
	;723 - MAKE A SPECIAL ROUTINE OUT OF SOME STRAIGHTLINE CODE IN N-TJW
	;724 - MORE BRIEF SUPPORT  [PJB]
	;725 - TEMPORARY EXTENDED DEVICE TABLE SUPPORT [PJB]
	;726 - T11ACI  TYPES ASCII IN PDP-11 BYTE FORMAT  [TJW]
	;727 - MORE BRIEF SUPPORT - 111 ENTRY - FIX CR's AT SPACES  [PJB]
	;730 - ADD "SMON" JSYS & /KLSTAT SWITCH FOR CPU STATUS BLOCK ENABLING
	;	ALSO ADD HANDLING OF FRONT END ENTRY IN BRIEF FORMAT  [PJB]
	;731 - ADD '/ENTRY:' SWITCH TO IMPROVE DEBUGGING BY ONLY LISTING
	;	A SPECIFIC ENTRY TYPE. -RLD
	;732 - FIX THE BLKTRN ROUTINE TO GET TABLE INDEX PROPERLY - TJW
	;733 - FIX MF20 SBDIAG LISTINGS IN SYRLIB AROUND SBUS01 - RLD
	;734 - ADD BRIEF SUPPORT FOR DX20
	;735 - FIX MINOR EDIT TRANSLATION IN 'MONVER' AND 'DAEVER'  [PJB]
	;736 - FIX LST36 TO PUT 2 COMMAS BETWEEN HALFWORDS - TJW
	;737 - FIX SMON ERROR MESSAGES - FIX BRIEF DATE LINE (TIME ZONE)  [PJB]
	;740 - BEGIN INSTALLING SUPPORT FOR KL CPU STATUS BLOCK - TJW
	;741 - FIX /END TO DEFAULT TO TIME 0:0:0 -- SPR. #20-11775  [PJB]
	;742 - SUPPORT LISTING IN SUMMARY FOR DEVICE ERRORS OVER 4 CHANNELS
	;	EARLIER EDIT ONLY SUPPORTED >4 CHANNELS-[RLD]
	;743 - FIX LINE ID BUGS IN SYSERN
	;744 - ADD C.R. TO THE START OF KLINIK ENTRY IN SYSERC  [PJB]
	;745 - ADD GENERIC TESTING TO /NDEV SWITCH  [PJB]
	;746 - ONLY UNIT ID IF REAL IN SYSERB  [RLD]
	;747 - REWORK THE SWITCH DEFAULT LIST SO THAT IT WORKS RIGHT  [PJB]
	;750 - ADD CODE TO SUPPORT KS10 CONI APR BIT TRANSLATION  [PJB]
	;751 - FIX SKIPIT TO WORK WITH /NOW  [TJW]
	;752 - FIX /ENTRY SWITCH FOR FIRST PASS IN A PROCESSOR  [PJB]
	;753 - FIX HALT STATUS BLOCK CODE ERRORS  [PJB]
	;754 - FIX BRIEF BUFFER OVERFLOW PROBLEM  [PJB]
	;755 - FIX OCTAL DUMP ON BAD ERROR CODE  [PJB]
	;756 - ADD SUPPORT FOR 'KS' HALT STATUS BLOCK  [PJB]
	;757 - FIX OVERUN SUMMARY FOR TM10A - - SPR #10-26339
	;760 - FIX HANDLING OF ZERO LENGTH HEADERS  [PJB]
	;761 - ADJUST 133 ENTRY FOR 2 WORD PC & REPLACE VMA WORD  [PJB]
	;762 - SWAP 'DCL' & 'ACL' BIT DEFINITIONS IN MB ERROR REG 3  [PJB]
	;	FIX DEFINITIONS FOR CPAR & DPAR IN TU16 ERROR REG  [PJB]
	;763 - OUTPUT 'ERA' WORD FOR A BUGxxx  [PJB]
	SUBTTL GENERAL DEFINITIONS

	IFNDEF	FULSEG	<FULSEG==1>	;DEFINING TO 0 WILL
					;ALLOW LISTING TOPS-20 FILE UNDER
					;TOPS-10 WITH A VERY MUCH LARGER
					;LOW SEGMENT-NOT ADVISED FOR
					;SMALL TOPS-10 SYSTEMS
	;[551] REMOVED THE REQUIREMENT FOR THESE 
;	IFNDEF	RH1KON,	<RH1KON==1>	;1 SAYS LIST RH10 HEADER FOR MASBUS
					;SUMMARY LISTINGS UNDER TOPS-10
;	IFNDEF	RH2KON,	<RH2KON==1>	;DITTO, BUT FOR RH20




	VWHO==0
	VSYSER==12
	VMINOR==0
	VEDIT=763


	EXTERNAL .SWSIX,.NAME,.SWDEC,.TSPAC,.TPPNW,.TTABC,.TCOMA,.TCOLN,.TASTR
	EXTERNAL .TFBLK,.SWDTP,.TTIMN,.TTIME,.TDATN,.TDATE,.TCHAR,.CNVDT,.SAVE4
	EXTERNAL .ISCAN,.TSCAN,.TCRLF,.CNTDT,.TSTRG,.TOCTW,.TDECW,.TSIXN,.TXWDW
	EXTERNAL .MKMSK,.SWOCT
;JSYS ES ARE DEFINED HERE TO ALLOW PACKAGE TO COMPILE UNDER TOPS-10
;WITHOUT MONSYM.   EACH JSYS USED WILL HAVE A SKIPE TOPMON
;BEFORE THE CALL SO SKIP TESTS WON'T WORK.

ERJMP==JUMP	16,
ERCAL==JUMP	17,

DEFINE	JSUB (NAME,NUM)<
	OPDEF J'NAME[104B8+NUM]

	DEFINE	NAME<
		SKIPE	TOPMON	;UNDER TOPS-20 MONITOR?
		J'NAME		;YES,DO A JSYS,ELSE SKIP IT
	>
>

;NOW CALL THOSE WE USE,ADD NEW ONES TO THE LIST 
	JSUB	(CRLNM,502)
	JSUB	(DIRST,41)
	JSUB	(ERSTR,11)	;  [737]
	JSUB	(GTAD,227)
	JSUB	(ODCNV,222)
	JSUB	(ODTIM,220)
	JSUB	(ODTNC,230)
	JSUB	(PBOUT,74)
	JSUB	(SMON,6)	;  [730]
;DEFINE SOME SWITCHES THAT THE JSYSes NEED, SO THAT WE DON'T NEED MONSYM
	.PRIOU==101		;PRIMARY OUTPUT DESIGNATOR  (TTY)  [737]
	.FHSLF==400000		;CURRENT PROCESS HANDLE
	.SFSTS==52		;SMON - CPU STATUS BLOCK FLAG  [730]
	;EVENT CODES FOR TOPS-10

	IFNDEF	ER.WHY	<ER.WHY==1>	;ERROR NUMBER FOR RELOAD
	IFNDEF	ER.MSE	<ER.MSE==2>	;MONITOR SOFTWARE ERROR
	IFNDEF	ER.MPE	<ER.MPE==3>	;CPU MEM PARITY ERROR
	IFNDEF	ER.NXM	<ER.NXM==4>	;CPU NXM ERROR KA/KI
	IFNDEF	ER.CIN	<ER.CIN==5>	;EXTRACTED CRASH INFO
	IFNDEF	ER.CPE	<ER.CPE==6>	;CHANNEL ERROR REPORT
	IFNDEF	ER.DST	<ER.DST==7>	;DAEMON STARTED
	IFNDEF	ER.DPE	<ER.DPE==10>	;DISK ERROR
	IFNDEF	ER.MDE	<ER.MDE==11>	;MASSBUS ERRORS
	IFNDEF	ER.CSC	<ER.CSC==15>	;CONFIGURATION STATUS CHANGE
	IFNDEF	ER.SLM	<ER.SLM==16>	;SYSTEM ERROR LOG [715]
	IFNDEF	ER.DEB	<ER.DEB==17>	;SOFTWARE REQUESTED DATA
	IFNDEF	ER.MAG	<ER.MAG==20>	;MAGTAPE ERROR REPORTING
	IFNDEF	ER.TAP	<ER.TAP==21>	;TU70/DX10 ERRORS
	IFNDEF	ER.FEE	<ER.FEE==30>	;FRONT END DEVICE ERROR
	IFNDEF	ER.FER	<ER.FER==31>	;FRONT END RELOADED
	IFNDEF	ER.USC	<ER.USC==40>	;DISK STATISTICS
	IFNDEF	ER.MSC	<ER.MSC==41>	;MAGTAPE STATISTICS.
	IFNDEF	ER.TPS	<ER.TPS==42>	;MAGTAPE STATS FOR TAPSER
	IFNDEF	ER.DLE	<ER.DLE==50>	;DL10 HARDWARE ERRORS
	IFNDEF 	ER.KDI	<ER.KDI==60>	;KL10 DATA PARITY INTERRUPT
	IFNDEF	ER.KDT	<ER.KDT==61>	;KL10 DATA PARITY TRAP
	IFNDEF	ER.MDT	<ER.MDT==62>	;KL10 DATA PARITY INTR-NEW [614]
	IFNDEF	ER.KEA	<ER.KEA==66>	;KL10 ADDRESSING FAILURE
	IFNDEF	ER.KAE	<ER.KAE==67>	;KL10 ADDRESSING FAILURE
	IFNDEF	ER.LPT	<ER.LPT==71>	;LPT ERROR(CURRENTLY LP100)



	;EVENT CODES FOR TOPS-20

	IFNDEF	SEC%RL	<SEC%RL==101>	;TOPS-20 RELOAD
	IFNDEF	SEC%BG	<SEC%BG==102>	;TOPS-20 BUGHLT/BUGCHK
	IFNDEF	SEC%MB	<SEC%MB==111>	;TOPS-20 MASSBUS ERROR
	IFNDEF	SEC%DX	<SEC%DX==112>	;DX20 DEVICE ERROR
	IFNDEF	SEC%FE	<SEC%FE==130>	;TOPS-20 FRONT END DEVICE REPORT
	IFNDEF	SEC%HS	<SEC%HS==133>	;KS HALT STATUS BLOCK  [756]
	IFNDEF	SEC%PT	<SEC%PT==160>	;PROCESSOR PARITY TRAP
	IFNDEF	SEC%PI	<SEC%PI==161>	;PROCESSOR PARITY INTERRUPT
	IFNDEF	SEC%MP	<SEC%MP==162>	;NEW PROCESSOR PAR INTR  [614]
	ND 	(SEC%SB,163)		;KL CPU STATUS BLOCK [740]

	;EVENT CODES FOR NETWORK SUPPORT

	IFNDEF	SEC%NS	<SEC%NS==201>	;NETCON STARTED
	IFNDEF	SEC%NL	<SEC%NL==202>	;NODE DOWN-LINE LOAD
	IFNDEF	SEC%ND	<SEC%ND==203>	;NODE DOWN-LINE DUMP
	IFNDEF	SEC%NH	<SEC%NH==210>	;NETWORK HARDWARE ERROR
	IFNDEF	SEC%SN	<SEC%SN==211>	;NETWORK SOFTWARE ERROR
	IFNDEF	SEC%NO	<SEC%NO==220>	;NETWORK OPR. LOG ENTRY
	IFNDEF	SEC%NT	<SEC%NT==221>	;NETWORK TOPOLOGY CHANGE
	IFNDEF	SEC%LC	<SEC%LC==230>	;NETWORK LINE STATISTICS
	IFNDEF	SEC%NC	<SEC%NC==231>	;NETWORK NODE STATISTICS
	IFNDEF	SEC%6S	<SEC%6S==232>	;DN64 STATISTICS
	ERRSAT==0
	ERRRIB==1
	ERRCHK==2
	ERRINC==3
	ERRHN1==4
	ERRHN2==5
	ERRHN3==6
	ERRHN4==7
	ERRCWF==10


	.JBSYM==116
	.JBUSY==117
	.JBINT==134		;[713-TJW] LOC OF JOBS INTERRUPT BLOCK
	;SYSTEM CONFIGURATION
	;DEFINE # OF UNITS ON EACH CONTROLLER.


	IFNDEF	DPANUM	<DPANUM==^D8>	;# UNITS ON DPA.
	IFNDEF	DPBNUM	<DPBNUM==^D8>
	IFNDEF	DPCNUM	<DPCNUM==^D0>
	IFNDEF	DPDNUM	<DPDNUM==^D0>
	DPXNUM==DPANUM+DPBNUM+DPCNUM+DPDNUM


	IFNDEF	FHANUM	<FHANUM==^D4>	;# UNITS ON FHA.
	IFNDEF	FHBNUM	<FHBNUM==^D4>
	IFNDEF	FHCNUM	<FHCNUM==^D1>
	IFNDEF	FHDNUM	<FHDNUM==^D1>
	FHXNUM==FHANUM+FHBNUM+FHCNUM+FHDNUM


	IFNDEF	MTANUM	<MTANUM==^D8>	;# UNITS ON MTA.
	IFNDEF	MTBNUM	<MTBNUM==^D8>
	IFNDEF	MTCNUM	<MTCNUM==^D4>
	IFNDEF	MTDNUM	<MTDNUM==^D4>
	MTXNUM==MTANUM+MTBNUM+MTCNUM+MTDNUM


	IFNDEF	FSANUM	<FSANUM==^D8>
	IFNDEF	FSBNUM	<FSBNUM==^D1>
	IFNDEF	FSCNUM	<FSCNUM==^D1>
	IFNDEF	FSDNUM	<FSDNUM==^D1>	;FIXED HEAD UNITS ON RH10.
	FSXNUM==FSANUM+FSBNUM+FSCNUM+FSDNUM


	IFNDEF	RPANUM	<RPANUM==^D8>	;RP04'S ON RH10
	IFNDEF	RPBNUM	<RPBNUM==^D8>
	IFNDEF	RPCNUM	<RPCNUM==^D8>
	IFNDEF	RPDNUM	<RPDNUM==^D1>
	RPXNUM==RPANUM+RPBNUM+RPCNUM+RPDNUM
	;SYSTEM CONFIGURATION
	;DEFINE # OF UNITS ON EACH CONTROLLER.

	;DEFINITION OF MASSBUS UNITS SUPPORTED FORTOPS-20
	; DEFINE MAX # OF
	;CHANNELS AND MAX # OF DEVICES PER CHANNEL

	MAXCHN==8		;CHANGED TO 8 CHANNELS  [725]
	MAXDEV==^D8		;8 DEVICES ON EACH CHANNEL
	MAXSLV==^D8		;EDIT 221 # OF SLAVES PER DEVICE

	MAXSDV==MAXDEV*MAXSLV

	MASMAX==MAXCHN*MAXDEV*MAXSLV

	IFNDEF	NOTMIN	<NOTMIN==500>		;RANGE OF ERROR CODES
	IFNDEF	NOTMAX	<NOTMAX==677>		;NOT ELIGIBLE FOR SYSERR
	IFNDEF	DV.DSK	<DV.DSK==200000>	;DEVICE DISK IN DEVCHR ARGUEMENT
	IFNDEF	DEBUGA	<DEBUGA=0>	;1 IMPLIES MONITOR OR SYSTEM DEBUGGING
	IFNDEF	PAGLM	<PAGLM==^D1000>	;MAX PAGES TO OUTPUT EXCLUDING SUMMARY
	IFNDEF	PAGLIN	<PAGLIN==^D60>	;# OF LINES PER PAGE IN LISTING
	IFNDEF	OUTSIZ	<OUTSIZ==^D300>	;# OF CHARACTERS IN BRIEF OUTPUT BUFFER
	IFNDEF	BRFTAB	<BRFTAB==^D19>	;# OF TAB SPACES ON BRIEF LINE OVERFLOW
	IFNDEF	TOPBIT	<TOPBIT==1>	;TOPS-20 RECORDED ENTRY
	IFNDEF	CSHENT	<CSHENT==2>	;ENTRY EXTRACTED FROM A CRASH

	IFNDEF	HDRCOD	<HDRCOD==0>	;OFFSET OF FIRST WORD IN HEADER,CODE ETC
	IFNDEF	HDRDAT	<HDRDAT==1>	;OFFSET OF DATE WORD IN HEADER
	IFNDEF	HDRUPT	<HDRUPT==2>	;OFFSET OF UPTIME WORD IN HEADER
	IFNDEF	HDRPSN	<HDRPSN==3>	;VER 1 SYSTEM SER #.

	IFNDEF	SUBMAX	<SUBMAX==^D12>	;MAX # OF WORD PROCESSORS AVAILABLE
	IFNDEF	LPDL,	<LPDL==40>	;PUSHDOWN LIST LENGTH
	IFNDEF	WKSIZE,	<WKSIZE==777>	;SIZE OF WORKING BUFFER
	IFNDEF	HDSIZE,	<HDSIZE==6>	;ALLOW FOR FUTURE HEADER EXPANSION
	IFNDEF	.RBCNT,	<.RBCNT==0>	;COUNT OF ARGS FOLLOWING IN EXTENDED LOOKUP
	IFNDEF	.RBPPN,	<.RBPPN==1>	;REL LOCATION OF PPN IN LOOKUP BLOCK
	IFNDEF	.RBNAM,	<.RBNAM==2>	;REL LOCATION OF FILENAME IN LOOKUP BLOCK
	IFNDEF	.RBEXT,	<.RBEXT==3>	;REL LOCATION OF EXTENSION IN LOOKUP BLOCK
	IFNDEF	.RBSIZ	<.RBSIZ==5>	;REL LOCATION OF FILE SIZE IN WDS
	IFNDEF	.RBTIM,	<.RBTIM==35>	;REL LOCATION OF NBS CREATION DATE/TIME WORD
					; FOR EXTENDED LOOKUP
	IFNDEF	SREDEF,	<SREDEF==4>	;DEFAULT VALUE FOR SOFT READ
					; ERROR SWITCH.
	IFNDEF	SWEDEF,	<SWEDEF==7>	;DEFAULT VALUE FOR SOFT WRITE ERROR.
	IFNDEF	SEQMAX,<SEQMAX==^D20>	;MAX NUMBER OF ENTRIES IN SEQTAB
	IFNDEF	SYS.SN,	<SYS.SN==77777>	;MASK FOR 15 BIT SYSTEM SERIAL #  [610]
					;RESTORED ABOVE LINE FOR 3A  [PJB]
;	IFNDEF	SYS.SN,	<SYS.SN==7777>	;MASK FOR MONITOR VERSION 3


;HERE WE DEFINE OFFSETS FOR IPCF PDBS AND SOME SYMBOLS FOR GETTABS
	ND	(.IPCPL,11)		;[713-TJW]PID TABLE ITEM 11 IS SEL'S PID
	ND	(.IPCPS,0)		;[713-TJW]PID TABLE ITEM 0 IS IPCC'S PID
	ND	(.GTPRV,6)		;[713-TJW]TABLE 6 IS JBTPRV
	ND	(.GTSID,126)		;[713-TJW]TABLE 126 IS SYSTEM PID TABLE
	ND	(.IPCFL,0)		;[713-TJW]FIRST WORD IS FLAGS
	ND	(.IPCFS,1)		;[713-TJW]NEXT IS SENDER'S PID
	ND	(.IPCFR,2)		;[713-TJW]THEN RECIEVERS PID
	ND	(.IPCFP,3)		;[713-TJW]THEN ADDR,,LENGTH OF DATA
	ND	(.IPCFU,4)		;[713-TJW]SENDERS PPN
	ND	(.IPCFC,5)		;[713-TJW]SENDER'S CAPABILITIES
	ND	(.IPCII,3)		;IPCF FCN 3
	ND	(.IPCWP,24)		;IPCC FCN 24
	ND	(.IPCSQ,7)		;IPCC FCN 7
	ND	(IP.CFP,1B18)		;PRIV BIT IN FLAGS
	ND	(.IPCFN,1)		;MSG WAS RETURNED BIT IN FLAGS
	ND	(JP.IPC,1B0)		;IPC PRIV BIT IN JBTPRV
	ND	(HB.IPC,1B10)		;HIBER TILL IPCF BIT
	ND	(ER.ICC,1B34)		;CTRL-C TRAP BIT
	ND	(.ERCCL,3)		;INDEX TO INTERRUPT CLASS
	SUBTTL ERROR FILE DEFINITIONS - TOPS-10 ENTRIES
	;DEFINITIONS OF WORDS FOUND IN EACH TYPE OF ENTRY
	;FIRST THREE CHARACTER REPRESENT ERROR TYPE
	;LAST THREE REPRESENT LAST THREE CHARACTERS OF MONITOR SYMBOL
	RADIX	10		;*************** NOTE WELL *************
	;MACRO TO SAVE SOME TYPING!!

	DEFINE ND (A,B)<
	IFNDEF	A,	<A==B>  
	>





	;ERROR CODE 1	ER.WHY (SYSTEM RELOAD)

	IFNDEF	WHYFG0,	<WHYFG0==0>	;5 ASCIZ LOCATIONS
	IFNDEF	WHYDT0,	<WHYDT0==5>
	IFNDEF	WHYSTS,	<WHYSTS==7>
	IFNDEF	WHYVER,	<WHYVER==8>
	IFNDEF	WHYSER,	<WHYSER==9>
	IFNDEF	WHYWHY,	<WHYWHY==10>
	IFNDEF	WHACOM,	<WHACOM==11>	;AOB POINTER TO OPR COMMENTS
	ND	(WHYKPG,12)		;EDIT 134
	ND	(WHYBIT,13)		;EDIT 134
	;ERROR CODE 2	ER.MSE (MONITOR SOFTWARE ERROR - STOPCD)

	IFNDEF	MSEFGO	<MSEFGO==0>
	ND	(MSEDT0,5)
	IFNDEF	MSESER	<MSESER==7>
	IFNDEF	MSEVER	<MSEVER==8>
	ND	(MSESPC,9)
	ND	(MSESJN,10)
	ND	(MSESTN,11)
	ND	(MSESPN,12)
	ND	(MSENAM,13)
	ND	(MSENJS,14)
	ND	(MSENDS,15)
	ND	(MSEA00,16)
	ND	(MSEA01,17)
	ND	(MSEA02,18)
	ND	(MSEA03,19)
	ND	(MSEA04,20)
	ND	(MSEA05,21)
	ND	(MSEA06,22)
	ND	(MSEA07,23)
	ND	(MSEA10,24)
	ND	(MSEA11,25)
	ND	(MSEA12,26)
	ND	(MSEA13,27)
	ND	(MSEA14,28)
	ND	(MSEA15,29)
	ND	(MSEA16,30)
	ND	(MSEA17,31)
	ND	(MSEPIS,32)



	;ERROR CODE 3	ER.MPE (CPU MEMORY PARITY ERROR)

	IFNDEF	MPEPHY,	<MPEPHY==0>
	IFNDEF	MPETPE,	<MPETPE==1>
	IFNDEF	MPESPE,	<MPESPE==2>
	IFNDEF	MPEMPC,	<MPEMPC==3>
	IFNDEF	MPEMPP,	<MPEMPP==4>
	IFNDEF	MPEMPW,	<MPEMPW==5>
	IFNDEF	MPEMPA,	<MPEMPA==6>
	IFNDEF	MPAPAR,	<MPAPAR==7>	;AOB POINTER TO %CCPAR TABLE
	IFNDEF	MPAMPT,	<MPAMPT==8>	;AOB POINTER TO %CCMPT TABLE
	ND	(MPEPPN,9)		;EDIT 137
	ND	(MPEJOB,10)		;EDIT 137



	;ERROR CODE 4	ER.NXM (KA/KI NXM ERRORS)

	ND	(NXMPHY,0)
	ND	(NXMTNE,1)
	ND	(NXMSNE,2)
	ND	(NXMMPP,3)
	ND	(NXMNJA,4)
	ND	(NXMMNA,5)
	ND	(NXMLNA,6)
	ND	(NXMMNR,7)
	ND	(NXMNTS,8)
	ND	(NXMNSC,9)
	ND	(NXMUEN,10)
	ND	(NXMNAA,11)
	ND	(NXMNOA,12)
	ND	(NXMNCS,13)
	ND	(NXMKPG,14)
	ND	(NXMBEF,15)
	ND	(NXMAFT,16)
	ND	(NXMADR,17)
	ND	(NXMPPN,18)
	ND	(NXMJOB,19)

	;VALUES IN %CCPAR TABLE

	IFNDEF	MPELPA,	<MPELPA==0>
	IFNDEF	MPEMPR,	<MPEMPR==1>
	IFNDEF	MPEPTS,	<MPEPTS==2>
	IFNDEF	MPEPSC,	<MPEPSC==3>
	IFNDEF	MPEUEP,	<MPEUEP==4>
	IFNDEF	MPEPAA,	<MPEPAA==5>
	IFNDEF	MPEPAC,	<MPEPAC==6>
	IFNDEF	MPEPOA,	<MPEPOA==7>
	IFNDEF	MPEPOC,	<MPEPOC==8>
	IFNDEF	MPEPCS,	<MPEPCS==9>
	ND	(KAEASC,14)		;EDIT 133 ADDRESS ERROR SWEEP COUNT

	
;THIS IS THE TABLE OF GETTAB ITEMS TO BE EXTRACTED FROM A CRASH.
;ADDITIONAL ITEMS SHOULD NOT BE ADDED HERE BY A SITE BECAUSE IT WILL
;CONFUSE SYSERR VERY BADLY. USE THE TABLE CRSGT1 INSTEAD.
;  ";***" INDICATES A SUBTABLE ITEM

	;ERROR CODE 5	ER.CIN (EXTRACTED CRASH INFORMATION)

	ND	(CINSTR,0)	;STR NAME FOR SOURCE OF CRASH.EXE
	ND	(CINSEC,1)		;SYSTEM WIDE ERROR COUNT
	ND	(CINPTR,2)		;PNTR FOR GETTABS
	ND	(CINTIM,3)		;TIME OF DAY
	ND	(CINSIZ,4)		;SYSTEM MEMORY SIZE
	ND	(CINPOK,5)		;LAST ADDR POKED
	ND	(CINLNM,6)		;# JOBS LOGGED IN
	ND	(CINTIC,7)		;#TICKS PER SECOND
	ND	(CINVER,8)		;MONITOR VERSION
	ND	(CINDBG,9)		;DEBUG STATUS WORD
	ND	(CINHSO,10)		;START OF MONITO HIGH SEG
	ND	(CINNWC,11)		;#OF WORDS OF CORE
	ND	(CINUPT,12)		;UPTIME IN TICKS
	ND	(CINMMS,13)		;MEMORY SIZE
	ND	(CINTPE,14)		;TOTLAL MEM PAR ERRORS
	ND	(CINSPE,15)		;TOTAL SPURIOUS PARITY ERRORS
	ND	(CINMPC,16)		;MULTIPLE PARITY ERRORS
	ND	(CINMPA,17)		;LAST PARITY ADDR
	ND	(CINMPW,18)		;LAST PARITY WORD
	ND	(CINMPP,19)		;LASTPARITY PC
	ND	(CINEPO,20)		;# UNREC EXEC PDL OV
	ND	(CINEPP,21)		;# RECOVERED EXEC PDL OV
	ND	(CINERC,22)		;SWAP ERROR COUNT
	ND	(CINDEL,23)		;DISABLED ARDWARE ERROR COUNT
	ND	(CINSPC,24)		;LAST STOPCD
	ND	(CINNDS,25)		;# DEBUG STOPCDS
	ND	(CINNJS,26)		;# JOB STOPCDS
	ND	(CINSJN,27)		;LAST STOPCD-JOB NUMBER
	ND	(CINSPN,28)		;LAST STOPCD-PROGRAM NAME
	ND	(CINSUU,29)		;LAST STOPCD-UUO
	ND	(CINSPP,30)		;LAST STOPCD-P,PN
	ND	(CINPAR,31)		;PARITY SUBTABLE
	ND	(CINPLA,32)		;**HIGHEST ADDR OF PARITY ERROR
	ND	(CINPMR,33)		;**ADDRES IN SEGMENT OF PAR ERR
	ND	(CINPTS,34)		;**PAR ERRORS THIS SWEEP
	ND	(CINPSC,35)		;**#SWEEPS
	ND	(CINPUE,36)		;**USER ENABLED
	ND	(CINPAA,37)		;**LOGICAL AND  OF ADDR
	ND	(CINPAC,38)		;**LOGICAL AND OF WORDS
	ND	(CINPOA,39)		;**LOG OR OF ADDR
	ND	(CINPOC,40)		;**LOG OR OF DATA
	ND	(CINPCS,41)		;**COUNT OF SPUR CHANNEL ERROS
	ND	(CINRSP,42)		;ADDR OF RESPONSE SUBTABLE
	ND	(CINRSO,43)		;**SUM TTY OUT UUO RES
	ND	(CINRNO,44)		;**NUM TTY OUT UUO
	ND	(CINRHO,45)		;**HI-SUM SQ TTY OUT UUO
	ND	(CINRLO,46)		;**LO-SUM	"    "
	ND	(CINRSI,47)		;**SUM TTY INP UUO
	ND	(CINRNI,48)		;**NUMBER TTY INP UUO
	ND	(CINRHI,49)		;**HI-SUM SQ TTY INP UUO
	ND	(CINRLI,50)		;**LO-SUMSQ TTY INP UUO
	ND	(CINRSR,51)		;**SUM QUANTUM REQ RES
	ND	(CINRNR,52)		;**NUMBER QUANTUM REQ RES
	ND	(CINRHR,53)		;**HI-SUM SQ QUANTUM RES
	ND	(CINRLR,54)		;**LO-SUM SQ QUANTUM REQ RES
	ND	(CINRSX,55)		;**SUM ONE OF ABOVE
	ND	(CINRNX,56)		;**NUMBER ONE OF ABOVE
	ND	(CINRHX,57)		;** HI-SUM SQ ONE OF ABOVE
	ND	(CINRLX,58)		;**LO-SUM SQ ONE OF ABOVE
	ND	(CINRSC,59)		;**SUM CPU RES
	ND	(CINRNC,60)		;**NUMBER CPU RES
	ND	(CINRHC,61)		;**HI-SUM CPU RES
	ND	(CINRLC,62)		;**LO-SUM CPU RES
	ND	(CINUPT,63)		;UPTIME
	ND	(CINLST,64)		;LOST TIME
	ND	(CINNUL,65)		;NULTIME
	ND	(CINOHT,66)		;OVERHEAD TIME IN JIFFIES
	ND	(CINTUC,67)		;TOTAL UUO COUNT
	ND	(CINTJC,68)		;TOTAL JOB CONTEXT SWITCH COUNT
	ND	(CINTNE,69)		;TOTAL NXM
	ND	(CINSNE,70)		;TOTAL SPUR NXM
	ND	(CINNJA,71)		;# JOBS AFFECTED LAST NXM
	ND	(CINMNA,72)		;FIRST ADDR LAST NXM
	ND	(CINUNI,73)		;COUNT OF DISK INFO BLOCKS IN THIS ENTRY,
	;EACH HAS THE FORMAT
	;SIXBIT NAME
	;DSKCHR UUO RESULTS
	;TOTAL # READS
	;TOTAL # WRITES
	;TOTAL # SEEKS
	;# SOFT ERRORS
	;# HARD ERRORS
	;# MONITOR DETECTED ERRORS (RIB,ETC)



	;ERROR CODE 6	ER.CPE (CHANNEL ERROR REPORT)

	IFNDEF	CPENAM,	<CPENAM==0>
	IFNDEF	CPENXM,	<CPENXM==1>
	IFNDEF	CPEMPE,	<CPEMPE==2>
	IFNDEF	CPEDPE,	<CPEDPE==3>
	IFNDEF	CPEICW,	<CPEICW==4>
	IFNDEF	CPEFCW,	<CPEFCW==5>
	IFNDEF	CPECW2,	<CPECW2==6>
	IFNDEF	CPECW1,	<CPECW1==7>
	IFNDEF	CPECW0,	<CPECW0==8>
	IFNDEF	CPEDW2,	<CPEDW2==9>
	IFNDEF	CPEDW1,	<CPEDW1==10>
	IFNDEF	CPEDW0,	<CPEDW0==11>
	ND	(CPEETW,12)		;EDIT 122


	;ERROR CODE 7	ER.DST (DAEMON STARTED)

	ND	(DSTVER,0)
	;ERROR CODE 10	ER.DPE (DISK ERROR)

	IFNDEF	HDENAM,	<HDENAM==0>
	IFNDEF	HDEHID,	<HDEHID==1>
	IFNDEF	HDEHCT,	<HDEHCT==2>
	IFNDEF	HDESCT,	<HDESCT==3>
	IFNDEF	HDEECT,	<HDEECT==4>
	IFNDEF	HDESOF,	<HDESOF==5>
	IFNDEF	HDEERR,	<HDEERR==6>
	IFNDEF	HDESDI,	<HDESDI==7>
	IFNDEF	HDEHDI,	<HDEHDI==8>
	IFNDEF	HDEHBN,	<HDEHBN==9>
	IFNDEF	HDEMCT,	<HDEMCT==10>
	IFNDEF	HDEPCT,	<HDEPCT==11>
	IFNDEF	HDEHNG,	<HDEHNG==12>
	IFNDEF	HDETRC,	<HDETRC==13>
	IFNDEF	HDETWC,	<HDETWC==14>
	IFNDEF	HDETSC,	<HDETSC==15>
	IFNDEF	HDEDCR,	<HDEDCR==16>
	ND	(HDELOG,17)
	ND	(HDECCT,18)		;EDIT 122
	ND	(HDEFIL,19)		;EDIT 140
	ND	(HDEEXT,20)
	ND	(HDEUID,21)
	ND	(HDEPGM,22)		;EDIT 140
	;ERROR CODE 11  ER.MDE (MASSBUS ERRORS)

	ND	(MDENAM,0)
	ND	(MDEMID,1)		;MEDIA ID
	ND	(MDESTR,2)
	ND	(MDELOC,3)
	ND	(MDETYP,4)
	ND	(MDECNI,5)
	ND	(MDECNF,6)
	ND	(MDESF1,7)
	ND	(MDESF2,8)
	ND	(MDESF3,9)
	ND	(MDEUID,12)
	ND	(MDEFIL,10)
	ND	(MDEEXT,11)
	ND	(MDEPGM,13)
	ND	(MDEDTI,14)
	ND	(MDEDTF,15)
	ND	(MDE2DT,16)
	ND	(MDE2DF,17)
	ND	(MDEDCR,18)
	ND	(MDEDSR,19)
	ND	(MDEDER,20)
	ND	(MDEDMR,21)
	ND	(MDEDAS,22)
	ND	(MDEDBA,23)
	ND	(MDEDDT,24)
	ND	(MDEDLA,25)
	ND	(MDEDSN,26)		;SERIAL #
	ND	(MDEDMO,27)
	ND	(MDEDDC,28)
	ND	(MDEDCC,29)
	ND	(MDEDCB,30)
	ND	(MDEDDA,31)
	ND	(MDEDEP,32)
	ND	(MDEDPL,33)
	ND	(MDEICR,34)
	ND	(MDECCT,35)		;EDIT 122
	;ERROR CODE 15  ER.CSC (CONFIGURATION STATUS CHANGE)

	IFNDEF	CSCNAM,	<CSCNAM==0>
	IFNDEF	CSCNM2,	<CSCNM2==1>
	IFNDEF	CSCSTS,	<CSCSTS==2>

	;[715]  ERROR CODE 16  ER.SLM  SYSTEM OPR LOG

	ND	(SLMTTY,0)	;JOB ##,,TTY#  OF WHO SENT MSG
	ND	(SLMPPN,1)	;P,PN OF USER
	ND	(SLMWHO,2)	;SIXBIT ANSWER TO /WHO
	ND	(SLMDEV,3)	;SIXBIT ANSWER TO /DEV
	ND	(SLMPTR,4)	;-WC,,OFFSET FROM SLMTTY TO ASCIZ MSG.


	;ERROR CODE 17	ER.DEB (SOFTWARE REQUESTED DATA)

	ND	(DEBPTR,0)		;PNTR WORD TO SAVED DATA


	;ERROR CODE 20	ER.MAG (MAGTAPE ERRORS)

	IFNDEF	MAGNAM,	<MAGNAM==0>
	IFNDEF	MAGRID,	<MAGRID==1>
	IFNDEF	MAGFFB,	<MAGFFB==2>
	IFNDEF	MAGRFF,	<MAGRFF==3>
	IFNDEF	MAGICC,	<MAGICC==4>
	IFNDEF	MAGICS,	<MAGICS==5>
	IFNDEF	MAGFCC,	<MAGFCC==6>
	IFNDEF	MAGFCS,	<MAGFCS==7>
	IFNDEF	MAGRTC,	<MAGRTC==8>
	IFNDEF	MAGMED,	<MAGMED==9>

	;ERROR CODE 21	ER.TAP (TAPSER ERRORS)

	ND	(TAPNAM,0)
	ND	(TAPRID,1)
	ND	(TAPFIL,2)
	ND	(TAPREC,3)
	ND	(TAPTRY,4)
	ND	(TAPCCR,5)
	ND	(TAPPBE,6)
	ND	(TAPFES,7)
	ND	(TAPIEP,8)
	ND	(TAPFEP,9)
	ND	(TAPUID,10)	;[701-RLD] USER'S P,PN
	ND	(TAPPGM,11)	;[701-RLD] USER'S PROGRAM NAME IN SIXBIT

	;CONTENTS OF DX10 TERMINATION AREA SUB-TABLE FOR TU70

	ND	(XS.RBC,0)
	ND	(XS.TAG,1)
	ND	(XS.DAC,2)
	ND	(XS.FR,3)
	ND	(XS.S0,4)
	ND	(XS.S4,5)
	ND	(XS.S8,6)
	ND	(XS.S12,7)
	ND	(XS.S16,8)
	ND	(XS.S20,9)
	ND	(XS.CNI,10)
	ND	(XS.ST1,11)
	ND	(XS.ST2,12)
	ND	(XS.CPC,13)
	ND	(XS.CMD,14)
	ND	(XS.CM1,15)
	ND	(XS.MD,16)
	ND	(XS.DR,17)
	ND	(XS.DAG,18)	;DIAGN FAILURE CODE
	ND	(XS.MR1,19)	;DX MEM REG 10&11


	;TERMINATION AREA FOR TC10

	ND	(TC.CNI,0)


	;TERMINATION	AREA FOR TM10

	ND	(TM.CNC,0)	;CONI MTC
	ND	(TM.CNS,1)	;CONI MTS


	;ADDED WITH EDIT 305
	;TERMINATION AREA FOR TM02 WITH TU16 & TU45
	;DEVICE REG CONTENTS ARE IN RIGHT HALF OF WORD

	ND	(T2.CNI,0)	;CONI RH10
	ND	(T2.DTI,1)	;DATAI RHCR
	ND	(T2.2DT,2)	;DATAI RHDB
	ND	(T2.ICR,3)	;LAST COMMAND ISSUED
	ND	(T2.DCR,4)	;CONTROL REG
	ND	(T2.DSR,5)	;STATUS REG
	ND	(T2.DER,6)	;ERROR REG
	ND	(T2.DMR,7)	;MAINT. REG
	ND	(T2.DAS,8)	;ATTN SUMMARY
	ND	(T2.DFC,9)	;FRAME COUNT REG
	ND	(T2.DDT,10)	;DRIVE TYPE REG
	ND	(T2.DCK,11)	;CHECKSUM REG
	ND	(T2.DSN,12)	;DRIVE S/N REG
	ND	(T2.DTC,13)	;TAPE CONTROL REG




	;ERROR CODE 40	ER.USC

	IFNDEF	USCNAM,	<USCNAM==0>
	IFNDEF	USCHID,	<USCHID==1>
	IFNDEF	USCHCT,	<USCHCT==2>
	IFNDEF	USCSCT,	<USCSCT==3>
	IFNDEF	USCPCT,	<USCPCT==4>
	IFNDEF	USCHNG,	<USCHNG==5>
	IFNDEF	USCMCT,	<USCMCT==6>
	IFNDEF	USCBRC,	<USCBRC==7>
	IFNDEF	USCBWC,	<USCBWC==8>
	IFNDEF	USCDRC,	<USCDRC==9>
	IFNDEF	USCDWC,	<USCDWC==10>
	IFNDEF	USCMRC,	<USCMRC==11>
	IFNDEF	USCMWC,	<USCMWC==12>
	IFNDEF	USCICT,	<USCICT==13>
	IFNDEF	USCOCT,	<USCOCT==14>
	IFNDEF	USCMSC,	<USCMSC==15>
	IFNDEF	USCUSC,	<USCUSC==16>



	; ERROR CODE 41 ER.MSC

	IFNDEF	MSCNAM,	<MSCNAM==0>
	IFNDEF	MSCRID,	<MSCRID==1>
	IFNDEF	MSCWRC,	<MSCWRC==2>
	IFNDEF	MSCWWC,	<MSCWWC==3>
	IFNDEF	MSCSRE,	<MSCSRE==4>
	IFNDEF	MSCHRE,	<MSCHRE==5>
	IFNDEF	MSCSWE,	<MSCSWE==6>
	IFNDEF	MSCHWE,	<MSCHWE==7>
	IFNDEF	MSCPPN,	<MSCPPN==8>
	ND	(MSCLAB,9)
	ND	(MSCUSN,10)
	ND	(MSCUTP,11)



	; ERROR CODE 42 ER.TPS

	IFNDEF	TPSNAM,	<TPSNAM==0>
	IFNDEF	TPSRID,	<TPSRID==1>
	IFNDEF	TPSWRC,	<TPSWRC==2>
	IFNDEF	TPSWWC,	<TPSWWC==3>
	IFNDEF	TPSSRE,	<TPSSRE==4>
	IFNDEF	TPSHRE,	<TPSHRE==5>
	IFNDEF	TPSSWE,	<TPSSWE==6>
	IFNDEF	TPSHWE,	<TPSHWE==7>
	IFNDEF	TPSPPN,	<TPSPPN==8>
	ND	(TPSLAB,9)
	ND	(TPSUSN,10)
	ND	(TPSUTP,11)

	;ER.DLE DL10 HARDWARE ERRORS CODE 50

	ND	(DLEPRT,0)
	ND	(DLECNI,1)
	ND	(DLEDTI,2)
	ND	(DLECN0,3)
	ND	(DLECN1,4)
	ND	(DLECN2,5)
	ND	(DLECN3,6)
	ND	(DLEDT1,7)
	ND	(DLEPGM,8)
	ND	(DLESTS,9)
	ND	(DLEERR,10)
	ND	(DLERHS,11)
	ND	(DLECOD,12)
	ND	(DLEPER,13)

	;ER.KDT CODE 61 KL10 DATA PARITY ERROR TRAP
	ND	(KDTPFW,0)
	ND	(KDTBDW,1)
	ND	(KDTGDW,2)
	ND	(KDTPMA,3)
	ND	(KDTTRY,4)
	ND	(KDTTRE,5)
	ND	(KDTNRE,6)
	ND	(KDTTPC,7)	;PC AT TRAP

	;ER.KDI  CODE 60  KL10 DATA PARITY INTERRUPT
	IFNDEF	KDINAM,	<KDINAM==0>
	IFNDEF	KDITPE,	<KDITPE==1>
	IFNDEF	KDISPE,	<KDISPE==2>
	IFNDEF	KDIMPC,	<KDIMPC==3>
	IFNDEF	KDIMPP,	<KDIMPP==4>
	IFNDEF	KDIMPW,	<KDIMPW==5>
	IFNDEF	KDIMPA,	<KDIMPA==6>
	IFNDEF	KDIPAR,	<KDIPAR==7>	;AOB POINTER TO %CCPAR TABLE
	IFNDEF	KDIMPT,	<KDIMPT==8>	;AOB POINTER TO %CCMPT TABLE
	ND	(KDIPPN,9)
	ND	(KDIPGM,10)	;
	ND	(KDICNI,11)
	ND	(KDIERA,12)
	ND	(KDISBD,13)

	;CONTENTS OF THE S-BUS DIAGNOSTIC FUNCTION SUBTABLE
	ND	(SBD4F0,0)	;DMA FUNCTION 0
	ND	(SBD4F1,1)	;DMA FUNCTION1
	ND	(SBD0F0,2)	;MODULE 0, FUNCTION0
	ND	(SBD0F1,3)	;AND SO ON...
	ND	(SBD1F0,4)
	ND	(SBD1F1,5)
	ND	(SBD2F0,6)
	ND	(SBD2F1,7)
	ND	(SBD3F0,8)
	ND	(SBD3F1,9)

	;ER.MDT CODE 62 - SAME AS CODE 60 EXCEPT FOR SUB-BLOCK  [614]
	IFNDEF	MDTNAM,	<MDTNAM==0>
	IFNDEF	MDTTPE,	<MDTTPE==1>
	IFNDEF	MDTSPE,	<MDTSPE==2>
	IFNDEF	MDTMPC,	<MDTMPC==3>
	IFNDEF	MDTMPP,	<MDTMPP==4>
	IFNDEF	MDTMPW,	<MDTMPW==5>
	IFNDEF	MDTMPA,	<MDTMPA==6>
	IFNDEF	MDTPAR,	<MDTPAR==7>	;AOB POINTER TO %CCPAR TABLE
	IFNDEF	MDTMPT,	<MDTMPT==8>	;AOB POINTER TO %CCMPT TABLE
	ND	(MDTPPN,9)
	ND	(MDTPGM,10)	;
	ND	(MDTCNI,11)
	ND	(MDTERA,12)
	ND	(MDTSBD,13)

	;	SEE CODE 162 FOR SUB-BLOCK DEFINITION


	;ER.KEA  CODE 66

	ND	(KAENAM,0)
	ND	(KAETNE,1)
	ND	(KAESNE,2)
	ND	(KAEMPP,3)
	ND	(KAENJA,4)
	ND	(KAEMNA,5)
	ND	(KAELNA,6)
	ND	(KAEMNR,7)
	ND	(KAENTS,8)
	ND	(KAENSC,9)
	ND	(KAEUEN,10)
	ND	(KAENAA,11)
	ND	(KAENOA,12)
	ND	(KAENCS,13)
	ND	(KAEKPG,14)
	ND	(KAEBEF,15)
	ND	(KAEAFT,16)
	ND	(KAEADR,17)
	ND	(KAEPPN,18)
	ND	(KAEPGM,19)
	ND	(KAECNI,20)
	ND	(KAEERA,21)
	ND	(KAESBD,22)

	;ER.KAE  CODE 67

	ND	(KAENAM,0)
	ND	(KAETNE,1)
	ND	(KAESNE,2)
	ND	(KAEMPP,3)
	ND	(KAENJA,4)
	ND	(KAEMNA,5)
	ND	(KAELNA,6)
	ND	(KAEMNR,7)
	ND	(KAENTS,8)
	ND	(KAENSC,9)
	ND	(KAEUEN,10)
	ND	(KAENAA,11)
	ND	(KAENOA,12)
	ND	(KAENCS,13)
	ND	(KAEKPG,14)
	ND	(KAEBEF,15)
	ND	(KAEAFT,16)
	ND	(KAEADR,17)
	ND	(KAEPPN,18)
	ND	(KAEPGM,19)
	ND	(KAECNI,20)
	ND	(KAEERA,21)
	ND	(KAESBD,22)

	;ER.LPT	CODE 71
	ND	(LPTNAM,0)
	ND	(LPTCNI,1)
	ND	(LPTWRD,2)
	ND	(LPTTYP,3)

	RADIX	8		;RETURN TO DEFAULT
	SUBTTL ERROR FILE DEFINITIONS - TOPS-20 ENTRIES

;  THE EVENT CODE FOR EACH EVENT IS FOLLOWED BY THE
;DESCRIPTION OF THE BLOCK WHICH RECORDS IT.

;***********************************
; SYSTEM RELOADED
;***********************************

SEC%RL==101			;EVENT CODE
  RL%SVN==0			;SYSTEM NAME (ASCIZ PTR)
  RL%STD==1			;TIME OF SYSTEM BUILD (UNIVERSAL FMT)
  RL%VER==2			;SYSTEM VERSION NUMBER
  RL%SER==3			;APR SERIAL NUMBER
  RL%OPR==4			;OPERATOR ANSWER TO WHY RELOAD (ASC PTR)
  RL%HLT==5			;BUGHLT ADDRESS (IF AUTO RELOAD)
  RL%FLG==6			;RELOAD FLAGS

RL%SIZ==7			;SIZE OF DATA BLOCK
RL%LEN==RL%SIZ+20		;SIZE OF WHOLE BLOCK (INCL 2 STRINGS)
;*********************************
; BUGHLT/BUGCHK
;*********************************

SEC%BG==102			;EVENT CODE
  BG%SVN==0			;SYSTEM NAME (ASCIZ)
  BG%SER==1			;APR SERIAL NUMBER
  BG%VER==2			;MONITOR VERSION
  BG%SDT==3			;TAD OF MONITOR BUILD
  BG%FLG==4			;FLAG,
	BG%CHK==1		;BUGCHK
	BG%INF==2		;BUGINF
	BG%HLT==3		;BUGHLT
  BG%ADR==5			;ADDRESS OF HLT/CHK
  BG%JOB==6			;FORKX,,JOB NUMBER
  BG%USR==7			;USER NUMBER
  BG%PNM==10			;PROGRAM NAME (SIXBIT)
  BG%MSG==11			;MESSAGE (ASCIZ)
  BG%ACS==12		;ACS
  BG%PIS==32		;PI STATUS
  BG%RCT==33		;REGISTER COUNT
  BG%REG==34			;REGISTERS (MAX OF 4)
  BG%NAM==40			;SIXBIT NAME OF CHECK
  BG%DAT==41		;DATE/TIME OF BUGHLT
  BG%CNT==42			;# OF ERROR SINCE RELOAD
  BG%APS==43			;[711]CONI APR
  BG%PGS==44			;[711]CONI PAG
  BG%PGD==45			;[711]DATAI PAG
  BG%ERG==46			;RDERA  [763]


;*****************************************
; FRONT END DEVICE REPORT	EDIT [542]
;*****************************************

;SEC%FE==30	 	;EVENT CODE IN ENTRY HEADER FOR TOPS-10
;SEC%FE==130		;EVENT CODE IN ENTRY HEADER FOR TOPS-20

	FE%JOB==0		;FORK #,,JOB #   (-2 IF UNASSIGNED)
	FE%DIR==1		;LOGGED IN DIRECTORY,, CONNECTED DIR
	FE%VER==2		;FRONT END SOFTWARE VERSION #
	FE%PGM==3		;USER'S PGM NAME IN SIXBIT
	FE%COD==4		;DEVICE #,,DEVICE CODE
	  FE.UNK==1B0		; DEVICE CODE UNKNOWN TO TOPSxx
	  FE.DVN==POINT 17,4,17	; DEVICE #
	  FE.DEV==POINT 18,4,35	; DEVICE CODE OF REPORTED DEVICE
				;  SAME AS CODE IN FE PROTOCOL
	FE%OFF==5		;POINTER TO SUB-BLOCK
				; DEVICE DEPENDENT PACKET OF INFORMATION.
				; -# OF WORDS,,OFFSET
	FE%DTE==6		;DTE # WHICH DETECTED ERROR
	FE%LTH==7		;LENGTH OF DATA PACKET IN 8 BIT BYTES
		;10-X		SUB-BLOCK DATA PACKET


		;FRONT END DEVICE CODES	(RH  FE%COD)

		.FECTY==1	;CTY
		.FEDL11C==2	;ALSO CTY
		.FEDH11==3	;COMM LINES
		.FEDLS==4	;DATA LINE SCANNER. EITHER CTY OR DH11
		.FELP20==5	;LINE PRINTER
		.FECD20==6	;CARD READER
		.FECLOCK==7	;CLOCK
		.FEFE==10	;FRONT END DEVICE

		;PSEUDO DEVICE CODES

		.KLCPU==200
		.KLERR==201
		.KLINK==210	;KLINIK EVENT
	;*************
	;SUB-BLOCK FOR KLINIK ENTRY
	;*************

	K%EID0==0		;EVENT INDEPENDENT DATA  WORD 0
	  STD.ST==POINT 16,0,15	; STANDARD STATUS WORD
				;  100 = ERROR LOG REQUEST
	  K.LCOD==POINT 8,0,23	; KLINIK EVENT CODE
	  K.LTYP==POINT 8,0,31	; KLINIK EVENT TYPE
	  K.0NUL==POINT 4,0,35	; NOT USED 0


		;KLINIK EVENT TYPES  (K.LTYP)

		K.LCKL==377	;CLEAR KLINIK  (8BIT  -1)
		K.LSKL==1	;SET KLINIK
		K.LRNG==2	;KLINIK LINE RING
		K.LDSC==3	;KLINIK LINE DISCONNECT
		K.LCON==4	;KLINIK LINE CONNECT
		K.LBPW==5	;KLINIK BAD PASSWORD
		K.LLTO==6	;KLINIK UNSUCCESSFUL LOGON
		K.LRBA==7	;KLINIK ACTIVE ON REBOOT


	;ADDITIONAL SUB-BLOCK WORDS FOR 'SET' (1) & 'CLEAR' (-1) KLINIK ENTRIES
	; KLINIK EVENT CODE (K.LCOD) IS NULL FOR SET/CLEAR ENTRIES

	K%EID1==1		;WINDOW OPEN TIME, DATE (MONTH,YEAR)
	  K.OTME==POINT 16,1,15	; WINDOW OPEN TIME (SECS. SINCE MIDNIGHT / 2)
	  K.O.MO==POINT 8,1,23	; WINDOW OPEN MONTH
	  K.O.YR==POINT 8,1,31	; WINDOW OPEN YEAR (SINCE 1900)
	  K.1NUL==POINT 4,1,35	; NOT USED 0
	K%EID2==2		;OPEN DATE (DAY), CLOSE TIME
	  K.ONUL==POINT 8,2,7	; NOT USED 0
	  K.ODAY==POINT 8,2,15	; WINDOW OPEN DAY (SINCE BEGINING OF MONTH)
	  K.CTME==POINT 16,2,31	; WINDOW CLOSE TIME (SECS. SINCE MIDNIGHT / 2)
	  K.2NUL==POINT 4,2,35	; NOT USED 0
	K%EID3==3		;WINDOW CLOSE DATE
	  K.C.MO==POINT 8,3,7	; WINDOW CLOSE MONTH
	  K.C.YR==POINT 8,3,15	; WINDOW CLOSE YEAR (SINCE 1900)
	  K.CNUL==POINT 8,3,23	; NOT USED 0
	  K.CDAY==POINT 8,3,31	; WINDOW CLOSE DAY (SINCE BEGINING OF MONTH)
	  K.3NUL==POINT 4,3,35	; NOT USED 0
	K%EID4==4		;MODE INFORMATION
	  K.SLIM==POINT 8,4,7	; KLINIK REMOTE ACCESS LIMIT (SET/CLEAR ENTRY)
 	  K.SMOD==POINT 8,4,15	; KLINIK ACCESS MODE (SET/CLEAR ENTRY)
	  K.NUL4==POINT 16,4,31	; NOT USED 0
	  K.4NUL==POINT 4,4,35	; NOT USED 0


		;KLINIK ACCESS MODES (SET/CLEAR ENTRY) (K.SMOD)

		K.SUSR==377	;USER CONSOLE MODE  (8BIT -1)
		K.SREM==1	;REMOTE MODE     [605]

		;KLINIK REMOTE ACCESS LIMITS (SET/CLEAR ENTRY) (K.SLIM)

		K.SROP==1	;REMOTE OPERATOR CONSOLE MODE
		K.SRPR==3	;REMOTE PROGRAMMER CONSOLE MODE
		K.SRMN==7	;REMOTE MAINTENANCE CONSOLE MODE

		;KLINIK EVENT CODES (K.LCOD) FOR LINE RING ENTRY (2)

		K.LRRJ==377	;RING REJECTED (WINDOW CLOSED) (8BIT -1)
		K.LRAC==1	;RING ACCEPTED (WINDOW OPEN)


		;KLINIK EVENT CODES (K.LCOD) FOR LINE DISCONNECT ENTRY (3)

		K.LDRP==377	;CARRIER LOSS (8BIT -1)
		K.LDCM==1	;SOFTWARE DISCONNECT


		;KLINIK EVENT CODES (K.LCOD) FOR LINE CONNECT ENTRY (4)

		K.LUSR==377	;USER CONSOLE MODE (8BIT -1)
		K.LROP==1	;REMOTE OPERATOR CONSOLE MODE
		K.LRPR==2	;REMOTE PROGRAMMER CONSOLE MODE
		K.LRMN==3	;REMOTE MAINTENANCE CONSOLE MODE


	;ADDITIONAL SUB-BLOCK WORD FOR BAD PASSWORD (5) KLINIK ENTRY
	; KLINIK EVENT CODE (K.LCOD) = # OF BAD PASSWORDS RECEIVED (1-5)

	K%EID1==1		;FIRST 4 CHARACTERS OF BAD PASSWORD
	  K.BPW2==POINT 8,1,7	; CHARACTER 2 OF BAD PASSWORD
	  K.BPW1==POINT 8,1,15	; CHARACTER 1 OF BAD PASSWORD
	  K.BPW4==POINT 8,1,23	; CHARACTER 4 OF BAD PASSWORD
	  K.BPW3==POINT 8,1,31	; CHARACTER 3 OF BAD PASSWORD
	  K.1NUL==POINT 4,1,35	; NOT USED 0
	K%EID2==2		;LAST 2 CHARACTERS OF BAD PASSWORD
	  K.BPW6==POINT 8,2,7	; CHARACTER 6 OF BAD PASSWORD
	  K.BPW5==POINT 8,2,15	; CHARACTER 5 OF BAD PASSWORD
	  K.NUL2==POINT 16,2,31	; NOT USED 0
	  K.2NUL==POINT 4,2,35	; NOT USED 0


		;KLINIK EVENT CODE (K.LCOD) FOR UNSUCCESSFUL LOGON ENTRY (6)
		; = # OF PASSWORDS ATTEMPTED (0-5)


		;KLINIK EVENT CODES (K.LCOD) FOR ACTIVE ON REBOOT ENTRY (7)
		; ARE THE SAME AS THOSE FOR LINE CONNECT ENTRY (4)
;**********************
;FRONT END RELOAD ENTRY. GIVES -11 REBOOT INFORMATION
;**********************

SEC%11==131			;-11 RELOAD
  R1%NUM==0			;-11 NUMBER
  R1%STS==1			;RELOAD STATUS BITS
	.R1GTF==1B0		;GTJFN FAILED FOR DUMP FILE
	.R1OPF==1B1		;OPENF FAILED FOR DUMP FILE
	.R1DPF==1B2		;DUMP FAILED
	.R110E==1B3		;TO -10 ERROR ON DUMP
	.R111E==1B4		;TO -11 ERROR ON BOOT
	.R1ASF==1B5		;ASGPAG FAILED ON DUMP
	.R1RLF==1B6		;RELOAD FAILED
	.R1PDF==1B7		;-11 DIDN'T POWER DOWN
	.R1PUF==1B8		;-11 DIDN'T POWER UP
	.R1RMF==1B9		;ROM DID NOT ACK THE -10
	.R1BSF==1B10		;-11 BOOT PROGRAM DIDN'T MAKE IT TO
				; THE -11
	.R1NRL==1B11		;-11 TOOK MORE THAN 1 MINUTE TO RELOAD.
				; WILL CAUSE A RETRY
		;EDIT 404-ADDED FOR TOPS-10
	  ER.DHG==1B12		;TO-10 BYTE XFER FOR DUMP HUNG
	  ER.ENF==1B13		;ENTER FAILURE FOR DUMP FILE
	  ER.OPE==1B14		;OPEN FAILURE FOR DUMP OUTPUT DEVICE
	  ER.OUF=1B15		;OUTPUT FAILURE FOR DUMP FILE
	  ER.TT1==1B16		;TO-11 BYTE XFER TIMED OUT
	.R1RTC==77B35		;RETRY COUNT
  R1%FNM==2			;FILE NAME POINTER
  R1%ERW==3			;[534]BITS 2-17=RAD50 11'S FAILURE CODE
				;BITS 20-35 = 11'S PARITY STATUS REGISTER

R1%SIZ==4			;NUMBER OF ENTRIES
R1%LEN==R1%SIZ+^D20		;ALLOW LONG STRING
;**********************************
;HALT STATUS BLOCK FOR KS10  [756]
;**********************************

;;HSBADR==400			;PHYSICAL ADDRESS OF HSB
SEC%HS==133			;EVENT CODE
  HS%COD==0			;HALT STATUS CODE - PHYSICAL LOCATON 0
  HS%HPC==1			;PROGRAM COUNTER - PHYSICAL LOCATION 1
  HS%PCX==2			;PROGRAM COUNTER EXTENSION  [761]
  HS%PTR==3			;HALT STATUS BLOCK OFFSET POINTER
				; -LENGTH,,OFFSET
  CS%PTR==4			;CLOCK STOP BLOCK OFFSET POINTER (UNUSED)
				; -LENGTH,,OFFSET
	;5-X			HALT STATUS BLOCK
	;X-Y			CLOCK STOP BLOCK  (NOT IMPLEMENTED)

; HALT STATUS BLOCK

HS%MAG==0			;MAGNITUDE  (ONES IN BITS 1-36)
HS%PC==1			;PC
HS%HR==2			;CURRENT INSTRUCTION (HR)
HS%AR==3			;AR
HS%ARX==4			;ARX
HS%BR==5			;BUFFER REGISTER
HS%BRX==6			;BUFFER REGISTER EXTENSTION
HS%ONE==7			;CONSTANT ONE
HS%EBR==10			;EXEC BASE REGISTER
HS%UBR==11			;USER BASE REGISTER
HS%MSK==12			;MASK  (ONES IN BITS 0-35)
HS%FLG==13			;MICROCODE STATUS FLAGS,,PAGE FAIL CODE
HS%PI==14			;PI STATUS
HS%X1==15			;1,,1
HS%T0==16			;T0
HS%T1==17			;T1
HS%VMA==20			;VMA FLAGS,,VMA
HS%FE==21			;FE,,SC  (NOT AVAILABLE)

;CLOCK STOP BLOCK  (NOT IMPLEMENTED)
;***********************************
;MASSBUS DEVICE ERROR
;***********************************

SEC%MB==111			;EVENT CODE
  MB%NAM==0			;DEVICE NAME IN SIXBIT (0 IF NOT AVAIL.)
  MB%VID==1			;VOLUME ID  (SIXBIT)
  MB%TYP==2			;DEVICE AND CHANNEL TYPE
    MB.CHN==POINT 3,2,17	; CHANNEL TYPE  (ACTUALLY 5 BITS)
    MB.DEV==POINT 5,2,35	; DEVICE (UNIT) TYPE
  MB%LOC==3			;LOCATION OF ERROR - SECTOR OR FILE,,RECORD
  MB%FES==4			;FINAL ERROR STATE
  MB%CNI==5			;CONI INITIAL
  MB%S1I==5			; CONTROL & STATUS 1 INITIAL  (FOR RH11)
  MB%CIF==6			;CONI FINAL
  MB%S1F==6			; CONTROL & STATUS 1 FINAL  (FOR RH11)
  MB%SEK==7			;NUMBER OF SEEKS
  MB%RED==10			;NUMBER OF BLOCKS/FRAMES READ
  MB%WRT==11			;NUMBER OF BLOCKS/FRAMES WRITTEN
  MB%FIL==12			;FILENAME
  MB%USR==13			;USER MAKING REQUEST
  MB%PGM==14			;PROGRAM RUNNING  (SIXBIT)
  MB%D1I==15			;DATAI PTCR INITIAL
  MB%S2I==15			; CONTROL & STATUS 2 INITIAL  (FOR RH11)
  MB%D1F==16			;DATAI PTCR FINAL
  MB%S2F==16			; CONTROL & STATUS 2 FINAL  (FOR RH11)
  MB%D2I==17			;DATAI PBAR INITIAL
  MB%UBI==17			; UBA STATUS,MAP INITIAL  (FOR RH11)
  MB%D2F==20			;DATAI PBAR FINAL
  MB%UBF==20			; UBA STATUS,MAP FINAL  (FOR RH11)
  MB%UDB==21			;UNIT DATA BLOCK FOR JOB 0 BAT BLOCKS
  MB%IRS==22			;IORB STATUS WORD
  MB%SRE==23			;SOFT READ ERRORS
  MB%SWE==24			;SOFT WRITE ERRORS
  MB%HRE==25			;HARD READ ERRORS
  MB%HWE==26			;HARD WRITE ERRORS
  MB%PS1==27			;POSITION, CYL IF DISK, FILE IF TAPE
  MB%PS2==30			;SURF/SEC OR RECORD
  MB%CS0==31			;CHANNEL LOGOUT 0  (NOT USED FOR RH11)
  MB%CS1==32			;CHANNEL LOGOUT 1  (PSEUDO FOR RH11)
  MB%CS2==33			;CHANNEL LOGOUT 2  (PSEUDO FOR RH11)
  MB%CC1==34			;FIRST CCW
  MB%CC2==35			;SECOND CCW
  MB%MPE==36			;COUNT OF MPE
  MB%NXM==37			;COUNT OF NXM
  MB%FEC==40			;FINAL ERROR COUNT
  MB%CAD==41			;CHANNEL ADDRESS
  MB%UAD==42			;UNIT ADDRESS
  MB%SPE==43		;SOFT POSITIONING ERRORS
  MB%HPE==44			;HARD POSITIONING ERRORS
  MB%OVR==45			;NUMBER OF OVERRUNS
  MB%ICR==46			;CONTENTS OF INITIAL CONTROL REG
;THE FOLLOWING LOCATIONS ARE THE UNITS MASSBUSS REGISTERS IN ORDER
;FINAL CONTENTS,,INITIAL ERROR CONTENTS
  MB%REG==47
MB%SIZ==MB%REG+20		;SIZE OF DATA BLOCK
MB%LEN==MB%SIZ			;TOTAL LENGTH, CURRENTLY NO STRINGS REPORTED
;MASSBUS CHANNEL TYPE  (MB.CHN)
	.RH10==1
	.RH20==2
	.RH11==3

	;OFFSETS INTO BIT DECODE TABLES
	..RH10==4		;RH10 CONI
	..RH20==5		;RH20 CONI
	..RH11==13		;CONTROL & STATUS 1
	..UBA==14		;UBA STATUS,MAP REGISTERS

;UNIT TYPES  (MB.DEV)

.UTMIN==1			;MINIMUM UNIT TYPE SUPPORTED
.UTRP4==1			;RP04
.UTRS4==2			;RS04
.UTT45==3			;TU45
.UTTM2==4			;TM02 (AS UNIT)
.UTRP5==5			;RP05
.UTRP6==6			;RP06
.UTRP7==7			;RP07  (TU70)
.UTRP8==10			;RP08  (DX20)
.UTRM3==11			;RM03
.UTTM3==12			;TM03
.UTT77==13			;TU77
.UTTM7==14			;TM78
.UTT78==15			;TU78
.UTDX2==16			;DX20
.UTT70==17			;TU70
.UTT71==20			;TU71
.UTT72==21			;TU72-E
.UTMAX==.UTT72			;MAXIMUM UNIT TYPE NOW SUPPORTED

;MASS BUSS DEVICE TYPES  (IN MASSBUS REGISTER 06)

TY.RP4==020			;RP04
TY.RP5==021			;RP05
TY.RP6==022			;RP06
TY.RM3==24			;RM03
 TY.RPL==TY.RP4			;LOWEST "RP04" TYPE
 TY.RPH==TY.RM3			;HIGHEST "RP04" TYPE
TY.RS4==002			;RS04 DRIVE TYPE
TY.T2L==010			;LOWEST TM02 TYPE
TY.T2H==017			;HIGHEST TM02 TYPE
TY.T3L==050			;LOWEST TM03 TYPE
TY.T3H==057			;HIGHEST TM03 TYPE
	;**************************************
	;EVENT CODE 112 - DX20 DEVICE ERROR
	;**************************************


	SEC%DX==112

; RH20 INFORMATION
  DX%NAM==0			;DEVICE NAME (IF AVAILABLE)
  DX%VID==1			;VOLUME ID
  DX%TYP==2			;CHANNEL TYPE,,DEVICE  (5 BITS)
  DX%LOC==3			;LOCATION OF ERROR - SECTOR OR FILE,,RECORD
  DX%FES==4			;FINAL ERROR STATE
  DX%CNI==5			;CONI INITIAL
  DX%CIF==6			;CONI FINAL
  DX%SEK==7			;NUMBER OF SEEKS
  DX%RED==10			;NUMBER OF BLOCKS/FRAMES READ
  DX%WRT==11			;NUMBER OF BLOCKS/FRAMES WRITTEN
  DX%FIL==12			;FILENAME
  DX%USR==13			;USER MAKING REQUEST
  DX%PGM==14			;PROGRAM RUNNING
  DX%D1I==15			;DATAI PTCR INITIAL
  DX%D1F==16			;DATAI PTCR FINAL
  DX%D2I==17			;DATAI PBAR INITIAL
  DX%D2F==20			;DATAI PBAR FINAL
  DX%UDB==21			;UNIT DATA BLOCK FOR JOB 0 BAT BLOCKS
  DX%IRS==22			;IORB STATUS WORD
  DX%SRE==23			;SOFT READ ERRORS
  DX%SWE==24			;SOFT WRITE ERRORS
  DX%HRE==25			;HARD READ ERRORS
  DX%HWE==26			;HARD WRITE ERRORS
  DX%PS1==27			;POSITION, CYL IF DISK, FILE IF TAPE
  DX%PS2==30			;SURF/SEC OR RECORD
  DX%CS0==31			;CHANNEL LOGOUT 0
  DX%CS1==32			;CHANNEL LOGOUT 1
  DX%CS2==33			;CHANNEL LOGOUT 2
  DX%CC1==34			;FIRST CCW
  DX%CC2==35			;SECOND CCW
  DX%MPE==36			;COUNT OF MPE
  DX%NXM==37			;COUNT OF NXM
  DX%FEC==40			;FINAL ERROR COUNT
  DX%CAD==41			;CHANNEL ADDRESS
  DX%UAD==42			;UNIT ADDRESS
  DX%SPE==43		;SOFT POSITIONING ERRORS
  DX%HPE==44			;HARD POSITIONING ERRORS
  DX%OVR==45			;NUMBER OF OVERRUNS
  DX%ICR==46			;CONTENTS OF INITIAL CONTROL REG
	DX%VER==47		;DX20 MICRO-CODE VERSION # (9 BITS OF EDIT #&6 BITS OF ER#)
;POINTERS TO SUB-BLOCKS

	DX%MBR==50		;# OF MASSBUS REGISTER VALUES,,OFFSET TO FIRST
	DX%DVL==51		;# OF DEVICE VALUES,,OFFSET TO FIRST
;OTHER POINTERS MAY BE ADDED HERE

;MASSBUS REGISTER VALUES ARE IN THE FORM -
; FINAL CONTENTS,,INITIAL CONTENTS



;MASSBUS REGISTER INFORMATION

	DM%CR==0		;(0) CONTROL REG
	DM%SR==1		;(1) STATUS REG
	DM%ER==2		;(2) ERROR REG
	DM%MR==3		;(3) MAINT. REG
	DM%AS==4		;(4) ATTN SUMM
	DM%SB==5		;(5) SECONDARY BLOCK ADDRESS REG (SAME AS DM%BC)
	DM%DT==6		;(6) DRIVE TYPE&HDWR VER#

	;SPACE RESERVATION DELETED BY EDIT [714]
	;;;;REGISTERS 7-17 ARE NOT CURRENTLY DEFINED BUT SPACE
	;;;;IS ALLOCATED IN THE ERROR FILE
	DM%SI==7		;(20) STATUS INDEX/ENDING STATUS  [714]
	DM%DN==10		;(21) DRIVE # / MODE  [507] [714]
	DM%ES==11		;(22) EXTENDED STATUS TABLE SIZE  [507] [714]
	DM%TE==12		;(23) T.I.E./FLAGS  [714]
	DM%AY==13		;(24) ASYNCH STATUS  [714]
;;	DM%BC==25		;(25) BYTE COUNT  (SAME AS DM%SB)  [507] [714]
	DM%E0==14		;(26) EXTENDED STATUS REG 0  [714]
	DM%E1==15		;(27) EXTENDED STATUS REG 1  [714]
	DM%IR==16		;(30) INSTR REG  [714]
	DM%PC==17		;(31) PROG COUNTER  [714]
	DM%AL==20		;(32) ALU  [714]
	DM%SD==21		;(33) SROM/DROM  [714]
	DM%FP==22		;(34) FROM/PARITY/INTERRUPTS  [714]
	DM%BW==23		;(35) BALU/WORKING MEMORY  [714]
	DM%IB==24		;(36) IBUS/BR  [714]
	DM%MA==25		;(37) FLAGS/MEMORY ADDR.  [714]
;DEVICE SUB-BLOCK DEFINITIONS.
;THESE BYTES ARE IN THE FORMAT:
;	BYTE 0 =  BITS	 2-9
;	     1 =	10-17
;	     2 =	20-27
;	     3 =	28-35
;VALUES ARE SUPPLIED FROM DX20 WITH VER 100 OR LATER OF U-CODE AS
;LONG AS DX20 IS STILL RUNNING.  VALUES ARE THOSE DETECTED AT TIME
;OF THE ERROR.

	DT%SBA==0	;(0-3)SENSE BYTES 0-3
	DT%SBB==1	;(4-7)SENSE BYTES 4-7
	DT%SBC==2	;(8-11)SENSE BYTES 8-11
	DT%SBD==3	;(12-15)SENSE BYTES 12-15
	DT%SBE==4	;(16-19)SENSE BYTES 16-19
	DT%SBF==5	;(20-23)SENSE BYTES 20-23
	DT%MCV==6	;(24-27)MICRO-CODE VER(2 BYTES)/MICRO PROC STATUS/I-O BANK SELECT
	DT%MRA==7	;(28-31)MASSBUS INTERFACE REG 0-3
	DT%MRB==10	;(32-35)    4-7
	DT%MRC==11	;(36-39)    10-13
	DT%MRD==12	;(40-43)   14-17
	DT%MRE==13	;(44-47)   20-23
	DT%MRF==14	;(48-51)  23-27
	DT%CB0==15	;(52-55)CHANNEL BUS INT. REGS 10-17
	DT%CB1==16	;(56-59)   "     "	"
	DT%DP0==17	;(60-63)DATA PATH REGS 0-17
	DT%DP1==20	;(64-67)	"	"
	DT%DP2==21	;(68-71)	"	"
	DT%DP3==22	;(72-75)	"	"
	DT%LAS==23	;(76-79) LAST COMMAND,LAST DEV ADDR,LAST ASYCH,STATUS,
			;LAST DEV W ASYNCH STATUS

;************************************
; PROCESSOR PARITY TRAP
;************************************

SEC%PT==160			;EVENT CODE
	PT%PFW==0			;PAGE FAIL WORD
	PT%BDW==1			;BAD DATA WORD
	PT%GDW==2			;GOOD DATA WORD
	PT%USR==3			;USER ID
	PT%JOB==4			;FORK #,, JOB #
	PT%PGM==5			;USER'S PROGRAM NAME (SIXBIT)
	PT%PMA==6			;PHYSICAL MEMORY ADDR AT TRAP
	PT%TRY==7			;RETRY WORD    1B1=NON-RECOVERABLE
					;1B2=CACHE FAILURE
					;1B3=CACHE IN USE
					;1B4=FAIL DURING CACHE SWEEP TO CORE
					;18-35 =RETRY COUNT
;*********************************
; PROCESSOR PARITY INTERRUPT
;*********************************

SEC%PI==161			;EVENT CODE
	PI%CNI==0			;CONI APR
	PI%ERA==1			;ERA
	PI%FPC==2			;PC AT INTERRUPT
	PI%SWP==3			; # ERRORS THIS SWEEP
	PI%AAD==4			;LOGICAL AND OF BAD ADDRESSES
	PI%OAD==5			; OR   OF BAD ADDRESSES
	PI%ADA==6			;  AND   OF BAD DATA
	PI%ODA==7			; OR   OF BAD DATA
	PI%SBD==10			;S-BUS DIAG FUNCTION SUBTABLE
	PI%ADD==22			;LIST OF 1ST 10. BAD ADDRESSES
	PI%DAT==34			;LIST OF 1ST 10. BAD DATA WORDS
	PI%CDA==46			;LIST OF 1ST 10. GOOD DATA WORDS

;*********************************
; NEW PROCESSOR PARITY INTERRUPT  [614]
;*********************************

SEC%MP==162				;EVENT CODE
	MP%CNI==0			;APR STATUS WORD
	MP%ERA==1			;ERA
	MP%PCF==2			;PC FLAGS AT INTERRUPT
	MP%IPC==3			;PC AT INTERRUPT
	MP%SWP==4			; # ERRORS THIS SWEEP
	MP%AAD==5			;LOGICAL AND OF BAD ADDRESSES
	MP%OAD==6			; OR   OF BAD ADDRESSES
	MP%ADA==7			;  AND   OF BAD DATA
	MP%ODA==10			; OR   OF BAD DATA
	MP%SBD==11			;POINTER TO S-BUS DIAG SUBTABLE
					; -# OF ENTRIES,,OFFSET TO FIRST
	MP%ADD==12	;12-23		;LIST OF 1ST 10. BAD ADDRESSES
	MP%DAT==24	;24-35		;LIST OF 1ST 10. BAD DATA WORDS
	MP%CDA==36	;36-47		;LIST OF 1ST 10. GOOD DATA WORDS


	;S-BUS DIAG FUNCTION SUB-TABLE
	;ALSO USED FOR CODE 62 ENTRY

	SBD%NU==0		;-# OF S-BUS DIAG FUNC,,# OF CONTROLLER
	SBD%F0==1		;DIAG FUNCTION 0
	SBD%F1==2		;DIAG FUNCTION 1
	;SBD%FX==X+1		;DIAG FUNCTION X  ETC.

;**************************************
; KL CPU STATUS BLOCK [740] [753]
;**************************************

SEC%SB==163
	SB%API==0		;APR ID
	SB%APR==1		;CONI APR
	SB%PIC==2		;CONI PI
	SB%PGD==3		;DATAI PAG
	SB%PGC==4		;CONI PAG
	SB%UP0==5		;UPT LOCS 424 - 427
	SB%ERA==11		;RDERA
	SB%RHC==12		;CONI RH0 THRU RH7
	SB%DTC==22		;CONI DTE0 THRU DTE1
	SB%EP0==26		;EPT LOCS 0 - 37
	SB%EP1==66		;EPT LOCS 140 - 177
	SB%UP1==126		;UPT LOCS 500 - 503
	SB%6==132		;AC BLK 6 LOCS 0 - 3 AND 12
	SB%7==137		;AC BLK 7 LOCS 0 - 2
	SB%SBD==142		;START OF SBDIAGS
;SEE 162  ENTRY FOR DESCRIPTION OF SBDIAG SUBTABLE
	
	SUBTTL ERROR FILE DEFINITIONS - NETWORK ENTRIES
;***********************************
;NETWORK CONTROL UTILITY STARTED  (NETCON)
;***********************************

SEC%NS==201			;EVENT CODE
	NS%VER==0		;VERSION OF NETCON SOFTWARE
	NS%NAM==1		;THIS NODE'S NAME IN ASCIZ (PNTR) [515]
	NS%PGM==2		;PNTR TO PROGRAM NAME IN ASCIZ


;NOT COMPILED TO TEST NEW STUFF
REPEAT 0,<



;***********************************
;NODE DOWN-LINE LOAD
;***********************************

SEC%NL==202			;EVENT CODE
	NL%TAR==0		;PNTR TO ASCIZ NAME OF TARGET NODE
	NL%SER==1		;PNTR TO ASCIZ NAME OF SERVER NODE
	NL%SLD==2		;PNTR TO ASCIZ NAME OF SERVER LINE DESIGNATOR
	NL%FIL==3		;PNTR TO ASCIZ NAME OF FILE LOADED
	NL%RTN==4		;RETURN CODE	[524]


;***********************************
;NODE DOWN-LINE DUMP
;***********************************

SEC%ND==203			;EVENT CODE
	ND%TAR==0		;PNTR TO ASCIZ NAME OF TARGET NODE
	ND%SER==1		;PNTR TO ASCIZ NAME OF SERVER NODE
	ND%SLD==2		;PNTR TO ASCIZ NAME OF SERVER LINE DESIGNATOR
	ND%FIL==3		;PNTR TO ASCIZ NAME OF FILE DUMPED
	ND%RTN==4		;RETURN CODE	[524]

;***********************************
;NETWORK MAINT. LOG ENTRY
;***********************************

SEC%NM==210			;EVENT CODE
	NM%MID==0		;TRANS NODE ID#,,DEST. NODE ID #
	NM%XID==1		;PNTR TO ASCIZ XMIT NODE ID NAME
	NM%RID==2		;PNTR TO ASCIZ REC. NODE ID NAME
	NM%FUN==3		;FUNCTION CODE,,OPTION FIELD
	NM%NUM==4		;NUMBER OF 8 BIT BYTES IN LOGGING MESSAGE
	NM%PTR==5		;PNTR TO LOGGING MESSAGE


;***********************************
;NETWORK OPR. LOG ENTRY
;***********************************

SEC%NO==220			;EVENT CODE
	NO%MID==0		;TRANS NODE ID#,,DEST. NODE ID #
	NO%XID==1		;PNTR TO ASCIZ XMIT NODE ID NAME
	NO%RID==2		;PNTR TO ASCIZ REC. NODE ID NAME
	NO%FUN==3		;FUNCTION CODE,,OPTION FIELD
	NO%NUM==4		;NUMBER OF 8 BIT BYTES IN LOGGING MESSAGE
	NO%PTR==5		;PNTR TO LOGGING MESSAGE

;START EDIT [515]

;***********************************
;NETWORK LINE COUNTERS
;***********************************

SEC%LC==230			;EVENT CODE
	LC%NAM==0		;POINTER TO ASCIZ NODE NAME
	LC%LIN==1		;POINTER TO ASCIZ LINE ID
	LC%CNT==2		;# OF COUNTER ENTRIES (9 MAX)  [522]
	LC%TYP==3		;COUNTER INFORMATION  (TYPE,,VALUE)
				; BIT 18 = 1  FOR COUNTER OVERFLOW

;END EDIT [515]

;OTHER ITEMS MAY BE ADDED BELOW HERE.



>;END REPEAT 0
;***********************************
;Network Hardware Error Entry
;***********************************

SEC%NH=210  ;	Error File Event Code 

	NH%MID=0	;TRANSMITTING NODE ID#,, DESTINATION NODE ID#
	NH%XID=1	;PNTR TO ASCIZ TRANSMITTING NODE NAME
	NH%RID=2	;PNTR TO ASCIZ Destination NODE NAME
	NH%ADN=3	;PNTR TO ASCIZ Adjacent Node Name
			;ie, the node at the other end of the line
	NH%FUN=4	;FUNCTION WORD AS DESCRIBED BELOW

		;BITS 28-35 = Hardware option Type
		;This field describes the hardware option which detected the error.
		;8 bits are easy for 11's to handle and allows enough
		;room for future expansion.
		;377= Unknown
		;0 = ILLEGAL
		;1 = SOFTWARE ERROR ENTRY
		;2 = DQ11 HARDWARE ENTRY
		;3 = KMC/DUP11 HDWR ENTRY
		;4 = KMC/DZ11 HDWR ENTRY
		;5 = DMC11 HDWR ENTRY
		;6 = LP20 HDWR ENTRY
		;7 = CD20 HDWR ENTRY
		;10= DH11 HDWR ENTRY
		;11= DZ11 HDWR ENTRY
		;12= DM11-BB HDWR ENTRY
		;13= DL11 HDWR ENTRY
		;14= KG11 HDWR ENTRY
		;15= DTE-20 HDWR ENTRY
		;16= LP11 HDWR ENTRY
		;17= CR11 HDWR ENTRY
		;20= VT62 HDWR ENTRY
		;21= RX11
		;22= DP8E
		;23= KL8A
		;24= LP08 (FOR DN92)
		;25= CR08 (FOR DN92)
		;26= PDP11 PARITY MEMORY
		;27= DUP11 LINE UNIT HDWR ENTRY
		;30-300 reserved for expansion by DEC
		;301-376  reserved for customer use
	
		;BITS 20-27 = PARENT OPERATING SYSTEM TYPE
		;This field describes the type of software running
		;at the node where the failure is first detected and the
		;appropriate information is collected.
		;377= Unknown
		;0 = ILLEGAL
		;1 = DN60
		;2 = DECnet INTERCEPT(i.e.,MCB)
		;3 = DN8x
		;4 = DN92
		;5 = RSX-20F
		;6 = TOPS-10
		;7 = TOPS-20
		;10= DECnet NON-INTERCEPT
		;11-300 reserved for use by DEC
		;301-376 reserved for customer use

		;BITS 10-17 = PARENT HARDWARE SYSTEM TYPE
		;This field describes the hardware system configuration that the
		;hardware type described in bits 28-35 is a part of.
		;377= Unknown
		;0 = ILLEGAL
		;1 = DN20
		;2 = DN200
		;3 = DN87S
		;4 = DN87
		;5 = DN85
		;6 = DN80,1,2
		;7 = KI10
		;10= KL10
		;11= KS10
		;12= DN92
		;13-300 RESERVED FOR USE BY DEC
		;301-376 RESERVED FOR USE BY CUSTOMER
	
	
	
	NH%NUM=5	;RIGHT JUSTIFIED NUMBER OF 8 BIT BYTES IN LOG
			;DATA SECTION
	NH%SEQ=6	;HARDWARE ENTRY SEQ. NUMBER FROM THE XMIT NODE
	NH%LID=7	;CONTROLLER #,,LINE or unit #
			;(-1 IS NULL indicating NO LINE or unit IS 
			;ASSOCIATED WITH THIS ENTRY, 0=single line unit ie. DL11)
	NH%LI1=10	;RESERVED,,STATION #
			;(WORDS NH%LID & NH%LI1 ARE USED TO MAKE UP AN
			;ASCIZ LINE IDENTIFICATION )
	NH%DAT=11	;NODE UPTIME IN MILLISECS. WHEN
			;THIS EVENT/ERROR WAS DETECTED.
	NH%TRY=12	;FLAGS AND RETRY COUNT
			;BITS 0-3 COMPRISE THE 'RETRY FIELD'
				;0=illegal
				;1=NON-RECOVERABLE ERROR, RECOVERY ALGORITHM
				;  IS AVAILABLE AND WAS EXHAUSTED
				;2=RECOVERY DISABLED
				;3=NO RECOVERY ALGORITHM IS AVAILABLE
				;4=RECOVERED-ALGORITHM IS AVAILABLE AND WORKED
			;bits 4 - 17 reserved
			;BIT 18-35 RETRY COUNT (COUNT OF RETRIES ATTEMPTED)
	NH%RSM=13	;REASON FOR ENTRY (OCTAL)
			;THRESHOLD VALUE,,CODE AS DEFINED BELOW
			;0=ILLEGAL
			;1=HARDWARE DETECTED ERROR(ERROR BITS ARE VALID IN DATA SECTION
			;2=LOST INTERRUPT
			;3=UNEXPECTED INTERRUPT
			;4=UNEXPECTED DATA SET STATUS CHANGE
			;5=TIMEOUT
			;6=POWER FAIL
			;7=POWER RESTART
			;10=THRESHOLD VALUE EXCEEDED
	NH%PTR=14	;PNTR TO START OF LOG DATA. This concept
			;allows for easy future expansion on this area.

;*******
;	Log Data Descriptions for Hardware Options
;*******


;This section describes the formats for the log data sections (pointed to by NH%PTR) of the maintenance
;log entry for the various hardware options supported. The 'Byte #' refers to
;the byte of the log data section. All bytes are 8 bits wide.


;*******
; DQ11
;*******
;
;	Byte #		Description
;	______		___________
;
;	0,1		RxSTAT
;	2,3		TxSTAT
;	4,5		REGERR
;	6,7		RxBAP Primary Receive Bus Address
;	10,11		RxCCP    "       "    Char Count
;	12,13		TxBAP    "    Xmit    Bus Address
;	14,15		TxCCP	 "      "     Char Count
;	16,17		RxBAS Secondary Receive Bus Address
;	20,21		RxCCS 	 "	   "	Char Count
;	22,23		TxBAS	 "	   "	Bus Address
;	24,25		TxCCS	 "	   "	Char Count
;	26,27		CHRDET Character Detect
;	30,31		SYNC
;	32,33		MISC
;	34,35		TxBUF  Xmit Buffer
;	36,37		SEQ	Sequence
;	40,41		RxBCC	Receive Block Check Char
;	42,43		TxBCC	Xmit   Block Check Char
;	44,45		RTPOLY  Receive/Xmit Polynomial
;

;*******
; KMC11/DZ11, KMC11/DUP11, DMC11
;*******

;  Each of these types require the same initial bytes to be collected
;from the controller so they are listed together.
;
;	Byte #		Description
;	______		___________
;	0-3		(WD0)PNTR TO FIRST WORD OF SUB-DEVICE TABLE
;	4,5		SEL 0
;	6,7		SEL 2
;	10,11		SEL 4
;	12,13		SEL 6
;	14,15		MICRO CODE ID
;			0=ILLEGAL
;			1=COMM/IOP
;			2=DN60
;			3=TOPS-10  DZ11
;			4=TOPS-10  DUP11
;	16-25		MICRO CODE VERSION #
;			FOR DN60 THESE BYTES ARE DECODED AS
;			16,17=MAJOR VERSION
;			20,21=MINOR VERSION
;			22,23=EDIT #
;			24,25=BY WHO



;	DZ11 Line Units under KMC11 Controller
;	Byte #		Description
;	______		___________
;	0,1		CSR
;	2,3		RBUF
;	4,5		TCR
;	6,7		MSR


;	DUP11 Line Units under KMC11 Controller
;	Byte #		Description
;	______		___________
;	0,1		RXCSR
;	2,3		RXDBUF
;	4,5		TXCSR
;	6,7		TXDBUF
;


;	DMC11 Line Units (under DMC11 Controller)
;	Byte #		Description
;	______		___________
;	0,1		LINE UNIT STATUS CODE
;			0=ILLEGAL
;			1=REGISTER VALUES PRESENT
;			 (MUST BE PRESENT FOR ALL 'FATAL' ERRORS
;			  UNLESS NOT ACCESSABLE DUE TO SWITCH SETTINGS)
;			2=ERROR NOT FATAL
;			3=REGISTERS NOT ACCESSABLE DUE TO SWITCH SETTINGS
;	2,3		In Data Silo (10)
;	4,5		Out Data Con (11)
;	6,7		In Data Con  (12)
;	10,11		Modem Control reg (13)
;	12,13		Sync  (14)
;	14,15		Register 15
;	16,17		Register 16
;	20,21		Maintenance Reg (17)


;*******
; LP20
;*******
;	Byte #		Description
;	______		___________
;	0,1		LPCSRA
;	2,3		LPCSRB
;	4,5		LPBSAD
;	6,7		LPBCTR
;	10,11		LPPCTR
;	12,13		LPTDAT
;



;*******
; CD20/CR11
;*******
;	Byte #		Description
;	______		___________
;	0,1		CR11CC
;	2,3		CR11BA
;	4,5		CR11DB
;	6,7		SOFTWARE STATUS WORD (TO BE DEFINED)


;*******
; DH11
;*******
;	Byte #		Description
;	______		___________
;	0,1		Control Reg
;	2,3		Next Received Char
;	4,5		CA Current Addr.
;	6,7		BCR Byte Count Reg
;	10,11		BAR Buffer Active Reg
;		DM11-BB Registers
;	12,13		Control & Status Reg
;	14,15		Line Status Reg



;*******
; DL11
;*******
;	Byte #		Description
;	______		___________
;	0,1		RCSR
;	2,3		RBUF
;	4,5		XCSR



;*******
; DTE-20
;*******
;	Byte #		Description
;	______		___________
;	0,1		DLYCNT
;	2,3		DEXWD3
;	4,5		DEXWD2
;	6,7		DEXWD1
;	10,11		TENAD1
;	12,13		TENAD2
;	14,15		TO10BC
;	16,17		TO11BC
;	20,21		TO10AD
;	22,23		TO11AD
;	24,25		TO10DT
;	26,27		TO11DT
;	30,31		DIAG1
;	32,33		DIAG2
;	34,35		SREG
;	36,37		DIAG3




;*******
; DZ11 Line Units NOT under KMC11 Controller
;*******
;	Byte #		Description
;	______		___________
;	0,1		CSR
;	2,3		RBUF
;	4,5		TCR
;	6,7		MSR



;*******
; DUP11 Line Units NOT under KMC11 Controller
;*******
;	Byte #		Description
;	______		___________
;	0,1		RXCSR
;	2,3		RXDBUF
;	4,5		TXCSR
;	6,7		TXDBUF

;***********************************
;Network Software Error Entry
;***********************************


 SEC%SN=211	;Error File Event Code

		;Words SN%MID thru SN%PTR are identical to NH%MID thru NH%PTR which are
		;described above

;*******
; Log Data Format
;*******

;This section describes the format of the log data section (pointed to by SN%PTR) of 
;the maintenance log entry to be generated for software detected entries.

;	Word #		Description
;	______		___________
	SN%TSK=0	;PNTR to ASCIZ Task or Module name
			;where error was detected
	SN%ADR=1	;Relative address within task or module
			;ie, PC value - start of module
	SN%UID=2	;PNTR to ASCIZ User ID for whom
			;service was being performed
	SN%STR=3	;ADDRESS OF DATA STRUCTURE BEING MANIPULATED
	SN%ERR=4 	;PNTR to ASCIZ Error text
	SN%ARG=5	;PNTR to block of data to be listed in octal
			;(such as the data value which failed
			;the check)

;***********************************
;	Operator Log Entry
;***********************************


	 SEC%NO=220	;Error File Event Code 

;Words NO%MID thru NO%PTR are identical to NH%MID thru NH%PTR which are
;described above.



;*******
; Log Data Format
;*******


;The log data is the ASCIZ operator message.
;***********************************
;	Network Topology Changes
;***********************************


	 SEC%NT=221	;Error File Event Code 

;Words NT%MID thru NT%PTR are identical to NH%MID thru NH%PTR which are
;described in above


;*******
; Log Data Format
;*******
;
;	Wd 0		New state code 
;	---		--------------
;
;	STATE CODES (From DECNET Event Logging Spec)
;	____________________________________________
;
;	0.	Line or Station up
;	1.	Down due to received CRC,parity, etc errors
;	2.	down due receive timeout errors
;	3.	down due to receive selection errors
;	4.	doWn due to Xmit CRC, parity, etc. errors
;	5.	down due to resource errors
;	6.	down due to other errors(ASCIZ msg SHOULD follow)
;	7.	Placed in Maint. mode 1 by operator
;	8.	Placed in Maint. mode 2 by operator
;	9.	Placed in Maint. mode 3 by operator
;	10.	Placed in Maint. mode 4 by operator
;	11.	Placed in Maint. mode 5 by operator
;	12.	Turned OFF(by operator or by virtue of common carrier
;		disconnect)
;	13.	Node is in shut state
;	14.	Node is up
;	15.	Node is down
;***********************************
;	Node Down Line Load
;***********************************

	SEC%NL=202	;EVENT CODE
		NL%TAR=0	;pntr to ASCIZ name of target node
		NL%SER=1	;PNTR TO ASCIZ NAME OF SERVER NODE
		NL%SLD=2	;PNTR TO ASCIZ SERVER LINE DESIGNATOR
		NL%FIL=3	;PNTR TO ASCIZ NAME OF FILE LOADED
		NL%RTN=4	;RETURN CODE AS DESCRIBED BELOW
				;IN BITS 28-35
			RTN01=1		;SUCCESS
			RTN02=-1	;INVALID FUNCTION OR OPTION
			RTN03=-2	;INVALID MSG FORMAT
			RTN04=-3	;INSUFFICIENT STATUS
			RTN08=-^D8	;INVALID LINE ID
			RTN09=-^D9	;LINE IN WRONG STATE
			RTN10=-^D10	;LINE COMMUNICATIONS ERROR
			RTN11=-^D11	;INVALID NODE ID
			RTN12=-^D12	;INVALID SERVER ID
			RTN13=-^D13	;INVALID FILE
			RTN14=-^D14	;CONFIGURATION DATA BASE ERROR
			RTN15=-^D15	;RESOURCE ERROR
			RTN16=-^D16	;INVALID PARAMETER VALUE
			RTN17=-^D17	;LINE PROTOCOL ERROR
			RTN18=-^D18	;FILE I/O ERROR
			RTN19=-^D19	;NETWORK COMMUNICATIONS ERROR
			RTN20=-^D20	;NO ROOM FOR NEW ENTRY
			RTN21=-^D21	;REMOTE NICE PROCESS NOT AVAIL.
;THESE ARE RETURN CODES SPECIFIED IN NICE PROTOCOL
;VERSION 1.0, BOB STEWART, 28 MARCH 1977
;***********************************
;	Node Up Line Dump
;***********************************

	SEC%ND=203	;EVENT CODE
		ND%TAR=0	;pntr to ASCIZ name of target node
		ND%SER=1	;PNTR TO ASCIZ NAME OF SERVER NODE
		ND%SLD=2	;PNTR TO ASCIZ SERVER LINE DESIGNATOR
		ND%FIL=3	;PNTR TO ASCIZ NAME OF FILE DUMPED
		ND%RTN=4	;RETURN CODE AS DESCRIBED
				;ABOVE

;***********************************
;	Line Statistics Entries
;***********************************


	 SEC%LC=230	;Error File Event Code

;Words LC%MID thru LC%PTR are identical to NH%MID thru NH%PTR which are
;described in Section 3.2.2 with the exception of the definition of LC%RSM


	LC%RSM=13	;REASON FOR ENTRY
			;0 = illegal
			;1 = Sign on
			;2 = Periodic entry
			;3 = Sign off
			;4 = Values not obtained-should be used if
			;problems are encountered attempting to
			;collect the values.

;*******
; Log Data Format
;*******

	;COUNTER TYPES AND TYPE VALUE ARE AS FOLLOWS
	;FORM IS:
	;BITS 0-17=TYPE VALUE AS DESCRIBED BELOW
	;BITS 20-35=COUNT, 1B20=OVERFLOW

		LCTYP0=0	;SECONDS SINCE LAST ZEROED
		LCTYP1=1	;BLOCKS RECEIVED
		LCTYP2=2	;BLOCKS SENT
		LCTYP3=3	;TRANSMITTED CRC,PARITY,ETC ERRORS
		LCTYP4=4	;CRC,PARITY,ETC ERRORS RECEIVED
		LCTYP5=5	;OTHER ERRORS
		LCTYP6=6	;RECEIVE TIME OUTS
		LCTYP7=7	;RECEIVE SELECTION ERRORS
		LCTYP8=^D8	;RESOURCE ERRORS
		LCTYP9=^D9	;NACKS SENT(DDCMP)
		LCTP10=^D10	;NACKS RECD (DDCMP)
;THESE TYPE ASSIGNMENTS ARE FROM DECNET ERROR/EVENT LOGGING SPEC.

;***********************************
;	Node Statistics Entries
;***********************************

	SEC%NC==231	;event code

;Words NC%MID thru NC%PTR are identical to NH%MID thru NH%PTR which are
;described in Section 3.2.2 with the exception of NC%RSM and NC%PTR described below.

	NC%RSM=13	;REASON FOR ENTRY
			;0 = illegal
			;1 = Sign on
			;2 = Periodic entry
			;3 = Sign off
			;4 = Values not obtained-should be used if
			;problems are encountered attempting to
			;collect the values.
	NC%PTR=14	;PNTR TO START OF The counters for
			;this node (the "NC...." values)
	NC%NDP=15	;;pointer to a table of pointers to
			;the destination node counters
			;(the "ND...." values).

;*******
; Log Data Format
;*******

	;COUNTER TYPES AND TYPE VALUE ARE AS FOLLOWS
	;FORM IS:
	;BITS 0-17=TYPE VALUE AS DESCRIBED BELOW
	;BITS 20-35=COUNT, 1B20=OVERFLOW
		NCTYP1=1	;NEGATIVE ACKS REC'D
		NCTYP2=2	;NEGATIVE ACKS SENT
		NCTYP3=3	;EXTRANEOUS MSGS REC'D
		NCTYP4=4	;MSGS RETRANSMITTED
		NCTYP5=5	;MAX LOGICAL LINKS ACTIVE
		NCTYP6=6	;CURRENT LOGICAL LINKS ACTIVE
		NCTYP7=7	;RESOURCE ERRORS
		NCTYP8=^D8	;FORMAT ERRORS, ROUTING DATA
		NCTYP9=^D9	;FORMAT ERRORS,NON-ROUTING DATA
		NCTY10=^D10	;UNKNOWN DEST. NODE
		NCTY11=^D11	;MSG'S ROUTED THROUGH
		NCTY12=^D12	;MSG'S TIMED OUT


;	A table of destination node pointers, one for each block of destination
;	node values. Each has the standard pointer format. The is the table
;	pointed to by NC%NDP.



	;COUNTERS BY DESTINATION NODE
	NDTYP0=0	;DESTINATION NODE ID #
	NDTYP1=1	;USER MSG'S SENT
	NDTYP2=2	;USER MSG'S REC'D
	NDTYP3=3	;CONNECTS INITIATED
	NDTYP4=4	;CONNECTS ACCEPTED
	NDTYP5=5	;SINGLE MSG'S SENT
	NDTYP6=6	;SINGLE MSG'S REC'D
;THESE TYPE ASSIGNMENTS ARE FROM DECNET ERROR/EVENT
;LOGGING SPEC.


;************************************
; DN64 STATISTICS
;************************************

SEC%6S==232
	S6%000==0			;REASON FOR ENTRY
	S6%001==1			;PORT,LINE,DEVICE #'S,DEVICE TYPE
	S6%S00==2			;LINE STATUS BYTES AS DESCRIBED IN DN60
	S6%S01==3	;MAINTENANCE MANUAL(130-952-066-05) ON
				;ON PAGES 18-6&7.  4 BYTES PER WORD
	SUBTTL MORE GENERAL DEFINITIONS

	ER.EOF==777		;DAEMON EOF MARKER CODE
	ER.OFF==775		;DAEMON BLOCK OFFSET MARKER CODE
	ER.HIA==377		;DAEMON FOUND AN ERROR





	;AC CONVENTIONS

	F=0		;FLAG REGISTER

	T1=F+1		;TEMP AC'S
	T2=T1+1
	T3=T2+1
	T4=T3+1

	P1=T4+1		;AC'S PRESERVED ACROSS SUBROUTINE CALLS
	P2=P1+1
	P3=P2+1
	P4=P3+1

	MASTWD=P4+1		;USED FOR WORD RETURNED BY GETWD ROUTINE

	WKINDX=MASTWD+1		;INDEX INTO WORKING BUFFER

	CTINDX=WKINDX+1
	S=CTINDX+1		;SOFTWARE STATUS ERROR REGISTER LIKE CONI WORD FOR SOFTWARE
	P=17
	;STATUS FLAGS IN LH OF F

	F.DATE==400000		;USER HAS TYPED DATE CONSTRAINTS IF NON-ZERO
	F.READ==200000		;WORKING BUFFER IS IN THE PROCESS OF
				;BEING FILLED. EOF IS AN ERROR INDICATION
	F.TTYO==100000		;OUTPUT TO TTY IF NON-ZERO, ELSE TO BUFFER
	F.BTCK==40000		;PERFORM CHECKING ON ENTRY TO DETERMINE
	F.LSUM==20000		;PERFORM SUMMARY LISTING
				;WHETHER TO LIST OR NOT
	F.ONCE==10000		;FLAG SET TO SAY "ONCE-ONLY" CODE DONE
	F.JFFO==4000		;FLAG SET TO SAY TEXT-BIT SEEN IN JFLOOP ROUTINE
	F.DEV==2000		;FLAG SET TO INDICATE USER SPECIFIED /DEV SWITCH
	F.CHNG==1000		;FLAG TO INDICATE SYSTER ERROR COUNTERS HAVE CHANGED
	F.DISK==400		;FLAG SAYING INPUT DEVICE IS DISK
	F.SAWD==200		;FLAG SET TO SAY WE SAY A NON-ZERO DIGIT IN TYPE4 ROUTINE
	F.SRE==100		;FLAG SET TO SAY USER SAID /SRE SWITCH.
	F.SWE==40		; FLAG SET TO SAY USER SAID /SWE.
	F.ID==20		;FLAG SET TO SAY USER SAID /ID:.
	F.STR==10		;USER SAID /STR.
	F.DET==4		;SAID /DETAIL
	F.OSUM==2		;[ 211] NO /MASALL ETC SPECIFIED-USED DEFAULT OF /ALLSUM
	F.TRY==1			;EDIT 126 SAID /RETRY


	;STATUS FLAGS IN RH OF F

	F.NDEV==400000		;[325] USER SAID "/NDEV:"
	F.REM==200000		;[417]USER SAID "/REMOTE:"
	F.SEQ==100000		;[532]"/SEQ:"
	F.NOW==40000		;[700]ON-LINE LOGGING
	F.BRF==20000		;/BRIEF FLAG  [724]
	F.ENT==10000		;[731]/ENTRY:
	;STATUS FLAGS IN LH OF S

	S.SAT==400000		;SAT FAILURE
	S.RIB==200000		;RIB ERROR
	S.CHK==100000		;CHECKSUM ERROR
	S.SINC==40000		;SEEK INCOMPLETE ERROR
	S.HNG1==20000		;NON-RECOVERABLE CONTROLLER HANG
	S.HNG2==10000		;RECOV XFER HANG
	S.HNG3==4000		;RECOV SEEK HANG
	S.HNG4==2000		;RECOV SOFTWARE HANG
	S.CWF==1000		;TERMINATION CONTROL WORD FAILURE EDIT122

	;STATUS FLAGS IN LH OF ENTRY CHARACTERISTICS WORD

	E.LALL==400000		;SAYS LIST THIS ENTRY IN ALL CASES
	E.LNXM==200000		;SAYS LIST THIS ENTRY IF CAUSED BY A NON-EXISTANT MEMORY
	E.LPAR==100000		;SAYS LIST IF CAUSED BY PARITY ERROR
	E.LPER==40000		;SAYS LIST IF PERFORMANCE DATA ENTRY
	E.LSUM==20000		;SAYS DO SUMMATION OF ENTRY
	;STATUS FLAGS IN RH OF ENTRY CHARACTERISTICS WORD
	E.RCNT==777777		;COUNT OF # OF TIMES ENTRY TYPE PROCESSED

	ERRHRD==200000		;BIT IN HDEECT SIGNIFING HARD ERROR IF 1

	;CHANNEL ASSIGNMENTS

	INPCHN==1
	OUTCHN==2

;HERE LIES THE MACRO DEFINITIONS

	OPDEF	PJRST [JRST]


	DEFINE 	FATAL	(A)	<
	JRST	[MOVEI	T1,[ASCIZ/? A
/]
	OUTSTR	[ASCIZ/? A
/]
	CLOSE	OUTCHN	;SAVE GOOD OUTPUT
	EXIT		;SAY GOODNIGHT DICK!
]>

	DEFINE	WARN	(A)	<PUSHJ	P,[
	OUTSTR	[ASCIZ/% A
/]
	POPJ	P,0
]>

	DEFINE	WARN%	(A)	<PUSHJ	P,[
	OUTSTR	[ASCIZ/% A/]
	POPJ	P,0
]>

	DEFINE	WARN.CR	(A)	<PUSHJ	P,[
	OUTSTR	[ASCIZ/A
/]
	POPJ	P,0
]>

	;LOOP DEFINED HERE BUT NEVER CALLED.
	DEFINE	LOOP (A,B) <JRST	[OUTSTR	[ASCIZ/A
/]
	JRST	<B>
]>


	DEFINE	TYPEIT(A)<
	MOVEI	T1,[ASCIZ\A\]
	PUSHJ	P,.TSTRG
>



	DEFINE	SINDEX (A) <
	A==.-SUBTAB
	JRST	<.'A>
>
	;HERE ARE DEFINITIONS, ETC. FOR IPCF & ON-LINE LOGGING SUPPORT

	OPDEF	SKPNOW [TRNN F,F.NOW]	;SKIPS IF DOING ON-LINE LOGGING
	OPDEF	NOTNOW [TRNE F,F.NOW]	;SKIPS IF NOT ONLINE LOGGING
						;NOT MASTER PROCESS

	PIDMAX==5	;#MAX NUMBER OF SLAVE PROCESSES TO SUPPORT
	SUBTTL	ENTRY TABLE DEFINITIONS

	;DUMMY MACROS -- PRIOR TO THE DEFINITION OF THE DUMMY MACROS
	;USED IN THIS PROGRAM A REFRESHER ON DUMMY MACROS MAY BE IN ORDER.
	;	DUMMY MACROS ARE USED TO HOLD SUBMACROS TO BE REDEFINED
	;AS REQUIRED AT A LATER TIME AND THEN CALLED. THE ASSEMBLER REPLACES
	;THE MACRO WITH IT'S SUBMACRO CALLS AND THEN IN TURN GENERATES THE
	;REQUIRED CODE PER THE SUBMACRO DEFINITION.

	;DUMENT -- DUMMY MACRO LEVEL 2
	;SUBMACRO TBLENT
	;ARGS
	;A-ERROR CODE
	;B-ERROR DESCRIPTION
	;C-ENTRY LEVEL CONTROL TABLE ADDRESS (.CTXXX,0)
	;D-ENTRY LEVEL PROCESSOR ADDRESS
	;E-# OF LINES OF OUTPUT GENERATED BY THIS ENTRY EXCLUDING HEADER
	;F-CONTROL TABLE ADDRESS FOR BRIEF OUTPUT
	
;THIS MACRO MUST CONTAIN ALL ERROR CODES WHICH ARE TO BE 
	;HANDLED BY SYSERR.  ERROR CODES ARE IN THE RANGE 000-777
	;WITH THE FOLLOWING CONSTRAINTS:
	;	000-377		RESERVED FOR DEC WITH SYSERR
	;	400-477		RESERVED NON-DEC WITH SYSERR
	;	500-577		RESERVED FOR DEC NON-SYSERR
	;	600-677		RESERVED NON-DEC NON-SYSERR
	;	700-777		RESERVED ALL- ERROR FILE CONTROL
	DEFINE	DUMENT	<
	TBLENT	(0,UNKNOWN,0,DMPENT,40)
	TBLENT	(1,SYSTEM RELOADED,.CT001,PROCSA,20,.BR001)
	TBLENT	(2,NON-RELOAD MONITOR ERROR,.CT002,PROCSB,21,.BR002)
	TBLENT	(3,CPU MEM PAR ERR,.CT003,PROCSA,43,.BR003)
	TBLENT	(4,CPU NXM ERROR,.CT004,PROCSB,43,.BR004)
	TBLENT	(5,INFORMATION EXTRACTED FROM A CRASH,.CT005,PROCSA,30,.BR005)
	TBLENT	(6,DATA CHANNEL ERR,.CT006,PROCSA,20,.BR006)
	TBLENT	(7,DAEMON STARTED,.CT007,PROCSA,3,.BR007)
	TBLENT	(10,DISK UNIT ERROR,.CT010,PROCSA,30,.BR010)
	TBLENT	(11,MASSBUS DEVICE ERROR,.CT011,PROCSB,25,.BR011)
	TBLENT	(15,CONFIGURATION STATUS CHANGE,.CT015,PROCSB,10,.BR015)
	TBLENT	(16,SYSTEM LOG ENTRY,.CT016,PROCSB,10,.BR016)	;[715]
	TBLENT	(17,SOFTWARE REQUESTED DATA,.CT017,PROCSA,20,.BR017)
	TBLENT	(20,MAGTAPE ERROR,.CT020,PROCSA,23,.BR020)
	TBLENT	(21,MAGTAPE SYSTEM ERROR,.CT021,PROCSB,20,.BR021)
	TBLENT	(30,FRONT END DEVICE REPORT,.CT030,PROCSC,10,.BR030)	;[514],[523]
	TBLENT	(31,FRONT END RELOADED,.CT031,PROCSC,20,.BR031)
	TBLENT	(40,DISK STATISTICS,.CT040,PROCSA,40,.BR040)
	TBLENT	(41,MAGTAPE STATISTICS,.CT041,PROCSA,14,.BR041)
	TBLENT	(42,MAGTAPE STATISTICS,.CT042,PROCSB,14,.BR042)
	TBLENT	(50,DL10 COMMUNICATIONS ERROR,.CT050,PROCSB,20,.BR050)
	TBLENT	(60,KL10 DATA PARITY INTERRUPT,.CT060,PROCSC,20,.BR060)
	TBLENT	(61,KL10 DATA PARITY TRAP,.CT061,PROCSC,20,.BR061)
	TBLENT	(62,KL10  DATA PARITY INTERRUPT,.CT062,PROCSC,20,.BR062) ;[614]
	TBLENT	(66,KL10 ADDRESSING FAILURE,.CT066,PROCSC,40,.BR066)
	TBLENT	(67,KL10 ADDRESSING FAILURE,.CT067,PROCSC,40,.BR067)
	TBLENT	(71,LINE PRINTER ERROR,.CT071,PROCSA,10,.BR071)
	TBLENT	(101,TOPS-20 SYSTEM RELOADED,.CT101,PROCSD,15,.BR101)
	TBLENT	(102,TOPS-20 BUGHLT-BUGCHK,.CT102,PROCSD,40,.BR102)	;[763]
	TBLENT	(111,MASSBUS DEVICE ERROR,.CT111,PROCSD,40,.BR111)
	TBLENT	(112,DX20 DEVICE ERROR,.CT112,PROCSD,40,.BR112)
	TBLENT	(130,FRONT END DEVICE REPORT,.CT130,PROCSD,10,.BR130)	;[523]
	TBLENT	(131,FRONT END RELOADED,.CT131,PROCSD,10,.BR131)
	TBLENT	(133,KS10 HALT STATUS BLOCK,.CT133,PROCSD,20,.BR133)	;[756]
	TBLENT	(160,PROCESSOR PARITY TRAP,.CT160,PROCSD,10,.BR160)
	TBLENT	(161,PROCESSOR PARITY INTERRUPT,.CT161,PROCSD,15,.BR161)
	TBLENT	(162,PROCESSOR  PARITY INTERRUPT,.CT162,PROCSD,15,.BR162) ;[614]
	TBLENT	(163,KL CPU STATUS BLOCK,.CT163,PROCSD,50,.BR163) ;[740]
	TBLENT	(201,NETWORK CONTROL UTILITY STARTED,.CT201,PROCSN,10,.BR201)	;[515]
	TBLENT	(202,NETWORK DOWN-LINE LOAD,.CT202,PROCSN,10,.BR202)
	TBLENT	(203,NETWORK UP-LINE DUMP,.CT203,PROCSN,10,.BR203)
	TBLENT	(210,NETWORK HARDWARE ERROR,.CT210,PROCSN,40,.BR210)
	TBLENT	(211,NETWORK SOFTWARE ERROR,.CT211,PROCSN,20,.BR211)
	TBLENT	(220,NETWORK OPR. LOG ENTRY,.CT220,PROCSN,40,.BR220)
	TBLENT	(221,NETWORK TOPOLOGY CHANGE,.CT221,PROCSN,20,.BR221)
	TBLENT	(230,NETWORK LINE STATISTICS,.CT230,PROCSN,10,.BR230)	;[515]
	TBLENT	(231,NETWORK NODE STATISTICS,.CT231,PROCSN,20,.BR231)
	TBLENT	(232,DN64 STATISTICS,.CT232,PROCSN,30,.BR232)		;[520]
>
	SUBTTL	NEW ENTRY PROCESSOR DEFINITION

;	CMDWRD	(EC,CI,<TST>,<DSP>,<FLG>,<WRD>,<TXT>) <

COMMENT	\ CMDWRD - NEW ENTRY PROCESSOR COMMAND FORMAT

EC 	Error Code - 3 digit octal number (001 - 777)
CI 	Command Identifier - 2 unique alpha-numeric characters for this
			      error code
TST 	TeST command - test of effective word with a 2 digit octal value
DSP 	DiSPatch command - command to be executed depending on the
			    result of the test command
FLG 	command FLaGs - carriage control, and text word flags
\
;TEXT OUTPUT FLAGS
  PRE== 00		;output text before executing the dispatch command
  POST==10		;output text after executing the dispatch command
;CARRIAGE CONTROL FLAGS
  CCF0==0		;ALLOW CR at END of this command
  CCF1==1		;ALLOW CR at SPACES or at END in this command
; CCF2==2		;NOT ASSIGNED
; CCF3==3		;NOT ASSIGNED
; CCF4==4		;NOT ASSIGNED
; CCF5==5		;NOT ASSIGNED
  CCF6==6		;CR's or FF's in BUFFER - DON'T CHECK FOR SPACE ON LINE
  CCF7==7		;NO CR allowed in this command
COMMENT	\
WRD 	effective WoRD - argument to test command, and argument passed
			  through dispatch command  (DEFAULTS TO  <-1,-1> )
EFFECTIVE WORD FLAGS
\
; none			;use SUB-TABLE and WORD offsets into WKBUFF
  REG==4		;use a LOWSEG REGister
  BYT==2		;use BYTe pointer on the word
  MSK==1		;MaSK result of word, and BYTe, if set
COMMENT	\TXT 	TeXT string - text string to be output for this command
\
DEFINE	CMDWRD	(EC,CI,TST,DSP,FLG,WRD<-1,-1>,TXT<%NULL%>) <

	SALL

	.XCREF	TSFUNC,TSTVAL,CMDFLG,EFWFLG,SUBOFF,WRDADR
	.XCREF	CMD,EFWRD,TXTADR,DSPADR,WRDBYT,WRDMSK
	CMDFLG==0		;;COMMAND CONTROL FLAGS
	TEST (TST)		;;BUILD THE COMMAND SECTIONS
	DISP (DSP)
	IRP FLG,<CMDFLG==CMDFLG ! FLG>
	WORD (WRD)
	IFIDN <TXT><%NULL%>,<TXTADR==0>
	IFDIF <TXT><%NULL%>,<TXTADR==[ASCIZ\TXT\]>
CMD==	BYTE (3)<TSFUNC>(6)<TSTVAL>(6)<CMDFLG>(3)<EFWFLG>
EFWRD==	<SUBOFF>B26 ! <WRDADR>B35
	XALL
	.XCREF	B'EC'CI		;;STOP SYMBOL FROM GOING INTO THE CREF LIST
B'EC'CI':	CMD ! EFWRD	;;CREATE THIS COMMAND'S ADDRESS & COMMAND WORD
	TXTADR,,DSPADR		;;CREATE ADDRESS WORD
	IFN WRDBYT,<WRDBYT>	;;CREATE BYTE POINTER WORD IF NOT 0
	IFN WRDMSK,<WRDMSK>	;;CREATE MASK WORD IF NOT 0
	SALL
>
COMMENT	\ TEST - BUILDS THE TEST PORTION OF THE NEW COMMAND PROCESSOR
		  executes the dispatch portion of the command if the
		  comparison between the effective word and VAL
		  according to FUNC is satisfied  (i.e. <IFLQ,27> means
		  IF effective word is Less than or eQual to 27, execute
		  the dispatch command otherwise go to the next command)

FUNC 	test FUNCtion - test function to be done 
VAL 	VALue - 2 octal digits to be compared to the effective word
\
;DEFINITION OF AVAILABLE FUNCTIONS
ALWAYS==0			;ALWAYS EXECUTE COMMAND
IFLT==1				;IF EFFECTIVE WORD LESS THAN VAL
IFLQ==2				;IF EFFECTIVE WORD LESS OR EQUAL TO VAL
IFEQ==3				;IF EFFECTIVE WORD EQUAL TO VAL
IFNE==4				;IF EFFECTIVE WORD NOT EQUAL TO VAL
IFGQ==5				;IF EFFECTIVE WORD GREATER OR EQUAL VAL
IFGT==6				;IF EFFECTIVE WORD GREATER THAN VAL
NEVER==7			;IGNORE COMMAND

DEFINE	TEST (FUNC,VAL) <
	TSFUNC==FUNC
	TSTVAL==VAL
>
COMMENT	\ DISP - BUILDS THE EXECUTE PORTION OF THE NEW COMMAND PROCESSOR
		  executed if the test portion of the command is
		   satisfied

FUNC 	dispatch FUNCtion - dispatch function to be done 
X	address of processing routine for a DO function
	error code of next command to be executed for a XFR function
	text translation argument for a TRANSL function
Y	command identifier of next command to be executed for a XFR
	 function - not used for DO or TRANSL functions
\
;DEFINITION OF AVAILABLE FUNCTIONS
  DO==00			;EXECUTE ROUTINE AT 'X'
  XFR==20			;TRANSFER CONTROL TO 'EC,CI'
  TRANSL==40			;TRANSLATE BITS TO TEXT USING TRANSLATION 'X'
; unused==60			;NOT USED

DEFINE	DISP (FUNC,X,Y) <
	DSPADR==0
	CMDFLG==CMDFLG ! FUNC
	IFIDN <FUNC><DO>,<DSPADR==X>
	IFIDN <FUNC><XFR>,<DSPADR==B'X'Y>
	IFIDN <FUNC><TRANSL>,<DSPADR==X>
>
COMMENT	\ WORD - BUILDS THE EFFECTIVE WORD

ARGUMENT DEFINITIONS
  WRD1	offset in WKBUFF to SUB-TABLE pointer,
	or "REG" for LOWSEG REGister
  WDR2	offset in WKBUFF or SUB-TABLE to word,
	or LOWSEG REGister name if "REG" was specified in WRD1,
	or "BYT" if a BYTe pointer is too be used
  WRD3	BYTe pointer if "BYT" was specified in WRD2  (i.e. <POINT 5,MB%TYP,35>),
	or 36 bit mask if "BYT" was not specified and a mask is to be used,
	otherwise not used
  WRD4	36 bit mask if "BYT" was specified and a mask is to be used,
	otherwise not used
\
DEFINE	WORD (WRD1,WRD2,WRD3,WRD4) < ;;DEFAULTS TO  (-1,-1) IF NOT GIVEN
	EFWFLG==0
	WRDBYT==0
	WRDMSK==0
	IFDIF <WRD1><REG>,<	;;TAKE EFFECTIVE WORD FROM "WKBUFF"
		SUBOFF==WRD1 & 777
	>
	IFIDN <WRD1><REG>,<	;;TAKE EFFECTIVE WORD FROM LOWSEG REGISTER
		SUBOFF==0
		EFWFLG==EFWFLG ! REG
	>
	IFDIF <WRD2><BYT>,<	;;USE A FULL 36 BIT WORD
		WRDADR==WRD2 & 777777
		IFNB <WRD3>,<	;;USE A MASK ON THE WORD
			WRDMSK==WRD3
			EFWFLG==EFWFLG ! MSK
		>
	>
	IFIDN <WRD2><BYT>,<	;;USE A BYTE POINTER ON THE WORD
		WRDADR==0
		WRDBYT==WRD3'(P2) ;;USES P2 AS AN INDEX REGISTER
		EFWFLG==EFWFLG ! BYT
		IFNB <WRD4>,<	;;USE A MASK ON THE WORD
			WRDMSK==WRD4
			EFWFLG==EFWFLG ! MSK
		>
	>
>
	SUBTTL	TOPS-10 PROCESS TABLE DEFINITIONS

	;DUM001 -- DUMMY MACRO LEVEL 2
	;SUBMACRO TBLWRD
	;ARGS
	;A-ERROR CODE
	;B-LOCATION OF AOBJ POINTER IN ENTRY WITH REFERENCE TO WORD 0 OF BODY OF ENTRY
	;C-OFFSET OF WORD IN BODY OF ENTRY OR WITH RESPECT TO AOBJ POINTER
	;	IF C ABOVE IS NOT 0
	;D-WORD LEVEL PROCESSOR TYPE
	;E-OREDR OF LISTING
	;F-ASCIZ TEXT TO TYPEOUT OR ADDRESS OF SPECIAL ROUTINE IF D= SPECL

DEFINE	DUM001 <
	TBLWRD	(1,0,WHYFG0,ASCIE,1,<CONFIGURATION INFORMATION
	SYSTEM	NAME:		>)
	TBLWRD	(1,0,WHYDT0,ASCIE,2,<	MONITOR BUILT ON:	>)
	TBLWRD	(1,0,WHYSER,DECML,3,<	CPU SERIAL #:		>)
	TBLWRD	(1,0,WHYSTS,HAFWD,4,<	STATES WORD:		>)
	TBLWRD	(1,0,WHYVER,SPECL,5,<MONVER>)
	TBLWRD	(1,0,WHYWHY,SIXBT,6,<
RELOAD BREAKDOWN
	CAUSE:			>)
	TBLWRD	(1,WHACOM,0,ASCIE,7,<	COMMENTS		>)
	TBLWRD	(1,0,WHYKPG,SPECL,8,<MEMLST>)
>
DEFINE	BRF001 <
	CMDWRD (001,AA,,,,<-1,-1>,< TOPS-10 SYSTEM RELOADED >)
	CMDWRD (001,ZZ,,<DO,ABORT>)
>

DEFINE	DUM002 <
	TBLWRD	(2,0,MSEFGO,ASCIE,1,<	SYSTEM NAME:	>)
	TBLWRD	(2,0,MSESER,DECML,2,<	SYSTEM SERIAL #:	>)
	TBLWRD	(2,0,MSEDT0,ASCIE,3,<	MONITOR DATE:	>)
	TBLWRD	(2,0,MSEVER,SPECL,4,<MONVER>)
	TBLWRD	(2,0,MSENDS,SPECL,5,<MSEJOB>)
	TBLWRD	(2,0,MSESJN,DECML,6,<		JOB #:	>)
	TBLWRD	(2,0,MSENAM,PPNWW,7,<		USER'S ID:	>)
	TBLWRD	(2,0,MSESTN,SIXBT,8,<		TTY NAME:	>)
	TBLWRD	(2,0,MSESPN,SIXBT,9,<		PROGRAM NAME:	>)
	TBLWRD	(2,0,MSEA00,SPECL,10,<MSEDET>)
>
DEFINE	BRF002 <
	CMDWRD (002,AA,,,,<-1,-1>,< TOPS-10 MONITOR DETECTED ERROR >)
	CMDWRD (002,ZZ,,<DO,ABORT>)
>
DEFINE	DUM003 <
	TBLWRD	(3,0,MPEPHY,SIXBT,1,<PARITY ERROR TOTALS FOR >)
	TBLWRD	(3,0,MPETPE,DECML,2,<	REPRODUCIBLE:		>)
	TBLWRD	(3,0,MPESPE,DECML,3,<	NON-REPRODUCIBLE:	>)
	TBLWRD	(3,MPAPAR,MPEUEP,DECML,4,<	USER ENABLED:		>)
	TBLWRD	(3,MPAPAR,MPEPSC,DECML,5,<	CORE SWEEPS:		>)
	TBLWRD	(3,MPAPAR,MPEPCS,DECML,6,<	DETECTED BY DATA
	 CHANNEL BUT NOT
	 SEEN BY CPU:		>)
	TBLWRD	(3,0,MPEMPC,DECML,7,<	OPR CONTINUES AFTER PE OR NXM:	>)
	TBLWRD	(3,0,MPEMPA,HAFWD,8,<
INFORMATION FROM LAST CORE SWEEP
	PHYSICAL ADD OF PE:	>)
	TBLWRD	(3,MPAPAR,MPEMPR,HAFWD,9,<	RELATIVE ADD OF PE:	>)
	TBLWRD	(3,0,MPEMPW,HAFWD,10,<	CONTENTS OF BAD WORD:	>)
	TBLWRD	(3,MPAPAR,MPELPA,HAFWD,11,<	PHYSICAL ADD OF LAST
	 PE SEEN DURING SWEEP:	>)
	TBLWRD	(3,0,MPEMPP,HAFWD,12,<	PC WORD AT TIME OF PE:	>)
	TBLWRD	(3,MPAPAR,MPEPTS,DECML,13,<	# PE SEEN ON THIS SWEEP:>)
	TBLWRD	(3,MPAPAR,MPEPAA,HAFWD,14,<
BOOLEAN ERROR COMPARISONS
	"AND" OF PE ADDRESSES:	>)
	TBLWRD	(3,MPAPAR,MPEPOA,HAFWD,15,<	"OR" OF PE ADDRESSES:	>)
	TBLWRD	(3,MPAPAR,MPEPAC,HAFWD,16,<	"AND" OF WORD CONTENTS:	>)
	TBLWRD	(3,MPAPAR,MPEPOC,HAFWD,17,<	"OR" OF WORD CONTENTS:	>)
	TBLWRD	(3,0,MPEPPN,PPNWW,18,<	USERS ID AT FAILURE:	>)
	TBLWRD	(3,0,MPEJOB,SIXBT,19,<	USERS PGM AT FAILURE:	>)
	TBLWRD	(3,MPAMPT,0,SPECL,20,<BADADD>)
>
DEFINE	BRF003 <
	CMDWRD (003,AA,,,,<-1,-1>,< MEMORY PARITY ERROR >)
	CMDWRD (003,ZZ,,<DO,ABORT>)
>
DEFINE	DUM004 <
	TBLWRD	(04,0,NXMPHY,SIXBT,1,<NXM ERROR TOTALS FOR >)
	TBLWRD	(04,0,NXMTNE,DECML,2,<	REPRODUCIBLE:		>)
	TBLWRD	(04,0,NXMSNE,DECML,3,<	NON-REPRODUCIBLE:	>)
	TBLWRD	(04,0,NXMUEN,DECML,4,<	USER ENABLED:		>)
	TBLWRD	(04,0,NXMNSC,DECML,5,<	CORE SWEEPS:		>)
	TBLWRD	(04,0,NXMNCS,DECML,6,<	DETECTED BY DATA
	 CHANNEL BUT NOT
	 SEEN BY CPU:		>)
	TBLWRD	(04,0,NXMMNA,HAFWD,7,<
INFORMATION FROM LAST CORE SWEEP
	PHYSICAL ADD OF NXM:	>)
	TBLWRD	(04,0,NXMMNR,HAFWD,8,<	RELATIVE ADD OF NXM:	>)
	TBLWRD	(04,0,NXMLNA,HAFWD,9,<	PHYSICAL ADD OF LAST
	 NXM SEEN DURING SWEEP:	>)
	TBLWRD	(04,0,NXMMPP,HAFWD,10,<	PC WORD AT TIME OF NXM:	>)
	TBLWRD	(04,0,NXMPPN,PPNWW,11,<	USERS ID AT FAILURE:	>)
	TBLWRD	(04,0,NXMJOB,SIXBT,12,<	USERS PGM AT FAILURE:	>)
	TBLWRD	(04,0,NXMNTS,DECML,13,<	# NXM SEEN ON THIS SWEEP:>)
	TBLWRD	(04,0,NXMNJA,DECML,14,<	# JOBS AFFECTED BY THIS NXM:	>)
	TBLWRD	(04,0,NXMNAA,HAFWD,15,<
BOOLEAN ERROR COMPARISONS
	"AND" OF NXM ADDRESSES:	>)
	TBLWRD	(04,0,NXMNOA,HAFWD,16,<	"OR" OF NXM ADDRESSES:	>)
	TBLWRD	(04,NXMADR,0,SPECL,17,<BADADD>)
	TBLWRD	(04,0,NXMKPG,SPECL,18,<NXMLST>)
>
DEFINE	BRF004 <
	CMDWRD (004,AA,,,,<-1,-1>,< NXM ERROR >)
	CMDWRD (004,ZZ,,<DO,ABORT>)
>

DEFINE	DUM005 <
	TBLWRD	(5,0,CINSTR,SIXBT,1,<CRASH.EXE READ FROM:	>)
	TBLWRD	(5,0,CINSEC,DECML,2,<SYSTEM WIDE ERROR COUNT:	>)
	TBLWRD	(5,0,CINPTR,SPECL,3,<CINLST>)
>
DEFINE	BRF005 <
	CMDWRD (005,AA,,,,<-1,-1>,< INFO EXTRACTED FROM CRASH >)
	CMDWRD (005,ZZ,,<DO,ABORT>)
>
DEFINE	DUM006 <
	TBLWRD	(6,0,CPENXM,DECML,1,<DATA CHANNEL ERROR TOTALS
	NXM'S AND OVERRUNS:	>)
	TBLWRD	(6,0,CPEMPE,DECML,2,<	MEM PE SEEN BY CHANNEL:	>)
	TBLWRD	(6,0,CPEDPE,DECML,3,<	CONTROLLER DATA PE
	OR CCW TERM CHK FAILS:	>)
	TBLWRD	(6,0,CPENAM,SIXBT,4,<
CHANNEL COMMAND LIST BREAKDOWN
	DEVICE	USING CHANNEL:	>)
	TBLWRD	(6,0,CPEICW,HAFWD,5,<	INITIAL CONTROL WORD:	>)
	TBLWRD	(6,0,CPEFCW,HAFWD,6,<	TERMINATION WD WRITTEN:	>)
	TBLWRD	(6,0,CPEETW,HAFWD,7,<	EXPECTED TERM. WORD:	>)
	TBLWRD	(6,0,CPECW2,SPECL,8,<CHNDCD>)
	TBLWRD	(6,0,CPEDW2,HAFWD,9,<	3RD FROM LAST DATA WORD:>)
	TBLWRD	(6,0,CPEDW1,HAFWD,10,<	2ND FROM LAST DATA WORD:>)
	TBLWRD	(6,0,CPEDW0,HAFWD,11,<	LAST DATA WORD XFERRED:	>)
>
DEFINE	BRF006 <
	CMDWRD (006,AA,,,,<-1,-1>,< DATA CHANNEL ERROR >)
	CMDWRD (006,ZZ,,<DO,ABORT>)
>

DEFINE	DUM007 <
	TBLWRD	(7,0,DSTVER,SPECL,0,<DAEVER>)
>
DEFINE	BRF007 <
	CMDWRD (007,AA,,,,<-1,-1>,< DAEMON STARTED >)
	CMDWRD (007,ZZ,,<DO,ABORT>)
>

DEFINE	DUM010 <
	TBLWRD	(10,0,HDENAM,SIXBT,1,<DISK PARAMETERS
	UNIT NAME:		>)
	TBLWRD	(10,0,HDEHID,SIXBT,2,<	PACK IDENTIFICATION:	>)
	TBLWRD	(10,0,HDELOG,SIXBT,3,<	STR IDENTIFICATION:	>)
	TBLWRD	(10,0,HDEDCR,SPECL,4,<ERDIAG>)
	TBLWRD	(10,0,HDEHCT,SPECL,5,<HARDER>)
	TBLWRD	(10,0,HDESCT,SPECL,6,<SOFTER>)
	TBLWRD	(10,0,HDEPCT,SPECL,7,<SEKINC>)
	TBLWRD	(10,0,HDEMCT,SPECL,8,<SOFDET>)
	TBLWRD	(10,0,HDEHNG,SPECL,9,<SOFHNG>)
	TBLWRD	(10,0,HDEHBN,SPECL,10,<LBNDCD>)
	TBLWRD	(10,0,HDESOF,SPECL,11,<CN1DCD>)
	TBLWRD	(10,0,HDEERR,SPECL,12,<CN2DCD>)		;EDIT #103
	TBLWRD	(10,0,HDESDI,HAFWD,13,<	DATAI AT ERROR TIME:	>)
	TBLWRD	(10,0,HDEHDI,HAFWD,14,<	DATAI AT RECAL TIME:	>)
	TBLWRD	(10,0,HDEECT,SPECL,15,<RETRYS>)
	TBLWRD	(10,0,HDETRC,SPECL,16,<DISKPR>)
>
DEFINE	BRF010 <
	CMDWRD (010,AA,,,,<-1,-1>,< DISK UNIT ERROR >)
	CMDWRD (010,ZZ,,<DO,ABORT>)
>
DEFINE	DUM011 <
	TBLWRD	(11,0,MDENAM,SIXBT,1,<	UNIT ID:	>)
	TBLWRD	(11,0,MDEDDT,SPECL,2,<MDELST>)
>
DEFINE	BRF011 <
	CMDWRD (011,AA,,,,<-1,-1>,< MASSBUS UNIT ERROR >)
	CMDWRD (011,ZZ,,<DO,ABORT>)
>

DEFINE	DUM015 <
	TBLWRD	(15,0,CSCSTS,SPECL,0,<CSCLST>)
>
DEFINE	BRF015 <
	CMDWRD (015,AA,,,,<-1,-1>,< CONFIG. CHANGE >)
	CMDWRD (015,ZZ,,<DO,ABORT>)
>

DEFINE	DUM016 <	;;ADDED WITH [715]
	TBLWRD	(16,0,SLMTTY,HAFWD,1,<ENTRY CREATED BY:
	JOB #, TTY #:	>)
	TBLWRD	(16,0,SLMPPN,PPNWW,2,<	P,PN:	>)
	TBLWRD	(16,0,SLMWHO,SIXBT,3,<	"-WHO:"	>)
	TBLWRD	(16,0,SLMDEV,SIXBT,4,<	"-DEV:"	>)
	TBLWRD	(16,0,SLMPTR,TASCI,5,<	MESSAGE:	>)
>
DEFINE	BRF016 <
	CMDWRD (016,AA,,,,<-1,-1>,< SYSTEM LOG MSG. >)
	CMDWRD (016,ZZ,,<DO,ABORT>)
>

DEFINE	DUM017 <
	TBLWRD	(17,0,DEBPTR,SPECL,1,<DEBLST>)
>
DEFINE	BRF017 <
	CMDWRD (017,AA,,,,<-1,-1>,< SOFTWARE DEBUG DATA >)
	CMDWRD (017,ZZ,,<DO,ABORT>)
>

DEFINE	DUM020 <
	TBLWRD	(20,0,MAGNAM,SIXBT,1,<MAGTAPE PARAMETERS
	UNIT NAME:                 >)
	TBLWRD	(20,0,MAGRID,SIXBT,2,<	REEL IDENTIFICATION:       >)
	TBLWRD	(20,0,MAGMED,SPECL,3,<TMEA>)
>
DEFINE	BRF020 <
	CMDWRD (020,AA,,,,<-1,-1>,<  MAGTAPE UNIT ERROR >)
	CMDWRD (020,ZZ,,<DO,ABORT>)
>
DEFINE	DUM021 <
	TBLWRD	(21,0,TAPNAM,SIXBT,01,<
	UNIT NAME:	>)
	TBLWRD	(21,0,TAPTRY,SPECL,02,<TAPLST>)
>
DEFINE	BRF021 <
	CMDWRD (021,AA,,,,<-1,-1>,< MAGTAPE UNIT ERROR >)
	CMDWRD (021,ZZ,,<DO,ABORT>)
>

DEFINE	DUM030 <
	TBLWRD	(030,0,FE%COD,SPECL,1,<FE%KLI>)		;[514]
	TBLWRD	(030,0,FE%DTE,HAFWD,2,<	CPU #,DTE #:		>)
	TBLWRD	(030,0,FE%VER,DECML,3,<	FE SOFTWARE VER:	>)
	TBLWRD	(030,0,FE%COD,SPECL,7,<FE%001>)
>
DEFINE	BRF030 <
	CMDWRD (030,AA,,,,<-1,-1>,< FRONT END DEVICE ERROR >)
	CMDWRD (030,ZZ,,<DO,ABORT>)
>

DEFINE	DUM031 <
	TBLWRD	(031,0,R1%NUM,SPECL,1,<R1%000>)
>
DEFINE	BRF031 <
	CMDWRD (031,AA,,,,<-1,-1>,< FRONT END RELOAD >)
	CMDWRD (031,ZZ,,<DO,ABORT>)
>

DEFINE	DUM040 <
	TBLWRD	(40,0,USCNAM,SIXBT,1,<DISK PARAMETERS
	UNIT	NAME:		>)
	TBLWRD	(40,0,USCHID,SIXBT,2,<	PACK IDENTIFICATION:	>)
	TBLWRD	(40,0,USCHCT,SPECL,3,<HARDER>)
	TBLWRD	(40,0,USCSCT,SPECL,4,<SOFTER>)
	TBLWRD	(40,0,USCMCT,SPECL,5,<SOFDET>)
	TBLWRD	(40,0,USCHNG,SPECL,6,<SOFHNG>)
	TBLWRD	(40,0,USCPCT,DECML,7,<	SEEK INCOMPLETES:	>)
	TBLWRD	(40,0,USCBRC,DECML,8,<
DISK PERFORMANCE TOTALS
	BUFFERRED READS:	>)
	TBLWRD	(40,0,USCBWC,DECML,9,<	BUFFERRED WRITES:	>)
	TBLWRD	(40,0,USCDRC,DECML,10,<	DUMP READS:		>)
	TBLWRD	(40,0,USCDWC,DECML,11,<	DUMP WRITES:		>)
	TBLWRD	(40,0,USCMRC,DECML,12,<	MONITOR READS:		>)
	TBLWRD	(40,0,USCMWC,DECML,13,<	MONITOR WRITES:		>)
	TBLWRD	(40,0,USCICT,DECML,14,<	SWAP READS:		>)
	TBLWRD	(40,0,USCOCT,DECML,15,<	SWAP WRITES:		>)
	TBLWRD	(40,0,USCMSC,DECML,16,<	MONITOR SEEKS:		>)
	TBLWRD	(40,0,USCUSC,DECML,17,<	USER SEEKS:		>)
>
DEFINE	BRF040 <
	CMDWRD (040,AA,,,,<-1,-1>,< DISK STATISTICS >)
	CMDWRD (040,ZZ,,<DO,ABORT>)
>
DEFINE	DUM041 <
	TBLWRD	(41,0,MSCNAM,SIXBT,1,<MAGTAPE STATISTICS
	UNIT NAME:               >)
	TBLWRD	(41,0,MSCRID,SIXBT,2,<	REEL IDENTIFICATION:     >)
	TBLWRD	(41,0,MSCPPN,HAFWD,3,<	USER'S P,PN:             >)
	TBLWRD	(41,0,MSCWRC,DECML,4,<	WORDS READ:              >)
	TBLWRD	(41,0,MSCWWC,DECML,5,<	WORDS WRITTEN:           >)
	TBLWRD	(41,0,MSCSRE,DECML,6,<	SOFT READ ERRORS:        >)
	TBLWRD	(41,0,MSCHRE,DECML,7,<	HARD READ ERRORS:        >)
	TBLWRD	(41,0,MSCSWE,DECML,8,<	SOFT WRITE ERRORS:       >)
	TBLWRD	(41,0,MSCHWE,DECML,9,<	HARD WRITE ERRORS:       >)
>
DEFINE	BRF041 <
	CMDWRD (041,AA,,,,<-1,-1>,< MAGTAPE STATISTICS>)
	CMDWRD (041,ZZ,,<DO,ABORT>)
>

DEFINE	DUM042 <
	TBLWRD	(42,0,TPSNAM,SIXBT,1,<MAGTAPE STATISTICS
	UNIT NAME:               >)
	TBLWRD	(42,0,TPSRID,SIXBT,2,<	REEL IDENTIFICATION:     >)
	TBLWRD	(42,0,TPSPPN,HAFWD,3,<	USER'S P,PN:             >)
	TBLWRD	(42,0,TPSWRC,DECML,4,<	CHARS READ:              >)
	TBLWRD	(42,0,TPSWWC,DECML,5,<	CHARS WRITTEN:           >)
	TBLWRD	(42,0,TPSSRE,DECML,6,<	SOFT READ ERRORS:        >)
	TBLWRD	(42,0,TPSHRE,DECML,7,<	HARD READ ERRORS:        >)
	TBLWRD	(42,0,TPSSWE,DECML,8,<	SOFT WRITE ERRORS:       >)
	TBLWRD	(42,0,TPSHWE,DECML,9,<	HARD WRITE ERRORS:       >)
>
DEFINE	BRF042 <
	CMDWRD (042,AA,,,,<-1,-1>,< MAGTAPE STATISTICS >)
	CMDWRD (042,ZZ,,<DO,ABORT>)
>

DEFINE	DUM050 <
	TBLWRD	(50,0,DLEPRT,SPECL,1,<DLELST>)
	TBLWRD	(50,0,DLEPGM,SIXBT,2,<	11 PROGRAM NAME:	>)
	TBLWRD	(50,0,DLECNI,SPECL,3,<DLEDCD>)
	TBLWRD	(50,0,DLECN0,HAFWD,4,<	CONI DLB (R=0):	>)
	TBLWRD	(50,0,DLECN1,HAFWD,5,<	CONI DLB (R=1):	>)
	TBLWRD	(50,0,DLECN2,HAFWD,6,<	CONI DLB (R=2):	>)
	TBLWRD	(50,0,DLECN3,HAFWD,7,<	CONI DLB (R=3):	>)
	TBLWRD	(50,0,DLEDT1,HAFWD,8,<	DATAI DLB (R=1)(MB):	>)
	TBLWRD	(50,0,DLEERR,SPECL,9,<DLELEI>)
>
DEFINE	BRF050 <
	CMDWRD (050,AA,,,,<-1,-1>,< DUMB IDEA THAT NEVER WORKED >)
	CMDWRD (050,ZZ,,<DO,ABORT>)
>
DEFINE	DUM060 <
	TBLWRD	(60,0,KDINAM,SIXBT,1,<DATA PARITY CORE SWEEP TOTALS FOR >)
	TBLWRD	(60,0,KDITPE,DECML,2,<	REPRODUCIBLE:	>)
	TBLWRD	(60,0,KDISPE,DECML,3,<	NON-REPRODUCIBLE:	>)
	TBLWRD	(60,KDIPAR,MPEUEP,DECML,4,<	USER ENABLED:	>)
	TBLWRD	(60,KDIPAR,MPEPSC,DECML,5,<	CORE SWEEPS:	>)
	TBLWRD	(60,KDIPAR,MPEPCS,DECML,6,<	DETECTED BY DATA
	 CHANNEL BUT NOT
	 BY CPU:		>)
	TBLWRD	(60,KDIPAR,MPEPTS,DECML,7,<SWEEP INFORMATION:
	ERRORS DETECTED:	>)
	TBLWRD	(60,KDIPAR,MPEPAA,HAFWD,8,<	LOGICAL "AND" OF BAD
	 PHYSICAL ADDRESSES:	>)
	TBLWRD	(60,KDIPAR,MPEPOA,HAFWD,9,<	LOGICAL "OR" OF BAD
	 PHYSICAL ADDRESSES:	>)
	TBLWRD	(60,KDIPAR,MPEPAC,HAFWD,10,<	LOGICAL "AND" OF BAD DATA:	>)
	TBLWRD	(60,KDIPAR,MPEPOC,HAFWD,11,<	LOGICAL "OR" OF BAD DATA:	>)
	TBLWRD	(60,0,KDIPPN,PPNWW,12,<	USER'S ID AT FAILURE:	>)
	TBLWRD	(60,0,KDIPGM,SIXBT,13,<	USER'S PROGRAM:		>)
	TBLWRD	(60,0,KDICNI,SPECL,14,<KDILST>)
	TBLWRD	(60,0,KDISBD,SPECL,15,<KDILSA>)
>
DEFINE	BRF060 <
	CMDWRD (060,AA,,,,<-1,-1>,< PARITY INTERRUPT >)
	CMDWRD (060,ZZ,,<DO,ABORT>)
>

DEFINE	DUM061 <
	TBLWRD	(61,0,KDTPFW,SPECL,1,<KDTLST>)
	TBLWRD	(61,0,KDTTRE,DECML,2,<	TOTAL COUNT OF RECOVERABLE
	 TRAP DETECTED ERRORS:	>)
	TBLWRD	(61,0,KDTNRE,DECML,3,<	TOTAL COUNT OF NON-RECOVERABLE
	 TRAP DETECTED ERRORS:	>)
>
DEFINE	BRF061 <
	CMDWRD (061,AA,,,,<-1,-1>,< PARITY TRAP >)
	CMDWRD (061,ZZ,,<DO,ABORT>)
>
DEFINE	DUM062 <	;;CODE 62 USES THE SAME PROCESS TABLE AS CODE 60  [614]
	TBLWRD	(62,0,MDTNAM,SIXBT,1,<DATA PARITY CORE SWEEP TOTALS FOR >)
	TBLWRD	(62,0,MDTTPE,DECML,2,<	REPRODUCIBLE:	>)
	TBLWRD	(62,0,MDTSPE,DECML,3,<	NON-REPRODUCIBLE:	>)
	TBLWRD	(62,MDTPAR,MPEUEP,DECML,4,<	USER ENABLED:	>)
	TBLWRD	(62,MDTPAR,MPEPSC,DECML,5,<	CORE SWEEPS:	>)
	TBLWRD	(62,MDTPAR,MPEPCS,DECML,6,<	DETECTED BY DATA
	 CHANNEL BUT NOT
	 BY CPU:		>)
	TBLWRD	(62,MDTPAR,MPEPTS,DECML,7,<SWEEP INFORMATION:
	ERRORS DETECTED:	>)
	TBLWRD	(62,MDTPAR,MPEPAA,HAFWD,8,<	LOGICAL "AND" OF BAD
	 PHYSICAL ADDRESSES:	>)
	TBLWRD	(62,MDTPAR,MPEPOA,HAFWD,9,<	LOGICAL "OR" OF BAD
	 PHYSICAL ADDRESSES:	>)
	TBLWRD	(62,MDTPAR,MPEPAC,HAFWD,10,<	LOGICAL "AND" OF BAD DATA:	>)
	TBLWRD	(62,MDTPAR,MPEPOC,HAFWD,11,<	LOGICAL "OR" OF BAD DATA:	>)
	TBLWRD	(62,0,MDTPPN,PPNWW,12,<	USER'S ID AT FAILURE:	>)
	TBLWRD	(62,0,MDTPGM,SIXBT,13,<	USER'S PROGRAM:		>)
	TBLWRD	(62,0,MDTCNI,SPECL,14,<MDTLST>)
	TBLWRD	(62,0,MDTSBD,SPECL,15,<SBUSFN>)
>
DEFINE	BRF062 <
	CMDWRD (062,AA,,,,<-1,-1>,<  PARITY INTERRUPT >)
	CMDWRD (062,ZZ,,<DO,ABORT>)
>

DEFINE	DUM066 <
	TBLWRD	(66,0,KAENAM,SIXBT,1,< ERROR TOTALS FOR >)
	TBLWRD	(66,0,KAETNE,DECML,2,<	REPRODUCIBLE:	>)
	TBLWRD	(66,0,KAESNE,DECML,3,<	NON-REPRODUCIBLE:	>)
	TBLWRD	(66,0,KAENSC,DECML,4,<	CORE SWEEPS:	>)
	TBLWRD	(66,0,KAENCS,DECML,5,<	DETECTED BY DATA
	 CHANNEL BUT NOT
	 BY CPU:	>)
	TBLWRD	(66,0,KAENTS,DECML,6,<SWEEP INFORMATION:
	ERRORS DETECTED:	>)
	TBLWRD	(66,0,KAENAA,OCTLE,7,<	LOGICAL "AND" OF BAD
	PHYSICAL ADDRESSES:	>)
	TBLWRD	(66,0,KAENOA,OCTLE,8,<	LOGICAL "OR" OF BAD
	PHYSICAL ADDRESSES:	>)
	TBLWRD	(66,0,KAEPPN,PPNWW,9,<	USER'S ID AT FAILURE:	>)
	TBLWRD	(66,0,KAEPGM,SIXBT,10,<	USER'S PROGRAM:		>)
	TBLWRD	(66,0,KAENAM,SPECL,10,<KAELST>)
	TBLWRD	(66,0,KAESBD,SPECL,11,<SBUSFN>)
	TBLWRD	(66,KAEADR,0,SPECL,12,<BADADD>)
	TBLWRD	(66,0,KAEKPG,SPECL,13,<KAELSA>)
>
DEFINE	BRF066 <
	CMDWRD (066,AA,,,,<-1,-1>,< KL ADDRESSING ERROR >)
	CMDWRD (066,ZZ,,<DO,ABORT>)
>
DEFINE	DUM067 <
	TBLWRD	(67,0,KAENAM,SIXBT,1,< ERROR TOTALS FOR >)
	TBLWRD	(67,0,KAETNE,DECML,2,<	REPRODUCIBLE:	>)
	TBLWRD	(67,0,KAESNE,DECML,3,<	NON-REPRODUCIBLE:	>)
	TBLWRD	(67,0,KAENSC,DECML,4,<	CORE SWEEPS:	>)
	TBLWRD	(67,0,KAENCS,DECML,5,<	DETECTED BY DATA
	 CHANNEL BUT NOT
	 BY CPU:	>)
	TBLWRD	(67,0,KAENTS,DECML,6,<SWEEP INFORMATION:
	ERRORS DETECTED:	>)
	TBLWRD	(67,0,KAENAA,OCTLE,7,<	LOGICAL "AND" OF BAD
	PHYSICAL ADDRESSES:	>)
	TBLWRD	(67,0,KAENOA,OCTLE,8,<	LOGICAL "OR" OF BAD
	PHYSICAL ADDRESSES:	>)
	TBLWRD	(67,0,KAEPPN,PPNWW,9,<	USER'S ID AT FAILURE:	>)
	TBLWRD	(67,0,KAEPGM,SIXBT,10,<	USER'S PROGRAM:		>)
	TBLWRD	(67,0,KDINAM,SPECL,10,<KAELST>)
	TBLWRD	(67,0,KAESBD,SPECL,11,<KDILSA>)
	TBLWRD	(67,KAEADR,0,SPECL,12,<BADADD>)
	TBLWRD	(67,0,KAEKPG,SPECL,13,<KAELSA>)
>
DEFINE	BRF067 <
	CMDWRD (067,AA,,,,<-1,-1>,< KL ADDRESSING ERROR >)
	CMDWRD (067,ZZ,,<DO,ABORT>)
>

DEFINE	DUM071 <	;;ER.LPT==71
	TBLWRD	(71,0,LPTNAM,SIXBT,1,<
	UNIT NAME:	>)
	TBLWRD	(71,0,LPTTYP,SPECL,2,<LPTLST>)
>
DEFINE	BRF071 <
	CMDWRD (071,AA,,,,<-1,-1>,< LPT ERROR >)
	CMDWRD (071,ZZ,,<DO,ABORT>)
>
	SUBTTL	TOPS-20 PROCESS TABLE DEFINITIONS

DEFINE	DUM101 <
	TBLWRD	(101,0,RL%SVN,TASCI,1,<CONFIGURATION INFORMATION
	SYSTEM NAME:	>)
	TBLWRD	(101,0,RL%STD,UDATE,2,<	MONITOR BUILT ON:	>)
	TBLWRD	(101,0,RL%SER,DECML,3,<	CPU SERIAL #:		>)
	TBLWRD	(101,0,RL%VER,SPECL,4,<MN2VER>)
	TBLWRD	(101,0,RL%HLT,SPECL,5,<RL%001>)
>
DEFINE	BRF101 <
	CMDWRD (101,00,,<DO,PTSTRG>,,<-1,RL%SVN>,< RELOAD OF >)
	CMDWRD (101,01,,<DO,.TVERW>,,<-1,RL%VER>,< VERSION >)
	CMDWRD (101,02,,<DO,GETNBS>,,<-1,RL%STD>,< BUILT ON >)
	CMDWRD (101,03,,<DO,PTSTRG>,,<-1,RL%OPR>,< REASON >)
	CMDWRD (101,04,,<DO,ABORT>)
>

DEFINE	DUM102 <
	TBLWRD	(102,0,BG%DAT,UDATE,5,<
ERROR INFORMATION:
	DATE-TIME OF ERROR:	>)
	TBLWRD	(102,0,BG%CNT,DECML,6,<	# OF ERRORS SINCE RELOAD:	>)
	TBLWRD	(102,0,BG%JOB,HAFWD,7,<	FORK # & JOB #:		>)
	TBLWRD	(102,0,BG%USR,PPNWT,8,<	USER'S LOGGED IN DIR:	>)
	TBLWRD	(102,0,BG%PNM,SIXBT,9,<	PROGRAM NAME:		>)
	TBLWRD	(102,0,BG%FLG,SPECL,10,<BG%001>)
	TBLWRD	(102,0,BG%ERG,SPECL,11,<BG%002>)	;;  [763]
>
DEFINE	BRF102 <
	CMDWRD (102,A0,<IFEQ,BG%CHK>,<XFR,102,B0>,,<-1,BG%FLG>,< BUGCHK >)
	CMDWRD (102,A1,<IFEQ,BG%INF>,<XFR,102,B0>,,<-1,BG%FLG>,< BUGINF >)
	CMDWRD (102,A2,<IFEQ,BG%HLT>,<XFR,102,B0>,,<-1,BG%FLG>,< BUGHLT >)
	CMDWRD (102,B0,,<DO,.TSIXN>,,<-1,BG%NAM>)
	CMDWRD (102,B1,,<DO,GETNBS>,,<-1,BG%DAT>,< AT >)
	CMDWRD (102,B2,<IFNE>,<DO,.TDIRW>,<CCF0>,<-1,BG%USR>,< USER >)
	CMDWRD (102,B3,<IFNE>,<DO,.TSIXN>,,<-1,BG%PNM>,< RUNNING >)
	CMDWRD (102,B4,,<DO,.TXWDW>,,<-1,BG%APS>,< CONI APR= >)
	CMDWRD (102,B5,,<DO,.TXWDW>,,<-1,BG%PGS>,< CONI PAG= >)
	CMDWRD (102,C0,IFNE,<XFR,102,Z0>,,<REG,KSMON>)	;;  [763]
	CMDWRD (102,C1,,<DO,.TXWDW>,,<-1,BG%ERG>,< ERA= >)	;;  [763]
	CMDWRD (102,Z0,,<DO,ABORT>)
>
DEFINE	DUM111 <	;;MASSBUS DEVICE ERRORS CODE 111
	TBLWRD	(111,0,MB%NAM,SIXBT,1,<	UNIT NAME:	>)
	TBLWRD	(111,0,MB%TYP,SPECL,2,<MB%000>)	;UNIT TYPE & S/N
	TBLWRD	(111,0,MB%VID,SIXBT,3,<	VOLUME ID:	>)
	TBLWRD	(111,0,MB%LOC,SPECL,4,<MB%001>)
;	TBLWRD	(111,0,MB%USR,PPNWT,5,<	USER'S LOGGED IN DIR:	>)
;	TBLWRD	(111,0,MB%PGM,SIXBT,6,<	USER'S PGM:		>)
;	TBLWRD	(111,0,MB%FIL,TASCI,7,<	USER'S FILE:		>)
	TBLWRD	(111,0,MB%FES,HAFWD,8,<	FINAL ERROR STATUS:	>)
	TBLWRD	(111,0,MB%FEC,SPECL,9,<MB%004>)
	TBLWRD	(111,0,MB%CNI,SPECL,10,<MB%002>)
;STOP USING PROCESS TABLE HERE FOR RH11
	TBLWRD	(111,0,MB%D1I,HAFWD,11,<	DATAI PTCR AT ERROR:	>)
	TBLWRD	(111,0,MB%D1F,HAFWD,12,<	DATAI PTCR AT END:	>)
	TBLWRD	(111,0,MB%D2I,HAFWD,13,<	DATAI PBAR AT ERROR:	>)
	TBLWRD	(111,0,MB%D2F,HAFWD,14,<	DATAI PBAR AT END:	>)
	TBLWRD	(111,0,MB%CS0,SPECL,15,<MB%003>)
>
DEFINE	BRF111 <		;;EDIT  [727]
	CMDWRD (111,00,,<DO,.TSIXN>,POST,<-1,MB%NAM>)
	CMDWRD (111,01,IFNE,<DO,.TSIXN>,POST,<-1,MB%VID>,<:>)
	CMDWRD (111,02,,<DO,DRVTYP>,POST)
	CMDWRD (111,03,IFNE,<DO,DSERCD>,,<-1,MB%REG+10>,< SERIAL # >)
	CMDWRD (111,04,<IFEQ,1>,<XFR,111,10>,,<-1,BYT,MB.CHN>)
	CMDWRD (111,05,<IFEQ,2>,<XFR,111,20>,,<-1,BYT,MB.CHN>)
	CMDWRD (111,06,<IFEQ,3>,<XFR,111,30>,,<-1,BYT,MB.CHN>)
	CMDWRD (111,07,,<DO,ABORT>,,<-1,-1>,< UNKNOWN CTRLR TYPE >)

	CMDWRD (111,10,,<DO,.TXWDW>,,<-1,MB%CNI>,< CONI RH= >)
	CMDWRD (111,11,,<XFR,111,40>)

	CMDWRD (111,20,,<DO,.TXWDW>,,<-1,MB%CNI>,< CONI RH= >)
	CMDWRD (111,21,,<DO,.TXWDW>,,<-1,MB%CS1>,< CHN STS= >)
	CMDWRD (111,22,,<XFR,111,40>)

	CMDWRD (111,30,,<DO,.TXWDW>,,<-1,BYT,<POINT 18,MB%S1I,35>>,< RPCS1= >)
	CMDWRD (111,31,,<DO,.TXWDW>,,<-1,BYT,<POINT 18,MB%S2I,35>>,< RPCS2= >)
	CMDWRD (111,32,,<XFR,111,40>)

	CMDWRD (111,40,,<DO,.TXWDW>,,<-1,BYT,<POINT 18,MB%REG+1,35>>,< SR= >)
	CMDWRD (111,41,,<DO,.TXWDW>,,<-1,BYT,<POINT 18,MB%REG+2,35>>,< ER= >)
	CMDWRD (111,42,,<DO,BLKTRN>,,<-1,MB%LOC>)
	CMDWRD (111,43,,<DO,ABORT>)
>

DEFINE	DUM112 <	;;DX20 DEVICE ERRORS, CODE 112
	TBLWRD	(112,0,DX%NAM,SIXBT,1,<	UNIT NAME:	>)
	TBLWRD	(112,0,DX%TYP,SPECL,2,<DX%000>)
	TBLWRD	(112,0,DX%VID,SIXBT,3,<	VOLUME ID:	>)
	TBLWRD	(112,0,DX%LOC,SPECL,4,<DX%001>)
	TBLWRD	(112,0,DX%USR,PPNWT,5,<	USER'S LOGGED IN DIR:	>)
	TBLWRD	(112,0,DX%PGM,SIXBT,6,<	USER'S PGM:		>)
	TBLWRD	(112,0,DX%FIL,TASCI,7,<	USER'S FILE:		>)
	TBLWRD	(112,0,DX%FES,HAFWD,8,<	FINAL ERROR STATUS:	>)
	TBLWRD	(112,0,DX%FEC,SPECL,9,<DX%004>)
	TBLWRD	(112,0,DX%CNI,SPECL,10,<DX%002>)
	TBLWRD	(112,0,DX%D1I,HAFWD,11,<	DATAI PTCR AT ERROR:	>)
	TBLWRD	(112,0,DX%D1F,HAFWD,12,<	DATAI PTCR AT END:	>)
	TBLWRD	(112,0,DX%D2I,HAFWD,13,<	DATAI PBAR AT ERROR:	>)
	TBLWRD	(112,0,DX%D2F,HAFWD,14,<	DATAI PBAR AT END:	>)
	TBLWRD	(112,0,DX%CS0,SPECL,15,<DX%003>)
>
DEFINE	BRF112 <
	CMDWRD (112,A0,,<DO,.TSIXN>,POST,<-1,DX%NAM>)
	CMDWRD (112,A1,IFNE,<DO,.TSIXN>,POST,<-1,DX%VID>,<:>)
	CMDWRD (112,A2,,<DO,DRVTYP>,POST)
	CMDWRD (112,A3,,<DO,.TXWDW>,,<-1,DX%CNI>,< CONI=>)
	CMDWRD (112,A4,,<DO,.TXWDW>,,<-1,DX%CS1>,< CHN STS 1=>)
	CMDWRD (112,A5,,<DO,.TXWDW>,,<DX%MBR,BYT,<POINT 18,DM%SR,35>>,< SR=>)
	CMDWRD (112,A6,,<DO,.TXWDW>,,<DX%MBR,BYT,<POINT 18,DM%ER,35>>,< ER=>)
	CMDWRD (112,B0,,,,<-1,-1>,< SENSE BYTES 0-3:>)
	CMDWRD (112,B1,,<DO,.TOCTW>,,<DX%DVL,BYT,<POINT 8,DT%SBA,9>>,< >)
	CMDWRD (112,B2,,<DO,.TOCTW>,,<DX%DVL,BYT,<POINT 8,DT%SBA,17>>,< >)
	CMDWRD (112,B3,,<DO,.TOCTW>,,<DX%DVL,BYT,<POINT 8,DT%SBA,27>>,< >)
	CMDWRD (112,B4,,<DO,.TOCTW>,,<DX%DVL,BYT,<POINT 8,DT%SBA,35>>,< >)
	CMDWRD (112,C0,,<DO,BLKTRN>,,<-1,DX%LOC>)
	CMDWRD (112,ZZ,,<DO,ABORT>)
>
DEFINE	DUM130 <
	TBLWRD	(130,0,FE%COD,SPECL,1,<FE%KLI>)		;[514]
	TBLWRD	(130,0,FE%DTE,DECML,2,<	DTE20 #:		>)
	TBLWRD	(130,0,FE%VER,DECML,3,<	FE SOFTWARE VER:	>)
	TBLWRD	(130,0,FE%COD,SPECL,7,<FE%001>)
>
DEFINE	BRF130 <
	CMDWRD (130,A1,IFLQ,<XFR,130,Z3>,,<-1,BYT,FE.DEV>)
	CMDWRD (130,A2,<IFGT,.FEFE>,<XFR,130,K1>,,<-1,BYT,FE.DEV>)
	CMDWRD (130,B1,,<DO,FE%DEV>,POST,<-1,BYT,FE.DEV>)
	CMDWRD (130,B2,,<DO,.TOCTW>,,<-1,BYT,FE.DVN>,< #>)
	CMDWRD (130,B3,,<DO,.TOCTW>,,<FE%OFF,BYT,<POINT 16,0,15>>,< STD STAT=>)
	CMDWRD (130,B4,<IFEQ,.FELP20>,<XFR,130,C1>,,<-1,BYT,FE.DEV>)
	CMDWRD (130,B5,<IFNE,.FECD20>,<XFR,130,Z1>,,<-1,BYT,FE.DEV>)
	CMDWRD (130,C1,,<DO,.TOCTW>,,<FE%OFF,BYT,<POINT 16,0,31>>,< GEN STAT=>)
	CMDWRD (130,C2,,<DO,ABORT>)
	CMDWRD (130,K1,<IFNE,.KLCPU>,<XFR,130,L1>,,<-1,BYT,FE.DEV,77>)
	CMDWRD (130,K2,,<DO,.TOCTW>,,<FE%OFF,BYT,<POINT 16,0,15>>,< KLCPU STD STAT=>)
	CMDWRD (130,K3,,<DO,.TOCTW>,,<FE%OFF,BYT,<POINT 16,0,31>>,< RELOAD STAT=>)
	CMDWRD (130,K4,,<DO,ABORT>)
	CMDWRD (130,L1,<IFNE,.KLERR>,<XFR,130,M1>,,<-1,BYT,FE.DEV,77>)
	CMDWRD (130,L2,,,,<-1,-1>,< KLERR>)
	CMDWRD (130,L3,IFNE,<DO,KR%ECD>,CCF1,<REG,KLEFIL+KR.ECD>)
	CMDWRD (130,L4,,<DO,ABORT>)
	CMDWRD (130,M1,<IFNE,.KLINK>,<XFR,130,Z3>,,<-1,BYT,FE.DEV,77>)
	CMDWRD (130,M2,,<DO,FE.KLI>,,<FE%OFF,BYT,K.LTYP>,< KLINIK >)
	CMDWRD (130,Z1,,<DO,ABORT>)
	CMDWRD (130,Z3,,<DO,.TOCTW>,CCF1,<-1,BYT,FE.DEV>,< ILLEGAL FRONT END DEVICE TYPE >)
	CMDWRD (130,Z4,,<DO,ABORT>)
>

DEFINE	DUM131 <
	TBLWRD	(131,0,R1%NUM,SPECL,1,<R1%000>)
	TBLWRD	(131,0,R1%FNM,TASCI,2,<	FILENAME FOR DUMP:	>)
>
DEFINE	BRF131 <
	CMDWRD (131,00,,<DO,.TOCTW>,,<-1,R1%NUM>,< FRONT END RELOAD ON PDP11 #>)
	CMDWRD (131,01,,<DO,.TXWDW>,,<-1,R1%STS>,< RELOAD STATUS,,RETRIES >)
	CMDWRD (131,02,<IFEQ,1>,<DO,ABORT>,,<-1,BYT,<POINT 8,R1%ERW,17>>)
	CMDWRD (131,03,,<DO,T11ACI>,,<-1,R1%ERW>,< PDP11 HALT CODE >)
	CMDWRD (131,04,,<DO,ABORT>)
>

DEFINE	DUM133 <
	TBLWRD	(133,0,HS%COD,OCTLE,1,<HALT STATUS CODE:	>)
	TBLWRD	(133,0,HS%HPC,OCTLE,2,<PROGRAM  COUNTER:	>)
	TBLWRD	(133,HS%PTR,HS%MAG,HAFWD,3,<HALT STATUS BLOCK
	MAG:	>)
	TBLWRD	(133,HS%PTR,HS%PC,HAFWD,4,<	PC:	>)
	TBLWRD	(133,HS%PTR,HS%HR,HAFWD,5,<	HR:	>)
	TBLWRD	(133,HS%PTR,HS%AR,HAFWD,6,<	AR:	>)
	TBLWRD	(133,HS%PTR,HS%ARX,HAFWD,7,<	ARX:	>)
	TBLWRD	(133,HS%PTR,HS%BR,HAFWD,8,<	BR:	>)
	TBLWRD	(133,HS%PTR,HS%BRX,HAFWD,9,<	BRX:	>)
	TBLWRD	(133,HS%PTR,HS%ONE,HAFWD,10,<	ONE:	>)
	TBLWRD	(133,HS%PTR,HS%EBR,HAFWD,11,<	EBR:	>)
	TBLWRD	(133,HS%PTR,HS%UBR,HAFWD,12,<	UBR:	>)
	TBLWRD	(133,HS%PTR,HS%MSK,HAFWD,13,<	MASK:	>)
	TBLWRD	(133,HS%PTR,HS%FLG,HAFWD,14,<	MC STAT,,PFW:	>)
	TBLWRD	(133,HS%PTR,HS%PI,HAFWD,15,<	PI STATUS:	>)
	TBLWRD	(133,HS%PTR,HS%X1,HAFWD,16,<	XWD1:	>)
	TBLWRD	(133,HS%PTR,HS%T0,HAFWD,17,<	T0:	>)
	TBLWRD	(133,HS%PTR,HS%T1,HAFWD,18,<	T1:	>)
	TBLWRD	(133,HS%PTR,HS%VMA,HAFWD,19,<	VMA:	>)	;;  [761]
>
DEFINE	BRF133 <
	CMDWRD (133,A0,,<DO,.TOCTW>,,<-1,HS%COD>,< HALT STATUS CODE=>)
	CMDWRD (133,B1,,<DO,.TXWDW>,,<HS%PTR,HS%PC>,< PC=>)
	CMDWRD (133,B2,,<DO,.TXWDW>,,<HS%PTR,HS%EBR>,< EBR=>)
	CMDWRD (133,B3,,<DO,.TXWDW>,,<HS%PTR,HS%UBR>,< UBR=>)
	CMDWRD (133,B4,,<DO,.TOCTW>,,<HS%PTR,BYT,<POINT 18,HS%FLG,17>>,< MC STAT=>)
	CMDWRD (133,B5,,<DO,.TOCTW>,,<HS%PTR,HS%FLG,<0,,777777>>,< PFW=>)
	CMDWRD (133,B6,,<DO,.TXWDW>,,<HS%PTR,HS%PI>,< PI=>)
	CMDWRD (133,B7,,<DO,.TXWDW>,,<HS%PTR,HS%VMA>,< VMA=>)	;;  [761]
	CMDWRD (133,Z0,,<DO,ABORT>)
>

DEFINE	DUM160 <
	TBLWRD	(160,0,PT%PFW,SPECL,1,<PT%001>)
	TBLWRD	(160,0,PT%JOB,HAFWD,2,<
	FORK #  & JOB #:		>)
	TBLWRD	(160,0,PT%USR,PPNWT,3,<	USER'S LOGGED IN DIR:	>)
	TBLWRD	(160,0,PT%PGM,SIXBT,4,<	PROGRAM NAME:		>)
>
DEFINE	BRF160 <
	CMDWRD (160,00,,<DO,.TXWDW>,,<-1,PT%PFW>,< PARITY TRAP  PAGE FAIL WORD;>)
	CMDWRD (160,01,,<DO,.TXWDW>,,<-1,PT%PMA>,< PHYSICAL MEMORY ADDRESS;>)
	CMDWRD (160,02,,<DO,.TXWDW>,,<-1,PT%TRY>,< FAILURE TYPE,,RETIRES;>)
	CMDWRD (160,03,,<DO,ABORT>)
>
DEFINE	DUM161 <
	TBLWRD	(161,0,PI%CNI,SPECL,1,<PI%001>)
	TBLWRD	(161,0,PI%ERA,SPECL,2,<PI%01A>)	;;  [763]
	TBLWRD	(161,0,PI%FPC,OCTLE,3,<	PC AT INTERRUPT:	>)
	TBLWRD	(161,0,PI%SWP,DECML,4,<	# ERRORS ON THIS SWEEP	>)
	TBLWRD	(161,0,PI%AAD,HAFWD,5,<	LOGICAL AND OF
	BAD ADDRESSES:	>)
	TBLWRD	(161,0,PI%OAD,HAFWD,6,<	LOGICAL OR OF
	BAD ADDRESSES:	>)
	TBLWRD	(161,0,PI%ADA,HAFWD,7,<	LOGICAL AND OF 
	BAD DATA:	>)
	TBLWRD	(161,0,PI%ODA,HAFWD,8,<	LOGICAL OR OF
	BAD DATA:	>)
	TBLWRD	(161,0,PI%SBD,SPECL,9,<PI%005>)
	TBLWRD	(161,0,PI%DAT,SPECL,10,<PI%002>)
>
DEFINE	BRF161 <
	CMDWRD (161,00,,<DO,.TXWDW>,,<-1,PI%CNI>,< PARITY INTERRUPT-CONI APR;>)
	CMDWRD (161,01,,<DO,.TXWDW>,,<-1,PI%ERA>,< ERA;>)
	CMDWRD (161,02,,<DO,.TXWDW>,,<-1,PI%FPC>,< PC AT INTERRUPT;>)
	CMDWRD (161,03,,<DO,.ODECW>,,<-1,PI%SWP>,< # OF ERRORS;>)
	CMDWRD (161,04,,<DO,ABORT>)
>

DEFINE	DUM162 <	;;NEW MEMORY PARITY ENTRY - OBSOLETES 161 ENTRY  [614]
	TBLWRD	(162,0,MP%CNI,SPECL,1,<MP%001>)
	TBLWRD	(162,0,MP%ERA,SPECL,2,<MP%01A>)	;;  [763]
	TBLWRD	(162,0,MP%PCF,OCTLE,3,<	PC FLAGS AT INTERRUPT:	>)
	TBLWRD	(162,0,MP%IPC,OCTLE,4,<	PC AT INTERRUPT:	>)
	TBLWRD	(162,0,MP%SWP,DECML,5,<	# ERRORS ON THIS SWEEP	>)
	TBLWRD	(162,0,MP%AAD,HAFWD,6,<	LOGICAL AND OF
	BAD ADDRESSES:	>)
	TBLWRD	(162,0,MP%OAD,HAFWD,7,<	LOGICAL OR OF
	BAD ADDRESSES:	>)
	TBLWRD	(162,0,MP%ADA,HAFWD,8,<	LOGICAL AND OF 
	BAD DATA:	>)
	TBLWRD	(162,0,MP%ODA,HAFWD,9,<	LOGICAL OR OF
	BAD DATA:	>)
	TBLWRD	(162,0,MP%SBD,SPECL,10,<SBUSFN>)
	TBLWRD	(162,0,MP%DAT,SPECL,11,<MP%002>)
>
DEFINE	BRF162 <
	CMDWRD (162,00,,<DO,.TXWDW>,,<-1,MP%CNI>,< PARITY INTERRUPT-CONI APR;>)
	CMDWRD (162,01,,<DO,.TXWDW>,,<-1,MP%ERA>,< ERA;>)
	CMDWRD (162,02,,<DO,.TXWDW>,,<-1,MP%IPC>,< PC AT INTERRUPT;>)
	CMDWRD (162,03,,<DO,.ODECW>,,<-1,MP%SWP>,< # OF ERRORS;>)
	CMDWRD (162,04,,<DO,ABORT>)
>
;KL CPU STATUS BLOCK [740]
DEFINE	DUM163 <
	TBLWRD	(163,0,SB%API,HAFWD,1,<APRID = >)
	TBLWRD	(163,0,SB%APR,HAFWD,2,<CONI APR = >)
	TBLWRD	(163,0,SB%ERA,HAFWD,3,<RDERA = >)
	TBLWRD	(163,0,SB%PIC,HAFWD,4,<CONI PI = >)
	TBLWRD	(163,0,SB%PGD,HAFWD,5,<DATAI PAG = >)
	TBLWRD	(163,0,SB%PGC,HAFWD,6,<CONI PAG = >)
	TBLWRD	(163,0,SB%RHC,SPECL,7,<SB000A>)
	TBLWRD	(163,0,SB%SBD,SPECL,8,<SB000B>)	
	>

DEFINE BRF163 <
	CMDWRD	(163,00,,,,<-1,-1>,< KL CPU STATUS BLOCK >)
	CMDWRD	(163,01,,<DO,.TXWDW>,,<-1,SB%API>,< APRID = >)
	CMDWRD	(163,02,,<DO,.TXWDW>,,<-1,SB%APR>,< CONI APR = >)
	CMDWRD	(163,03,,<DO,.TXWDW>,,<-1,SB%ERA>,< RDERA = >)
	CMDWRD	(163,04,,<DO,.TXWDW>,,<-1,SB%PGC>,< CONI PAG = >)
	CMDWRD	(163,05,,<DO,.TXWDW>,,<-1,SB%PGD>,< DATAI PAG = >)
	CMDWRD	(163,06,,<DO,ABORT>)
	>
;CONTROL UTILITY STARTED
DEFINE	DUM201 <
	TBLWRD	(201,0,NS%PGM,TASCI,1,<	PROGRAM NAME:		>)
	TBLWRD	(201,0,NS%VER,SPECL,2,<NCUVER>)
	TBLWRD	(201,0,NS%NAM,TASCI,3,<	NODE NAME:		>)
>
DEFINE	BRF201 <
	CMDWRD (201,00,,,,<-1,-1>,< NCU STARTED >)
	CMDWRD (201,01,<IFNE,0>,<DO,PTSTRG>,,<-1,NS%PGM>,<PROGRAM: >)
	CMDWRD (201,02,,<DO,.TVERW>,,<-1,NS%VER>,< VER:>)
	CMDWRD (201,03,,<DO,PTSTRG>,,<-1,NS%NAM>,< STARTED ON NODE >)
	CMDWRD (201,04,,<DO,ABORT>)
>
;DOWN LINE LOAD

DEFINE	DUM202 <
	TBLWRD	(202,0,NL%TAR,TASCI,1,<	TARGET NODE NAME:	>)
	TBLWRD	(202,0,NL%SER,TASCI,2,<	SERVER NODE NAME:	>)
	TBLWRD	(202,0,NL%SLD,TASCI,3,<	SERVER LINE DESIG.:	>)
	TBLWRD	(202,0,NL%FIL,TASCI,4,<	FILE NAME LOADED:	>)
	TBLWRD	(202,0,NL%RTN,SPECL,5,<NL$RTN>)
>
DEFINE	BRF202 <
	CMDWRD (202,00,,<DO,PTSTRG>,,<-1,NL%TAR>,< DOWN-LINE LOAD OF NODE >)
	CMDWRD (202,01,,<DO,PTSTRG>,,<-1,NL%SER>,< BY NODE >)
	CMDWRD (202,02,,<DO,PTSTRG>,,<-1,NL%SLD>,< LINE DESIGNATION >)
	CMDWRD (202,03,,<DO,PTSTRG>,,<-1,NL%FIL>,< FILE LOADED >)
	CMDWRD (202,04,,<DO,NL$RTN>,,<-1,NL%RTN>)
	CMDWRD (202,05,,<DO,ABORT>)
>

;UP LINE DUMP
DEFINE	DUM203 <
	TBLWRD	(203,0,ND%TAR,TASCI,1,<	TARGET NODE NAME:	>)
	TBLWRD	(203,0,ND%SER,TASCI,2,<	SERVER NODE NAME:	>)
	TBLWRD	(203,0,ND%SLD,TASCI,3,<	SERVER LINE DESIG.:	>)
	TBLWRD	(203,0,ND%FIL,TASCI,4,<	FILE NAME DUMPED:	>)
	TBLWRD	(203,0,ND%RTN,SPECL,5,<NL$RTN>)
>
DEFINE	BRF203 <
	CMDWRD (203,00,,<DO,PTSTRG>,,<-1,ND%TAR>,< UP-LINE DUMP OF NODE >)
	CMDWRD (203,01,,<DO,PTSTRG>,,<-1,ND%SER>,< BY NODE >)
	CMDWRD (203,02,,<DO,PTSTRG>,,<-1,ND%SLD>,< LINE DESIGNATION >)
	CMDWRD (203,03,,<DO,PTSTRG>,,<-1,ND%FIL>,< FILE DUMPED TO >)
	CMDWRD (203,04,,<DO,NL$RTN>,,<-1,ND%RTN>)
	CMDWRD (203,05,,<DO,ABORT>)
>

;NETWORK HARDWARE ENTRY
DEFINE	DUM210 <
	TBLWRD	(210,0,NH%MID,SPECL,1,<NETHDR>)
>
DEFINE	BRF210 <
	CMDWRD (210,AA,,,,<-1,-1>,< NETWORK HARDWARE ERROR >)
	CMDWRD (210,ZZ,,<DO,ABORT>)
>
;NETWORK SOFTWARE ERROR

DEFINE	DUM211 <
	TBLWRD	(211,0,NH%MID,SPECL,1,<NETHDR>)
>
DEFINE	BRF211 <
	CMDWRD (211,AA,,,,<-1,-1>,< NETWORK SOFTWARE ERROR >)
	CMDWRD (211,ZZ,,<DO,ABORT>)
>
;OPERATOR TEXT
DEFINE	DUM220 <
	TBLWRD	(220,0,NH%MID,SPECL,1,<NETHDR>)
	TBLWRD	(220,0,NH%PTR,SPECL,2,<NETOPR>)
>
DEFINE	BRF220 <
	CMDWRD (220,AA,,,,<-1,-1>,< NETWORK OPR LOG >)
	CMDWRD (220,ZZ,,<DO,ABORT>)
>
;TOPOLOGY CHANGE

DEFINE	DUM221 <
	TBLWRD	(221,0,NH%MID,SPECL,1,<NETHDR>)
	TBLWRD	(221,0,NH%PTR,SPECL,2,<NETTOP>)
>
DEFINE	BRF221 <
	CMDWRD (221,AA,,,,<-1,-1>,< NETWORK TOPOLOGY CHANGE >)
	CMDWRD (221,ZZ,,<DO,ABORT>)
>

;LINE STATISTICS
DEFINE	DUM230 <
	TBLWRD	(230,0,NH%MID,SPECL,1,<NETHDR>)
	TBLWRD	(230,0,LC%RSM,SPECL,2,<LC$CNT>)
>
DEFINE	BRF230 <
	CMDWRD (230,AA,,,,<-1,-1>,< NETWORK LINE COUNTERS >)
	CMDWRD	(230,BB,<IFNE,-1>,<DO,NETLID>,,<-1,NH%FUN>,< FOR LINE >)
	CMDWRD	(230,CC,<IFNE,-1>,<DO,LC$3ER>,,<-1,NH%PTR>,< LINE ERROR RETRANS >)
	CMDWRD	(230,DD,<IFNE,-1>,<DO,LC$4ER>,,<-1,NH%PTR>,< RECV LINE ERRORS >)
	CMDWRD (230,ZZ,,<DO,ABORT>)
>

;NODE STATISTICS
DEFINE	DUM231 <
	TBLWRD	(231,0,NH%MID,SPECL,1,<NETHDR>)
	TBLWRD	(231,0,NC%RSM,SPECL,2,<NC$CNT>)
>
DEFINE	BRF231 <
	CMDWRD (231,AA,,,,<-1,-1>,< NETWORK NODE COUNTERS >)
	CMDWRD (231,ZZ,,<DO,ABORT>)
>

;DN64 STATISTICS
DEFINE	DUM232 <
	TBLWRD	(232,0,S6%000,SPECL,1,<S6%LST>)
>
DEFINE	BRF232 <
	CMDWRD (232,00,<IFEQ,1>,<XFR,232,10>,,<-1,S6%000>,< DN64 SIGNED ON>)
	CMDWRD (232,01,<IFEQ,2>,<XFR,232,10>,,<-1,S6%000>,< DN64 SIGNED OFF>)
	CMDWRD (232,02,<IFEQ,3>,<XFR,232,10>,,<-1,S6%000>,< DN64 HOURLY CHECK>)
	CMDWRD (233,03,<IFGQ,4>,<XFR,232,10>,,<-1,S6%000>,< DN64 UNKNOWN ENTRY>)
	CMDWRD (232,10,,<DO,S6%LNT>,,<-1,S6%001>)
	CMDWRD (232,11,,<DO,ABORT>)
>
	SUBTTL	SWITCH DEFINITIONS

	;DUMCH1 -- DUMMY MACRO LEVEL 2
	;SUBMACRO TBLCH1
	;ARGS
	;A-SWITCH ASSOCIATED WITH ENTRY
	;B-ERROR CODES TO ALWAYS LIST IF THIS SWITCH SEEN
	;C-ERROR CODES TO LIST IF CAUSED BY NXM
	;D-ERROR CODES TO LIST IF CAUSED BY PARITY ERROR
	;E-ERROR CODES TO LIST IF CAUSED BY PERFORMANCE REPORTS
	;F-ERROR CODES TO SUMMATE IF SWITCH SEEN
	;G-RELATIVE POSITION OF LINE IN THIS TABLE



	DEFINE	DUMCH1<
	TBLCH1	(ALL,<1,2,3,4,5,6,7,10,11,15,16,17,20,21,30,31,40,41,42,50,60,61,62,66,67,71,101,102,111,112,130,131,133,160,161,162,163,201,202,203,230,232>,0,0,0,<1,2,3,4,5,6,7,10,11,15,16,17,20,21,30,31,40,41,42,50,60,61,62,66,67,71,101,102,111,112,130,131,133,160,161,162,163,201,202,203,230,232>,0); [740]
	TBLCH1	(ALLNXM,0,<4,6,111,112,66,67>,0,0,0,1)
	TBLCH1	(ALLPAR,<3,60,61,62,66,67,111,112,160,161,162>,0,6,0,0,2)
	TBLCH1	(ALLPER,<1,2,5,7,15,17,31,40,41,42,101,102,131,232>,0,0,0,0,3)
	TBLCH1	(ALLSUM,0,0,0,0,<1,2,3,4,5,6,7,10,11,15,17,20,21,30,31,40,41,42,50,60,61,62,66,67,71,101,102,111,112,130,131,133,160,161,162,232>,4)
	TBLCH1	(CHNALL,6,0,0,0,6,5)
	TBLCH1	(CHNNXM,0,6,0,0,0,6)
	TBLCH1	(CHNPAR,0,0,6,0,0,7)
	TBLCH1	(CHNSUM,0,0,0,0,6,8)
	TBLCH1	(CPUALL,<1,2,3,4,5,7,15,17,30,31,60,61,62,66,67,101,102,130,131,133,160,161,162,163>,0,0,0,<1,2,3,4,5,7,15,17,30,31,60,61,62,66,67,101,102,130,131,133,160,161,162,163>,9) ;[740]
	TBLCH1	(CPUPAR,<3,60,61,62,66,67,160,161,162>,0,0,0,0,10); [740]
	TBLCH1	(CPUPER,<1,2,5,7,15,17,31,101,102,131,133,163>,0,0,0,0,11) ;[740]
	TBLCH1	(CPUSUM,0,0,0,0,<1,2,3,4,5,7,15,17,30,31,60,61,62,66,67,101,102,130,131,133,160>,12)
	TBLCH1	(DSKALL,<10,40>,0,0,0,<10,40>,13)
	TBLCH1	(DSKPAR,0,0,10,0,0,14)
	TBLCH1	(DSKPER,40,0,0,0,0,15)
	TBLCH1	(DSKSUM,0,0,0,0,<10,40>,16)
	TBLCH1	(MAGALL,<20,21,41,42>,0,0,0,<20,21,41,42>,17)
	TBLCH1	(MAGPAR,0,0,<20,21>,0,0,18)
	TBLCH1	(MAGPER,<41,42>,0,0,0,0,19)
	TBLCH1	(MAGSUM,0,0,0,0,<20,21,41,42>,20)
	TBLCH1	(MASALL,<11,111,112>,0,0,0,<11,111,112>,21)
	TBLCH1	(MASPAR,0,0,<11,111,112>,0,0,22)
	TBLCH1	(MASSUM,0,0,0,0,<11,111,112>,23)
	TBLCH1	(MASNXM,0,<11,111,112>,0,0,0,24)
	TBLCH1	(COMALL,50,0,0,0,50,25)
	TBLCH1	(CPUNXM,<4,66,67,163>,0,0,0,0,26) ;[740]
	TBLCH1	(DSKBTH,<6,10>,0,0,0,<6,10>,27)		;EDIT 125
	TBLCH1	(MASBTH,<6,11>,0,0,0,<6,11>,28)		;EDIT 125
	TBLCH1	(URDALL,71,0,0,0,71,29)	;[414]
	TBLCH1	(NETALL,<201,202,203,230,232>,0,0,0,<201,202,203,230,232>,30)	;[500],[520],[522]
	TBLCH1	(NETPER,<230,232>,0,0,<230,232>,<230,232>,31)	;[520],[522]
	TBLCH1	(CPURLD,<1,31,101,131>,0,0,0,0,32)		;[541]
	TBLCH1	(CPUCHK,<2,102>,0,0,0,0,33)			;[541]
	TBLCH1	(SYSLOG,16,0,0,0,16,34)		;[715]
>
	;DUMCH2 -- DUMMY MACRO LEVEL 2
	;SUBMACRO TBLCH2
	;ARGS
	;A-SWITCH NAME & STORAGE LOCATION  (A:: - - SWITCH VALUE IN LOWSEG)
	;B-PROCESSING ROUTINE ADDRESS
	;C-DEFAULT NAME (OPTIONAL)

	DEFINE	DUMCH2<
	TBLCH2	(BEGIN,.SWDTP,DUM)
	TBLCH2	(END,.SWDTP,DUM)
	TBLCH2	(DEV,.SWSIX,DUM)
	TBLCH2	(SWE,.SWDEC,DSW)
	TBLCH2	(SRE,.SWDEC,DSR)
	TBLCH2	(ID,.SWSIX,DUM)
	TBLCH2	(DETAIL,.SWDEC,DDE)
	TBLCH2	(REMOTE,.SWDEC,DUM)	;  [747]
	TBLCH2	(STR,.SWSIX,DUM)
	TBLCH2	(RETRY,.SWDEC,DTR)	;  [126]
	TBLCH2	(NDEV,.SWSIX,DUM)	;  [325]
	TBLCH2	(SEQ,.SWDEC,DSE)	;  [747]
	TBLCH2	(BRIEF,.SWDEC,DBR)	;  [603]
	TBLCH2	(NOW,.SWDEC,DUM)	;[713-TJW]  [747]
	TBLCH2	(KLSTAT,.SWSIX,DUM)	;  [730]  [747]
	TBLCH2	(ENTRY,.SWOCT,DEN)	;[731]
>
	;HERE IS A MACRO TO CALL THE MACRO WHICH
	;SETS UP THE DEFAULT VALUES JUST NAMED.
	;A-DEFAULT NAME
	;B-MAXIMUM ALLOWED VALUE  (MUST BE 0 TO ALLOW NEG. VALUES)
	;C-NOT USED  (DEFAULT VALUE IF KEYWORD ABSENT)
	;D-DEFAULT VALUE IF KEYWORD PRESENT & NO ':'

DEFINE	DEFVAL <
	DM (DUM,1,-1,1)		;DUMMY DEFAULT
	DM (DSW,^D100,-1,7)
	DM (DSR,^D100,-1,4)
	DM (DDE,^D10,-1,2)
	DM (DTR,^D110,-1,1)
	DM (DSE,0,-1,0)		;  [747]
	DM (DBR,^D132,-1,^D72)
	DM (DEN,777,-1,0)
>
	SUBTTL	SUMMARY COUNTERS

	;DUMFLG -- DUMMY MARCO LEVEL 2
	;SUBMACRO TBLFLG
	;ARGS
	;A-SUMMARY COUNTER PREFIXES

	DEFINE	DUMFLG<
	TBLFLG	(NXM)
	TBLFLG	(MPE)
	TBLFLG	(DPE)
		;EDIT #110
	IFN	DEBUGA,<
	TBLFLG	(HDE)
	TBLFLG	(HDT)
	TBLFLG	(SDE)
	TBLFLG	(SDT)
	TBLFLG	(RED)
	TBLFLG	(WRT)
	TBLFLG	(SEK)
	>
	TBLFLG	(TPE)
	TBLFLG	(SPE)
	TBLFLG	(UEP)
	TBLFLG	(PCS)
	TBLFLG	(TNE)
	TBLFLG	(SNE)
	TBLFLG	(NUE)
	TBLFLG	(NCS)
	TBLFLG	(NJS)	;NUMBER OF JOB STOPCD'S
	TBLFLG	(NDS)	;NUMBER OF DEBUG STOPCD'S
>
	;DEVBL1 -- DUMMY MACRO LEVEL 4
	;USED TO GENERATE CONFIGURATION DEPENDENT TABLES
	;SUBMACRO DUMDV
	;WILL GENERATE TABLES OF DEVICE BLOCKS WITH #OF UNITS
	;ON EACH KONTROLLER.


	DEFINE DEVBL1(DEV)<
	IRP	DEV,<
	ZZZ==0
	REPEAT DEV'NUM,<
	DEVBL2	(DEV,\ZZZ)
	ZZZ==ZZZ+1
	>>>
	DEFINE	DEVBL2(A,B)<
	DUMDV	(A'B)
	>

	DEFINE	DUMDP<
	DEVBL1	(<DPA,DPB,DPC,DPD>)
>
	DEFINE DUMFH<
	DEVBL1	(<FHA,FHB,FHC,FHD>)
>
	DEFINE	DUMTM<
	DEVBL1	(<MTA,MTB,MTC,MTD>)
>
	DEFINE	DUMFS<
	DEVBL1	(<FSA,FSB,FSC,FSD>)
>
	DEFINE	DUMRP<
	DEVBL1	(<RPA,RPB,RPC,RPD>)
>
	DEFINE 	DUMDVA<
	DUMDP
	DUMFH
	DUMTM
	DUMFS
	DUMRP
>

	;THIS WILL GENERATE CODE AS
	;DUMDV	DPA0
	;DUMDV	DPA1   ETC.

	;NAMLOC -- MACRO TO BUILD VALUES OF RELATIVE LOCATIONS
	;OF DEVICE NAMES WITHIN NAMTBL.
	;CAUTION----- LOCDVA MUST BE DEFINED IN SAME ORDER AS
	;DUMDVA TO MAKE IT WORK.------------

	DEFINE	NAMLOC (DEV)<
	IRP	DEV<
	DEV'LOC=ZZ
	ZZ=DEV'NUM+ZZ
>>

	DEFINE 	LOCDP<
	NAMLOC	(<DPA,DPB,DPC,DPD>)
>
	DEFINE	LOCFH<
	NAMLOC	(<FHA,FHB,FHC,FHD>)
>
	DEFINE LOCTM<
	NAMLOC	(<MTA,MTB,MTC,MTD>)
>
	DEFINE	LOCFS<
	NAMLOC	(<FSA,FSB,FSC,FSD>)
>
	DEFINE	LOCRP<
	NAMLOC	(<RPA,RPB,RPC,RPD>)
>

	DEFINE 	LOCDVA<
	LOCDP
	LOCFH
	LOCTM
	LOCFS
	LOCRP
>

	;HERE GOES THE ACTUAL CALL!

	ZZ=0
	LOCDVA
	SALL
	;DEVBL1 -- DUMMY MACRO LEVEL 4
	;USED TO GENERATE CONFIGURATION DEPENDENT TABLES
	;SUBMACRO DUMDV
	;WILL GENERATE TABLES OF DEVICE BLOCKS WITH #OF UNITS
	;ON EACH KONTROLLER.



	;THIS IS DEFINITION FOR TOPS-20 SYSTEMS
	DEFINE	DEVBL3(TYP)<

	IRP	TYP,<
	YYY==0
	REPEAT	MAXCHN,<
	IRP	TYP,<
	ZZZ==0
	REPEAT	MAXDEV,<
	IRP	TYP,<
	AAA==0
	REPEAT	MAXSLV,<
	DEVBL4	(TYP,\YYY,\ZZZ,\AAA)
	AAA==AAA+1
	>>
	ZZZ==ZZZ+1
	>>
	YYY==YYY+1
	>>>


	DEFINE	DEVBL4(A,B,C,D)<

	DUMDV	(A'B'C'D)
	>


	DEFINE	DUMMAS<
	DEVBL3	(M)
	>

	DEFINE	DUMDVB<
	DUMMAS
	>
	SUBTTL	'BIT TO TEXT' MACRO DEFINITIONS

	;DUMSF1 -- DUMMY MACRO LEVEL 2
	;SUBMACRO TBLDEV
	;ARGS
	;A-ERROR BIT # IN CONI WORD OF DUMMY SOFTWARE DEVICE
	;B-TEXT DESCRIPTION OF BIT
	DEFINE	DUMSF1<
	TBLDEV	(0,<SAT BLOCK DISCREPANCY>)
	TBLDEV	(1,<RETRIVAL BLOCK INFORMATION ERR>)
	TBLDEV	(2,<CHECKSUM ERR>)
	TBLDEV	(3,<SEEK INCOMPLETE ERR>)
	TBLDEV	(4,<NON-RECOVERABLE CONTROLLER HANG>)
	TBLDEV	(5,<RECOVERABLE TRANSFER HANG>)
	TBLDEV	(6,<RECOVERABLE SEEK HANG>)
	TBLDEV	(7,<RECOVERABLE SOFTWARE HANG>)
	TBLDEV	(8,<CCW TERM CHK FAILURE>)
>

	;DUMLPT - DESCRIPTION FOR CODE 71 CONI-LP100
	DEFINE	DUMLPT<
	TBLDEV	(2,<FEATURES ENB>)
	TBLDEV	(3,<EVEN PARITY>)
	TBLDEV	(19,<NOT READY>)
	TBLDEV	(20,<PAGE CNTR ZERO>)
	TBLDEV	(21,<PARITY ERROR>)
	TBLDEV	(22,<VFU ERROR>)
	TBLDEV	(23,<VFU LOAD INHIBIT>)
	TBLDEV	(26,<LINE OVERFLOW>)
	TBLDEV	(27,<OFF LINE>)
	TBLDEV	(28,<BUSY>)
>

	;SUBMACRO TBLDEV
	;ARGS
	;A-CONI ERROR BIT FROM RC10
	;B-TEXT DESCRIPTION
	DEFINE	DUMRC1<
	TBLDEV	(19,<SEARCH ERR>)
	TBLDEV	(20,<TWO UNITS SELECTED AS SAME LOGICAL UNIT>)
	TBLDEV	(21,<TRACK/SECTOR NOT BCD>)
	TBLDEV	(22,<NOT READY>)
	TBLDEV	(23,<POWER FAIL>)
	TBLDEV	(24,<SECTOR PAR ERR>)
	TBLDEV	(25,<MEMORY PAR ERR>)
	TBLDEV	(26,<CTL WORD PAR ERR>)
	TBLDEV	(27,<NXM>)
	TBLDEV	(28,<ILLEGAL WRITE>)
	TBLDEV	(29,<OVERUN>)
>

	;DUMRP1 -- DUMMY MACRO LEVEL 2
	;SUBMACRO TBLDEV
	;ARGS
	;A-ERROR BIT IN RP10 CONI WORD
	;B-TEXT DESCRIPTION
	DEFINE	DUMRP1<
	TBLDEV	(14,<CTL WORD PAR ERR>)
	TBLDEV	(15,<SECTOR PAR ERR>)
	TBLDEV	(16,<MEMORY PAR ERR>)
	TBLDEV	(17,<DISK WORD PAR ERR>)
	TBLDEV	(20,<POWER FAIL>)
	TBLDEV	(21,<SEARCH ERR>)
	TBLDEV	(22,<OVERUN>)
	TBLDEV	(23,<NXM>)
	TBLDEV	(25,<NOT READY>)
	TBLDEV	(26,<ILLEGAL WRITE>)
	TBLDEV	(27,<ILLEGAL DATAO>)
	TBLDEV	(28,<SECTOR ADDRESS ERR>)
	TBLDEV	(29,<SURFACE ADDRESS ERR>)
>

	;DUMDX1 -- SAME AGAIN FOR DX10 CONI
	DEFINE	DUMDX1<
	TBLDEV	(17,<RUNNING>)
	TBLDEV	(25,<CSR>)
	TBLDEV	(26,<MP ERR>)
	TBLDEV	(27,<MEM PAR>)
	TBLDEV	(28,<NXM>)
	TBLDEV	(29,<STAT AVAIL>)
>

	;DUMTM1 -- DUMMY MACRO LEVEL 2
	;SUBMACRO TBLDEV
	;ARGS
	;A-ERROR BIT IN TMS CONI WORD (TM10)
	;B-TEXT DESCRIPTION
	DEFINE DUMTM1<
	TBLDEV	(11,<CTL WORD PAR ERR>)
	TBLDEV	(12,<NXM>)
	TBLDEV	(13,<MEMORY PAR ERR>)
	TBLDEV	(18,<UNIT HUNG>)
	TBLDEV	(21,<ILLEGAL COMMAND>)
	TBLDEV	(22,<TAPE PAR ERR>)
	TBLDEV	(25,<READ/COMPARE ERR>)
	TBLDEV	(27,<DATA LATE>)
	TBLDEV	(28,<BAD TAPE>)
	TBLDEV	(31,<DATA CHANNEL ERR>)
>

	;DUMRH1 -- DUMMY MACRO LEVEL 2
	;SUBMACRO TBLDEV
	;ARGS
	;A-ERROR BIT IN RH10 CONI WORD
	;B-TEXT DESCRIPTION.
	DEFINE	DUMRH1<
	TBLDEV	(8,<CONTROLLER EXCEPTION>)
	TBLDEV	(9,<ILLEGAL FUNCTION>)
	TBLDEV	(10,<SEL RAE>)
	TBLDEV	(15,<MEMORY PAR ERR>)
	TBLDEV	(16,<CTL WORD PAR ERR>)
	TBLDEV	(17,<NXM>)
	TBLDEV	(18,<DATA BUS PAR ERR>)
	TBLDEV	(19,<EXCEPTION>)
	TBLDEV	(20,<CHANNEL ERR>)
	TBLDEV	(22,<OVERRUN>)
	TBLDEV	(23,<DRIVE RESPONSE ERROR>)
	TBLDEV	(24,<ILLEGAL COMMAND>)
	TBLDEV	(25,<P.S. FAIL>)
	TBLDEV	(28,<CTL BUS OVERRUN>)
	TBLDEV	(29,<RAE>)
>

	;DUMR11 -- MASSBUS CONTROL REGISTER
	;		RH11 CONTROL & STATUS 1
	DEFINE	DUMR11<
	TBLDEV	(20,<SC>)
	TBLDEV	(21,<TRE>)
	TBLDEV	(22,<MCPE>)
>

	;DURP01--DUMMY MACRO LEVEL 2
	;TEXT TRANSLATIONS FOR RP04/5/6/RM03 DRIVE STATUS REG
	;ARGS AS BEFORE
	DEFINE DURP01<
	TBLDEV	(2,<ATA,>)
	TBLDEV	(3,<ERR>)
	TBLDEV	(4,<PIP>)
	TBLDEV	(5,<MOL>)
	TBLDEV	(6,<WRL>)
	TBLDEV	(7,<LST>)
	TBLDEV	(8,<PGM>)
	TBLDEV	(9,<DPR>)
	TBLDEV	(10,<DRY>)
	TBLDEV	(11,<VV>)
	TBLDEV	(12,<DE1>)
	TBLDEV	(13,<DL64>)
	TBLDEV	(14,<GRV>)
	TBLDEV	(15,<DIGB>)
	TBLDEV	(16,<DF20>)
	TBLDEV	(17,<DF5/OM>)	;5"/SEC  (OFFSET MODE FOR RM03)  [601]
>

	;DURPMR-BITS IN RP04,5,6 MAINT REG
	DEFINE	DURPMR<
	TBLDEV	(7,<HI CNT DET>)
	TBLDEV	(8,<SYNC BYTE DET>)
	TBLDEV	(9,<ZERO DET>)
	TBLDEV	(10,<DATA ENV>)
	TBLDEV	(11,<ECC ENV>)
	TBLDEV	(12,<MAINT WRITE>)
	TBLDEV	(13,<MAINT READ>)
	TBLDEV	(14,<MAINT SECTOR CLOCK>)
	TBLDEV	(15,<MAINT INDX>)
	TBLDEV	(16,<MAINT CLOCK>)
	TBLDEV	(17,<DMD>)
	>

	;DURMR1--BITS IN RM03 MAINT REG 1  [601]
	DEFINE	DURMR1<
	TBLDEV	(2,<OCC>)
	TBLDEV	(3,<R/G>)
	TBLDEV	(4,<EBL>)
	TBLDEV	(5,<REXC>)
	TBLDEV	(6,<ESRC>)
	TBLDEV	(7,<PLFS>)
	TBLDEV	(8,<ECRC>)
	TBLDEV	(9,<PDA>)
	TBLDEV	(10,<PHA>)
	TBLDEV	(11,<CONT>)
	TBLDEV	(12,<PS>)
	TBLDEV	(13,<EECC>)
	TBLDEV	(14,<WD>)
	TBLDEV	(15,<LS>)
	TBLDEV	(16,<LST>)
	TBLDEV	(17,<DMD>)
>

	;DURMR2 -- RM03 MAINTENANCE REGISTER #2  [601]
	DEFINE DURMR2<
	TBLDEV	(2,<REQA>)
	TBLDEV	(3,<REQB>)
	TBLDEV	(4,<TAG>)
	TBLDEV	(5,<TEST>)
	TBLDEV	(6,<CNT/CYL>)
	TBLDEV	(7,<CNT/HD>)
>

	;DURP02-- SAME AGAIN FOR RP04/5/6 RM03 ERROR REG.#1
	DEFINE DURP02<
	TBLDEV	(2,<DCK>)
	TBLDEV	(3,<UNS>)
	TBLDEV	(4,<OPI>)
	TBLDEV	(5,<DTE>)
	TBLDEV	(6,<WLE>)
	TBLDEV	(7,<IAE>)
	TBLDEV	(8,<AOE>)
	TBLDEV	(9,<HCRC>)
	TBLDEV	(10,<HCE>)
	TBLDEV	(11,<ECH>)
	TBLDEV	(12,<WCF>)
	TBLDEV	(13,<FER>)
	TBLDEV	(14,<PAR>)
	TBLDEV	(15,<RMR>)
	TBLDEV	(16,<ILR>)
	TBLDEV	(17,<ILF>)
>

	;SAME AGAIN FOR RP04 ERROR REG #2(14)
	DEFINE DURP10	<
	TBLDEV	(2,<ACU>)
	TBLDEV	(4,<PLU>)
	TBLDEV	(5,<30VU>)
	TBLDEV	(6,<IXE>)
	TBLDEV	(7,<NHS>)
	TBLDEV	(8,<MHS>)
	TBLDEV	(9,<WRU>)
	TBLDEV	(10,<FEN>)
	TBLDEV	(11,<TUF>)
	TBLDEV	(12,<TDF>)
	TBLDEV	(13,<MSE>)
	TBLDEV	(14,<CSU>)
	TBLDEV	(15,<WSU>)
	TBLDEV	(16,<CSF>)
	TBLDEV	(17,<WCU>)
>

	;SAME AGAIN FOR RP05/6 ERROR REG #2(14)
	DEFINE DURP05	<
	TBLDEV	(4,<PLU>)
	TBLDEV	(6,<IXE>)
	TBLDEV	(7,<NHS>)
	TBLDEV	(8,<MHS>)
	TBLDEV	(9,<WRU>)
	TBLDEV	(10,<ABS>)
	TBLDEV	(11,<TUF>)
	TBLDEV	(12,<TDF>)
	TBLDEV	(13,<R&W>)
	TBLDEV	(14,<CSU>)
	TBLDEV	(15,<WSU>)
	TBLDEV	(16,<CSF>)
	TBLDEV	(17,<WCU>)
>

	;DURER2 -- RM03 ERROR REGISTER #2 (15)  [600]
	DEFINE	DURER2<
	TBLDEV	(2,<BSE>)
	TBLDEV	(3,<SKI>)
	TBLDEV	(4,<OPE>)
	TBLDEV	(5,<IVC>)
	TBLDEV	(6,<LSC>)
	TBLDEV	(7,<LBC>)
	TBLDEV	(10,<DVC>)
	TBLDEV	(14,<DPE>)
>

	;AGAIN FOR RP04 ERROR REG #3(15)
	DEFINE DURP15<
	TBLDEV	(2,<OCYL>)
	TBLDEV	(3,<SKI>)
	TBLDEV	(11,<ACL>)	;;  [762]
	TBLDEV	(12,<DCL>)	;;  [762]
	TBLDEV	(13,<DIS>)
	TBLDEV	(14,<UWR>)
	TBLDEV	(16,<VUF>)
	TBLDEV	(17,<PSU>)
>

	;AGAIN FOR RP05/6 ERROR REG #3(15)
	DEFINE DURP06<
	TBLDEV	(2,<OCYL>)
	TBLDEV	(3,<SKI>)
	TBLDEV	(4,<OPE>)
	TBLDEV	(11,<ACL>)	;  [762]
	TBLDEV	(12,<DCL>)	;  [762]
	TBLDEV	(13,<35VF>)
	TBLDEV	(16,<W&OFF>)
	TBLDEV	(17,<DCU>)
>

	;NOW FOR RS04 STATUS REG(01)
	DEFINE DURS01	<
	TBLDEV	(2,<ATA>)
	TBLDEV	(3,<ERR>)
	TBLDEV	(4,<PIP>)
	TBLDEV	(5,<MOL>)
	TBLDEV	(6,<WRL>)
	TBLDEV	(7,<LBT>)
	TBLDEV	(9,<DPR>)
	TBLDEV	(10,<DRY>)
>

	;NOW FOR RS04 ERROR REG
	DEFINE DURS02	<
	TBLDEV	(2,<DCK>)
	TBLDEV	(3,<UNS>)
	TBLDEV	(4,<OPI>)
	TBLDEV	(5,<DTE>)
	TBLDEV	(6,<WLE>)
	TBLDEV	(7,<IAE>)
	TBLDEV	(8,<AOE>)
	TBLDEV	(14,<PAR>)
	TBLDEV	(15,<RMR>)
	TBLDEV	(16,<ILR>)
	TBLDEV	(17,<ILF>)
>

	;TU16 STATUS REG
	DEFINE 	DUT601	<
	TBLDEV	(2,<ATA>)
	TBLDEV	(3,<ERR>)
	TBLDEV	(4,<PIP>)
	TBLDEV	(5,<MOL>)
	TBLDEV	(6,<WRL>)
	TBLDEV	(7,<EOT>)
	TBLDEV	(8,<NTL>)
	TBLDEV	(9,<DPR>)
	TBLDEV	(10,<DRY>)
	TBLDEV	(11,<SSC>)
	TBLDEV	(12,<PES>)
	TBLDEV	(13,<SDWN>)
	TBLDEV	(14,<IDB>)
	TBLDEV	(15,<TM>)
	TBLDEV	(16,<BOT>)
	TBLDEV	(17,<SLA>)
>

	;TU16 ERROR REG
	DEFINE	DUT602	<
	TBLDEV	(2,<COR/CRC>)
	TBLDEV	(3,<UNS>)
	TBLDEV	(4,<OPI>)
	TBLDEV	(5,<DTE>)
	TBLDEV	(6,<NEF>)
	TBLDEV	(7,<CS/ITM>)
	TBLDEV	(8,<FCE>)
	TBLDEV	(9,<NSG>)
	TBLDEV	(10,<PEF/LRC>)
	TBLDEV	(11,<INC/VPE>)
	TBLDEV	(12,<DPAR>)	;;  [762]
	TBLDEV	(13,<FMT>)
	TBLDEV	(14,<CPAR>)	;;  [762]
	TBLDEV	(15,<RMR>)
	TBLDEV	(16,<ILR>)
	TBLDEV	(17,<ILF>)
>

	;DX10 ICPC+1
	DEFINE	DUICPC	<
	TBLDEV	(3,<BUSY>)
	TBLDEV	(6,<UNIT CHECK>)
	TBLDEV	(7,<UNIT EXC>)
	TBLDEV	(11,<SEL ERR>)
	TBLDEV	(12,<SEQ ERR>)
	TBLDEV	(13,<DEV PAR ERR>)
	TBLDEV	(14,<LEN ERR>)
	TBLDEV	(16,<ILL CMD.>)
	TBLDEV	(18,<SNS ERR>)
	TBLDEV	(19,<OPER INC>)
>
	;DX10 TAGS & BUS WORD IN TERMINATION AREA
	DEFINE	DUDXTB	<
	TBLDEV	(0,<ADR IN>)
	TBLDEV	(1,<STA IN>)
	TBLDEV	(2,<SRV IN>)
	TBLDEV	(3,<PARITY IN>)
	TBLDEV	(4,<DIS IN>)
	TBLDEV	(5,<OPL IN>)
	TBLDEV	(6,<SEL IN>)
	TBLDEV	(7,<REQ IN>)
	TBLDEV	(10,<PARITY OUT>)
	TBLDEV	(11,<ADR OUT>)
	TBLDEV	(12,<CMD OUT>)
	TBLDEV	(13,<SRV OUT>)
	TBLDEV	(14,<OPL OUT>)
	TBLDEV	(15,<HLD OUT>)
	TBLDEV	(16,<SEL OUT>)
	TBLDEV	(17,<SUP OUT>)
>

	;BITS IN TU70 SENSE BYTES 0-3
	DEFINE	DUSB03	<
	TBLDEV	(0,<CMD REJ>)
	TBLDEV	(1,<INTER REQ>)
	TBLDEV	(2,<BUS OUT CHK>)
	TBLDEV	(3,<EQUIP CHK>)
	TBLDEV	(4,<DATA CHK>)
	TBLDEV	(5,<OVRN>)
	TBLDEV	(6,<WC ZERO>)
	TBLDEV	(7,<DATA CON CHK>)
	TBLDEV	(8,<NOISE>)
	TBLDEV	(11,<7-TRK>)
	TBLDEV	(12,<LD PT>)
	TBLDEV	(13,<SEL WR STATUS>)
	TBLDEV	(14,<FILE PROT>)
	TBLDEV	(15,<NOT CAP>)
	TBLDEV	(24,<R/W VRC>)
	TBLDEV	(25,<MTE/LRC>)
	TBLDEV	(26,<SKEW ERR>)
	TBLDEV	(27,<END DATA CHK/CRC>)
	TBLDEV	(28,<ENV CHK/SKEW REG VRC>)
	TBLDEV	(29,<1600 BPI>)
	TBLDEV	(30,<BACKWARD>)
	TBLDEV	(31,<C/P COMP>)
>

	;TU70 SENSE BYTES 4-7
	DEFINE DUSB47	<
	TBLDEV	(1,<REJ TU>)
	TBLDEV	(2,<TI>)
	TBLDEV	(3,<WRITE TGR VRC>)
	TBLDEV	(5,<LWR>)
	TBLDEV	(14,<POST ERR>)
	TBLDEV	(15,<RPQ>)
	TBLDEV	(16,<7 TRK DR>)
	TBLDEV	(17,<WR I FAIL>)
	TBLDEV	(27,<RESET KEY>)
	TBLDEV	(28,<DATA SEC. ERASE>)
	TBLDEV	(29,<ERASE HD FAIL>)
	TBLDEV	(31,<LOAD FAIL>)
>

	;TU70&72 SENSE BYTES 8-11  OFFSET IS 36
	DEFINE	DUSB81	<
	TBLDEV	(0,<IBG>)
	TBLDEV	(8,<6250 COR>)
	TBLDEV	(9,<VEL CHGE>)
	TBLDEV	(10,<CHN BUF CK>)
	TBLDEV	(11,<CRC III>)
	TBLDEV	(15,<TCU RES>)
	TBLDEV	(16,<COM ST REJ>)
	TBLDEV	(19,<REC NO DET>)
	TBLDEV	(21,<TACH ST FAIL>)
	TBLDEV	(23,<VEL CK>)
	TBLDEV	(28,<ROM ACC>)
>

	;TC10 CONI BITS
	DEFINE	DUMTC1<
	TBLDEV	(4,<UNIT HUNG>)
	TBLDEV	(5,<REJECT>)
	TBLDEV	(9,<PARITY ERR>)
	TBLDEV	(10,<CERS>)
	TBLDEV	(11,<R/C ERR>)
	TBLDEV	(12,<RLD>)
	TBLDEV	(13,<OVERRUN>)
>

	;DL10 CONI DLC BITS
	DEFINE	DUMDL1<
	TBLDEV	(0,<DIAG>)
	TBLDEV	(16,<KA MEMBUS>)
	TBLDEV	(17,<KA INT MODE>)
	TBLDEV	(22,<P3 ENB>)
	TBLDEV	(25,<P2 ENB>)
	TBLDEV	(28,<P1 ENB>)
	TBLDEV	(31,<P0 ENB>)
>

	;DATAI DLC BITS  DL10
	DEFINE	DUMDL2<
	TBLDEV	(3,<NXM-P3>)
	TBLDEV	(4,<MPE-P3>)
	TBLDEV	(5,<WCOV-P3>)
	TBLDEV	(6,<NXM-P2>)
	TBLDEV	(7,<MPE-P2>)
	TBLDEV	(8,<WCOV-P2>)
	TBLDEV	(9,<NXM-P1>)
	TBLDEV	(10,<MPE-P1>)
	TBLDEV	(11,<WCOV-P1>)
	TBLDEV	(12,<NXM-P0>)
	TBLDEV	(13,<MPE-P0>)
	TBLDEV	(14,<WCOV-P0>)
>

	;CONI KL10 APR BITS
DEFINE	DUMKLA<
	TBLDEV	(24,<SBUS ERR>)
	TBLDEV	(25,<NXM>)
	TBLDEV	(26,<I-O PAGE FAIL>)
	TBLDEV	(27,<MB PAR ERR>)
	TBLDEV	(28,<CACHE DIR PAR ERR>)
	TBLDEV	(29,<SBUS ADDR PAR ERR>)
	TBLDEV	(30,<PWR FAIL>)
	TBLDEV	(31,<SWEEP DONE>)
>

	;KS10 CONI APR  [750]
DEFINE	DUMKSA<
	TBLDEV	(13,<8080 INTERRUPT FAILED>)
	TBLDEV	(26,<PWR FAIL>)
	TBLDEV	(27,<NXM>)
	TBLDEV	(28,<HARD MEM ERR>)
	TBLDEV	(29,<SOFT MEM ERR>)
>

	;FE STARDARD STATUS WORD
	DEFINE	DUFEST<
	TBLDEV	(25,<LOST INTERRUPT>)
	TBLDEV	(26,<DEV HUNG>)
	TBLDEV	(27,<11 REQUEST>)
	TBLDEV	(28,<NON RECOVERABLE ERROR>)
	TBLDEV	(29,<ERROR LOG REQUEST>)
	TBLDEV	(30,<END OF FILE>)
	TBLDEV	(31,<I/O IN PROGRESS>)
	TBLDEV	(32,<SOFTWARE COND.-ACKN REQ'D>)
	TBLDEV	(33,<HDWR ERR OPR REQ'D>)
	TBLDEV	(34,<OFF LINE>)
	TBLDEV	(35,<NON EX DEV>)
>

	;FE SOFTWARE STATUS FOR LP20
	DEFINE	DUFELP<
	TBLDEV	(30,<RAM PAR ERR - RELOAD REQ.>)
	TBLDEV	(31,<OPTICAL VFU>)
	TBLDEV	(32,<VFU RAM FILE ERROR>)
	TBLDEV	(33,<VFU ERROR>)
	TBLDEV	(34,<RAM CHAR INT.>)
	TBLDEV	(35,<PAGE CNTR PASSED 0>)
>

	;LP20 STATUS REGISTER A
	DEFINE	DULPSA<
	TBLDEV	(20,<ERROR>)
	TBLDEV	(21,<PAGE ZERO>)
	TBLDEV	(22,<UNDEF CHAR>)
	TBLDEV	(23,<DAVFU>)
	TBLDEV	(24,<ON LINE>)
	TBLDEV	(25,<DEL HOLD>)
	TBLDEV	(26,<RSTERR>)
	TBLDEV	(27,<LO INT>)
	TBLDEV	(28,<DONE>)
	TBLDEV	(29,<INT ENB>)
	TBLDEV	(32,<DAVFU LOAD>)
	TBLDEV	(33,<TEST MODE>)
	TBLDEV	(34,<PAR ENB>)
	TBLDEV	(35,<GO>)
>

	;LP20 STATUS REGISTER B
	DEFINE	DULPSB<
	TBLDEV	(20,<VALID DATA>)
	TBLDEV	(21,<LA 180>)
	TBLDEV	(22,<LPT NOT RDY>)
	TBLDEV	(23,<LPT DATA PAR>)
	TBLDEV	(24,<OPT VFU>)
	TBLDEV	(25,<TEST 02>)
	TBLDEV	(26,<TEST 01>)
	TBLDEV	(27,<TEST 00>)
	TBLDEV	(28,<OFF LINE>)
	TBLDEV	(29,<VFUERR>)
	TBLDEV	(30,<LPTPAR>)
	TBLDEV	(31,<MEMPAR>)
	TBLDEV	(32,<RAMPAR>)
	TBLDEV	(33,<MSYNC TIMEOUT>)
	TBLDEV	(34,<DEMAND TIMEOUT>)
	TBLDEV	(35,<GO ERROR>)
>

	;FRONT END SOFTWARE STATUS FOR CD20
	DEFINE	DUFECD<
	TBLDEV	(31,<STACKER FULL>)
	TBLDEV	(32,<HOPPER EMPTY>)
	TBLDEV	(33,<STACK CHECK>)
	TBLDEV	(34,<PICK CHECK>)
	TBLDEV	(35,<READ CHECK>)
>

	;CD20 STATUS REGISTER
	DEFINE	DUCDST<
	TBLDEV	(20,<ERROR>)
	TBLDEV	(21,<READER CHECK>)
	TBLDEV	(22,<EOF>)
	TBLDEV	(23,<OFF-LINE>)
	TBLDEV	(24,<DATA ERROR>)
	TBLDEV	(25,<DATA LATE>)
	TBLDEV	(26,<NXM>)
	TBLDEV	(27,<PWR CLR>)
	TBLDEV	(28,<READY>)
	TBLDEV	(29,<INT ENB>)
	TBLDEV	(33,<HOPPER CHECK>)
	TBLDEV	(34,<DATA PACKING>)
	TBLDEV	(35,<READ>)
>
	;RH20 CONI BITS
	DEFINE	DUMRH2<
	TBLDEV	(18,<DATA BUS PAR ERR>)
	TBLDEV	(19,<DRIVE EXCEPTION>)
	TBLDEV	(20,<LONG WD CNT ERR>)
	TBLDEV	(21,<SHORT WD CNT ERR>)
	TBLDEV	(22,<CHN ERROR>)
	TBLDEV	(23,<DRIVE RESPONSE ERR>)
	TBLDEV	(24,<REG ACCESS ERR>)
;DELETED 'CHAN NOT READY'  (SHOULD HAVE BEEN 'CHAN READY')  [516]
	TBLDEV	(26,<DATA OVERRUN ERR>)
>

	;CONTENTS OF INT CHN STATUS WORD 1
	DEFINE	DURHSW<
	TBLDEV	(1,<MEM PAR ERR>)
	TBLDEV	(2,<NOT SBUS ERR>)
	TBLDEV	(3,<NOT WC = 0>)
	TBLDEV	(4,<NXM>)
	TBLDEV	(9,<LAST XFER ERR>)
	TBLDEV	(10,<RH20 ERR>)
	TBLDEV	(11,<LONG WC ERR>)
	TBLDEV	(12,<SHORT WC ERR>)
	TBLDEV	(13,<OVERRUN>)
>

	;RH11 CONTROL & STATUS #2  [600]
	DEFINE	DUMCS2<
	TBLDEV	(20,<DATA LATE>)
	TBLDEV	(21,<WRITE CHECK>)
	TBLDEV	(22,<UNIBUS PAR ERR>)
	TBLDEV	(23,<NON-EXISTANT DEVICE>)
	TBLDEV	(24,<NXM>)
	TBLDEV	(25,<PROGRAM ERROR>)
	TBLDEV	(26,<MISSED TRANSFER>)
	TBLDEV	(27,<DATA PAR ERR>)
>

	;UBA STATUS,,UBA MAP REGISTERS  [600]
	DEFINE	DUMUBA<
	TBLDEV	(0,<UBA TIMEOUT>)
	TBLDEV	(1,<BAD DATA FETCH>)
	TBLDEV	(2,<BUS PAR>)
	TBLDEV	(3,<NON-EXISTANT DEVICE>)
>

	;FRONT END RELOAD STATUS WORD
	DEFINE	DURLD1<
	TBLDEV	(0,<GTJFN FAILED FOR DUMP FILE>)
	TBLDEV	(1,<OPENF FAILED FOR DUMP FILE>)
	TBLDEV	(2,<DUMP FAILED>)
	TBLDEV	(3,<TO -10 ERROR ON DUMP>)
	TBLDEV	(4,<TO -11 ERROR ON BOOT>)
	TBLDEV	(5,<ASGPAG FAILED ON DUMP>)
	TBLDEV	(6,<RELOAD FAILED>)
	TBLDEV	(7,<-11 DIDN'T PWR DOWN>)
	TBLDEV	(8,<-11 DIDN'T PWR UP>)
	TBLDEV	(9,<ROM DIDN'T ACK THE -10>)
	TBLDEV	(10,<-11 BOOT PGM DIDN'T LOAD INTO -11>)
	TBLDEV	(11,<LONGER THAN 1 MINUTE TO RELOAD>)
	;ADDED WITH  [404]
	TBLDEV	(12,<TO-10 BYTE XFER FOR DUMP HUNG>)
	TBLDEV	(13,<ENTER FAILURE FOR DUMP FILE>)
	TBLDEV	(14,<OPEN FAILURE FOR DUMP OUTPUT DEVICE>)
	TBLDEV	(15,<OUTPUT FAILURE FOR DUMP FILE>)
	TBLDEV	(16,<TO-11 BYTE XFER TIMED OUT>)
	>

	;ERROR STATUS BITS FROM FE KL RELOAD
	DEFINE	DUFEKL<
	TBLDEV	(29,<PWR FAIL RESTART>)
	TBLDEV	(30,<REQUESTED REBOOT>)
	TBLDEV	(31,<KEEP ALIVE STOPPED>)
	TBLDEV	(32,<DEPOSIT EXAMINE ERROR>)
	TBLDEV	(33,<E BOX PAR ERROR>)
	TBLDEV	(34,<CLOCK ERROR STOP>)
	TBLDEV	(35,<CPU HALTED>)
>
;DEFINITIONS FOR DX20 SUPPORT

	;DX20 - DXSTR
	DEFINE	DUDXSR<
	TBLDEV	(2,<ATA>)
	TBLDEV	(3,<CERR>)
	TBLDEV	(4,<LNKPRS>)
	TBLDEV	(5,<MPRUN>)
>

	;DX20 - DXERR
	DEFINE	DUDXER<
	TBLDEV	(10,<MPERR>)
	TBLDEV	(11,<MPSTP>)
	TBLDEV	(12,<UBPARE>)
	TBLDEV	(13,<DBPARE>)
	TBLDEV	(14,<CBPARE>)
	TBLDEV	(15,<RMR>)
	TBLDEV	(16,<ILR>)
	TBLDEV	(17,<ILF>)
>

	;DX20 - DXMTR
	DEFINE	DUDXMR<
	TBLDEV	(13,<MPSC>)
	TBLDEV	(14,<MPWEVP>)
	TBLDEV	(15,<MPSTR>)
	TBLDEV	(16,<DXRES>)
>
;HERE START THE BIT-TEXT TRANSLATIONS FOR NETWORK COMM DEVICES.
;THE 4 CHAR MEMONICS ARE NXXX WHERE XXX IS A SEQUENTIAL NUMBER. THE NAME OF THE
;REGISTER MUST BE DEFINED IN COMMENTS.

	;DQ11- ERROR REGISTER
	DEFINE DUN001<
	TBLDEV	(20,<ERR INTR>)
	TBLDEV	(28,<RX VRC>)
	TBLDEV	(29,<RX BCC>)
	TBLDEV	(30,<RX NXM>)
	TBLDEV	(31,<TX NXM>)
	TBLDEV	(32,<RX LATENCY ERR>)
	TBLDEV	(33,<TX LATENCY ERR>)
	TBLDEV	(34,<RX CLK LOSS>)
	TBLDEV	(35,<TX CLK LOSS>)
	>

	;DUP11-RXDBUF REG
	DEFINE DUN002<
	TBLDEV	(20,<ERROR>)
	TBLDEV	(21,<OVERRUN>)
	TBLDEV	(23,<RCRC ERR + ZERO>)
	>

	;DUP11-TXCSR
	DEFINE	DUN003<
	TBLDEV	(20,<TX DATA LATE>)
	>
	;CALCULATE LOWEST NUMBERED ERROR BIT IN USE
	;AND THE NUMBER OF ERROR BITS IN WORD
	RADIX	10		;***** NOTE WELL *****

	DEFINE	TBLDEV(A,B)<
	IFL	A-MISB81,<MISB81==A>
	NUSB81==NUSB81+1
>
	MISB81==36
	NUSB81==0
	DUSB81

	DEFINE	TBLDEV(A,B)<
	IFL	A-MINLPT,<MINLPT==A>
	NUMLPT==NUMLPT+1
>
	MINLPT==36
	NUMLPT==0
	DUMLPT

	DEFINE	TBLDEV(A,B)<
	IFL	A-MIRP05,<MIRP05==A>
	NURP05==NURP05+1
>
	MIRP05==36
	NURP05==0
	DURP05

	DEFINE	TBLDEV(A,B)<
	IFL	A-MIRP06,<MIRP06==A>
	NURP06==NURP06+1
>
	MIRP06==36
	NURP06==0
	DURP06

	DEFINE	TBLDEV(A,B)<
	IFL	A-MIRLD1,<MIRLD1==A>
	NURLD1==NURLD1+1
>
	MIRLD1==36
	NURLD1==0
	DURLD1

	DEFINE	TBLDEV(A,B)<
	IFL	A-MINRCB,<MINRCB==A>
	NUMRCB==NUMRCB+1
>
	MINRCB==36
	NUMRCB==0
	DUMRC1

	DEFINE	TBLDEV(A,B)<
	IFL	A-MINKLA,<MINKLA==A>
	NUMKLA==NUMKLA+1
>
	MINKLA==36
	NUMKLA==0
	DUMKLA

	DEFINE	TBLDEV(A,B)<
	IFL	A-MINKSA,<MINKSA==A>
	NUMKSA==NUMKSA+1
>
	MINKSA==36
	NUMKSA==0
	DUMKSA

	DEFINE	TBLDEV(A,B)<
	IFL	A-MINTCB,<MINTCB==A>
	NUMTCB==NUMTCB+1
>
	MINTCB==36
	NUMTCB==0
	DUMTC1

	DEFINE	TBLDEV(A,B)<
	IFL	A-MINRPB,<MINRPB==A>
	NUMRPB==NUMRPB+1
>
	MINRPB==36
	NUMRPB==0
	DUMRP1

	DEFINE	TBLDEV(A,B)<
	IFL	A-MINSFB,<MINSFB==A>
	NUMSFB==NUMSFB+1
>
	MINSFB==36
	NUMSFB==0
	DUMSF1

	DEFINE	TBLDEV(A,B)<
	IFL	A-MINTMB,<MINTMB==A>
	NUMTMB=NUMTMB+1
>
	MINTMB==36
	NUMTMB==0
	DUMTM1

	DEFINE	TBLDEV(A,B)<
	IFL	A-MINRHB,<MINRHB==A>
	NUMRHB=NUMRHB+1
>
	MINRHB==36
	NUMRHB==0
	DUMRH1

	DEFINE TBLDEV(A,B)<
	IFL	A-MINDL2,<MINDL2==A>
	NUMDL2==NUMDL2+1
>
	MINDL2==36
	NUMDL2==0
	DUMDL2

	DEFINE	TBLDEV(A,B)<
	IFL	A-MIRP01,<MIRP01==A>
	NURP01==NURP01+1
>
	MIRP01==36
	NURP01==0
	DURP01

	DEFINE	TBLDEV(A,B)<
	IFL	A-MIRP02,<MIRP02==A>
	NURP02==NURP02+1
>
	MIRP02==36
	NURP02==0
	DURP02

	DEFINE	TBLDEV(A,B)<
	IFL	A-MIRP10,<MIRP10==A>
	NURP10==NURP10+1
>
	MIRP10==36
	NURP10==0
	DURP10

	DEFINE	TBLDEV(A,B)<
	IFL	A-MIRP15,<MIRP15==A>
	NURP15==NURP15+1
>
	MIRP15==36
	NURP15==0
	DURP15

	DEFINE	TBLDEV(A,B)<
	IFL	A-MIRS01,<MIRS01==A>
	NURS01==NURS01+1
>
	MIRS01==36
	NURS01==0
	DURS01

	DEFINE	TBLDEV(A,B)<
	IFL	A-MIRS02,<MIRS02==A>
	NURS02==NURS02+1
>
	MIRS02==36
	NURS02==0
	DURS02

	DEFINE	TBLDEV(A,B)<
	IFL	A-MIT601,<MIT601==A>
	NUT601==NUT601+1
>
	MIT601==36
	NUT601==0
	DUT601

	DEFINE	TBLDEV(A,B)<
	IFL	A-MIT602,<MIT602==A>
	NUT602==NUT602+1
>
	MIT602==36
	NUT602==0
	DUT602

	DEFINE TBLDEV(A,B)<
	IFL	A-MIICPC,<MIICPC==A>
	NUICPC==NUICPC+1
>
	MIICPC==36
	NUICPC==0
	DUICPC

	DEFINE TBLDEV(A,B)<
	IFL	A-MIDXTB,<MIDXTB==A>
	NUDXTB==NUDXTB+1
>
	MIDXTB==36
	NUDXTB==0
	DUDXTB

	DEFINE TBLDEV(A,B)<
	IFL	A-MIRPMR,<MIRPMR==A>
	NURPMR==NURPMR+1
>
	MIRPMR==36
	NURPMR==0
	DURPMR

	DEFINE TBLDEV(A,B)<
	IFL	A-MISB03,<MISB03==A>
	NUSB03==NUSB03+1
>
	MISB03==36
	NUSB03==0
	DUSB03

	DEFINE	TBLDEV(A,B)<
	IFL	A-MISB47,<MISB47==A>
	NUSB47==NUSB47+1
>
	MISB47==36
	NUSB47==0
	DUSB47

	DEFINE TBLDEV(A,B)<
	IFL	A-MINDXB,<MINDXB==A>
	NUMDXB==NUMDXB+1
>
	MINDXB==36
	NUMDXB==0
	DUMDX1

	DEFINE TBLDEV(A,B)<
	IFL	A-MINDL1,<MINDL1==A>
	NUMDL1==NUMDL1+1
>
	MINDL1==36
	NUMDL1==0
	DUMDL1

	DEFINE TBLDEV(A,B)<
	IFL	A-MIFEST,<MIFEST==A>
	NUFEST==NUFEST+1
>
	MIFEST==36
	NUFEST==0
	DUFEST

	DEFINE TBLDEV(A,B)<
	IFL	A-MIFELP,<MIFELP==A>
	NUFELP==NUFELP+1
>
	MIFELP==36
	NUFELP==0
	DUFELP

	DEFINE TBLDEV(A,B)<
	IFL	A-MILPSA,<MILPSA==A>
	NULPSA==NULPSA+1
>
	MILPSA==36
	NULPSA==0
	DULPSA

	DEFINE TBLDEV(A,B)<
	IFL	A-MILPSB,<MILPSB==A>
	NULPSB==NULPSB+1
>
	MILPSB==36
	NULPSB==0
	DULPSB

	DEFINE TBLDEV(A,B)<
	IFL	A-MIFECD,<MIFECD==A>
	NUFECD==NUFECD+1
>
	MIFECD==36
	NUFECD==0
	DUFECD

	DEFINE TBLDEV(A,B)<
	IFL	A-MICDST,<MICDST==A>
	NUCDST==NUCDST+1
>
	MICDST==36
	NUCDST==0
	DUCDST

	DEFINE TBLDEV(A,B)<
	IFL	A-MINRH2,<MINRH2==A>
	NUMRH2==NUMRH2+1
>
	MINRH2==36
	NUMRH2==0
	DUMRH2

	DEFINE TBLDEV(A,B)<		;[600]
	IFL	A-MINR11,<MINR11==A>
	NUMR11==NUMR11+1
>
	MINR11==36
	NUMR11==0
	DUMR11

	DEFINE TBLDEV(A,B)<		;[600]
	IFL	A-MINUBA,<MINUBA==A>
	NUMUBA==NUMUBA+1
>
	MINUBA==36
	NUMUBA==0
	DUMUBA

	DEFINE TBLDEV(A,B)<
	IFL	A-MIRHSW,<MIRHSW==A>
	NURHSW==NURHSW+1
>
	MIRHSW==36
	NURHSW==0
	DURHSW

	DEFINE TBLDEV(A,B)<
	IFL	A-MIFEKL,<MIFEKL==A>
	NUFEKL==NUFEKL+1
>
	MIFEKL==36
	NUFEKL==0
	DUFEKL

	DEFINE TBLDEV(A,B)<
	IFL	A-MIDXSR,<MIDXSR==A>
	NUDXSR==NUDXSR+1
>
	MIDXSR==36
	NUDXSR==0
	DUDXSR

	DEFINE TBLDEV(A,B)<
	IFL	A-MIDXER,<MIDXER==A>
	NUDXER==NUDXER+1
>
	MIDXER==36
	NUDXER==0
	DUDXER

	DEFINE TBLDEV(A,B)<
	IFL	A-MIDXMR,<MIDXMR==A>
	NUDXMR==NUDXMR+1
>
	MIDXMR==36
	NUDXMR==0
	DUDXMR

	DEFINE TBLDEV(A,B)<		;[600]
	IFL	A-MINCS2,<MINCS2==A>
	NUMCS2==NUMCS2+1
>
	MINCS2==36
	NUMCS2==0
	DUMCS2

	DEFINE TBLDEV(A,B)<		;[601