Trailing-Edge
-
PDP-10 Archives
-
isi-saio_19830204
-
isi-sa10/syrunv.mac
There are 16 other files named syrunv.mac in the archive. Click here to see a list.
;<ISI-SA10>SYRUNV.MAC.13631 4-Feb-83 12:10:48 Edit by ISI-SA10
;
; SAIO Changes Copyright 1982, All Rights Reserved
; University of Southern California
;
;<ISI.SUBSYS.SYSERR>SYRUNV.MAC.13630 3-Dec-82 12:05:06 Edit by SMITH
;#12 add SEC%ST==114 (DISK/MAGTAPE Statistics) for release 5
;#11 Do not dump octal of unknown error if /Brief
;#10 Add system name to title lines
;#7 Fix decoding of sense byte 3 on .UTCT1
;#6 translate sense bytes for Calcomp disks
;#6 report Calcomp disk address as CYL/SURF/REC rather than CYL/SURF/SEC
;#5 Do not print a number for drive S/N for CC0x's
;#4 Change byte printout for Calcom status, sense bytes, comand chains to HEX.
;#3 changed numbers of .UTCC1,.UTCC2,.UTCT1,.UTMAX to 31,32,30,.UTCC2
;#2 Code 122 - Errors from mag tapes on SA10 (actually in file as 111)
;#1 Code 121 - Errors from disks on SA10 (actually in file as 111)
UNIVERSAL SYRUNV -- PARAMETER FILE FOR SYSERR PACKAGE
SUBTTL VERSION 15A(1363) K. COYE/ RLD/ PJB/ ES/ TJW/ LWE/ SRL/ GSK
;COPYRIGHT (C) 1972,1975,1977,1978,1979,1980 BY
;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
;TRANSFERED.
;
;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
;AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.
;
;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
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 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 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 VERSION 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.
; ;553 - MODIFICATION TO SYSERA TO ELIMINATE NEED FOR FIRST WORD OF
; ; SOFTWARE REQUESTED DATA TO BE PNTR, USE LENGTH OF ENTRY.
; ;554 - CHANGE SYSERA TO LIST CODE 5 RESPONSE INFO SIMILAR TO SYSTAT.
; ; ALSO REMOVE "CHARS INTO RECORD FROM MAGTAPE ERROR REPORTS
; ;555 - FIX IN SYSERA FOR EDIT 553 ADDS WKBUFF TO AOBJN PTR
; ;RELEASED 10A TO TOPS-10 SIDE ONLY
; ;
; ;***********************
; ;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 [RLD]
; ;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 PROCESSOR [PJB]
; ;753 - FIX KLCPU STATUS 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 OVERRUN SUMMARY ERROR IN SYSERB SPR 10-26339 [TJW]
; ;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]
; ;***********************
; ;VERSION 12A EDITS BEGIN WITH 1000
; ;***********************
; ;1000 - ADDS BUFFER PROCESSING CODE FOR /NOW IN SYRLIB [TJW]
; ;1001 - ADDS MORE /NOW FILE PROCESSING STUFF [TJW]
; ;1002 - FIX /NOW FOR NO PAGE HEADINGS [PJB]
; ;1003 - FIX TOPS10 FILE DESCRIPTIONS TO INCLUDE COMMENTS[TJW]
; ;1004 - MAKE A SUBROUTINE OUT OF DSERCD IN D AND PUT IT INTO LIB [TJW]
; ;1005 - INSTALL REAL BRIEF PROCESSORS FOR TOPS10[TJW]
; ;1006 - MOVE SPECIAL ROUTINES FOR 130 AND 30 INTO LIB [PJB]
; ;1007 - FIX BLTTAB TO WORK FOR BOTH TOPS10 AND TOPS20 ENTRY PROCESSORS
; ;1010 - INSTALL A SUBROUTINE IN LIB TO BE USED TO FIX SUBTABLE OFFSETS[TJW]
; ;1011 - FIX PRCFIL IN LIB TO ACCOUNT FOR FIXED DAEMON BUG[TJW]
; ;1012 - FIX BRF016 SO THAT CORRECT ROUTINE IS CALLED TO TYPE MSG[TJW]
; ;1013 - FIX BCK050 TO PAY ATTENTION TO /DEV SWITCH[TJW]
; ;1014 - FIX KLERR VMA LISTING IN K [PJB]
; ;1015 - REMOVE UN-NEEDED CODE IN CODE 50 PROCESSOR [TJW]
; ;1016 - INSTALL SUPPORT FOR CODE 12 (ER.DXE) [TJW]
; ;***********************
; ;EDITS FOR VERSION 13 BEGIN WITH 1100
; ;***********************
; ;1100 - ADD SUPPORT FOR 116 ENTRIES-RLD
; ;1101 - CHANGE IDCHK IN SYRLIB TO SUPPORT ABBREVIATED NAMES ALA DEVCHK
; ;1102 - CHANGE BRIEF OUTPUT FOR SYSLOG ENTRIES TO INCLUDE DEVICE
; ;1103 - CHANGE SYSERB TO LIST RH10/20 CONTROLLER ADDRESS VERSUS
; ; LOGICAL #(WHICH WAS NEVER SUPPLIED)
; ;1104 - FIX ILL MEM REFS AT BADRSP IN SYSERA SPR #10-26258
; ;1105 - FIX BAD DEVICE NAME MESSAGE IN 'MBCHAR' [PJB]
; ;1106 - FIX PAGE HEADER S/N TO CHANGE WITH NEW S/N [PJB]
; ;1107 - BEGIN INSTALLING SUPPORT FOR RP07 [TJW]
; ;1110 - INSTALL SUPPORT FOR CODE 63 (ER.CSB) [TJW]
; ;1111 - INSTALL SUPPORT FOR CODE 64 (ER.DSB) [TJW]
; ;1112 - ANSWER TO SPR #10-27340 INCORRECT PAGE BREAKS[TJW]
; ;1113 - ANSWER TO SPR #10-27361 ILL MEM REFS IN B [TJW]
; ;1114 - INSTALL SUPPORT FOR CODE 14 (ER.SWE) [TJW]
; ;1115 - FIX OLD BUG IN CONFIG ENTRY PROCESSOR [TJW]
; ;1116 - FIX R1%000 IN C FOR CPU #,,DTE # [TJW]
; ;1117 - INSTALL DETAIL PROCESSOR FOR ER.HSB (CODE 33) [TJW]
; ;1120 - FIX LENGTH OF DX20 LISTING- CAUSES LOOP [TJW]
; ;1121 - INSTALL DETAIL PROCESSOR FOR ER.HCC (CODE 72) [TJW]
; ;1122 - REWRITE CSCLST IN B AND ADD SUPPORT FOR NEW TYPES[TJW]
; ;1123 - FIX SWE00B FOR PROPER FIELD LENGTHS [TJW]
; ;1124 - INSTALL DATE/TIME CHANGE CODE ENTRY 15 [TJW]
; ;1125 - INSTALL SUPPORT FOR ER.DSC EVENT CODE 45 [TJW]
; ;1126 - CHANGE IFN TO IFE AT TOPSYS+6 IN R TO FIX
;ILL MEM REFS WHEN FULSEG=0[TJW]
; ;1127 - FIX KL201A IN C TO FINALLY FIX KLERR PROBLEM[TJW]
; ;1130 - CHANGE KLEEND IN LOW TO BE BLOCK INSTEAD OF PTR[PJB]
; ;1131 - FIX CINLST TO WORK WITH NO DISK STATS IN ENTRY[TJW]
; ;1132 - INSTALL SUPPORT FOR NODE ON/OFF LINE IN CSCLST IN B [TJW]
; ;1133 - SUPPORT DETAIL LISTING FOR RH11,RM03, AND RH11-TAPE FOR
;KS10 RUNNING TOPS10[RLD]
; ;1134 - ADD MDT00A IN C TO FIX OFFSET PTR TO TABLE OF SBDIAGS[TJW]
; ;1135 - FIX SBUSFN TO CALL SBDMA IF IT HAS A DMA TO REPORT AND FIX
; SBDMA TO USE CORRECT AC'S[TJW]
; ;1136 - SUPPORT RM03 AND RP07 IN CODE 5 ENTRIES[RLD]
; ;1137 - FIX KAELST TO DO THE PROPER THINGS AND ADD KAE00A TO FIX
;OFFSET PTR TO SBDIAG TABLE AND CALL SBUSFN[TJW]
; ;1140 - FIX NETALL TO INCLUDE DL10 ENTRY[TJW]
; ;1141 - MERGE KL VER13 WITH KS VER 13[TJW]
; ;1142 - EXTEND SUMMARIES TO 8 CONTROLLERS,8 DEVICES [TJW]
; ;1143 - FIX FIELD VALUE OUTPUT IN KLERR & PUT FIELD VALUES AT END [PJB]
; ;1144 - FIXED BCK45 TO IGNORE /DEV:[TJW]
; ;1145 - FIXED SYSERN TO HAVE NAME TABLES[TJW]
; ;1146 - ADDED "/OCTAL" TO LIST CONTENTS OF WKBUFF BETWEEN HEADER AND
; ; BODY TO FACILITATE DEBUGGING & SYSERR VERIFICATION [RLD]
; ; -DEVELOPMENT ORIENTED COMMAND- PROBABLY SHOULDN'T BE DOCUMENTED
; ;1147 - FIX BCK15 TO IGNORE /DEV: [TJW]
; ;1150 - FIX DUM & BRF 202 & 203 TO TYPE OUT PROGRAM NAME STRING[TJW]
; ;1151 - INSTALL NL$PST IN N FOR PROGRAM STRING TYPEOUT [TJW]
; ;1152 - IMPLEMENT NEW SWITCH SYSSFT TO GET SOFTWARE ENTRIES [TJW]
; ;1153 - FIX TU16TC IN B AND D FOR CORRECT BIT TRANSATION [PJB]
; ;1154 - REWROTE DSC00A IN A - I DIDN'T LIKE THE OUTPUT FORMAT [TJW]
; ;1200 - INSERT DYNAMIC TABLE ALLOCATOR [PJB]
; ;1201 - FIX 'CLOSE ,OUTCHN' IN FATAL [PJB]
; ;1202 - ADD 'NETHDW' AND 'NETOPR' TO COMMANDS AND ADD 210 & 220
; ; TO 'NETALL' - RLD
; ;1203 - ADD EVENT TYPE 222, CHECK11 REPORT, IDENTICAL TO 220 EXCEPT
; ; FOR THE NAME. LISTED UNDER NETALL AND NETOPR. - RLD
; ;1204 - ADD EVENT TYPE 115 - CONFIGURATION STATUS CHANGE [PJB]
; ;1205 - ADD ADDITIONAL ITEMS TO FULL CONTROL TABLE FOR 210
; ; ENTRIES, HETWORK HARDWARE ENTRIES -RLD
; ;1206 - FIX DSERCD IN LIB TO TAKE CARE OF ILLEGAL BCD DIGITS [PJB]
; ; FIX S/N HANDLING FOR DX20 DEVICES IN SUMMARIES
; ;1207 - ADD USER NAME TO MASBUS BRIEF ENTRIES [PJB]
; ; TAKE CONTROL OF TOPS-20 SUMMARIES AWAY FROM SMLOOP
; ;1210 - ADD DH11 STATUS REGISTERS TO 130-3 & 30-3 ENTRIES [PJB]
; ;1211 - FIX /SEQ ON FRONT END ENTRIES [LE]
; ;1212 - MERGE V13 (TOPS-10) & V14 (TOPS-20) [PJB]
; ;1213 - COSMETIC AND RANGE CHECKING CHANGES FOR NETWORK ENTRIES [RLD]
; ;1214 - ADD MORE BRIEF PROCESSING COMMAND FOR ENTRY 210 AND MINOR
; ; FIXES TO NETWORK EVENT LOGGING [RLD]
; ;1215 - FIX UNIT DEF. & S/N IN CONFIG. STATUS CHANGE (115) ENTRY [PJB]
; ;1216 - FORCE 3 DIGITS IN DRAM ADDRESS IN KLERR REPORT [PJB]
; ;1217 - DEVICE SUMMARY & DYNAMIC TABLE ALLOCATION [PJB]
; ;1220 - FIX RESYNC WHEN OFFSET > 177 (SYRLIB) [LWE]
; ;1221 - MAKE WARNINGS PRINT AT RIGHT TIME WHEN OUT DEV IS TTY [LWE]
; ;1222 - TEMPORARY PATCH ??? FOR 116 SUMMARY TITLE "TYPMES+15" [PJB]
; ;1223 - ADD DH11 TEXT TRANSLATIONS [PJB]
; ;1224 - ADD MAXxxx TO TRANSLATION MACRO TBLDEV IN 'UNV, AND REPLACED
; ; "REPEAT 36-MINxxx" WITH "BLOCK (MAXxxx-MINxxx+1) IN 'D [PJB]
; ;1225 - FIX KS-10 CONI APR TRANSLATION FOR 8080 INTERRUPT [PJB]
; ;1226 - MOVE KLE200 & KLE201 FORM SYSERC & SYSERD TO SYRLIB [PJB]
; ;1227 - ADD "FROM NODE" IN BRIEF PROCESSOR FOR NET LINE STATS. [SRL]
; ;1230 - STOP MESSAGES FROM GOING TO FILE IN REMOTE. [LWE]
; ;1231 - PATCH AT MBCHR1: TO FIX MONITOR TU77 RECOGNITION PROBLEM [PJB]
; ;1232 - MODIFY FIXBU2 SO THAT WORD 0 OF A BLOCK PRINTS ON DUMPS [PJB]
; ;1233 - FIX DRVTYP TO USE MDEDTP AS INDEX FOR MDE000 FOR TOPS10 [TJW]
; ;1234 - CLEAR THRU .JBREL TO ENSURE DYNAMIC TABLE AREA IS ZEROED [PJB]
; ;1235 - YET MORE FIXES TO 'KLERR' [PJB]
; ;1236 - FIX SBUSFN NOT TO EXECUTE IF PTR TO SUBTABLE = 0 [TJW]
; ; ALSO FIX THE CALLERS TO CALL WITH THE BAD PTR IN P2
; ;1237 - FIX BITLST NOT TO EXECUTE IF PTR TO NXMTAB IS NO GOOD [TJW]
; ; PARTIAL ANSWER TO SPR #10-28173
; ;1240 - FIX SML11 IN S TO PUT PROPER HEADING ON THE PAGE [PJB]
; ;1241 - TOPS-10 [TJW]
;***********************
; ;VERSION 14 EDITS BEGIN WITH 1242
; ;***********************
; ;1242 - FIX BAD WARNING IN 111 SUMMARY WHEN NO MASBUSS ERRORS [PJB]
; ;1243 - FIX TU77 BLOW UP IN DEVICE ERROR REGISTER BIT-TO-TEXT [PJB]
; ;1244 - TEST FOR MISSING LINE STATISTICS COUNTERS. [SRL]
; ;1245 - DROPPED AN INST. IN S AT SML116+A FEW[RLD]
; ;1246 - FIX RESOURCE SPELLING IN 'N'
; ; FIX 'N' NOT TO ASK FOR /DET WHEN /BR TYPED [SRL]
; ;1247 - TAKE OUT 'NEXT' IN DH11 REPORTS PER R. BELANGER [SRL]
; ;1250 - FIX MESSAGE "NOW PROCESSING ERROR.X?? TO GIVE
; ; THE CORRECT FILE NAME [TJW]
; ;1251 - ADD NEW 'REASON FOR ENTRY' CODES TO SYSERN [SRL]
; ;1252 - add positive return status codes to 203 & 202 to support
; ; DNLOAD and IBM type down line load & up line dump [RLD]
; ;1253 - ADD SUPPORT FOR ENTRY TYPES 233 AND 234 FOR IBM COMM [RLD]
; ;1254 - TOPS-10 ADDED TYPE 33 /KS10 HALT STATUS BLOCK [TJW]
; ;1255 - ADDED SUPPORT (MINIMAL) FOR MF20 ENTRY WITH TOPS-20 [RLD]
; ;1256 - ANSWER TO SPR #10-28669. ADDED RANGE CHECKING TO ROUTINE
; ; WDCNT IN SYRLIB TO CHECK FOR NEGATIVE NUMEBER [GSK]
; ;1257 - ADD DH11 SUPPORT FOR CODE 30 TO REFLECT CODE 130 [GSK]
; ;1258 - ANSWER TO SPR #20-13378. ADD CODE FOR WRONG POSITION
; ; OF DATA ON SHORT OUTPUTS FOR ENTRY 161 [GSK]
; ;1259 - ADD RANGE CHECKING TO PTSTRG IN SYRLIB. RED PACK V303
; ; APPEARS TO HAVE BASTARD VERSION OF NETCON THAT BLOWS
; ; UP SYSERR ENTRY 201 PROCESSING. [GSK]
; ;1260 - FIX PROBLEM IN BUGXXX SUMMARY. [PJB]
; ;1261 - CHANGE TEST IN SYSERS FROM 'TOPMON' (TOPS-20 MONITOR)
; ; TO 'TOPENT' (TOPS-20 STYLE ENTRY) FOR SOME PRINTOUTS
; ; ETC. THIS IS SO WE CAN GET THE RIGHT TIMES, SUMMERIES
; ; ETC. PROCESSING A TOPS-10 FILE RUNNING ON TOPS-20. [GSK]
; ;1262 - ADD COMMAND REGISTER TO BRIEF OUTPUT FOR ENTRY 112 [PJB]
; ;1263 - changed .ppnwt in syrlib to make sure system serial is
; ; same as serial in header before translating directory
; ; number. If it is different only number is output. [GSK]
; ;1264 - answer to SPR #10-28832. made /all switch clear swe,sre
; ; so /all does do all entries. [GSK]
; ;1265 - ADDED BRIEF SUPPORT FOR ENTRIES 233,234 [GSK]
; ;1266 - Fixed /REMOTE switch to not transfer 130-200,201 & 30-200,201
; ; unless specifically asked for. [GSK]
; ; THIS EDIT ALSO ESTABLISHED A RESTRICTION IN USING THE /REMOTE
; ; SWITCH. THE SEQUENCE NUMBER GIVEN FOR THE KLERR ENTRIES IN
; ; ERROR.SYS IS THE SEQ NUMBER FOR THE LAST (EOF) PACKET. YOU
; ; CANNOT SAY X=/SEQ:24/REMOTE BECAUSE THE ONLY RECORD THAT
; ; IS PUT IN X IS THE LAST ONE FOR THE KLERR ENTRY.
; ;1267 - Fixed the code for entry 233. Added line and port ID and
; ; changed some byte pointers around to reflect the data. [GSK]
; ;1270 - Fixed problem with cyl/surf/sec in brief entry for RM03 massbus
; ; error entry (111) at DSKPO1 in SYRLIB. Also fixed another RM03
; ; problem with decoding of the desired cylinder register at
; ; RP04DC in SYSERD. [GSK]
;***********************
; ;VERSION 15 EDITS BEGIN WITH 1300
; ;***********************
; ;1300 - Add support for "hung disks and Tapes" under TOPS-10
; ; affects entries 10,11,12, & 21 [RLD]
; ;1301 - ADD SUPPORT FOR THE NEW ENTRIES FOR VERSION 15
; ; THAT CONCERN MEMORY PARITY/NXM REPORTING. [RLD]
; ;1302 - ADD "MONITOR SET MEM OFFLINE" CODE TO ENTRY TYPE 15 [RLD]
; ;1303 - FIX BRF234 AND EDIT 1300-TESTING WRONG SENSE OF A BIT,
; ; AFFECTS SYRUNV AND SYSERB AND SYSERA [RLD]
; ;1304 - FIX SUMMARY COUNTING FOR CODE 2 ENTRIES, COUNTS OF JOB
; ; AND DEBUG STOPCD'S WEREN'T HANDLED CORRECTLY. AFFECTS
; ; SYSERB.[RLD]
; ;1305 - CHANGE METHOD OF FINDING WHERE SYSERR WAS 'RUN' FROM.
; ; OLD METHOD USED INITIAL CONTENTS OF THE AC'S WHICH DIDN'T
; ; ALLOW RUNNING FROM AN SFD. NEW METHOD USES GETTAB'S
; ; AND AN EXTENDED BLOCK FOR THE GETSEG UUO IF RUNNING FROM
; ; AN SFD. AFFECTS SYSERR.MAC. [RLD]
; ;1306 - TURN ON ALL THE ENTRIES ADDED IN EDIT 1301 [RLD]
; ;1307 - FIX BUGS IN EDIT 1301 [RLD]
; ; AFFECTS ONLY SYRUNV
; ;1310 - more fixes to entry 56 & 57 [rld]
; ; syrunv only
; ;1311 - ADD SUPPORT FOR FRONT END:
; ; CONFIGURATION REPORTS
; ; DL-11 AND DM-11/BB ERRORS
; ; EBUS PARITY ERRORS
; ; DEX ERRORS
; ; RH-11 ERRORS
; ; [SRL]
; ;1312 - CHANGE SPELLING OF OCCURANCE TO OCCURRENCE IN SYSERS [SRL]
; ;1313 - FIX A TOPS10 TU70 DX20 BUG IN SYSERB [RLD]
; ;1314 - ADJUST SOME ENTRY LISTING LINE COUNTS TO DO BETTER
; ; PAGINATION [RLD]
; ;1315 - FIX SYSERS NOT TO DO A FORMFEED AT START OF SUMMARY LISTING
; ; IF ONE WAS JUST DONE.-IT CAUSED A BLANK PAGE [RLD]
; ;1316 - FIX BUGS IN TOPS-10 RP07 SUPPORT, PACK GEOMETRY IN SYRLIB [RLD]
; ; AND IN SYSERB
; ;1317 - ADD RP20/TOPS-10 SUPPORT TO SYSERB AND INCLUDE IT IN CONDITIONAL
; ; ASSY SWITCH 'RP2COD', SWITCH WILL BE TURNED OFF FOR VERSION 15
; ; AND BACK ON FOR TESTING AND LIR DISTRIBUTION. [RLD]
; ;1320 - ADD DM11BB SUPPORT TO SYSERC&D [RLD]
; ;1321 - CONTINUATION OF DM11BB SUPPORT AND RP20 STUFF [GSK]
; ;1322 - SHIFTED CODE FROM SYSERB TO SYSERD FOR RP20 SUPPORT
; ; UNDER TOPS-20. FIXED UP ALL OTHER TABLES ETC. [GSK]
; ;1323 - MORE FIXES TO DM11BB CODE IN LIB,C AND D [GSK]
; ;1324 - CHANGED CODE FOR ENTRY 30,130 BRIEF REPORTS. ALL CONFIGURATION
; ; REPORTS ARE FLAGED. [GSK]
; ;1325 - FIXED MISC. BRIEF ENTRY PROBLEMS. ENTRIES 11 AND 57 [GSK]
; ;1326 - CORRECTED SUMMARY FOR RH11 CONTROLLERS TO NOT GIVE
; ; RH20 CONI STUFF. [GSK]
; ;1327 - FIXED PA1050 ERROR CAUSED BY WRONG CALL IN BRIEF FOR
; ; ENTRY 54. [GSK]
; ;1330 - ADDED SOME SUPPORT FOR ENTRY 21 FOR TU77 [GSK]
; ; RELEASED SYSERR V 15 FOR 7.01
; ; NOW CALLED V15A
; ;1331 - CORRECTED OFFSET VALUES IN C FOR DH11 ROUTINES. [GSK]
; ;1332 - answer to spr #10-29584. added 8 more disk names for
; ; SMP versions of TOPS-10. [GSK]
; ;1333 - FIXED SOME TABLES IN D, CODE IN UNV AND LIB FOR RP20 CODE [GSK]
; ;1334 - CHANGED SOME CODE IN B AND D TO MAKE RP20 ENTRY CLEANER [GSK]
; ;1335 - FIXED SOME STUFF IN D,LIB AND UNV FOR 112 RP20 ENTRIES [GSK]
; ;1336 - CORRECTED BUG IN ENTRY 45 THAT CAUSED WRONG # OF WRITES
; ; TO GET PRINTED FOR DISK STATISTICS. [GSK]
; ;1337 - FIXED PROBLEM WITH DX20 ENTRIES (12,112) FOR ZERO SUBLOCK
; ; POINTERS NOT TO PRINT REGISTERS OR SENSE BYTES [GSK]
; ;1340 - PROBLEMS WITH RIB ERROR ENTRIES FOR RP20 DISKS. NEVER
; ; DONE BEFORE. ADDED CODE [GSK]
; ;1341 - MOVED HEX CONVERSION ROUTINE FROM SCAN TO LIB TO FIX SCAN
; ; PROBLEM EASILY. [GSK]
; ;1342 - PROBLEM IN C WHEN CALLING D. IT RECALLED C AGAIN. WHAT A
; ; MESS. [GSK]
; ;1343 - ADDED CODE TO B AND D FOR DX20 ENTRIES. IF MP RUN BIT
; ; IS OFF TEXT PRINTED IN ERROR LINE [GSK]
; ;1344 - added line to top of 12,112 entries for format 6 entries
; ; from rp20. These are for info only and do not reflect
; ; an error. [GSK]
; ;1345 - Added code to B for problems handling labeled ddb's for
; ; magtape from 7.01 [GSK]
; ;1346 - ANSWER TO QAR 10-04295 MOVED SOME STUFF AROUND IN B FOR
; ; MASSBUS ENTRY (11) HAD MULTIPLE INFO PRINTED OUT [GSK]
; ;1347 - ADDED SWITCH FOR ALLOWING SALL OF MACROS FOR OUR USE
; ; AND CAN TURN IT OFF FOR PRODUCTION AND RELEASE [GSK]
; ;1350 - ANSWER TO SPR# 10-29698. CHANGED CODE FOR SOFTWARE
; ; ERRORS FOR ENTRY 11 IN B. DID NOT LOOK AT RECOVERABLE
; ; BIT BEFORE DECLARING SOFTWARE ERROR HARD. [GSK]
; ;1351 - FIXED BCK12 IN B SO /MAGALL DID NOT PRINT RP20 ENTRIES [GSK]
; ;1352 - ADDED CODE TO D AND B RP20 ENTRIES FOR NEW ERROR CODE
; ; FOR RELOAD OF MICROCODE [GSK]
; ;1353 - FIXED BIT CHECK IN B FOR 12 ENTRY. WAS GETTING DX20 RP20
; ; ENTRIES WITH /CPUPAR SWITCH [GSK]
; ;1354 - ADDED DEVICE STATISTICS STUFF TO BOTTOM OF 12 ENTRY [GSK]
; ;1355 - FIXED AS IN 1353. /DEV: DIDN'T WORK THIS TIME [GSK]
; ;1356 - FIXED EXTRA WORD ON STACK FOR FE ENTRY IN C. DM11BB WAS
; ; BOMBING OUT IN EDIT 1330 (7.01 RELEASE)
; ;1357 - fixed /now. V7.01 changed ipcf uuo to work like document. [GSK]
; ;1360 - CHANGED B FOR DX20/RP20 REG 30/37 PROBLEM. [GSK]
; ;1361 - FIXED RP4FUN IN B FOR FUNCTION 4. WAS SEEK, GOT CHANGED
; ; TO ILLEGAL ???!!! [GSK]
; ;1362 - FIXED SMALL BUG IN B. IF S.N. FOR ENTRY 12 = 0
; ; GOT TWO FILE/RECORD AND OP AT ERROR'S. [GSK]
; ;1363 - CORRECTED SOME STRANGE CODE FOR ENTRY 21 IN B. [GSK]
SUBTTL GENERAL SYSTEM DEFINITIONS
VWHO==6 ;#1 .
VSYSER==15
VMINOR==1
VEDIT==136312 ;#12 Last DEC edit was 1363
; ;*******
; ; HERE IS THE CONDITIONAL SWITCH FOR RP20 CODE.
; ; TURN IT OFF FOR VERSION 15 FIELD TEST AND RELEASE AND ON
; ; FOR RP20 TESTING IN-HOUSE.
RP2COD==1
; ;******* [1347]
; ; HERE IS CONDITIONAL SWITCH FOR SALL OF EXPANDED MACROS.
; ; TURN IT OFF FOR RELEASED VERSIONS. (SAVES PRINTER PAPER ETC.)
; ;
EXPPRT==0
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,.TRDXW
EXTERNAL .THEXB ;#4 HEX typeout routine
;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]
JSUB (SYSGT,16) ; [1263]
;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]
;DEFINED SOME REQUIRED SYSTEM SYMBOLS
.JBREL==44 ;HIGHEST AVAILABLE LOCATION IN LOWSEG
.JBSYM==116
.JBUSY==117
.JBFF==121 ;FIRST FREE LOCATION FOLLOWING LOWSEG
.JBINT==134 ;[713-TJW] LOC OF JOBS INTERRUPT BLOCK
; ;[1305] ;START OF SYMBOLS USED TO FIND WHERE SYSERR CAME FROM.
.gtrdv==135 ;DEVICE NAME
.gtrdi==136 ;P,PN
.gtrs0==145 ;1ST SFD NAME
.gtrs1==146
.gtrs2==147
.gtrs3==150
.gtrs4==151 ;5TH AND LAST SFD NAME
; ;END [1305]
; ;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.DXE <ER.DXE==12> ;DX20 UNDER TOPS10
IFNDEF ER.SWE <ER.SWE==14> ;SOFTWARE EVENT
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.HSB <ER.HSB==33> ;KS10 HALT STATUS BLOCK
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.DSC <ER.DSC==45> ;DISK RUN STATISTICS
IFNDEF ER.DLE <ER.DLE==50> ;DL10 HARDWARE ERRORS
; ;START 1301
IFNDEF ER.KII <ER.KII==51> ;KI10 PARITY/NXM INTERRUPT
IFNDEF ER.KLI <ER.KLI==52> ;KL10 PARITY/NXM INTERRUPT
IFNDEF ER.KSN <ER.KSN==54> ;KS10 NXM TRAP
IFNDEF ER.KLT <ER.KLT==55> ;KL10 KS10 DATA PARITY TRAP
IFNDEF ER.NXS <ER.NXS==56> ;KI10 KL10 KS10 NXM MEMORY SWEEP
IFNDEF ER.PAR <ER.PAR==57> ;KL10 KI10 KS10 PARITY MEMORY SWEEP
; ;END 1301
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.CSB <ER.CSB==63> ;KI/KL CPU STATUS BLOCK
IFNDEF ER.DSB <ER.DSB==64> ;DEVICE STATUS BLOCK
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)
IFNDEF ER.HCC <ER.HCC==72> ;HARD COPY CONTROLLER ERROR
; ;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%ST <SEC%ST==114> ;#12 DISK/TAPE Statistics
IFNDEF SEC%CS <SEC%CS==115> ;CONFIGURATION STATUS CHANGE [1204]
IFNDEF SEC%SD <SEC%SD==121> ;#1 SA10 disk error
IFNDEF SEC%SM <SEC%SM==122> ;#12 ;#2 SA10 magtape 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%CK <SEC%CK==222> ;NETWORK CHECK11 REPORT [1203]
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
IFNDEF SEC%D6 <SEC%D6==233> ;DN6x LINE STATISTICS FOR REL 4
IFNDEF SEC%DE <SEC%DE==234> ;DN6x ENABLE-DISABLE FOR REL 4
; ;SYSTEM CONFIGURATION
; ;DEFINE # OF UNITS ON EACH CONTROLLER.
IFNDEF DPANUM <DPANUM==^D8> ;# UNITS ON DPA.
IFNDEF DPBNUM <DPBNUM==^D8>
IFNDEF DPCNUM <DPCNUM==^D1>
IFNDEF DPDNUM <DPDNUM==^D1>
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==^D8>
IFNDEF MTDNUM <MTDNUM==^D8>
IFNDEF MTENUM <MTENUM==^D8>
IFNDEF MTFNUM <MTFNUM==^D8>
IFNDEF MTGNUM <MTGNUM==^D8>
IFNDEF MTHNUM <MTHNUM==^D8>
MTXNUM==MTANUM+MTBNUM+MTCNUM+MTDNUM+MTENUM+MTFNUM+MTGNUM+MTHNUM
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==^D8>
IFNDEF RPENUM <RPENUM==^D8>
IFNDEF RPFNUM <RPFNUM==^D8>
IFNDEF RPGNUM <RPGNUM==^D8>
IFNDEF RPHNUM <RPHNUM==^D8>
IFNDEF RPINUM <RPINUM==^D8>
IFNDEF RPJNUM <RPJNUM==^D8>
IFNDEF RPKNUM <RPKNUM==^D8>
IFNDEF RPLNUM <RPLNUM==^D8>
IFNDEF RPMNUM <RPMNUM==^D8>
IFNDEF RPNNUM <RPNNUM==^D8>
IFNDEF RPONUM <RPONUM==^D8>
IFNDEF RPPNUM <RPPNUM==^D8>
RPXNUM==RPANUM+RPBNUM+RPCNUM+RPDNUM+RPENUM+RPFNUM+RPGNUM+RPHNUM+RPINUM+RPJNUM+RPKNUM+RPLNUM+RPMNUM+RPNNUM+RPONUM+RPPNUM
;BEGIN [1340]
IFNDEF RNANUM <RNANUM==^D8>
IFNDEF RNBNUM <RNBNUM==^D8>
IFNDEF RNCNUM <RNCNUM==^D8>
IFNDEF RNDNUM <RNDNUM==^D8>
IFNDEF RNENUM <RNENUM==^D8>
IFNDEF RNFNUM <RNFNUM==^D8>
IFNDEF RNGNUM <RNGNUM==^D8>
IFNDEF RNHNUM <RNHNUM==^D8>
RNXNUM==RNANUM+RNBNUM+RNCNUM+RNDNUM+RNENUM+RNFNUM+RNGNUM+RNHNUM
;END [1340]
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 HDRLIN <HDRLIN==7> ;ENTRY HDR LEN INCL "*"S AND BLANK[1112]
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 HDFIX, <HDFIX==4> ;FIX FOR NEW AOB OFFSET..REMOVE WHEN
;DAEMON IS FIXED TO GIVE PROPER OFFSET[1005]
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==^D42> ;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 (IPCNP%,3) ;NO PACKETS WAITING ERROR [1360]
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
ERRSAT==0
ERRRIB==1
ERRCHK==2
ERRINC==3
ERRHN1==4
ERRHN2==5
ERRHN3==6
ERRHN4==7
ERRCWF==10
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)
; ;****************************************
ND (WHYFG0,0) ;SYSTEM NAME IN ASCIZ (5 WORDS)
ND (WHYDT0,5) ;SYSTEM BUILD DATE IN ASCIZ (2 WORDS)
ND (WHYSTS,7) ;SYSTEM STATES WORD
ND (WHYVER,8) ;MONITOR VERSION
ND (WHYSER,9) ;CPU SERIAL NUMBER
ND (WHYWHY,10) ;WHY RELOAD ANSWER IN SIXBIT
ND (WHACOM,11) ;AOB POINTER TO OPR COMMENTS
;-LENGTH,,OFFSET FROM HEADER WD 0
ND (WHYKPG,12) ;[134] RH = 707070
; LH = 1B35 IF 1 BIT PER PAGE
ND (WHYBIT,13) ;[134] PTR TO COPY OF SYSTEM NXM TABLE
;-LENGTH,,OFFSET FROM HEADER WD 0
; ;****************************************
; ;ERROR CODE 2 ER.MSE (MONITOR SOFTWARE ERROR - STOPCD)
; ;****************************************
ND (MSEFGO,0) ;SYSTEM NAME IN ASCIZ (5 WORDS)
ND (MSEDT0,5) ;SYSTEM BUILD DATE IN ASCIZ (2 WORDS)
ND (MSESER,7) ;CPU SERIAL NUMBER
ND (MSEVER,8) ;MONITOR VERSION
ND (MSESPC,9) ;STOPCD NAME IN SIXBIT (S..XXX)
ND (MSESJN,10) ;JOB NUMBER AT LAST STOPCD
ND (MSESTN,11) ;TTY NUMBER FOR JOB
ND (MSESPN,12) ;PROGRAM NAME OF JOB
ND (MSENAM,13) ;USERS PPN FOR JOB
ND (MSENJS,14) ;TOTAL NUMBER OF JOB STOPCDS
ND (MSENDS,15) ;TOTAL NUMBER OF DEBUG STOPCDS
ND (MSEA00,16) ;AC0
ND (MSEA01,17) ;AC1
ND (MSEA02,18) ;AC2
ND (MSEA03,19) ;AC3
ND (MSEA04,20) ;AC4
ND (MSEA05,21) ;AC5
ND (MSEA06,22) ;AC6
ND (MSEA07,23) ;AC7
ND (MSEA10,24) ;AC10
ND (MSEA11,25) ;AC11
ND (MSEA12,26) ;AC12
ND (MSEA13,27) ;AC13
ND (MSEA14,28) ;AC14
ND (MSEA15,29) ;AC15
ND (MSEA16,30) ;AC16
ND (MSEA17,31) ;AC17
ND (MSEPIS,32) ;PI STATUS AT STOPCD
; ;****************************************
; ;ERROR CODE 3 ER.MPE (CPU MEMORY PARITY ERROR)
; ;****************************************
ND (MPEPHY,0) ;NAME OF DEVICE (E.G. CPI0) IN SIXBIT
ND (MPETPE,1) ;TOTAL MPE'S DET ON ALL SWEEPS
ND (MPESPE,2) ;TOTAL SPURIOUS MPE'S
ND (MPEMPC,3) ;NUMBER OF CONTINUES AFTER MPE HALTS
ND (MPEMPP,4) ;PC AT MPE INTERRUPT
ND (MPEMPW,5) ;CONTENTS OF 1ST BAD WORD
ND (MPEMPA,6) ;ADDRESS OF 1ST BAD WORD
ND (MPAPAR,7) ;AOB POINTER TO %CCPAR TABLE
;-LENGTH,,OFFSET FROM HEADER WD 0
ND (MPAMPT,8) ;AOB POINTER TO %CCMPT TABLE
;-LENGTH,,OFFSET FROM HEADER WD 0
ND (MPEPPN,9) ;[137]PPN OF USER RUNNING AT INTERRUPT
ND (MPEJOB,10) ;[137]PROGRAM NAME IN SIXBIT
; ;VALUES IN %CCPAR TABLE
ND (MPELPA,0) ;LAST BAD PARITY ADDRESS
ND (MPEMPR,1) ;RELATIVE LAST BAD PARTIY ADDRESS
ND (MPEPTS,2) ;# OF MPE'S FOUND DURING SWEEP
ND (MPEPSC,3) ;# OF TIMES CORE WAS SWEPT FOR PARITY
ND (MPEUEP,4) ;# OF USER ENABLED MPE'S
ND (MPEPAA,5) ;LOGICAL AND OF ALL MPE ADDRESSES
ND (MPEPAC,6) ;LOGICAL AND OF ALL MPE CONTENTS
ND (MPEPOA,7) ;LOGICAL OR OF ALL MPE ADDRESSES
ND (MPEPOC,8) ;LOGICAL OR OF ALL MPE CONTENTS
ND (MPEPCS,9) ;# OF TIMES CHAN GOT MPE BUT CPU DIDN'T
ND (KAEASC,14) ;[133] ADDRESS ERROR SWEEP COUNT
; ;***************************************
; ;ERROR CODE 4 ER.NXM (KA/KI NXM ERRORS)
; ;***************************************
ND (NXMPHY,0) ;PHYSICAL CPU NAME IN SIXBIT
ND (NXMTNE,1) ;TOTAL NXM'S SEEN BY THIS CPU
ND (NXMSNE,2) ;TOTAL SPURIOUS NXMS
ND (NXMMPP,3) ;PC AT NXM INTERRUPT
ND (NXMNJA,4) ;NUMBER OF JOBS AFFECTED BY NXM
ND (NXMMNA,5) ;PHYSICAL ADDRESS OF NXM
ND (NXMLNA,6) ;ADDRESS OF LAST NXM SEEN DURING SWEEP
ND (NXMMNR,7) ;RELATIVE ADDRESS OF NXM IN SEGMENT
ND (NXMNTS,8) ;# OF NXM'S SEEN ON LAST SWEEP
ND (NXMNSC,9) ;NUMBER OF SWEEPS LOOKING FOR NXM'S
ND (NXMUEN,10) ;# OF USER ENABLED NXM'S
ND (NXMNAA,11) ;LOGICAL AND OF ALL NXM ADDRESSES
ND (NXMNOA,12) ;LOGICAL OR OF ALL NXM ADDRESSES
ND (NXMNCS,13) ;# OF TIMES CHAN GOT NXM BUT CPU DIDN'T
ND (NXMKPG,14) ;LH = 707070
;RH = 1B35 IF 1 BIT PER PAGE
ND (NXMBEF,15) ;PTR TO NXM TABLE BEFORE ERROR
;-LENGTH,,OFFSET FROM HEADER WD 0
ND (NXMAFT,16) ;PTR TO NXM TABLE AFTER ERROR
;-LENGTH,,OFFSET FROM HEADER WD 0
ND (NXMADR,17) ;PTR TO LIST OF NXM ADDRESSES
;-LENGTH,,OFFSET FROM HEADER WD 0
ND (NXMPPN,18) ;PPN OF USER RUNNING AT NXM INTERRUPT
ND (NXMJOB,19) ;PROGRAM NAME
;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) ;CNT OF DISK INFO BLOCKS IN THIS ENTRY
; ;DISK INFO BLOCK-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)
; ;****************************************
ND (CPENAM,0) ;DEVICE USING CHAN AT ERROR IN SIXBIT
ND (CPENXM,1) ;# OF NXM'S AND OVERRUNS FOR THIS CHAN
ND (CPEMPE,2) ;# OF MPE'S FOR THIS CHAN
ND (CPEDPE,3) ;# OF DEVICE DPE'S FOR THIS CHAN
ND (CPEICW,4) ;INITIAL CONTROL WORD
ND (CPEFCW,5) ;TERMINATION WORD
ND (CPECW2,6) ;FINAL CONTROL WD -2
ND (CPECW1,7) ;FINAL CONTROL WD -1
ND (CPECW0,8) ;FINAL CONTROL WD
ND (CPEDW2,9) ;LAST DATA WD -2
ND (CPEDW1,10) ;LAST DATA WD -1
ND (CPEDW0,11) ;LAST DATA WD
ND (CPEETW,12) ;[122]EXPECTED TERMINATION WD
; ;***************************************
; ;ERROR CODE 7 ER.DST (DAEMON STARTED)
; ;***************************************
ND (DSTVER,0) ;DAEMON VERSION
; ;***************************************
; ;ERROR CODE 10 ER.DPE (DISK ERROR)
; ;***************************************
ND (HDENAM,0) ;PHYSICAL UNIT NAME IN SIXBIT
ND (HDEHID,1) ;HOME BLOCK ID(PACK ID)
ND (HDEHCT,2) ;# OF HARD ERRORS ON THIS UNIT
ND (HDESCT,3) ;# OF SOFT ERRORS ON THIS UNIT
ND (HDEECT,4) ;LH = 1B0 IF LATER WON 1ST TIME
; = 1B1 IF ERROR WAS HARD
; = 1B2 IF HUNG DEVICE[1300]
;RH = # OF RETRIES
ND (HDESOF,5) ;STATUS AT ERROR
ND (HDEERR,6) ;STATUS AFTER RETRY WHICH WON
ND (HDESDI,7) ;DATAI AT ERROR
ND (HDEHDI,8) ;DATAI AFTER RETRY WHICH WON
ND (HDEHBN,9) ;LOGICAL BLOCK NUMBER OF ERROR
ND (HDEMCT,10) ;SOFTWARE DETECTED ERROR CNTS
ND (UNISER,<POINT 12,HDEMCT,11>) ;SAT ERRORS
ND (UNIRER,<POINT 12,HDEMCT,23>) ;RIB ERRORS
ND (UNICER,<POINT 12,HDEMCT,35>) ;CHECKSUM ERRORS
ND (HDEPCT,11) ;# OF SEEK INCOMPLETES
ND (HDEHNG,12) ;# OF UNIT HUNGS
ND (UNINTH,<POINT 9,HDEHNG,8>) ;# OF NTHUNG
ND (UNITHU,<POINT 9,HDEHNG,17>) ;# OF THUNG
ND (UNIPHU,<POINT 9,HDEHNG,26>) ;# OF PHUNG
ND (UNISHU,<POINT 9,HDEHNG,35>) ;# OF SHUNG
ND (HDETRC,13) ;# OF BLOCKS READ ON THIS UNIT
ND (HDETWC,14) ;# OF BLOCKS WRITTEN ON THIS UNIT
ND (HDETSC,15) ;# OF SEEKS ON THIS UNIT
ND (HDEDCR,16) ;RESULTS OF A DSKCHR UUO FOR THIS UNIT
ND (HDELOG,17) ;LOGICAL NAME IN SIXBIT
ND (HDECCT,18) ;[122]LH = # OF SLOTS LEFT IN BAT
; RH = # OF CHAN TERM WD FAILURES
ND (HDEFIL,19) ;[140]FILE NAME IN SIXBIT
ND (HDEEXT,20) ;FILE EXTENTION IN SIXBIT
ND (HDEUID,21) ;PPN OF USER
ND (HDEPGM,22) ;[140]PROGRAM NAME IN SIXBIT
; ;****************************************
; ;ERROR CODE 11 ER.MDE (MASSBUS ERRORS)
; ;****************************************
ND (MDENAM,0) ;PHYSICAL DEVICE NAME IN SIXBIT
ND (MDEMID,1) ;MEDIA ID IN SIXBIT
ND (MDESTR,2) ;STRUCTURE NAME IN SIXBIT
ND (MDELOC,3) ;LOGICAL BLOCK NUMBER OF ERROR
ND (MDETYP,4) ;LH = 1B1 IF NON-RECOVERABLE
; = 1B2 IF HUNG DEVICE[1300]
ND (MDEADR,<POINT 7,MDETYP,11>) ;PHYSICAL CONTROLLER ADDR[1103]
ND (MDECTL,<POINT 3,MDETYP,14>) ;CONTROLLER TYPE
ND (MDECTN,<POINT 3,MDETYP,17>) ;CONTROLLER NUMBER
;RH = # OF RETRIES
ND (MDECNI,5) ;STATUS AT ERROR
;LH = LH OF CHN STS0 (RH20)
;RH = CONI RH (RH 10/20)
;LH = CS2 (RH11)
;RH = CS1 (RH11)
ND (MDECNF,6) ;STATUS AFTER RETRY AS ABOVE
ND (MDESF1,7) ;# OF SOFTWARE ERRORS
ND (MDESER,<POINT 12,MDESF1,11>) ;SAT ERRORS
ND (MDERER,<POINT 12,MDESF1,23>) ;RIB ERRORS
ND (MDECER,<POINT 12,MDESF1,35>) ;CHECKSUM ERRORS
ND (MDESF2,8) ;# OF SEEK INCOMPLETES
ND (MDESF3,9) ;# OF SOFTWARE DETECTED HANGS
ND (MDENTH,<POINT 9,MDESF2,8>) ;# OF NTHUNG
ND (MDETHU,<POINT 9,MDESF2,17>) ;# OF THUNG
ND (MDEPHU,<POINT 9,MDESF2,26>) ;# OF PHUNG
ND (MDESHU,<POINT 9,MDESF2,35>) ;# OF SHUNG
ND (MDEFIL,10) ;FILENAME IN SIXBIT
ND (MDEEXT,11) ;EXTENTION IN SIXBIT
ND (MDEUID,12) ;USERS PPN
ND (MDEPGM,13) ;PROGRAM NAME
ND (MDEDTI,14) ;DATAI RHCR AT ERROR (RH10)
;PTCR (RH20)
;UBA STATUS (RH11)
ND (MDEDTF,15) ;DATAI RHCR AFTER RETRY AS ABOVE
ND (MDE2DT,16) ;DATAI RHDB AT ERROR (RH10)
;PBAR (RH20)
;UBA MAP (RH11)
ND (MDE2DF,17) ;DATAI RHDB AFTER RETRY AS ABOVE
; ;HERE ARE THE DEVICE REGISTERS IN THE FORM
; ; LH = CONTENTS AT END
; ; RH = CONTENTS AT ERROR
ND (MDEDCR,18) ;DEVICE CONTROL REGISTER
ND (MDEDSR,19) ;DEVICE STATUS REGISTER
ND (MDEDER,20) ;DEVICE ERROR REGISTER 1
ND (MDEDMR,21) ;DEVICE MAINTENANCE REGISTER
ND (MDEDAS,22) ;DEVICE ATTENTION SUMMARY REGISTER
ND (MDEDBA,23) ;DEVICE ADDRESS REGISTER
ND (MDEDDT,24) ;DEVICE TYPE REGISTER
ND (MDEDLA,25) ;DEVICE LOOK-AHEAD REGISTER
ND (MDEDSN,26) ;DEVICE SERIAL # REGISTER
ND (MDEDMO,27) ;DEVICE OFFSET REGISTER
ND (MDEDDC,28) ;DEVICE DESIRED CYL REGISTER
ND (MDEDCC,29) ;DEVICE CURRENT CYL REGISTER
ND (MDEDCB,30) ;DEVICE ERROR REGISTER 2
ND (MDEDDA,31) ;DEVICE ERROR REGISTER 3
ND (MDEDEP,32) ;DEVICE ERROR POSITION REGISTER (ECC)
ND (MDEDPL,33) ;DEVICE ERROR PLACE REGISTER (ECC)
ND (MDEICR,34) ;LH = 0
;RH = LAST COMMAND ISSUED TO UNIT
ND (MDECCT,35) ;[122] LH = # OF SLOTS LEFT IN BAT
; RH = # OF CHAN TERM WD FAILURES
;**************************************
;ERROR CODE 12 - DX20 DEVICE ERROR ER.DXE
;**************************************
ND (DXENAM,0) ;SIXBIT DEVICE NAME
ND (DXEVID,1) ;VOLUME ID
ND (DXETYP,2) ;CTRLR ADDR,, CHAN TYPE DEVICE
; 777B8=DX20 ADD. (DS FOR RH20)
; 777B17=CONTROLLER ADDRESS
; 777B26=CHANNEL TYPE
; 1=RH20
; 777B35=DEVICE TYPE
; 1=TAPE, 2=DISK
ND (DXELOC,3) ;LOC OF ERROR
; FILE,,RECORD IF TAPE
; LBN IF DISK
ND (DXEFES,4) ;FINAL ERROR STATE
; 1B1=NON-RECOVERABLE ERROR
; 1B2=HUNG DEVICE[1300]
; B18-35=RETRY COUNT
ND (DXECNI,5) ;CONI INITIAL
ND (DXECIF,6) ;CONI FINAL
ND (DXESEK,7) ;NUMBER OF SEEKS
ND (DXERED,8) ;NUMBER OF BLOCKS/FRAMES READ
ND (DXEWRT,9) ;NUMBER OF BLOCKS/FRAMES WRITTEN
ND (DXEFIL,10) ;SIXBIT FILENAME
ND (DXEUSR,11) ;[P,PN] OF USER MAKING REQUEST
ND (DXEPGM,12) ;SIXBIT NAME OF PROGRAM RUNNING
ND (DXED1I,13) ;DATAI PTCR INITIAL
ND (DXED1F,14) ;DATAI PTCR FINAL
ND (DXED2I,15) ;DATAI PBAR INITIAL
ND (DXED2F,16) ;DATAI PBAR FINAL
ND (DXESRE,17) ;SOFT READ ERRORS IF MAGTAPE
;HARD ERROR STATS IF DISK
ND (DXEHDV,<POINT 18,DXESRE,17>) ;DEVICE+SEEK+SEARCH ERRORS
ND (DXEHDT,<POINT 18,DXESRE,35>) ;DATA ERRORS
ND (DXESWE,18) ;SOFT WRITE ERRORS IF MAGTAPE
;SOFT ERROR STATS IF DISK
ND (DXESDV,<POINT 18,DXESWE,17>) ;DEVICE+SEEK+SEARCH ERRORS
ND (DXESDT,<POINT 18,DXESWE,35>) ;DATA ERRORS
ND (DXEHRE,19) ;HARD READ ERRORS IF MAGTAPE
;SOFTWARE ERROR COUNTS IS DISK
ND (DXESER,<POINT 12,DXEHRE,11>) ;SAT ERRORS
ND (DXERER,<POINT 12,DXEHRE,23>) ;RIB ERRORS
ND (DXECER,<POINT 12,DXEHRE,35>) ;CHECKSUM ERRORS
ND (DXEHWE,20) ;HARD WRITE ERRORS IF TAPE
;HUNG COUNTS IF DISK
ND (DXENTH,<POINT 9,DXEHWE,8>) ;NTHUNGS
ND (DXETHU,<POINT 9,DXEHWE,17>) ;THUNGS
ND (DXEPHU,<POINT 9,DXEHWE,26>) ;PHUNGS
ND (DXESHU,<POINT 9,DXEHWE,35>) ;SHUNGS
ND (DXEPS1,21) ;UNUSED
ND (DXEPS2,22) ;UNUSED
ND (DXECS0,23) ;CHANNEL LOGOUT 0
ND (DXECS1,24) ;CHANNEL LOGOUT 1
ND (DXECS2,25) ;CHANNEL LOGOUT 2
ND (DXECC1,26) ;FIRST CCW
ND (DXECC2,27) ;SECOND CCW
ND (DXEMPE,28) ;COUNT OF MPE
ND (DXENXM,29) ;COUNT OF NXM
ND (DXESPE,30) ;UNUSED
ND (DXEHPE,31) ;UNUSED
ND (DXEOVR,32) ;UNUSED
ND (DXEICR,33) ;CONT. OF INITIAL CONTROL REG
ND (DXEVER,34) ;DX20 MICRO-CODE VERSION #
;(10 BITS OF VER# 6 BITS OF EDIT#)
; ;POINTERS TO SUB-BLOCKS
ND (DXEMBR,35) ;PTR TO MASSBUS REGISTERS
;+LENGTH,,OFFSET FROM DXENAM
ND (DXEDVL,36) ;PTR TO DEVICE REGISTERS
;+LENGTH,,OFFSET FROM DXENAM
; ;OTHER POINTERS MAY BE ADDED HERE
; ;MASSBUS REGISTER VALUES ARE IN THE FORM -
; ;FINAL CONTENTS,,INITIAL CONTENTS
; ;MASSBUS REGISTER INFORMATION
ND (DMXCR,0) ;(0) CONTROL REG
ND (DMXSR,1) ;(1) STATUS REG
ND (DMXER,2) ;(2) ERROR REG
ND (DMXMR,3) ;(3) MAINT. REG
ND (DMXAS,4) ;(4) ATTN SUMM
ND (DMXSB,5) ;(5) SECONDARY BLOCK ADDRESS REG (SAME
; AS DMXBC)
ND (DMXDT,6) ;(6) DRIVE TYPE&HDWR VER#
ND (DMXSI,7) ;(20) STATUS INDEX/ENDING STATUS
ND (DMXDN,8) ;(21) DRIVE # / MODE [507]
ND (DMXES,9) ;(22) EXTENDED STATUS TABLE SIZE [507]
ND (DMXTE,10) ;(23) T.I.E./FLAGS
ND (DMXAY,11) ;(24) ASYNCH STATUS
ND (DMXE0,12) ;(26) EXTENDED STATUS REG 0
ND (DMXE1,13) ;(27) EXTENDED STATUS REG 1
ND (DMXIR,14) ;(30) INSTR REG
ND (DMXPC,15) ;(31) PROG COUNTER
ND (DMXAL,16) ;(32) ALU
ND (DMXSD,17) ;(33) SROM/DROM
ND (DMXFP,18) ;(34) FROM/PARITY/INTERRUPTS
ND (DMXBW,19) ;(35) BALU/WORKING MEMORY
ND (DMXIB,20) ;(36) IBUS/BR
; ;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.
ND (DTXSBA,0) ;(0-3)SENSE BYTES 0-3
ND (DTXSBB,1) ;(4-7)SENSE BYTES 4-7
ND (DTXSBC,2) ;(8-11)SENSE BYTES 8-11
ND (DTXSBD,3) ;(12-15)SENSE BYTES 12-15
ND (DTXSBE,4) ;(16-19)SENSE BYTES 16-19
ND (DTXSBF,5) ;(20-23)SENSE BYTES 20-23
ND (DTXMCV,6) ;(24-27)MCV(2 BYTES)/UP STATUS/I-O BANK SELECT
ND (DTXMRA,7) ;(28-31)MASSBUS INTERFACE REG 0-3
ND (DTXMRB,8) ;(32-35) 4-7
ND (DTXMRC,9) ;(36-39) 10-13
ND (DTXMRD,10) ;(40-43) 14-17
ND (DTXMRE,11) ;(44-47) 20-23
ND (DTXMRF,12) ;(48-51) 23-27
ND (DTXCB0,13) ;(52-55)CHANNEL BUS INT. REGS 10-17
ND (DTXCB1,14) ;(56-59) " " "
ND (DTXDP0,15) ;(60-63)DATA PATH REGS 0-17
ND (DTXDP1,16) ;(64-67) " "
ND (DTXDP2,17) ;(68-71) " "
ND (DTXDP3,18) ;(72-75) " "
ND (DTXLAS,19) ;(76-79) LAST COMMAND,LAST DEV ADDR
;LAST ASYCH,STATUS,LAST DEV W ASYNCH STATUS
; ;*****************************************
; ;ERROR CODE 14 (ER.SWE) (SOFTWARE EVENT)
; ;*****************************************
ND (SWECOD,0) ;EVENT CODE
ND (SWEPOK,1) ;EVENT WAS A POKE
ND (SWESNP,2) ;EVENT WAS A SNOOP
ND (SWETRP,3) ;EVENT WAS A TRPSET
ND (SWERTT,4) ;EVENT WAS A RTTRAP
ND (SWEMS1,5) ;MISC. EVENT 1
ND (SWEMS2,6) ;MISC. EVENT 2
ND (SWEJOB,1) ;JOB NUMBER
ND (SWEUID,2) ;USERS PPN
ND (SWEPGM,3) ;PROGRAM NAME IN SIXBIT
ND (SWELIN,4) ;TTY LOCATION
ND (SWENOD,<POINT 12,SWELIN,11>) ;OCTAL NODE #
ND (SWELLN,<POINT 12,SWELIN,23>) ;OCTAL LINE #
ND (SWETTY,<POINT 12,SWELIN,35>) ;OCTAL TTY #
ND (SWEPTR,5) ;POINTER TO DATA
;- # OF ITEMS,,OFFSET FROM SWECOD
; ;*****************************************
; ;ERROR CODE 15 ER.CSC (CONFIGURATION STATUS CHANGE)
; ;*****************************************
ND (CSCNAM,0) ;SIXBIT UNIT NAME
;PTR TO NXM TABLE
;-LENGTH,,OFFSET FROM HEADER WD 0
;AMOUNT OF TIME CHANGE IN JIFFIES
;NODE NUMBER
ND (CSCNM2,1) ;SIXBIT UNIT NAME
;PTR TO NXM TABLE
;-LENGTH,,OFFSET FROM HEADER WD 0
;CURRENT DATE/TIME
;SIXBIT NODE NAME
ND (CSCSTS,2) ;LH = REASON AMD COMMAND CODE
ND (CSCREA,<POINT 12,CSCSTS,11>) ;SIXBIT REASON ANSWER
ND (CSCCOM,<POINT 6,CSCSTS,17>) ;COMMAND CODE
;ATTACH = 0
;DETACH = 1
;EXCHANGE = 2
;DATE/TIME CHANGE = 3
;SET CPU OFFLINE = 4
;SET CPU ONLINE = 5
;NODE OFFLINE = 6
;NODE ONLINE = 7
;OPR SET MEM ONLINE = 10
;OPR SET MEM OFFLINE = 11
;MONITOR SET MEM OFFLINE = 12 ;RH = 1B35 IF 1 PAGE PER BIT
; ;*****************************************
; ;[715] ERROR CODE 16 ER.SLM SYSTEM OPR LOG
; ;*****************************************
; ;ALSO USED FOR 116 ENTRY UNDER TOPS20
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) ;PTR TO ASCIZ MSG
;-LENGTH,,OFFSET FROM SLMTTY
; ;*****************************************
; ;ERROR CODE 17 ER.DEB (SOFTWARE REQUESTED DATA)
; ;*****************************************
ND (DEBPTR,0) ;PNTR WORD TO SAVED DATA
;-LENGTH,,OFFSET FROM HEADER WD 0
; ;*****************************************
; ;ERROR CODE 20 ER.MAG (MAGTAPE ERRORS)
; ;*****************************************
ND (MAGNAM,0) ;DEVICE NAME IN SIXBIT
ND (MAGRID,1) ;REELID IN SIXBIT
ND (MAGFFB,2) ;# OF FILES FROM BOT AT ERROR
ND (MAGRFF,3) ;# OF RECORDS FROM LAST EOF AT ERROR
ND (MAGICC,4) ;CONI MTC AT ERROR
ND (MAGICS,5) ;CONI MTS AT ERROR
ND (MAGFCC,6) ;CONI MTC AFTER RETRY
ND (MAGFCS,7) ;CONI MTS AFTER RETRY
ND (MAGRTC,8) ;LH = 1B1 IF NON-RECOVERABLE
;RH = RETRY COUNT
ND (MAGMED,9) ;-1 IF TENTH ERROR SINCE LAST UNLOAD
; ;****************************************
; ;ERROR CODE 21 ER.TAP (TAPSER ERRORS)
; ;****************************************
ND (TAPNAM,0) ;DEVICE NAME IN SIXBIT
ND (TAPRID,1) ;REELID IN SIXBIT
ND (TAPFIL,2) ;# OF FILES FROM BOT AT ERROR
ND (TAPREC,3) ;# OF RECORDS FROM LAST EOF AT ERROR
ND (TAPTRY,4) ;RETRY WORD
;LH = 1B1 IF NON-RECOVERABLE
; = 1B2 IF HUNG DEVICE[1300]
; 1B11 IF RH20
ND (TAPCTL,<POINT 3,TAPTRY,14>) ;CONTROLLER TYPE
;TM10A = 0
;TM10B = 1
;TC10C = 2
;DX10 = 3
;TM02 = 4
;RH11-TM02 = 5
;DX20 = 6
ND (TAPCTN,<POINT 3,TAPTRY,17>) ;CONTROLLER NUMBER
;RH = RETRY COUNT
ND (TAPCCR,5) ;NUMBER OF FRAMES INTO RECORD AT ERROR
ND (TAPPBE,6) ;LH = FILE NUMBER BEFORE ERROR
;RH = RECORD NUMBER BEFORE ERROR
ND (TAPFES,7) ;FINAL ERROR STATUS
ND (TAPIEP,8) ;PTR TO CTRLLR STATUS BLOCK AT ERROR
;-LENGTH,,OFFSET FROM HEADER WD 0
ND (TAPFEP,9) ;PTR TO CTRLLR STATUS BLOCK AFTER RETRY
;-LENGTH,,OFFSET FROM HEADER WD 0
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) ;BYTE COUNT
ND (XS.TAG,1) ;TAG LINES,,BUS LINES
ND (XS.DAC,2) ;DAC (BITS 14 THRU 35)
ND (XS.FR,3) ;FEATURE REGISTER
ND (XS.MCV,<POINT 6,XS.FR,5>) ;MICROCODE VERSION #
ND (XS.MED,<POINT 12,XS.FR,17>) ;MICROCODE EDIT #
;RH = FEATURE REGISTER
ND (XS.S0,4) ;SENSE BYTES 0 THRU 3
ND (XS.S4,5) ;SENSE BYTES 4 THRU 7
ND (XS.S8,6) ;SENSE BYTES 8 THRU 11
ND (XS.S12,7) ;SENSE BYTES 12 THRU 15
ND (XS.S16,8) ;SENSE BYTES 16 THRU 19
ND (XS.S20,9) ;SENSE BYTES 20 THRU 23
ND (XS.CNI,10) ;CONI DX10
ND (XS.ST1,11) ;ICPC +1 (STATUS WORD)
ND (XS.ST2,12) ;ICPC +2 (STATUS WORD)
ND (XS.CPC,13) ;CPC
ND (XS.CMD,14) ;CHANNEL COMMAND WORD
ND (XS.CM1,15) ;2ND CHANNEL COMMAND WORD
ND (XS.MD,16) ;MD AND CPMA
ND (XS.DR,17) ;DR REGISTER
ND (XS.DAG,18) ;DIAGN FAILURE CODE
ND (XS.MR1,19) ;DX MEM REG 10&11
; ;TERMINATION AREA FOR TC10
ND (TC.CNI,0) ;CONI TC10C
; ;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) ;ERROR STATUS
;LH = LH CHN STS0 (RH20)
;RH = CONI RH (RH10/20)
;LH = CS2 (RH11)
;RH = CS1 (RH11)
ND (T2.DTI,1) ;DATAI RHCR (RH10)
;PTCR (RH20)
;UBA STATUS (RH11)
ND (T2.2DT,2) ;DATAI RHDB (RH10)
;PBAR (RH20)
;UBA MAP (RH11)
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
; ;****************************************
; ;
; ;FOR DESCRIPTION OF ERROR CODE 30
; ;SEE ENTRY 130 IN TOPS-20 ERROR CODE
; ;DEFINITIONS
; ;
; ;****************************************
; ;****************************************
; ;FRONT-END RELOAD ENTRY ER.FER ENTRY 31
; ;****************************************
ND (FERNUM,0) ;LH = CPU #
;RH = DTE #
;1B0 = MASTER DTE BIT
ND (FERSTS,1) ;RELOAD STATUS
;1B0 = LOG REQUEST
;1B2 = DUMP FAILED
;1B3 = TO 10 ERROR DURING DUMP
;1B4 = TO 11 ERROR PASSING BOOTSTRAP
;1B6 = RELOAD FAILED
;1B7 = POWER FAIL DID NOT SET
;1B8 = POWER FAIL DID NO CLEAR
;1B9 = ROM DID NOT SEND A DOORBELL
;1B10 = BOOT DIDN'T MAKE IT TO THE 11
;1B11 = 11 ROM DIDN'T CLR TO 11 DOORBELL
;1B12 = TO 10 BYTE XFR FOR DUMP HUNG
;1B13 = ENTER FAILURE FOR DUMP FILE
;1B14 = OPEN FAILURE FOR DUMP DEVICE
;1B15 = OUTPUT FAILURE FOR DUMP FILE
;1B16 = TO 11 BYTE XFER TIMED OUT
;177B35 = RETRY COUNT
ND (FERFNM,2) ;FILE NAME STRING POINTER
ND (FERSIZ,3) ;SIZE OF STRING
; ;****************************************
; ;KS10 HALT STATUS BLOCK ENTRY ER.HSB ENTRY 33
; ;****************************************
ND (HSBCOD,0) ;HALT STATUS CODE (PHYSICAL LOCATION 0)
ND (HSBEPC,1) ;PC AT ERROR (PHYSICAL LOCATION 1)
ND (HSBHBP,2) ;PTR TO HALT STATUS BLOCK
;-LENGTH,,OFFSET FROM HSBCOD
ND (HSBCBP,3) ;PTR TO CLOCK STOP BLOCK (UNUSED)
;-LENGTH,,OFFSET FROM HSBCOD
; ;HALT STATUS BLOCK
ND (HSBNUL,0) ;MAGNITUDE
ND (HSBPCE,1) ;PC
ND (HSBHRE,2) ;CURRENT INSTRUCTION
ND (HSBARE,3) ;AR
ND (HSBARX,4) ;ARX
ND (HSBBRE,5) ;BR
ND (HSBBRX,6) ;BRX
ND (HSBONE,7) ;THE CONSTANT 1
ND (HSBEBR,8) ;EXEC BASE REGISTER
ND (HSBUBR,9) ;USER BASE REGISTER
ND (HSBMSK,10) ;MASK
ND (HSBFLG,11) ;MICROCODE STATUS FLAGS
ND (HSBPIS,12) ;PI STATUS
ND (HSBXW1,13) ;1,,1
ND (HSBTP0,14) ;T0
ND (HSBTP1,15) ;T1
ND (HSBVMA,16) ;VMA FLAGS,,VMA
; ;****************************************
; ;ERROR CODE 40 ER.USC
; ;****************************************
ND (USCNAM,0) ;DEVICE NAME IN SIXBIT
ND (USCHID,1) ;HOME BLOCK ID IN SIXBIT
ND (USCHCT,2) ;HARD ERROR COUNT
ND (USCSCT,3) ;SOFT ERROR COUNT
ND (USCPCT,4) ;SEEK ERROR COUNT
ND (USCHNG,5) ;HUNG COUNT
ND (USCMCT,6) ;SOFTWARE ERROR COUNT
ND (USCBRC,7) ;TOTAL BLOCKS READ IN BUFFERED MODE
ND (USCBWC,8) ;TOTAL BLOCKS WRITTEN IN BUFFERED MODE
ND (USCDRC,9) ;TOTAL BLOCKS READ IN DUMP MODE
ND (USCDWC,10) ;TOTAL BLOCKS WRITTEN IN DUMP MODE
ND (USCMRC,11) ;TOTAL BLOCKS READ BY MONITOR
ND (USCMWC,12) ;TOTAL BLOCKS WRITTEN BY MONITOR
ND (USCICT,13) ;TOTAL BLOCKS READ FOR SWAPPER
ND (USCOCT,14) ;TOTAL BLOCKS WRITTEN BY SWAPPER
ND (USCMSC,15) ;TOTAL SEEKS BY MONITOR
ND (USCUSC,16) ;TOTAL SEEKS FOR JOBS
; ;****************************************
; ; ERROR CODE 41 ER.MSC
; ;****************************************
ND (MSCNAM,0) ;DEVICE NAME IN SIXBIT
ND (MSCRID,1) ;REELID IN SIXBIT
ND (MSCWRC,2) ;TOTAL # OF CHARACTERS READ
ND (MSCWWC,3) ;TOTAL # OF CHARACTERS WRITTEN
ND (MSCSRE,4) ;TOTAL # OF SOFT READ ERRORS
ND (MSCHRE,5) ;TOTAL # OF HARD READ ERRORS
ND (MSCSWE,6) ;TOTAL # OF SOFT WRITE ERRORS
ND (MSCHWE,7) ;TOTAL # OF HARD WRITE ERRORS
ND (MSCPPN,8) ;USER'S PPN
ND (MSCLAB,9)
ND (MSCUSN,10)
ND (MSCUTP,11)
; ;**************************************
; ; ERROR CODE 42 ER.TPS
; ;**************************************
ND (TPSNAM,0) ;DEVICE NAME IN SIXBIT
ND (TPSRID,1) ;REELID IN SIXBIT
ND (TPSWRC,2) ;TOTAL # OF CHARACTERS READ
ND (TPSWWC,3) ;TOTAL # OF CHARACTERS WRITTEN
ND (TPSSRE,4) ;TOTAL # OF SOFT READ ERRORS
ND (TPSHRE,5) ;TOTAL # OF HARD READ ERRORS
ND (TPSSWE,6) ;TOTAL # OF SOFT WRITE ERRORS
ND (TPSHWE,7) ;TOTAL # OF HARD WRITE ERRORS
ND (TPSPPN,8) ;USER'S PPN
ND (TPSLAB,9)
ND (TPSUSN,10)
ND (TPSUTP,11)
; ;****************************************
; ;ERROR CODE 45 ER.DSC
; ;****************************************
ND (DSCSBP,0) ;PTR TO SUBLOCKS
;-#OF BLOCKS,,OFFSET FROM DSCSBP TO 1ST
; ;FORMAT OF THE SUB-BLOCK
ND (DSCBPT,0) ;TABLE LENGTH
;-# OF ITEMS,,0
ND (DSCNAM,1) ;DEVICE NAME IN SIXBIT
ND (DSCHID,2) ;HOME BLOCK ID IN SIXBIT
ND (DSCHCT,3) ;LH = # OF HARD DEV+SEEK+SRH ERRORS
;RH = # OF HARD DATA ERRORS
ND (DSCSCT,4) ;LH = # OF HARD+SOFT DEV+SEEK+SRH ERRORS
;RH = # OF HARD+SOFT DATA ERRORS
ND (DSCPCT,5) ;LH = # OF POSITION FAILURES
;RH = # OF HARD+SOFT SEEK INC'S
ND (DSCHNG,6) ;HUNG COUNT
ND (DSCNTH,<POINT 9,DSCHNG,8>) ;# OF NTHUNG
ND (DSCTHU,<POINT 9,DSCHNG,17>) ;# OF THUNG
ND (DSCPHU,<POINT 9,DSCHNG,26>) ;# OF PHUNG
ND (DSCSHU,<POINT 9,DSCHNG,35>) ;# OF SHUNG
ND (DSCMCT,7) ;SOFTWARE ERROR COUNT
ND (DSCSER,<POINT 12,DSCMCT,11>) ;SAT ERRORS
ND (DSCRER,<POINT 12,DSCMCT,23>) ;RIB ERRORS
ND (DSCCER,<POINT 12,DSCMCT,35>) ;CHECKSUM ERRORS
ND (DSCBRC,8) ;TOTAL BLOCKS READ IN BUFFERED MODE
ND (DSCBWC,9) ;TOTAL BLOCKS WRITTEN IN BUFFERED MODE
ND (DSCDRC,10) ;TOTAL BLOCKS READ IN DUMP MODE
ND (DSCDWC,11) ;TOTAL BLOCKS WRITTEN IN DUMP MODE
ND (DSCMRC,12) ;TOTAL BLOCKS READ BY MONITOR
ND (DSCMWC,13) ;TOTAL BLOCKS WRITTEN BY MONITOR
ND (DSCICT,14) ;TOTAL BLOCKS READ FOR SWAPPER
ND (DSCOCT,15) ;TOTAL BLOCKS WRITTEN BY SWAPPER
ND (DSCMSC,16) ;TOTAL SEEKS BY MONITOR
ND (DSCUSC,17) ;TOTAL SEEKS FOR JOBS
; ;*************************************
; ;ER.DLE DL10 HARDWARE ERRORS CODE 50
; ;*************************************
ND (DLEPRT,0) ;DL10 PORT WITH ERROR
ND (DLECNI,1) ;CONI DLC
ND (DLEDTI,2) ;DATAI DLC
ND (DLECN0,3) ;CONI DLB R=0
ND (DLECN1,4) ;CONI DLB R=1
ND (DLECN2,5) ;CONI DLB R=2
ND (DLECN3,6) ;CONI DLB R=3
ND (DLEDT1,7) ;DATAI DLB (R=1) MB
ND (DLEPGM,8) ;11 PROGRAM NAME
ND (DLESTS,9) ;SOFTWARE STATUS
; ND (DLEERR,10)
; ND (DLERHS,11)
; ND (DLECOD,12)
; ND (DLEPER,13)
; ;START 1301 ADDITION OF RECORD DESCRIPTORS FOR NEW PARITY/NXM
; ;ENTRIES FOR TOPS-10 7.01
; ;*************************************
; ;ER.KII CODE 51 KI10 PARITY/NXM INTERRUPT
; ;*************************************
ND (KIINAM,0) ;CPU NAME IN SIXBIT
ND (KIIPCI,1) ;PC AT INTERRUPT
ND (KIIAPR,2) ;CONI APR AT INTERRUPT
ND (KIIPII,3) ;CONI PI AT INTERRUPT
ND (KIIPPN,4) ;PPN OF USER RUNNING AT INTERRUPT
ND (KIIPGM,5) ;SIXBIT PROGRAM NAME OF USER RUNNING AT INTERRUPT
; ;*************************************
; ;ER.KLI CODE 52 KL10 PARITY/NXM INTERRUPT
; ;*************************************
ND (KLINAM,0) ;CPU NAME IN SIXBIT
ND (KLIPCI,1) ;PC AT INTERRUPT
ND (KLIAPR,2) ;CONI APR AT INTERRUPT
ND (KLIPII,3) ;CONI PI AT INTERRUPT
ND (KLIERA,4) ;RDERA AT INTERRUPT
ND (KLISBD,5) ;POINTER TO SBDIAG SUBTABLE
; ;*************************************
; ;ER.KSN CODE 54 KS10 NXM TRAP
; ;*************************************
ND (KSNNAM,0) ;CPU NAME IN SIXBIT
ND (KSNPCT,1) ;PC AT TRAP
ND (KSNPFW,2) ;PAGE FAIL WORD
ND (KSNPMA,3) ;MAPPED PHYSICAL MEMORY ADDRESS AT TRAP
ND (KSNBDW,4) ;BAD DATA WORD
ND (KSNPIT,5) ;CONI PI AT TRAP
ND (KSNPPN,6) ;PPN OF USER THAT TRAPPED
ND (KSNPGM,7) ;PROGRAM NAME IN SIXBIT
ND (KSNGDW,8) ;GOOD DATA WORD
ND (KSNRET,9) ;RETRY WORD
;1B0 =THIS IS A KS10
;1B1 = NON-RECOVERABLE ERROR
;27-35 = RETRY COUNT
ND (KSNNRT,10) ;NUMBER OF RECOVERABLE TRAPS SINCE LAST RELOAD
ND (KSNNNT,11) ;NUMBER OF NON-RECOVERABLE TRAPS SINCE LAST RELOAD
; ;*************************************
; ;ER.KLT CODE 55 KL10 KS10 PARITY TRAP
; ;*************************************
ND (KLTNAM,0) ;CPU NAME IN SIXBIT
ND (KLTPCT,1) ;PC AT TRAP
ND (KLTPFW,2) ;PAGE FAIL WORD
ND (KLTPMA,3) ;MAPPED PHYSICAL MEMORY ADDRESS AT TRAP
ND (KLTBDW,4) ;BAD DATA WORD
ND (KLTPIT,5) ;CONI PI AT TRAP
ND (KLTPPN,6) ;PPN OF USER THAT TRAPPED
ND (KLTPGM,7) ;PROGRAM NAME IN SIXBIT
ND (KLTGDW,8) ;GOOD DATA WORD
ND (KLTRET,9) ;RETRY WORD
;1B0 =THIS IS A KS10
;1B1 = NON-RECOVERABLE ERROR
;1B2 = CACHE FAILED (KL ONLY)
;1B3 = CACHE IN USE (KL ONLY)
;1B4 = ERROR ON CACHE SWEEP (KL ONLY)
;1B5 = CACHE WAS DISABLED (KL ONLY)
;18-26 = RETRY COUNT WITH CACHE (KL ONLY)
;27-35 = RETRY COUNT WITHOUT CACHE
ND (KLTNRT,10) ;NUMBER OF RECOVERABLE TRAPS SINCE LAST RELOAD
ND (KLTNNT,11) ;NUMBER OF NON-RECOVERABLE TRAPS SINCE LAST RELOAD
; ;*************************************
; ;ER.NXS CODE 56 NXM MEMORY SWEEP
; ;*************************************
ND (NXSNAM,0) ;SIXBIT CPU NAME
ND (NXSTNE,1) ;TOTAL NXM ERRORS SINCE RELOAD
ND (NXSTSE,2) ;TOTAL SPURIOUS NXM ERROR SINCE RELOAD
ND (NXSFBA,3) ;FIRST BAD ADDRESS THIS SWEEP
ND (NXSLBA,4) ;LAST BAD ADDRESS THIS SWEEP
ND (NXSXXX,5) ;OBSOLETE FOR COMPATABILITY
ND (NXSTNS,6) ;TOTAL NXM'S THIS SWEEP
ND (NXSTNR,7) ;TOTAL NXM'S SINCE RELOAD
ND (NXSYYY,8) ;OBSOLETE FOR COMAPTABILITY
ND (NXSNAA,9) ;LOGICAL AND OF BAD ADDRS.
ND (NXSNOA,10) ;LOGICAL OR OF BAD ADDRS
ND (NXSNCS,11) ;# ERROR SEEN BY CHANNEL BUT NOT CPU
ND (NXSFLG,12) ;FLAG WORD FOR NXM TABLE
ND (NXSBEF,13) ;POINTER TO NXM TABLE BEFORE ERROR
ND (NXSAFT,14) ;POINTER TO NXM TABLE AFTER ERROR
ND (NXSADR,15) ;POINTER TO TABLE OF BAD ADDRESSES
;*************************************
; ;ER.PAR CODE 57 PARITY MEMORY SWEEP
; ;*************************************
ND (PARNAM,0) ;SIXBIT CPU NAME
ND (PARTPE,1) ;TOTAL PARITY ERRORS SINCE RELOAD
ND (PARTSE,2) ;TOTAL SPURIOUS ERRORS
ND (PARMPW,3) ;CONTENTS OF 1ST BAD DATA WORD THIS SWEEP
ND (PARMPA,4) ;ADDR OF 1ST BAD WORD THIS SWEEP
ND (PARPAR,5) ;POINTER TO %CCPAR TABLE
ND (PARMPT,6) ;POINTER TO %CCMPT TABLE
; ;END OF THIS PART OF 1301 OLD ENTRIES ARE STILL MAINTAINED
; ;FOR BACKWARD COMPATABILITY
;*************************************
; ;ER.KDI CODE 60 KL10 DATA PARITY INTERRUPT
; ;*************************************
ND (KDINAM,0) ;CPU NAME IN SIXBIT
ND (KDITPE,1) ;# MPE'S
ND (KDISPE,2) ;# SPURIOUS MPE'S
ND (KDIMPC,3) ;# OF CONTINUES AFTER MPE HALTS
ND (KDIMPP,4) ;PC AT MPE INTERRUPT
ND (KDIMPW,5) ;CONTENTS OF 1ST BAD WD FOUND ON SWEEP
ND (KDIMPA,6) ;ADDRESS OF 1ST BAD WD FOUND ON SWEEP
ND (KDIPAR,7) ;AOB POINTER TO %CCPAR TABLE
ND (KDIMPT,8) ;AOB POINTER TO %CCMPT TABLE
ND (KDIPPN,9) ;PPN OF USER
ND (KDIPGM,10) ;PROGRAM NAME
ND (KDICNI,11) ;CONI APR
ND (KDIERA,12) ;RDERA
ND (KDISBD,13) ;PTR TO SBDIAG SUBTABLE
; ;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.KDT CODE 61 KL10 DATA PARITY ERROR TRAP
; ;************************************
ND (KDTPFW,0) ;PAGE FAIL WORD AT TRAP
ND (KDTBDW,1) ;BAD DATA WORD
ND (KDTGDW,2) ;GOOD DATA WORD
ND (KDTPMA,3) ;PHYSICAL ADDRESS OF FAILURE
ND (KDTTRY,4) ;RETRY WORD
;1B1 = NON-RECOVERABLE
;1B2 = CACHE FAILED
;1B3 = CACHE IN USE
;1B4 = ERROR DURING SWEEP
;1B5 = CACHE WAS DISABLED
ND (KDERWC,<POINT 9,KDTTRY,26>) ; = # ERRORS W CACHE
ND (KDEWOC,<POINT 9,KDTTRY,35>) ; = # ERRORS W/O CACHE
ND (KDTTRE,5) ;# OF RECOVERABLE TRAP ERRORS
ND (KDTNRE,6) ;# OF NON-RECOVERABLE TRAP ERRORS
ND (KDTTPC,7) ;PC AT TRAP
; ;***************************************
; ;ER.MDT CODE 62 - SAME AS CODE 60 EXCEPT FOR SUB-BLOCK [614]
; ;***************************************
ND (MDTNAM,0) ;CPU NAME IN SIXBIT
ND (MDTTPE,1) ;TOTAL # MPE'S
ND (MDTSPE,2) ;TOTAL # SPURIOUS MPE'S
ND (MDTMPC,3) ;# OF CONTINUES AFTER MPE HALTS
ND (MDTMPP,4) ;PC AT MPE INTERRUPT
ND (MDTMPW,5) ;CONTENTS OF 1ST BAD WD FOUND BY SWEEP
ND (MDTMPA,6) ;ADDRESS OF 1ST BAD WD FOUND BY SWEEP
ND (MDTPAR,7) ;AOB POINTER TO %CCPAR TABLE
;-LENGTH,,OFFSET FROM HEADER WD 0
ND (MDTMPT,8) ;AOB POINTER TO %CCMPT TABLE
;-LENGTH,,OFFSET FROM HEADER WD 0
ND (MDTPPN,9) ;PPN OF USER
ND (MDTPGM,10) ;PROGRAM NAME IN SIXBIT
ND (MDTCNI,11) ;CONI APR
ND (MDTERA,12) ;RDERA
ND (MDTSBD,13) ;PTR TO SBDIAG SUBTABLE
;-# OF BLOCKS,,OFFSET FROM HEADER WD 0
; ;***************************************
; ;SUBTABLE DESCRIPTION
; ;-# OF S-BUS DIAG FUNC,,# OF CONTROLLER
; ;SBDIAG FCN 0
; ;SBDIAG FCN 1
; ;***************************************
; ;***************************************
; ;CPU STATUS BLOCK ER.CSB ENTRY 63
; ;***************************************
ND (CSBAPI,0) ;APRID
ND (CSBAPR,1) ;CONI APR
ND (CSBPIC,2) ;CONI PI
ND (CSBPGD,3) ;DATAI PAG
ND (CSBPGC,4) ;CONI PAG
ND (CSBUP0,5) ;UPT LOCS 424 THRU 427
;END OF DATA COLLECTED FOR KI10
ND (CSBERA,9) ;RDERA
ND (CSBRHC,10) ;CONI RH0 THRU RH7
ND (CSBDTC,18) ;CONI DTE0 THRU DTE3
ND (CSBEP0,22) ;EPT LOCS 0 THRU 37
ND (CSBEP1,54) ;EPT LOCS 140 THRU 177
ND (CSBUP1,86) ;UPT LOCS 500 THRU 503
ND (CSBAC6,90) ;AC BLK 6 LOCS 0 THRU 3 AND 12
ND (CSBAC7,95) ;AC BLK 7 LOCS 0 THRU 2
ND (CSBSBD,98) ;PTR TO SBDIAG SUBTABLE
; -# OF ENTRIES,,OFFSET FROM CSBAPI
; ;***************************************
; ;SUBTABLE DESCRIPTION
; ;-# OF S-BUS DIAG FUNC,,# OF CONTROLLER
; ;SBDIAG FCN 0
; ;SBDIAG FCN 1
; ;***************************************
; ;***************************************
; ;ER.DSB CODE 64 DEVICE STATUS BLOCK [1111]
; ;***************************************
ND (DSBIOI,0) ;# OF IO INSTR,,OFFSET FROM DSBIOI
ND (DSBRSV,1) ;# OF RESULTS,,OFFSET FROM DSBIOI
; ;***************************************
; ;ER.KEA CODE 66
; ;***************************************
ND (KAENAM,0) ;SIXBIT CPU NAME
ND (KAETNE,1) ;TOTAL # OF ERRORS
ND (KAESNE,2) ;# F SPURIOUS ERRORS
ND (KAEMPP,3)
ND (KAENJA,4)
ND (KAEMNA,5)
ND (KAELNA,6)
ND (KAEMNR,7)
ND (KAENTS,8) ;# ERRORS DETECTED THIS SWEEP
ND (KAENSC,9) ;# OF SWEEPS
ND (KAEUEN,10) ;# OF USER ENABLED ERRORS
ND (KAENAA,11) ;LOGICAL AND OF BAD ADDRESSES
ND (KAENOA,12) ;LOGICAL OR OF BAD ADDRESSES
ND (KAENCS,13) ;# FAILURES DET BY CHAN BUT NOT CPU
ND (KAEKPG,14) ;FLAG WD FOR NXM TABLES
ND (KAEBEF,15) ;PTR TO NXM TABLE BEFORE ERROR
ND (KAEAFT,16) ;PTR TO NXM TABLE AFTER ERROR
ND (KAEADR,17) ;PTR TO LIST OF BAD ADDRESSES
ND (KAEPPN,18) ;PPN OF USER
ND (KAEPGM,19) ;PROGRAM NAME
ND (KAECNI,20) ;CONI APR
ND (KAEERA,21) ;RDERA
ND (KAESBD,22) ;PTR TO SBDIAG SUBTABLE
; ;***************************************
; ;ER.KAE CODE 67
; ;***************************************
ND (KAENAM,0) ;CPU NAME IN SIXBIT
ND (KAETNE,1) ;# REPRODUCIBLE ERRORS
ND (KAESNE,2) ;# SPURIOUS ERRORS
ND (KAEMPP,3) ;PC AT ERROR
ND (KAENJA,4) ;# OF JOBS AFFECTED
ND (KAEMNA,5) ;1ST BAD ADDRESS
ND (KAELNA,6) ;LAST ADDRESS
ND (KAEMNR,7) ;RELATIVE ADDR OF NXM IN SEGMENT
ND (KAENTS,8) ;# OF ERRORS DETECTED THIS SWEEP
ND (KAENSC,9) ;# OF CORE SWEEPS
ND (KAEUEN,10) ;# USER ENABLED ERRORS
ND (KAENAA,11) ;LOGICAL AND OF BAD ADDRESSES
ND (KAENOA,12) ;LOGICAL OR OF BAD ADDRESSES
ND (KAENCS,13) ;# DET BY CHAN BUT NOT CPU
ND (KAEKPG,14) ;FLAG WD FOR NXM TABLES
ND (KAEBEF,15) ;PTR TO NXM TABLES BEFORE ERROR
;-LENGTH,,OFFSET FROM HEADER WD 0
ND (KAEAFT,16) ;PTR TO NXM TABLES AFTER ERROR
;-LENGTH,,OFFSET FROM HEADER WD 0
ND (KAEADR,17) ;PTR TO LIST OF BAD ADDRESSES
;-LENGTH,,OFFSET FROM HEADER WD 0
ND (KAEPPN,18) ;PPN OF USER
ND (KAEPGM,19) ;PROGRAM NAME IN SIXBIT
ND (KAECNI,20) ;CONI APR
ND (KAEERA,21) ;RDERA
ND (KAESBD,22) ;PTR TO SBDIAG SUBTABLE
;-# OF ENTRIES,,OFFSET FROM HEADER WD 0
; ;***************************************
; ;SUBTABLE DESCRIPTION
; ;-# OF S-BUS DIAG FUNC,,# OF CONTROLLER
; ;SBDIAG FCN 0
; ;SBDIAG FCN 1
; ;***************************************
; ;**************************************
; ;ER.LPT CODE 71
; ;**************************************
ND (LPTNAM,0) ;DEVICE NAME IN SIXBIT
ND (LPTCNI,1) ;CONI LP100
ND (LPTWRD,2) ;LAST DATA WORD SENT TO PRINTER
ND (LPTTYP,3) ;LPT ID
; ;**************************************
; ;HARD COPY CONTROLLER ENTRY ER.HCC ENTRY 72
; ;**************************************
ND (HCCNAM,0) ;SIXBIT DEVICE MANE
ND (HCCTYP,1) ;CONTROLLER/DEVICE NAME
ND (HCCCTL,<POINT 6,HCCTYP,5>) ;CONTROLLER TYPE
;0 = ILLEGAL
;1 = BA10
;2 = LP100
;3 = LP20 (ON KS10)
;4 = CD20 (ON KS10)
ND (HCCDEV,<POINT 6,HCCTYP,11>) ;DEVICE TYPE
;0 = ILLEGAL
;1 = LPT
;2 = CDR
;3 = CDP
;4 = PLT
;1B17 = NON-RECOVERABLE
;RH = RETRY COUNT
ND (HCCUID,2) ;PPN OF USER
ND (HCCPGM,3) ;PROGRAM NAME
ND (HCCSBP,4) ;PTR TO DEVICE SUB-BLOCK
;+LENGTH,,OFFSET FROM HCCNAM
; ;**************************************
; ;SUB-BLOCK FOR BA10
; ;**************************************
ND (HCCCBA,0) ;CONI LPT,CDR,CDP OR PLT
ND (HCCBAW,1) ;LAST WD SENT TO BA
; ;**************************************
; ;SUB-BLOCK FOR LP100
; ;**************************************
ND (HCCCLP,0) ;CONI LP100
ND (HCCLWD,1) ;LAST WD SENT TO LP
; ;**************************************
; ;SUB-BLOCK FOR LP20 ON KS
; ;**************************************
ND (HCCL20,0) ;UBA STATUS
ND (HCCL21,1) ;UBA MAP
ND (HCCL22,2) ;LPCSRA,,LPCSRB
ND (HCCL23,3) ;LPBSAD,,LPBCTR
ND (HCCL24,4) ;LPPCTR,,LPRAMD
ND (HCCL25,5) ;LPCCTR,,LPTDAT
; ;**************************************
; ;SUB-BLOCK FOR CD20 ON KS
; ;**************************************
ND (HCCC20,0) ;UBA STATUS
ND (HCCC21,1) ;UBA MAP
ND (HCCC22,2) ;CD11ST,,CD11CC
ND (HCCC23,3) ;CD11BA,,CD11DB
SUBTTL ERROR FILE DEFINITIONS - TOPS-20 ENTRIES
RADIX 8 ;MAKE SURE WE'RE USING THE RIGHT RADIX
;*******************************
; 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, BUG TYPE
BG%UNK==0 ;[1260] UNKNOWN BUG TYPE (SYSERR USE ONLY)
BG%CHK==1 ;BUGCHK
BG%INF==2 ;BUGINF
BG%HLT==3 ;BUGHLT
BG%MAX==3 ;[1260] MAXIMUM VALUE OF BG%FLG
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]
;*******************************
; 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 - COMES FROM UDBERR
; LH IS ERROR TYPE - RH IS DEVICE FUNCTION
;
; LH
;RP04,06 DEPENDENT
;
ES.HRD==1B0 ;HARD ERROR
ES.ECC==1B1 ;ECC-CORRECTED ERROR
ES.DAT==1B2 ;DATA ERROR
ES.HDR==1B3 ;HEADER ERROR
ES.DEV==1B4 ;DEVICE ERROR (NEITHER DATA NOR HEADER)
ES.POS==1B5 ;POSITIONING ERROR
ES.FER==1B6 ;FORMAT ERROR (20-SECTOR PACK IN 22-SECT. MODE, ETC.)
;
;DX20 DEPENDENT
;
UDB.NM==1B17 ;RECOVERABLE NO MOTION ERROR
;RH
;
IRFRED==1 ;READ
IRFRDF==2 ;READ DATA AND FORMAT (COUNT, KEY, HEADER)
IRFWRT==3 ;WRITE DATA
IRFWTF==4 ;WRITE FORMAT
IRFSEK==5 ;SEEK
IRFFSB==6 ;FORWARD SPACE BLOCK
IRFBSB==7 ;BACKSPACE BLOCK
IRFWTM==10 ;WRITE TAPE MARK
IRFERG==11 ;ERASE GAP
IRFREW==12 ;REWIND
IRFRUN==13 ;REWIND AND UNLOAD
IRFRDR==14 ;READ REVERSE
IRFRCR==15 ;RECOVERY READ
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
.SA10==4 ;#1 SA10 channels
;OFFSETS INTO BIT DECODE TABLES
..RH10==4 ;RH10 CONI
..RH20==5 ;RH20 CONI
..RH11==13 ;CONTROL & STATUS 1
..UBA==14 ;UBA STATUS,MAP REGISTERS
..SA10==:113 ;#1 SA10 CONI (Why isn't this automated?)
;UNIT TYPES (MB.DEV)
;THERE ARE 4 OTHER TABLES WHICH MUST BE KEPT IN LINE FOR TOPS20
;MDE000 WHICH KEEPS SIXBIT NAMES, MSCNTL THE CONTROL TABLES,
;MDE011 THE TRANSLATE TABLE , AND, PAR111 WHICH HAS BITCHK, SUMMARY PTRS
.UTMIN==1 ;MINIMUM UNIT TYPE SUPPORTED
.UTRP4==1 ;RP04
.UTRS4==2 ;RS04
.UTT45==3 ;TU45
.UTTM2==4 ;TM02 (AS UNIT) TU16
.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
.UTT73==22 ;TU73
.UTP20==24 ;RP20
.UTCT1==30 ;#2 SA10 magtapes ;#3 changed from 24 to 32
.UTCC1==31 ;#1 3330 mod I ;#3 changed from 23 to 31
.UTCC2==32 ;#1 3330 mod II ;#3 changed from 24 to 32
.UTMAX==.UTCC2 ;#2 ;#3 MAXIMUM UNIT TYPE NOW SUPPORTED
;MASS BUSS DEVICE TYPES (IN MASSBUS DRIVE TYPE REGISTER - 06) [1231]
TY.RS4==002 ;RS04 DRIVE TYPE
TY.RP4==020 ;RP04
TY.RP5==021 ;RP05
TY.RP6==022 ;RP06
TY.RM3==024 ;RM03
TY.RP7==042 ;[1316]RP07
TY.P20==061 ;RP20 [1333]
TY.T2L==010 ;LOWEST TM02 TYPE LOW ORDER 3 BITS IS THE
TY.T2H==017 ;HIGHEST TM02 TYPE DRIVE SPEED FOR TAPES
TY.T16==011 ;TM02 AT 45IPS (TU16)
TY.T45==012 ;TM02 AT 75IPS (TU45)
TY.T3L==050 ;LOWEST TM03 TYPE
TY.T3H==057 ;HIGHEST TM03 TYPE
TY.U45==052 ;TM03 AT 75IPS (TU45)
TY.T77==054 ;TM03 AT 125IPS (TU77)
TY.DX2==060 ;DX20 DRIVE TYPE
;*******************************
; DX20 DEVICE ERROR
;*******************************
SEC%DX==112
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 SECTORS/FRAMES READ
DX%WRT==11 ;NUMBER OF SECTORS/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 ;DX20 #,,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 INFORMATION FOR DX20
; MASSBUS REGISTER VALUES ARE IN THE FORM -
; FINAL CONTENTS,,INITIAL CONTENTS
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#
;REGISTERS 7-17 ARE NOT CURRENTLY DEFINED [714]
DM%SI==7 ;(20) STATUS INDEX/ENDING STATUS
DM%DN==10 ;(21) DRIVE # / MODE
DM%ES==11 ;(22) EXTENDED STATUS TABLE SIZE
DM%TE==12 ;(23) T.I.E./FLAGS
DM%AY==13 ;(24) ASYNCH STATUS
;(25) BYTE COUNT (SAME AS DM%SB)
DM%E0==14 ;(26) EXTENDED STATUS REG 0
DM%E1==15 ;(27) EXTENDED STATUS REG 1
DM%IR==16 ;(30) INSTR REG
DM%PC==17 ;(31) PROG COUNTER
DM%AL==20 ;(32) ALU
DM%SD==21 ;(33) SROM/DROM
DM%FP==22 ;(34) FROM/PARITY/INTERRUPTS
DM%BW==23 ;(35) BALU/WORKING MEMORY
DM%IB==24 ;(36) IBUS/BR
DM%MA==25 ;(37) FLAGS/MEMORY ADDR.
;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) MASSBUS INTERFACE REG 4-7
DT%MRC==11 ;(36-39) MASSBUS INTERFACE REG 10-13
DT%MRD==12 ;(40-43) MASSBUS INTERFACE REG 14-17
DT%MRE==13 ;(44-47) MASSBUS INTERFACE REG 20-23
DT%MRF==14 ;(48-51) MASSBUS INTERFACE REG 24-27
DT%CB0==15 ;(52-55) CHANNEL BUS INT. REGS 10-13
DT%CB1==16 ;(56-59) CHANNEL BUS INT. REGS 14-17
DT%DP0==17 ;(60-63) DATA PATH REGS 0-3
DT%DP1==20 ;(64-67) DATA PATH REGS 4-7
DT%DP2==21 ;(68-71) DATA PATH REGS 10-13
DT%DP3==22 ;(72-75) DATA PATH REGS 14-17
DT%LAS==23 ;(76-79) LAST COMMAND, LAST DEV ADDR,
; LAST ASYCH, STATUS,
;LAST DEV W ASYNCH STATUS
;***********************************
;DISK/MAGTAPE STATISTICS
;***********************************
SEC%ST==114 ;#12 EVENT CODE
ST%COD==0 ;REASON FOR THIS RECORD
ST%SHT==1 ;SYSTEM SHUTDOWN
ST%MNT==2 ;(DISK) MOUNT
ST%DMT==3 ;(DISK) DISMOUNT
ST%UNL==4 ;(MAGTAPE) UNLOAD
ST%NAM==1 ;BINARY UNIT NUMBER IF MAGTAPE, 0 IF DISK
ST%VID==2 ;VOLUME ID (SIXBIT)
ST%TYP==3 ;DEVICE AND CHANNLE TYPE (SEE MB%TYP)
ST%CAD==4 ;CHANNEL ADDRESS
ST%UAD==5 ;UNIT ADDRESS
ST%RED==6 ;TOTAL READS ON THIS VOLUME
ST%WRT==7 ;TOTAL WRITES ON THIS VOLUME
ST%SEK==10 ;TOTAL SEEKS ON THIS VOLUME
ST%RNR==11 ;(MAGTAPE) FRAMES READ ON VOLUME IN NRZI
ST%RPE==12 ;(MAGTAPE) FRAMES READ ON VOLUME IN PE
ST%RGC==13 ;(MAGTAPE) FRAMES READ ON VOLUME IN GCR
ST%WNR==14 ;(MAGTAPE) FRAMES WRITTEN ON VOLUME IN NRZI
ST%WPE==15 ;(MAGTAPE) FRAMES WRITTEN ON VOLUME IN PE
ST%WGC==16 ;(MAGTAPE) FRAMES WRITTEN ON VOLUME IN GCR
ST%SIZ==ST%WGC+1 ;SIZE OF DATA BLOCK
ST%LEN==ST%SIZ ;TOTAL LENGTH, NO STRINGS REPOORTED
;*******************************
; CONFIGURATION STATUS CHANGE [1204]
;*******************************
;THIS ERROR IS LOGGED BY MTCON
SEC%CS==115 ;ENTRY TYPE
CS%OPW==0 ;WORD CONTAINING OPERATION CODE
CS.OPR==POINT 6,0,17 ; OPERATION CODE FIELD
CS%ADV==0 ; CODE FOR ATTACH DEVICE
CS%DDV==1 ; CODE FOR DETACH DEVICE
CS%HTP==1 ;HARDWARE TYPE INFORMATION
CS.UTP==POINT 5,1,35 ; UNIT TYPE [1215]
CS%DNM==2 ;SIXBIT LOGICAL DEVICE NAME
CS%ADS==3 ;MTOPR FUNCTION .MOINF WORD .MOISN
CS.CHN==POINT 3,3,11 ; CHANNEL #
CS.CON==POINT 3,3,14 ; CONTROLLER #
CS.UNI==POINT 3,3,17 ; UNIT #
CS.DSN==POINT 16,3,35 ; DRIVE SERIAL NUMBER (IN BINARY)
CS%RSW==4 ;WORD CONTAINING OFFSET TO REASON STRING
CS%RSN==0,,-1 ;OFFSET FROM CS%OPW TO ASCIZ REASON STRG
CS%SIZ==5 ;SIZE OF FIXED PORTION OF ENTRY
;#1 ***********************************
;#1 SA10 Disk Error Event Code
;#1 ***********************************
SEC%SD==121 ;#1 SA10 disk error
;;;#1 most of entries parallel massbus error event (SEC%MB=111)
SD%IOW==MB%CC1 ;#1 IOW from transfer
SD%STS==MB%CC2 ;#1 device specific status bits
SD%ES1==MB%REG ;#1 error status (base+1)
SD%ES2==SD%ES1+1 ;#1 error status (base+2)
SD%SEN==SD%ES2+1 ;#1 sense bytes (6 words)
SD%SCP==SD%SEN+6 ;#1 Standard Channel Program pointer (CC1SCP)
SD%CCP==SD%SCP+1 ;#1 Current Channel Program pointer (CC1CCP)
SD%XCP==SD%CCP+1 ;#1 eXtra Channel Program pointer (CC1XCP)
SD%CP1==SD%XCP+1 ;#1 Channel Program (15 wds)
SD%CP2==SD%CP1+15 ;#1 eXtra Channel Program (15 wds)
SD%CPE==SD%CP2+15 ;#1 end of CP2 (0 WDS)
;#2 ***********************************
;#2 SA10 Magtape Error Event Code
;#2 ***********************************
SEC%SM==122 ;#12 (name changed) ;#2 SA-10 magtape error
;;;#2 most of entries parallel massbus error event (SEC%MB=111)
SM%DVA==MB%REG ;#12 ;#2 Device address for this operation
SM%ES1==MB%REG+1 ;#12 ;#2 Error status (base+1)
SM%ES2==MB%REG+2 ;#12 ;#2 Error status (base+2)
SM%SEN==MB%REG+3 ;#12 ;#2 Sense bytes (6 words)
;*******************************
; FRONT END DEVICE REPORT [542]
;*******************************
ER.FEE==30 ;EVENT CODE FOR TOPS-10
SEC%FE==130 ;EVENT CODE 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.CFG==1B24 ; DEVICE CONFIGURATION REPORT [1311]
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 FROM FE%JOB
FE%DTE==6 ;DTE # WHICH DETECTED ERROR
FE%LTH==7 ;LENGTH OF DATA PACKET IN 8 BIT BYTES
; ;10-X SUB-BLOCK DATA PACKET
FE.DVV==POINT 6,0,22 ;[1311] REAL DEVICE FROM DLSCAN
DLS.DH==60 ;60 IS A DH11
DLS.DM==70 ;DM11
DLS.DL==75 ;DL11 (NOT CTY)
DLS.CT==77 ;DL11 (CTY)
;FRONT END DEVICE CODES (FE.DEV)
.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
.FEMAX==10 ;HIGHEST ALLOWED PHYSICAL DEVICE CODE [1200]
;PSEUDO DEVICE CODES (FE.DEV)
.KLCPU==200
.KLERR==201
D.CDTE==202 ;DTE / DEX ABD EBUS [1311]
D.CRJP==203 ;RH11 [1311]
.DM11B==204 ;DM11BB [1321]
.KLINK==210 ;KLINIK EVENT
.KLMAX==210 ;HIGHEST ALLOWED PSEUDO DEVICE CODE [1200]
;MAXIMUM NUMBER OF DEVICES IN KL FRONT-END CONFIGURATIONS REPORTS
;EDIT [1311]
DL.MAX==5 ;MAXIMUM # OF DL11'S
DH.MAX==^D8 ;MAXIMUM # OF DH11'S
DM.MAX==^D8 ;MAXIMUM # OF DM11BB'S [1321]
LP.MAX==2 ;MAXIMUM # OF LPT'S
CD.MAX==1 ;MAXIMUM # OF CDR'S
;FRONT-END DEVICE ADDRESSES PASSED IN DATA LINE SCANNER ERROR REPORT
; EDIT [1311]
DH%ADR==160020 ;FIRST DH11
DM%ADR==170500 ;FIRST DM11BB
DL%ADR==175610 ;FIRST DL11 (KLINIK)
CT%ADR==177560 ;DL11 (CTY)
;*******************************
; SUB-BLOCK FOR .FEDH11 (130-3) ENTRY [1210]
;*******************************
DH%WD0==0 ;DATA WORD 0
STD.ST==POINT 16,0,15 ; STANDARD STATUS WORD
; 100 = ERROR LOG REQUEST
;ADDITIONAL SUB-BLOCK WORDS FOR 'DEVICE HUNG' (STD.ST=1000)
DH.CT1==POINT 16,0,31 ; COUNTER #1
DH.0NL==POINT 4,0,35 ; NOT USED 0
DH%WD1==1 ;DATA WORD 1
DH.CT2==POINT 16,1,15 ; COUNTER #2
DH.CT3==POINT 16,1,31 ; COUNTER #3
DH.1NL==POINT 4,1,35 ; NOT USED 0
DH%WD2==2 ;DATA WORD 2
DH.CT4==POINT 16,2,15 ; COUNTER #4
DH.NL2==POINT 16,2,31 ; NOT USED 0
DH.2NL==POINT 4,2,35 ; NOT USED 0
; 100 = ERROR LOG REQUEST
;ADDITIONAL SUB-BLOCK WORDS FOR NON-'DEVICE HUNG' (STD.ST=1000) [1223]
DH.ADR==POINT 16,0,31 ; DH11 UNIBUS ADDRESS (BASE ADDRESS IS 160020)
DH.RHN==POINT 4,0,27 ; DH11 NUMBER+1 (16. LINES PER DH11)
DH.0NL==POINT 4,0,35 ; NOT USED 0
DH%WD1==1 ;DATA WORD 1
DH.SCR==POINT 16,1,15 ; DH11 SYSTEM CONTROL REGISTER
DH.LIN==POINT 4,1,15 ; LINE NUMBER
DH.NRC==POINT 16,1,31 ; DH11 NEXT RECEIVED CHARACTER REGISTER
DH.NLN==POINT 4,1,23 ; LINE NUMBER FOR NEXT CHARACTER
DH.NCH==POINT 8,1,31 ; NEXT RECIEVED CHARACTER
DH.1NL==POINT 4,1,35 ; NOT USED 0
;*******************************
; 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 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 ACCESS MODES (SET/CLEAR ENTRY) (K.SMOD)
K.SUSR==377 ;USER CONSOLE MODE (8BIT -1)
K.SREM==1 ;REMOTE MODE [605]
;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)
;*********************************
; SUB-BLOCK FOR PSEUDO DEVICE DTE
;*********************************
; ;AT ERROR
DV.EBS==POINT 8,0,23 ;EBUS PARITY ERROR FLAG
DV.DEX==POINT 8,0,31 ;DEX FAILURE FLAG
NDXERR==1 ;NOT A DEX ERROR
NEBSER==1 ;NOT AN EBUS PARITY ERROR
DTE101==POINT 16,1,15 ;DELAY COUNT
DTE102==POINT 16,1,31 ;DEX WORD 3
DTE103==POINT 16,2,15 ;DEX WORD 2
DTE104==POINT 16,2,31 ;DEX WORD 1
DTE105==POINT 16,3,15 ;ADDRESS WORD 1
DTE106==POINT 16,3,31 ;ADDRESS WORD 2
DTE107==POINT 16,4,15 ;TO10BC
DTE108==POINT 16,4,31 ;TO11BC
DTE109==POINT 16,5,15 ;TO10AD
DTE110==POINT 16,5,31 ;TO11AD
DTE111==POINT 16,6,15 ;TO10DT
DTE112==POINT 16,6,31 ;TO11DT
DTE113==POINT 16,7,15 ;DIAG1
DTE114==POINT 16,7,31 ;DIAG2
DTE115==POINT 16,8,15 ;STATUS
DTE116==POINT 16,8,31 ;DIAG3
; ;FROM RETRY
DTE201==POINT 16,9,15 ;DLYCNT
DTE202==POINT 16,9,31 ;DEXWD3
DTE203==POINT 16,^D10,15 ;DEXWD2
DTE204==POINT 16,^D10,31 ;DEXWD1
DTE205==POINT 16,^D11,15 ;TENAD1
DTE206==POINT 16,^D11,31 ;TENAD2
DTE207==POINT 16,^D12,15 ;TO10BC
DTE208==POINT 16,^D12,31 ;TO11BC
DTE209==POINT 16,^D13,15 ;TO10AD
DTE210==POINT 16,^D13,31 ;TO11AD
DTE211==POINT 16,^D14,15 ;TO10DT
DTE212==POINT 16,^D14,31 ;TO11DT
DTE213==POINT 16,^D15,15 ;DIAG1
DTE214==POINT 16,^D15,31 ;DIAG2
DTE215==POINT 16,^D16,15 ;STATUS
DTE216==POINT 16,^D16,31 ;DIAG3
;***********************************
; SUB-BLOCK FOR RH11 [1311]
;***********************************
RH.ADR==POINT 16,0,31 ;RH11 UNIBUS ADDRESS
RJCS1==POINT 16,1,15 ;CONTROL/STATUS REGISTER 1
RPWC==POINT 16,1,31 ;WORD COUNT REGISTER
RPBA==POINT 16,2,15 ;UNIBUS ADDRESS REGISTER
RPDA==POINT 16,2,31 ;DESIRED SECTOR/TRACK ADDRESS
RPCS2==POINT 16,3,15 ;CONTROL/STATUS REGISTER 2
RPDS==POINT 16,3,31 ;DRIVE STATUS REGISTER
RPER1==POINT 16,4,15 ;ERROR REGISTER 1
RPAS==POINT 16,4,31 ;ATTENTION SUMMARY REGISTER
RPLA==POINT 16,5,15 ;LOOK AHEAD REGISTER
RPDBB==POINT 16,5,31 ;DATA BUFFER REGISTER
RPMR==POINT 16,6,15 ;MAINTENANCE REGISTER
RPDT==POINT 16,6,31 ;DRIVE TYPE REGISTER
RPSN==POINT 16,7,15 ;SERIAL NUMBER REGISTER
RPOF==POINT 16,7,31 ;OFFSET REGISTER
RPDC==POINT 16,8,15 ;DESIRED CYLINDER REGISTER
RPCC==POINT 16,8,31 ;CURRENT CYLINDER ADDRESS REG.
RPER2==POINT 16,9,15 ;ERROR REGISTER 2
RPER3==POINT 16,9,31 ;ERROR REGISTER 3
RPEC1==POINT 16,^D10,15 ;ECC POSITION REGISTER
RPEC2==POINT 16,^D10,31 ;ECC PATTERN REGISTER
;*******************************
; FRONT END RELOAD ENTRY
;*******************************
;GIVES -11 REBOOT INFORMATION
SEC%11==131 ;EVENT CODE
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%PTR==2 ;HALT STATUS BLOCK OFFSET POINTER
; -LENGTH,,OFFSET
CS%PTR==3 ;CLOK STOP BLOCK OFFSET POINTER (UNUSED)
; -LENGTH,,OFFSET
; ;4-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 ;BASE REGISTER
HS%BRX==6 ;BASE 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 (0-15,,16-35)
;*******************************
; 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
; ;BITS 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]
;*******************************
SEC%SB==163 ;EVENT CODE
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
;*******************************
; MF20 REPORT [1255]
;*******************************
SEC%MF==164 ;EVENT CODE
MF%TXT=0 ;ASCIZ TEXT
; ;THE ENTIRE ENTRY IS SIMPLY ASCIZ TEXT
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
;***THESE VALUES ARE WRONG,
;***SEE THE CODE IN SYSERN FOR THE CORRECT VALUES
;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.
;***********************************
; CHECK11 REPORT
;***********************************
SEC%CK=222 ;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
NL%PGM=5 ;PTR TO PROGRAM STRING
NL%PRV=6 ;UNUSED
;***********************************
; 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
ND%PGM=5 ;PTR TO PROGRAM STRING
ND%PRV=6 ;UNUSED
;***********************************
; 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.
;********
; PRIOR TO TOPS-20 REL 4 ONLY
;********
;************************************
; 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
;******
;FOR REL 4 AND LATER
;******
;************************************
; DN6x STATISTICS
;************************************
SEC%D6==233 ;ENTRY TYPE
DN6LID==0 ;PORT #, LINE # [1267]
DN6COD==1 ;FLAGS AND CODES
DN6DAT==2 ;START OF DATA IN BYTES.
;************************************
; DN6x ENABLE-DISABLE
;************************************
SEC%DE==234 ;ENTRY TYPE
DNECOD==0 ;ENABLE DISABLE CODE
DNENAM==1 ;SIXBIT NODE NAME
DNEPRT==2 ;PORT #,,LINE #
DNEFLG==3 ;FLAGS,,STATION TYPE
DNECTS==4 ;CLEAR TO SEND DELAY IN JIFFIES
DNESWL==5 ;SILO WARNING LEVEL IN BYTES
DNEBPM==6 ;BYTES PER MESSAGE
DNERPM==7 ;RECORDS PER MESSAGE
DNESIG==10 ;LINE SIGNATURE
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:
F.TTY==4000 ;[1221]TTY IS OUTPUT DEVICE
F.OCT==2000 ;[1146] /OCTAL
;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
ERRHNG==100000 ;[1300] TOPS-10 ENTRY WAS CAUSED BY A "HUNG DEVICE"
HRDERR==100000 ;IS.ERR IN IRBSTS (TOPS-20 HARD ERR FLAG) [1217]
; ;CHANNEL ASSIGNMENTS
INPCHN==1
OUTCHN==2
;HERE LIES THE MACRO DEFINITIONS
OPDEF PJRST [JRST]
;FATAL CHANGED EDIT 1201
DEFINE FATAL (A) <
JRST [ OUTSTR [ASCIZ/? A
/]
CLOSE ,OUTCHN ;SAVE GOOD OUTPUT [1201]
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 DYNAMIC TABLE ALLOCATOR DEFINITIONS [1200]
DEFINE RETPAS <
JRST [AOS 0(P)
POPJ P,0]
>
DEFINE RETFAL(ERR) <
IFNB <ERR>,<
JRST [MOVEI T1,ERR
POPJ P,0]
>
IFB <ERR>,<
POPJ P,0
>
>
DEFINE GETBF <PUSHJ P,GTBF00> ;ALLOCATES BUFFER SPACE
DEFINE FINDB <PUSHJ P,FNDB00> ;FINDS A BUFFER
DEFINE FINDF <PUSHJ P,FNDF00> ;FINDS THE FIRST BUFFER IN A LIST
DEFINE FINDN <PUSHJ P,FNDN00> ;FINDS THE NEXT BUFFER IN A LIST
KEYMAX==7 ;MAXIMUM # OF KEYS ALLOWED
BUFMAX==777 ;MAXIMUM SIZE OF DATA BLOCK ALLOWED
NEGINF==400000,,0 ;[1260] SMALLEST 36 BIT VALUE - SORTS FIRST IN LIST
ANCSIZ==2 ;[1260] # OF WORDS IN ANCHOR
;FORMAT OF FIRST ANCHOR WORD
KEYS==POINT 3,0,2 ;# OF KEYS
BUFSIZ==POINT 9,0,17 ;SIZE OF DATA BLOCK
;FORMAT OF ALLOCATOR WORK SPACE
; STORAGE FOR 'FINDN' CALL
;0 - (KEYMAX-1) ;KEY LINK POINTERS TO NEXT BUFFER
WRKKEY==KEYMAX ;# OF KEYS IN CURRENT LIST
WRKARG==WRKKEY+1 ;POINTER TO CURRENT KEY ARGUMENT BLOCK
; IN THE FORMAT: ARGBLK(T4)
; 0 FOR NO CURRENT LIST
ALCWRK==WRKARG+1 ;SIZE OF ALLOCATOR WORK SPACE
;DYNAMIC ALLOCATOR ERROR CODES
ALCCOR==1 ;NO CORE AVAILABLE
ALCEND==2 ;END OF BUFFER LIST REACHED
ALCKEY==3 ;INCORRECT # OF KEYS SPECIFIED IN CALL
ALCLEN==4 ;INCORRECT DATA BLOCK LENGTH SPECIFIED
ALCNXA==5 ;ALLOCATOR NOT INITIALIZED
ALCNXB==6 ;BUFFER DOES NOT EXIST
ALCNXL==7 ;LIST ANCHOR DOES NOT EXIST
ALCPRE==10 ;NO PREVIOUS CALL ON 'FINDN' REQUEST
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 RELOAD ,.CT001,PROCSA,15,.BR001);[1314]
TBLENT (2,NON-RELOAD MONITOR ERROR ,.CT002,PROCSB,21,.BR002)
TBLENT (3,KA-KI MEMORY PARITY ERROR ,.CT003,PROCSA,43,.BR003)
TBLENT (4,KA-KI MEMORY NXM ERROR ,.CT004,PROCSB,43,.BR004)
TBLENT (5,CRASH EXTRACT ,.CT005,PROCSA,60,.BR005)
TBLENT (6,DATA CHANNEL ERROR ,.CT006,PROCSA,17,.BR006)
TBLENT (7,DAEMON STARTED ,.CT007,PROCSA,5,.BR007);[1314]
TBLENT (10,DISK UNIT ERROR ,.CT010,PROCSA,30,.BR010)
TBLENT (11,MASSBUS DISK ERROR ,.CT011,PROCSB,45,.BR011)
TBLENT (12,DX20 ERROR ,.CT012,PROCSB,60,.BR012)
TBLENT (14,SOFTWARE EVENT ,.CT014,PROCSA,20,.BR014)
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,45,.BR021)
TBLENT (30,FRONT END DEVICE REPORT ,.CT030,PROCSC,20,.BR030) ;[514],[523]
TBLENT (31,FRONT END RELOAD ,.CT031,PROCSC,5,.BR031)
TBLENT (33,KS10 HALT STATUS BLOCK ,.CT033,PROCSC,15,.BR033) ;[1254]
TBLENT (40,DISK STATISTICS ,.CT040,PROCSA,10,.BR040)
TBLENT (41,MAGTAPE STATISTICS ,.CT041,PROCSA,10,.BR041)
TBLENT (42,MAGTAPE STATISTICS ,.CT042,PROCSB,10,.BR042)
TBLENT (45,DISK STATISTICS ,.CT045,PROCSA,60,.BR045)
TBLENT (50,DL10 COMMUNICATIONS ERROR ,.CT050,PROCSB,10,.BR050)
; ;START 1301
TBLENT (51,KI10 PARITY OR NXM INTERRUPT,.CT051,PROCSC,15,.BR051)
TBLENT (52,KL10 PARITY OR NXM INTERRUPT,.CT052,PROCSC,15,.BR052)
TBLENT (54,KS10 NXM TRAP ,.CT054,PROCSC,15,.BR054)
TBLENT (55,KL10 OR KS10 PARITY TRAP ,.CT055,PROCSC,15,.BR055)
TBLENT (56,MEMORY SWEEP FOR NXM ,.CT056,PROCSC,15,.BR056)
TBLENT (57,MEMORY SWEEP FOR PARITY ,.CT057,PROCSC,15,.br057);[1310]
; ;END 1301
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 (63,CPU STATUS BLOCK ,.CT063,PROCSC,40,.BR063)
TBLENT (64,DEVICE STATUS BLOCK ,.CT064,PROCSC,60,.BR064)
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,15,.BR071);[1314]
TBLENT (72,UNIT RECORD ERROR ,.CT072,PROCSA,15,.BR072);[1314]
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 (114,DRIVE STATISTICS ENTRIES ,.CT114,PROCSD,40,.BR114) ;#12 .
TBLENT (115,CONFIGURATION STATUS CHANGE,.CT115,PROCSD,5,.BR115) ;[1204]
TBLENT (116,SYSTEM LOG ENTRY ,.CT116,PROCSD,10,.BR116) ;[1100]
TBLENT (121,SA10 DISK ERROR ,.CT121,PROCSD,60,.BR121) ;#1 .
TBLENT (122,SA10 MAGTAPE ERROR ,.CT122,PROCSD,40,.BR122) ;#2
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 (164,MF20 DEVICE REPORT ,.CT164,PROCSD,30,.BR164);[1255]
TBLENT (201,NETWORK CONTROL 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 OPERATOR LOG ENTRY ,.CT220,PROCSN,40,.BR220)
TBLENT (221,NETWORK TOPOLOGY CHANGE ,.CT221,PROCSN,20,.BR221)
TBLENT (222,NETWORK CHECK11 REPORT ,.CT222,PROCSN,40,.BR222)
TBLENT (230,NETWORK LINE STATISTICS ,.CT230,PROCSN,20,.BR230);[1315],[515]
TBLENT (231,NETWORK NODE STATISTICS ,.CT231,PROCSN,20,.BR231)
TBLENT (232,DN64 STATISTICS ,.CT232,PROCSN,30,.BR232) ;[520]
TBLENT (233,DN6x LINE STATISTICS ,.CT233,PROCSN,30,.BR233);[1253]
TBLENT (234,DN6x ENABLE-DISABLE ,.CT234,PROCSN,30,.BR234);[1253]
>
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%>) <
IFN EXPPRT,<
LALL
>
IFE EXPPRT,<
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
IFN EXPPRT,<
LALL
>
IFE EXPPRT,<
SALL
>
.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
IFN EXPPRT,<
LALL
>
IFE EXPPRT,<
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 < ;; TOPS-10 SYSTEM RELOAD
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,00,,<DO,HKSTRG>,,<-1,WHYFG0>,< RELOAD OF >)
CMDWRD (001,01,,<DO,.TVERW>,,<-1,WHYVER>,< VERSION >)
CMDWRD (001,02,,<DO,HKSTRG>,,<-1,WHYDT0>,< BUILT ON >)
CMDWRD (001,03,,<DO,.TSIXN>,,<-1,WHYWHY>,< REASON >)
CMDWRD (001,04,,<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,00,,<DO,.TSIXN>,,<-1,BYT,<POINT 18,MSESPC,17>>,< STOPCD >)
CMDWRD (002,01,,<DO,.TDECW>,,<-1,MSESER>,< ON CPU SERIAL # >)
CMDWRD (002,02,,<DO,.TDECW>,,<-1,MSESJN>,< FOR JOB # >)
CMDWRD (002,03,,<DO,.TSIXN>,,<-1,MSESTN>,< ON >)
CMDWRD (002,04,,<DO,.TPPNW>,,<-1,MSENAM>,< USER WAS >)
CMDWRD (002,05,,<DO,.TSIXN>,,<-1,MSESPN>,< RUNNING >)
CMDWRD (002,06,,<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,00,,<DO,.TSIXN>,,<-1,MPEPHY>,< MPE SEEN BY >)
CMDWRD (003,01,,<DO,.TXWDW>,,<-1,MPEMPW>,< BAD DATA WORD >)
CMDWRD (003,02,,<DO,.TXWDW>,,<-1,MPEMPA>,< FOUND AT ADDRESS >)
CMDWRD (003,03,,<DO,.TPPNW>,,<-1,MPEPPN>,< FOR USER >)
CMDWRD (003,04,,<DO,.TSIXN>,,<-1,MPEJOB>,< RUNNING >)
CMDWRD (003,05,,<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,00,,<DO,.TSIXN>,,<-1,NXMPHY>,< NXM SEEN BY >)
CMDWRD (004,01,,<DO,.TXWDW>,,<-1,NXMMNA>,< AT ADDRESS >)
CMDWRD (004,02,,<DO,.TPPNW>,,<-1,NXMPPN>,< FOR USER >)
CMDWRD (004,03,,<DO,.TSIXN>,,<-1,NXMJOB>,< RUNNING >)
CMDWRD (004,04,,<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,00,,<DO,.TSIXN>,,<-1,BYT,<POINT 18,CINSPC,17>>,< CRASH EXTRACT-STOPCD WAS>)
CMDWRD (005,01,,<DO,.TDECW>,,<-1,CINSJN>,< FOR JOB >)
CMDWRD (005,02,<IFNE,0>,<DO,.TPPNW>,,<-1,CINSPP>,< USER >)
CMDWRD (005,03,<IFNE,0>,<DO,.TSIXN>,,<-1,CINSPN>,< RUNNING >)
CMDWRD (005,04,,<DO,.TXWDW>,,<-1,CINSUU>,< UUO WAS >)
CMDWRD (005,05,,<DO,.TDECW>,,<-1,CINSEC>,< SYSTEM WIDE ERROR COUNT WAS >)
CMDWRD (005,06,,<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,00,,<DO,.TSIXN>,,<-1,CPENAM>,< >)
CMDWRD (006,01,,<DO,.TDECW>,,<-1,CPENXM>,< CHANNEL ERROR COUNTS: NXM/MPE/DPE >)
CMDWRD (006,02,,<DO,.TDECW>,,<-1,CPEMPE>,</>)
CMDWRD (006,03,,<DO,.TDECW>,,<-1,CPEDPE>,</>)
CMDWRD (006,04,,<DO,.TXWDW>,,<-1,CPEFCW>,< WRITTEN TERM WD = >)
CMDWRD (006,05,,<DO,.TXWDW>,,<-1,CPEETW>,< EXPECTED TERM WD = >)
CMDWRD (006,06,,<DO,ABORT>)
>
DEFINE DUM007 <
TBLWRD (7,0,DSTVER,SPECL,0,<DAEVER>)
>
DEFINE BRF007 <
CMDWRD (007,00,,<DO,.TVERW>,,<-1,DSTVER>,< DAEMON STARTED--VERSION >)
CMDWRD (007,01,,<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,00,,<DO,.TSIXN>,,<-1,HDENAM>,< >)
CMDWRD (010,01,,<DO,.TSIXN>,,<-1,HDELOG>,< >)
CMDWRD (010,02,<IFEQ,1>,<XFR,010,10>,,<-1,BYT,<POINT 6,HDEDCR,26>>)
CMDWRD (010,03,<IFEQ,2>,<XFR,010,20>,,<-1,BYT,<POINT 6,HDEDCR,26>>)
CMDWRD (010,04,,<DO,ABORT>,,<-1,-1>,< UNKNOWN CONTROLLER >)
CMDWRD (010,10,<IFEQ,0>,,,<-1,BYT,<POINT 3,HDEDCR,32>>,< RD10 >)
CMDWRD (010,11,<IFEQ,1>,,,<-1,BYT,<POINT 3,HDEDCR,32>>,< RM10B >)
CMDWRD (010,12,,<XFR,010,30>)
CMDWRD (010,20,<IFEQ,1>,,,<-1,BYT,<POINT 3,HDEDCR,32>>,< RP02 >)
CMDWRD (010,21,<IFEQ,2>,,,<-1,BYT,<POINT 3,HDEDCR,32>>,< RP03 >)
CMDWRD (010,22,,<XFR,010,30>)
CMDWRD (010,30,,<DO,.TXWDW>,,<-1,HDESOF>,< CONI = >)
CMDWRD (010,31,,<DO,.TXWDW>,,<-1,HDESDI>,< DATAI = >)
CMDWRD (010,32,,<DO,BLOKTN>,,<-1,HDEDCR>,< CYL/SURF/SEC >)
CMDWRD (010,33,,<DO,.TDECW>,,<-1,BYT,<POINT 18,HDEECT,35>>,< RETRIES: >)
CMDWRD (010,34,<IFEQ,1>,,,<-1,BYT,<POINT 1,HDEECT,1>>,< HARD >)
CMDWRD (010,35,,<DO,ABORT>)
>
DEFINE DUM011 <
TBLWRD (11,0,MDENAM,SIXBT,1,< UNIT ID: >)
TBLWRD (11,0,MDEDDT,SPECL,2,<MDELST>)
>
DEFINE BRF011 <
CMDWRD (011,00,,<DO,.TSIXN>,,<-1,MDENAM>,< >)
CMDWRD (011,01,IFNE,<DO,.TSIXN>,,<-1,MDESTR>,< >) ;[1325]
CMDWRD (011,02,,<DO,DRVTYP>,,<-1,MDEDDT,<0,,000077>>,< >)
CMDWRD (011,03,<IFNE,0>,<DO,DSERCD>,,<-1,MDEDSN>,< SERIAL # >)
CMDWRD (011,04,<IFEQ,1>,<XFR,011,10>,,<-1,BYT,MDECTL>)
CMDWRD (011,05,<IFEQ,2>,<XFR,011,20>,,<-1,BYT,MDECTL>)
CMDWRD (011,06,<IFEQ,3>,<XFR,011,30>,,<-1,BYT,MDECTL>)
CMDWRD (011,07,,<DO,ABORT>,,<-1,-1>,< UNKNOWN CONTROLLER TYPE >)
CMDWRD (011,10,,<DO,.TXWDW>,,<-1,BYT,<POINT 18,MDECNI,35>>,< CONI RH = >)
CMDWRD (011,11,,<XFR,011,40>)
CMDWRD (011,20,,<DO,.TXWDW>,,<-1,BYT,<POINT 18,MDECNI,35>>,< CONI RH = >)
CMDWRD (011,21,,<DO,.TXWDW>,,<-1,MDECNI,<777777,,0>>,< CHNSTS1 = >)
CMDWRD (011,22,,<XFR,011,40>)
CMDWRD (011,30,,<DO,.TOCTW>,,<-1,BYT,<POINT 18,MDECNI,35>>,< RHCS1 = >)
CMDWRD (011,31,,<DO,.TOCTW>,,<-1,BYT,<POINT 18,MDECNI,17>>,< RHCS2 = >)
CMDWRD (011,32,,<XFR,011,40>)
CMDWRD (011,40,,<DO,.TOCTW>,,<-1,BYT,<POINT 18,MDEDSR,35>>,< SR = >)
CMDWRD (011,41,,<DO,.TOCTW>,,<-1,BYT,<POINT 18,MDEDER,35>>,< ER = >)
CMDWRD (011,42,,<DO,BLKTRN>,,<-1,MDELOC>)
CMDWRD (011,43,,<DO,.TDECW>,,<-1,BYT,<POINT 18,MDETYP,35>>,< RETRIES: >)
CMDWRD (011,44,<IFEQ,1>,,,<-1,BYT,<POINT 1,MDETYP,1>>,< HARD >)
CMDWRD (011,45,,<DO,ABORT>)
>
DEFINE DUM012 < ;;TOPS-10 DX20 DEVICE ERRORS, CODE 012
TBLWRD (012,0,DXENAM,SIXBT,1,< UNIT NAME: >)
TBLWRD (012,0,DXETYP,SPECL,2,<DXE000>)
TBLWRD (012,0,DXEVID,SIXBT,3,< VOLUME ID: >)
TBLWRD (012,0,DXELOC,SPECL,4,<DXE001>)
TBLWRD (012,0,DXEUSR,PPNWW,5,< USER'S P,PN >)
TBLWRD (012,0,DXEPGM,SIXBT,6,< USER'S PGM: >)
TBLWRD (012,0,DXEFIL,SIXBT,7,< USER'S FILE: >)
TBLWRD (012,0,DXEFES,SPECL,8,<DXE004>)
TBLWRD (012,0,DXECNI,SPECL,9,<DXE002>)
TBLWRD (012,0,DXED1I,HAFWD,10,< DATAI PTCR AT ERROR: >)
TBLWRD (012,0,DXED1F,HAFWD,11,< DATAI PTCR AT END: >)
TBLWRD (012,0,DXED2I,HAFWD,12,< DATAI PBAR AT ERROR: >)
TBLWRD (012,0,DXED2F,HAFWD,13,< DATAI PBAR AT END: >)
TBLWRD (012,0,DXECS0,SPECL,14,<DXE003>)
>
DEFINE BRF012 <
CMDWRD (012,A0,,<DO,.TSIXN>,,<-1,DXENAM>,< >)
CMDWRD (012,A1,IFNE,<DO,.TSIXN>,POST,<-1,DXEVID>,<:>)
CMDWRD (012,D1,<IFEQ,2>,<XFR,012,D2>,,<-1,BYT,<POINT 9,DXETYP,35>>,< RP20 >)
CMDWRD (012,A2,<IFEQ,5>,,,<DXEDVL,BYT,<POINT 4,DTXSBB,17>>,< TU70 >)
CMDWRD (012,A3,<IFEQ,14>,,,<DXEDVL,BYT,<POINT 4,DTXSBB,17>>,< TU72 >)
CMDWRD (012,A4,<IFEQ,15>,,,<DXEDVL,BYT,<POINT 4,DTXSBB,17>>,< TU7X >)
CMDWRD (012,A5,,<DO,.TXWDW>,,<-1,DXECNI>,< CONI=>)
CMDWRD (012,A6,,<DO,.TXWDW>,,<-1,DXECS1>,< CHNSTS1=>)
CMDWRD (012,A7,,<DO,.TXWDW>,,<DXEMBR,BYT,<POINT 18,DMXSR,35>>,< SR=>)
CMDWRD (012,A8,,<DO,.TXWDW>,,<DXEMBR,BYT,<POINT 18,DMXER,35>>,< ER=>)
CMDWRD (012,B0,,,,<-1,-1>,< SENSE BYTES 0-3:>)
CMDWRD (012,B1,,<DO,.TOCTW>,,<DXEDVL,BYT,<POINT 8,DTXSBA,9>>,< >)
CMDWRD (012,B2,,<DO,.TOCTW>,,<DXEDVL,BYT,<POINT 8,DTXSBA,17>>,< >)
CMDWRD (012,B3,,<DO,.TOCTW>,,<DXEDVL,BYT,<POINT 8,DTXSBA,27>>,< >)
CMDWRD (012,B4,,<DO,.TOCTW>,,<DXEDVL,BYT,<POINT 8,DTXSBA,35>>,< >)
CMDWRD (012,C0,,<DO,TAPPOS>,,<-1,DXELOC>)
CMDWRD (012,Z1,,<DO,.TDECW>,,<-1,BYT,<POINT 18,DXEFES,35>>,< RETRIES: >)
CMDWRD (012,Z2,<IFEQ,1>,,,<-1,BYT,<POINT 1,DXEFES,1>>,< HARD >)
CMDWRD (012,ZZ,,<DO,ABORT>)
CMDWRD (012,D2,,<DO,.TXWDW>,,<-1,DXECNI>,< CONI=>)
CMDWRD (012,D3,,<DO,.TXWDW>,,<-1,DXECS1>,< CHNSTS1=>)
CMDWRD (012,D4,,<DO,.TXWDW>,,<DXEMBR,BYT,<POINT 18,DMXSR,35>>,< SR=>)
CMDWRD (012,D5,,<DO,.TXWDW>,,<DXEMBR,BYT,<POINT 18,DMXER,35>>,< ER=>)
CMDWRD (012,D6,,,,<-1,-1>,< SENSE BYTE 7: >) ;;[1321]
CMDWRD (012,D7,,<DO,OHEXB>,,<DXEDVL,BYT,<POINT 8,DTXSBB,35>>,< >) ;;[1321]
CMDWRD (012,E0,,<DO,.ODECW>,,<-1,DXELOC>,< LBN: >)
CMDWRD (012,E1,,<XFR,012,Z1>)
>
DEFINE DUM014<
TBLWRD (014,0,SWECOD,SPECL,1,<SWE00A>)
TBLWRD (014,0,SWEJOB,DECML,2,< JOB #: >)
TBLWRD (014,0,SWEUID,PPNWW,3,< USER PPN: >)
TBLWRD (014,0,SWELIN,SPECL,4,<SWE00B>)
TBLWRD (014,0,SWEPGM,SIXBT,5,< PROGRAM: >)
TBLWRD (014,0,SWEPTR,SPECL,6,<SWE00C>)
>
DEFINE BRF014<
CMDWRD (014,01,,,,<-1,-1>,< SOFTWARE EVENT TYPE: >)
CMDWRD (014,A1,<IFEQ,1>,,<POST>,<-1,SWECOD>,< POKE >)
CMDWRD (014,A2,<IFEQ,2>,,<POST>,<-1,SWECOD>,< SNOOP >)
CMDWRD (014,A3,<IFEQ,3>,,<POST>,<-1,SWECOD>,< TRPSET >)
CMDWRD (014,A4,<IFEQ,4>,,<POST>,<-1,SWECOD>,< RTTRP >)
CMDWRD (014,A5,<IFEQ,5>,,<POST>,<-1,SWECOD>,< EVENT1 >)
CMDWRD (014,A6,<IFEQ,6>,,<POST>,<-1,SWECOD>,< EVENT2 >)
CMDWRD (014,02,,<DO,.TDECW>,,<-1,SWEJOB>,< BY JOB >)
CMDWRD (014,03,,<DO,.TPPNW>,,<-1,SWEUID>,< USER WAS >)
CMDWRD (014,04,,<DO,.TSIXN>,,<-1,SWEPGM>,< RUNNING >)
CMDWRD (014,05,,<DO,.TOCTW>,,<-1,BYT,SWENOD>,< AT NODE: >)
CMDWRD (014,06,,<DO,.TOCTW>,,<-1,BYT,SWELLN>,< LINE: >)
CMDWRD (014,07,,<DO,.TOCTW>,,<-1,BYT,SWETTY>,< TTY>)
CMDWRD (014,08,,<DO,ABORT>)
>
DEFINE DUM015 <
TBLWRD (15,0,CSCSTS,SPECL,0,<CSCLST>)
>
DEFINE BRF015 <
CMDWRD (015,00,,,,<-1,-1>,< CONFIGURATION CHANGE >)
CMDWRD (015,01,<IFEQ,0>,<XFR,015,10>,,<-1,BYT,CSCCOM>)
CMDWRD (015,02,<IFEQ,1>,<XFR,015,15>,,<-1,BYT,CSCCOM>)
CMDWRD (015,03,<IFEQ,2>,<XFR,015,20>,,<-1,BYT,CSCCOM>)
CMDWRD (015,04,<IFEQ,3>,<XFR,015,25>,,<-1,BYT,CSCCOM>)
CMDWRD (015,05,<IFEQ,4>,<XFR,015,30>,,<-1,BYT,CSCCOM>)
CMDWRD (015,06,<IFEQ,5>,<XFR,015,35>,,<-1,BYT,CSCCOM>)
CMDWRD (015,07,<IFEQ,6>,<XFR,015,40>,,<-1,BYT,CSCCOM>)
CMDWRD (015,08,<IFEQ,7>,<XFR,015,45>,,<-1,BYT,CSCCOM>)
CMDWRD (015,09,<IFEQ,10>,<XFR,015,50>,,<-1,BYT,CSCCOM>)
CMDWRD (015,A0,<IFEQ,11>,<XFR,015,55>,,<-1,BYT,CSCCOM>)
CMDWRD (015,AA,<IFEQ,12>,<XFR,015,60>,,<-1,BYT,CSCCOM>)
CMDWRD (015,A1,,<DO,ABORT>,,<-1,-1>,< UNKNOWN FUNCTION >)
CMDWRD (015,10,,<DO,.TSIXN>,,<-1,CSCNAM>,< ATTACHED >)
CMDWRD (015,11,,<DO,ABORT>)
CMDWRD (015,15,,<DO,.TSIXN>,,<-1,CSCNAM>,< DETACHED >)
CMDWRD (015,16,,<DO,ABORT>)
CMDWRD (015,20,,<DO,.TSIXN>,,<-1,CSCNAM>,< EXCHANGED >)
CMDWRD (015,21,,<DO,.TSIXN>,,<-1,CSCNM2>,< WITH >)
CMDWRD (015,22,,<DO,ABORT>)
CMDWRD (015,25,,,,<-1,-1>,< DATE/TIME CHANGE>)
CMDWRD (015,26,,<DO,ABORT>)
CMDWRD (015,30,,,,<-1,-1>,< SET CPU OFFLINE >)
CMDWRD (015,31,,<DO,ABORT>)
CMDWRD (015,35,,,,<-1,-1>,< SET CPU ONLINE >)
CMDWRD (015,36,,<DO,ABORT>)
CMDWRD (015,40,,,,<-1,-1>,< NODE >)
CMDWRD (015,41,,<DO,.TOCTW>,POST,<-1,CSCNAM>,< OFFLINE >)
CMDWRD (015,42,,<DO,ABORT>)
CMDWRD (015,45,,,,<-1,-1>,< NODE >)
CMDWRD (015,46,,<DO,.TOCTW>,POST,<-1,CSCNAM>,< ONLINE >)
CMDWRD (015,47,,<DO,ABORT>)
CMDWRD (015,50,,<DO,CSCLS3>,,<-1,CSCNAM>,< OPR SET MEMORY ONLINE >)
CMDWRD (015,51,,<DO,ABORT>)
CMDWRD (015,55,,<DO,CSCLS3>,,<-1,CSCNAM>,< OPR SET MEMORY OFFLINE >)
CMDWRD (015,56,,<DO,ABORT>)
CMDWRD (015,60,,<DO,CSCLS3>,,<-1,CSCNAM>,< MONITOR SET MEMORY OFFLINE >)
CMDWRD (015,61,,<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,00,,<DO,.TSIXN>,,<-1,SLMWHO>,< SYSTEM LOG ENTRY BY >)
CMDWRD (016,01,,<DO,.TSIXN>,,<-1,SLMDEV>,< FOR DEVICE >)
CMDWRD (016,02,,<DO,.TOCTW>,,<-1,BYT,<POINT 18,SLMTTY,35>>,< ON TTY # >)
CMDWRD (016,03,,<DO,PTSTRG>,,<-1,SLMPTR>,< MESSAGE: >)
CMDWRD (016,04,,<DO,ABORT>)
>
DEFINE DUM017 <
TBLWRD (17,0,DEBPTR,SPECL,1,<DEBLST>)
>
DEFINE BRF017 <
CMDWRD (017,00,,,,<-1,-1>,< SOFTWARE REQUESTED DATA >)
CMDWRD (017,01,,<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,00,,<DO,.TSIXN>,,<-1,MAGNAM>,< >)
CMDWRD (020,01,,<DO,.TXWDW>,,<-1,MAGICS>,< CONI MTS = >)
CMDWRD (020,02,,<DO,.TXWDW>,,<-1,MAGICC>,< CONI MTC = >)
CMDWRD (020,03,,<DO,.TDECW>,,<-1,MAGFFB>,< FILE/RECORD >)
CMDWRD (020,04,,<DO,.TDECW>,,<-1,MAGRFF>,</>)
CMDWRD (020,05,,<DO,.TDECW>,,<-1,BYT,<POINT 18,MAGRTC,35>>,< RETRIES: >)
CMDWRD (020,06,<IFEQ,1>,,,<-1,BYT,<POINT 1,TAPTRY,1>>,< HARD >)
CMDWRD (020,07,,<DO,ABORT>)
>
DEFINE DUM021 <
TBLWRD (21,0,TAPNAM,SIXBT,01,<
UNIT NAME: >)
TBLWRD (21,0,TAPTRY,SPECL,02,<TAPLST>)
>
DEFINE BRF021 < ;;EDIT [1005]
CMDWRD (021,A0,IFNE,<DO,.TSIXN>,,<-1,TAPNAM>,< >)
CMDWRD (021,A1,IFNE,<DO,.TSIXN>,,<-1,TAPRID>,< >)
CMDWRD (021,A2,,<DO,FIXOFF>,,<-1,TAPIEP>)
CMDWRD (021,B0,<IFLQ,1>,<XFR,021,C0>,,<-1,BYT,TAPCTL>) ;;TM10A/B
CMDWRD (021,B2,<IFEQ,2>,<XFR,021,D0>,,<-1,BYT,TAPCTL>) ;;TC10
CMDWRD (021,B3,<IFEQ,3>,<XFR,021,E0>,,<-1,BYT,TAPCTL>) ;;DX10
CMDWRD (021,B4,<IFEQ,4>,<XFR,021,F0>,,<-1,BYT,TAPCTL>) ;;TM02
CMDWRD (021,B5,<IFEQ,5>,<XFR,021,I0>,,<-1,BYT,TAPCTL>) ;;RH11
CMDWRD (021,B6,,<DO,ABORT>,,<-1,-1>,< UNKNOWN CONTROLLER TYPE >)
CMDWRD (021,C0,,<DO,.TXWDW>,,<TAPIEP,TM.CNC>,< TM10 CONI MTC = >)
CMDWRD (021,C1,,<DO,.TXWDW>,,<TAPIEP,TM.CNS>,< CONI MTS = >)
CMDWRD (021,C2,,<XFR,021,Z0>)
CMDWRD (021,D0,,<DO,.TXWDW>,,<TAPIEP,TC.CNI>,< TC10 CONI = >)
CMDWRD (021,D1,,<XFR,021,Z0>)
CMDWRD (021,E0,,,,<-1,-1>,< TU7x>)
CMDWRD (021,E1,,<DO,.TXWDW>,,<TAPIEP,XS.CNI>,< DX10 CONI = >)
CMDWRD (021,E2,,<DO,.TXWDW>,,<TAPIEP,XS.ST1>,< ICPC+1 = >)
CMDWRD (021,E3,,,,<-1,-1>,< SB(0-3) = >)
CMDWRD (021,E4,,<DO,.TOCTW>,,<TAPIEP,BYT,<POINT 8,XS.S0,7>>)
CMDWRD (021,E5,,<DO,.TOCTW>,,<TAPIEP,BYT,<POINT 8,XS.S0,15>>,</>)
CMDWRD (021,E6,,<DO,.TOCTW>,,<TAPIEP,BYT,<POINT 8,XS.S0,23>>,</>)
CMDWRD (021,E7,,<DO,.TOCTW>,,<TAPIEP,BYT,<POINT 8,XS.S0,31>>,</>)
CMDWRD (021,E8,,<XFR,021,Z0>)
CMDWRD (021,F0,IFNE,<XFR,021,G0>,,<-1,TAPTRY,<1B11>>,< TM02 >);;RH20/TM02
CMDWRD (021,F1,,<DO,.TXWDW>,,<TAPIEP,T2.CNI>,< CONI = >)
CMDWRD (021,F2,,<XFR,021,I4>)
CMDWRD (021,G0,,<DO,.TOCTW>,,<TAPIEP,BYT,<POINT 18,T2.CNI,35>>,< CONI = >)
CMDWRD (021,G1,,<DO,.TOCTW>,,<TAPIEP,BYT,<POINT 18,T2.CNI,17>>,< CHNSTS1 = >)
CMDWRD (021,G2,,<XFR,021,I4>)
CMDWRD (021,I0,,<DO,.TOCTW>,,<TAPIEP,BYT,<POINT 18,T2.CNI,17>>,< RHCS1 = >)
CMDWRD (021,I1,,<DO,.TOCTW>,,<TAPIEP,BYT,<POINT 18,T2.CNI,35>>,< RHCS2 = >)
CMDWRD (021,I2,,<DO,.TXWDW>,,<TAPIEP,T2.DTI>,< UBA STS = >)
CMDWRD (021,I3,,<DO,.TXWDW>,,<TAPIEP,T2.2DT>,< UBA MAP = >)
CMDWRD (021,I4,,<DO,.TOCTW>,,<TAPIEP,T2.DSR>,< SR = >)
CMDWRD (021,I5,,<DO,.TOCTW>,,<TAPIEP,T2.DER>,< ER = >)
CMDWRD (021,I6,,<XFR,021,Y0>)
CMDWRD (021,Y0,<IFEQ>,<XFR,021,Z0>,,<TAPIEP,T2.DSR,1B30>)
CMDWRD (021,Y1,,<DO,.TOCTW>,,<TAPIEP,T2.DCK>,< CK = >)
CMDWRD (021,Z0,,<DO,.TDECW>,,<-1,TAPFIL>,< FILE/REC = >)
CMDWRD (021,Z1,,<DO,.TDECW>,,<-1,TAPREC>,</>)
CMDWRD (021,Z2,,<DO,.TDECW>,,<-1,BYT,<POINT 18,TAPTRY,35>>,< RETRIES: >)
CMDWRD (021,Z3,<IFEQ,1>,,,<-1,BYT,<POINT 1,TAPTRY,1>>,< HARD >)
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,A1,IFLQ,<XFR,030,Z3>,,<-1,BYT,FE.DEV>)
CMDWRD (030,A2,<IFGT,.FEFE>,<XFR,030,K1>,,<-1,BYT,FE.DEV>)
CMDWRD (030,B1,,<DO,FE%DEV>,POST,<-1,BYT,FE.DEV>)
;[1311] CMDWRD (030,B2,,<DO,.TOCTW>,,<-1,BYT,FE.DVN>,< #>)
CMDWRD (030,B2,IFEQ,<XFR,030,B4>,,<FE%OFF,BYT,<POINT 1,0,4>>) ;[1324]
CMDWRD (030,BA,,,,<-1,-1>,< CONFIGURATION REPORT>) ;[1324]
CMDWRD (030,BB,,<DO,ABORT>) ;[1324]
CMDWRD (030,B4,<IFEQ,.FEDH11>,<XFR,030,D1>,,<-1,BYT,FE.DEV>)
CMDWRD (030,B5,<IFEQ,.FELP20>,<XFR,030,C1>,,<-1,BYT,FE.DEV>)
CMDWRD (030,B7,<IFEQ,.FEDLS>,<XFR,030,C5>,,<-1,BYT,FE.DEV>)
CMDWRD (030,B6,<IFEQ,.FECD20>,<XFR,030,C1>,,<-1,BYT,FE.DEV>)
CMDWRD (030,B8,,<DO,ABORT>) ;[1324]
CMDWRD (030,C1,,<DO,.TOCTW>,,<FE%OFF,BYT,<POINT 16,0,15>>,< STD STAT=>)
CMDWRD (030,CA,,<DO,.TOCTW>,,<FE%OFF,BYT,<POINT 16,0,31>>,< GEN STAT=>)
CMDWRD (030,C2,,<DO,ABORT>)
CMDWRD (030,C5,,<DO,.TOCTW>,,<FE%OFF,BYT,<POINT 16,0,15>>,< STD STAT=>)
CMDWRD (030,C0,<IFEQ,DLS.DH>,<XFR,030,D2>,,<FE%OFF,BYT,FE.DVV>,< DH11 AT>)
CMDWRD (030,C6,<IFEQ,DLS.DM>,<XFR,030,C9>,,<FE%OFF,BYT,FE.DVV>,< DM11 AT>)
CMDWRD (030,C7,<IFEQ,DLS.DL>,<XFR,030,C9>,,<FE%OFF,BYT,FE.DVV>,< DL11 AT>)
CMDWRD (030,C8,<IFEQ,DLS.CT>,,,<FE%OFF,BYT,FE.DVV>,< CTY AT>)
CMDWRD (030,C9,,<DO,.TOCTW>,,<FE%OFF,BYT,DH.ADR>,< UNIBUS ADDR=>)
CMDWRD (030,CZ,,<DO,ABORT>)
CMDWRD (030,D1,,<DO,.TOCTW>,,<FE%OFF,BYT,<POINT 16,0,15>>,< STD STAT=>)
CMDWRD (030,D0,IFNE,<XFR,030,D5>,,<FE%OFF,BYT,STD.ST,1B26>) ;;DEV HUNG?
CMDWRD (030,D2,,<DO,.TOCTW>,,<FE%OFF,BYT,DH.ADR>,< UNIBUS ADDR=>)
CMDWRD (030,D3,IFNE,<DO,.TOCTW>,,<FE%OFF,BYT,DH.SCR>,< SYS CONTROL=>)
CMDWRD (030,D4,IFNE,<DO,.TOCTW>,,<FE%OFF,BYT,DH.NRC>,< REC CHAR=>)
CMDWRD (030,D5,,<DO,ABORT>)
CMDWRD (030,K1,<IFNE,.KLCPU>,<XFR,030,L1>,,<-1,BYT,FE.DEV,77>)
CMDWRD (030,K2,,<DO,.TOCTW>,,<FE%OFF,BYT,<POINT 16,0,15>>,< KLCPU STD STAT=>)
CMDWRD (030,K3,,<DO,.TOCTW>,,<FE%OFF,BYT,<POINT 16,0,31>>,< RELOAD STAT=>)
CMDWRD (030,K4,,<DO,ABORT>)
CMDWRD (030,L1,<IFNE,.KLERR>,<XFR,030,M1>,,<-1,BYT,FE.DEV,77>)
CMDWRD (030,L2,,,,<-1,-1>,< KLERR>)
CMDWRD (030,L3,IFNE,<DO,KR%ECD>,CCF1,<REG,KLEFIL+KR.ECD>)
CMDWRD (030,L4,,<DO,ABORT>)
CMDWRD (030,M1,<IFNE,.KLINK>,<XFR,030,N1>,,<-1,BYT,FE.DEV,77>)
CMDWRD (030,M2,,<DO,FE.KLI>,,<FE%OFF,BYT,K.LTYP>,< KLINIK >)
CMDWRD (030,M3,,<DO,ABORT>)
CMDWRD (030,N1,<IFNE,.DM11B>,<XFR,030,P1>,,<-1,BYT,FE.DEV,77>)
CMDWRD (030,N2,,,,<-1,-1>,< DM11BB CONFIGURATION REPORT>) ;[1321]
CMDWRD (030,N3,,<DO,ABORT>) ;[1321]
CMDWRD (030,P1,<IFNE,D.CDTE>,<XFR,030,R1>,,<-1,BYT,FE.DEV,77>) ;[1321]
CMDWRD (030,P2,<IFEQ,NEBSER>,<XFR,030,P5>,,<FE%OFF,BYT,DV.EBS>);[1321]
CMDWRD (030,P3,,,,<-1,-1>,< EBUS PARITY ERROR>) ;[1321]
CMDWRD (030,P4,,<DO,ABORT>) ;[1321]
CMDWRD (030,P5,<IFEQ,NDXERR>,<XFR,030,P8>,,<FE%OFF,BYT,DV.DEX>);[1321]
CMDWRD (030,P6,,,,<-1,-1>,< DEPOSIT/EXAMINE FAILURE>) ;[1321]
CMDWRD (030,P7,,<DO,ABORT>) ;[1321]
CMDWRD (030,P8,,,,<-1,-1>,< EBUS/DEX--NO ERRORS REPORTED>) ;[1321]
CMDWRD (030,PZ,,<DO,ABORT>) ;[1321]
CMDWRD (030,R1,<IFNE,D.CRJP>,<XFR,030,Z3>,,<-1,BYT,FE.DEV,77>) ;[1321]
CMDWRD (030,R2,,<DO,.TOCTW>,,<FE%OFF,BYT,RJCS1>,< RH11 CS1=>) ;[1321]
CMDWRD (030,R3,,<DO,.TOCTW>,,<FE%OFF,BYT,RPCS2>,< CS2=>) ;[1321]
CMDWRD (030,RZ,,<DO,ABORT>) ;[1321]
CMDWRD (030,Z3,,<DO,.TOCTW>,CCF1,<-1,BYT,FE.DEV>,< ILLEGAL FRONT END DEVICE TYPE >)
CMDWRD (030,Z1,,<DO,ABORT>)
>
DEFINE DUM031 <
TBLWRD (031,0,R1%NUM,SPECL,1,<R1%000>)
>
DEFINE BRF031 <
CMDWRD (031,00,,<DO,.TOCTW>,,<-1,BYT,<POINT 18,FERNUM,35>>,< FRONT END RELOAD ON PDP11 #>)
CMDWRD (031,01,,<DO,.TOCTW>,,<-1,BYT,<POINT 18,FERSTS,17>>,< RELOAD STATUS: >)
CMDWRD (031,02,,<DO,.TDECW>,,<-1,BYT,<POINT 18,FERSTS,35>>,< RETRIES: >)
CMDWRD (031,03,,<DO,ABORT>)
>
DEFINE DUM033 <
TBLWRD (033,0,HSBCOD,OCTLE,1,<HALT STATUS CODE: >)
TBLWRD (033,0,HSBEPC,OCTLE,2,<PROGRAM COUNTER: >)
TBLWRD (033,HSBHBP,HSBNUL,HAFWD,3,<HALT STATUS BLOCK
MAG: >)
TBLWRD (033,HSBHBP,HSBPCE,HAFWD,4,< PC: >)
TBLWRD (033,HSBHBP,HSBHRE,HAFWD,5,< HR: >)
TBLWRD (033,HSBHBP,HSBARE,HAFWD,6,< AR: >)
TBLWRD (033,HSBHBP,HSBARX,HAFWD,7,< ARX: >)
TBLWRD (033,HSBHBP,HSBBRE,HAFWD,8,< BR: >)
TBLWRD (033,HSBHBP,HSBBRX,HAFWD,9,< BRX: >)
TBLWRD (033,HSBHBP,HSBONE,HAFWD,10,< ONE: >)
TBLWRD (033,HSBHBP,HSBEBR,HAFWD,11,< EBR: >)
TBLWRD (033,HSBHBP,HSBUBR,HAFWD,12,< UBR: >)
TBLWRD (033,HSBHBP,HSBMSK,HAFWD,13,< MASK: >)
TBLWRD (033,HSBHBP,HSBFLG,HAFWD,14,< FLAGS,,PAGE FAIL WORD: >)
TBLWRD (033,HSBHBP,HSBPIS,HAFWD,15,< PI STATUS: >)
TBLWRD (033,HSBHBP,HSBXW1,HAFWD,16,< XWD1: >)
TBLWRD (033,HSBHBP,HSBTP0,HAFWD,17,< T0: >)
TBLWRD (033,HSBHBP,HSBTP1,HAFWD,18,< T1: >)
TBLWRD (033,HSBHBP,HSBVMA,HAFWD,19,< VMA: >)
>
DEFINE BRF033 <
CMDWRD (033,A0,,<DO,OCTLE>,,<-1,HSBCOD>,< HALT STATUS CODE = >)
CMDWRD (033,B1,,<DO,.TXWDW>,,<HSBHBP,HSBPCE>,< PC = >)
CMDWRD (033,B2,,<DO,.TXWDW>,,<HSBHBP,HSBHRE>,< HR = >)
CMDWRD (033,B3,,<DO,.TXWDW>,,<HSBHBP,HSBFLG>,< PAGE FAIL = >)
CMDWRD (033,B4,,<DO,.TXWDW>,,<HSBHBP,HSBPIS>,< PI = >)
CMDWRD (033,B5,,<DO,.TXWDW>,,<HSBHBP,HSBVMA>,< FLAGS,,VMA = >)
CMDWRD (033,Z0,,<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,00,,<DO,.TSIXN>,,<-1,USCNAM>,< >)
CMDWRD (040,01,,<DO,.TSIXN>,,<-1,USCHID>,< STATISTICS FOR PACK >)
CMDWRD (040,02,,<DO,.TDECW>,,<-1,USCHCT>,< HARD/SOFT/SEEK/HUNG/ ERRORS: >)
CMDWRD (040,03,,<DO,.TDECW>,,<-1,USCSCT>,</>)
CMDWRD (040,04,,<DO,.TDECW>,,<-1,USCPCT>,</>)
CMDWRD (040,05,,<DO,.TDECW>,,<-1,USCHNG>,</>)
CMDWRD (040,06,,<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,00,,<DO,.TSIXN>,<POST>,<-1,MSCNAM>,< STATISTICS >)
CMDWRD (041,01,<IFNE,0>,<DO,.TSIXN>,,<-1,MSCRID>,< FOR REEL >)
CMDWRD (041,02,,<DO,.TDECW>,,<-1,MSCWRC>,< READ CH/H/S: >)
CMDWRD (041,03,,<DO,.TDECW>,,<-1,MSCHRE>,</>)
CMDWRD (041,04,,<DO,.TDECW>,,<-1,MSCSRE>,</>)
CMDWRD (041,05,,<DO,.TDECW>,,<-1,MSCWWC>,< WRITE CH/H/S: >)
CMDWRD (041,06,,<DO,.TDECW>,,<-1,MSCHWE>,</>)
CMDWRD (041,07,,<DO,.TDECW>,,<-1,MSCSWE>,</>)
CMDWRD (041,10,,<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,00,,<DO,.TSIXN>,<POST>,<-1,TPSNAM>,< STATISTICS >)
CMDWRD (042,01,<IFNE,0>,<DO,.TSIXN>,,<-1,TPSRID>,< FOR REEL >)
CMDWRD (042,02,,<DO,.TDECW>,,<-1,TPSWRC>,< READ CH/H/S: >)
CMDWRD (042,03,,<DO,.TDECW>,,<-1,TPSHRE>,</>)
CMDWRD (042,04,,<DO,.TDECW>,,<-1,TPSSRE>,</>)
CMDWRD (042,05,,<DO,.TDECW>,,<-1,TPSWWC>,< WRITE CH/H/S: >)
CMDWRD (042,06,,<DO,.TDECW>,,<-1,TPSHWE>,</>)
CMDWRD (042,07,,<DO,.TDECW>,,<-1,TPSSWE>,</>)
CMDWRD (042,10,,<DO,ABORT>)
>
DEFINE DUM045<
TBLWRD (045,0,DSCSBP,SPECL,1,<DSC00A>)
>
DEFINE BRF045<
CMDWRD (045,00,,,,<-1,-1>,< DISK STATISTICS >)
CMDWRD (045,01,,<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,00,,<DO,.TDECW>,,<-1,BYT,<POINT 18,DLEPRT,35>>,< DL10 ERROR ON PDP11 # >)
CMDWRD (050,01,,<DO,.TXWDW>,,<-1,DLECNI>,< CONI DLC = >)
CMDWRD (050,02,,<DO,.TXWDW>,,<-1,DLEDTI>,< DATAI DLC = >)
CMDWRD (050,03,,<DO,ABORT>)
>
; ;START OF [1301] PROCESS COMMAND TABLES FOR NEW PARITY/NXM
; ;ENTRIES CREATED BY TOPS-10 7.01
DEFINE DUM051 <
TBLWRD (51,0,KIINAM,SIXBT,1,<ERROR DETECTED ON >)
TBLWRD (51,0,KIIPCI,HAFWD,2,<PC AT INTERRUPT: >)
TBLWRD (51,0,KIIAPR,SPECL,3,<KII001>)
TBLWRD (51,0,KIIPII,HAFWD,4,<CONI PI AT INTERRUPT: >)
TBLWRD (51,0,KIIPPN,PPNWW,5,<USER'S ID AT INTERRUPT: >)
TBLWRD (51,0,KIIPGM,SIXBT,6,<USER'S PROGRAM: >)
>
DEFINE BRF051 <
CMDWRD (051,00,,<DO,.TSIXN>,,<-1,KIINAM>,< PARITY OR NXM INTERRUPT ON >)
CMDWRD (051,01,,<DO,.TXWDW>,,<-1,KIIAPR>,< CONI APR = >)
CMDWRD (051,02,,<DO,.TXWDW>,,<-1,KIIPII>,< CONI PI = >)
CMDWRD (051,03,,<DO,.TXWDW>,,<-1,KIIPCI>,< PC AT INTERRUPT = >)
CMDWRD (051,04,,<DO,.TPPNW>,,<-1,KIIPPN>,< USER AT INTERRUPT >);[1307]
CMDWRD (051,05,,<DO,.TSIXN>,,<-1,KIIPGM>,< RUNNING >)
CMDWRD (051,06,,<DO,ABORT>)
>
DEFINE DUM052 <
TBLWRD (52,0,KLINAM,SIXBT,1,<ERROR DETECTED ON >)
TBLWRD (52,0,KLIPCI,HAFWD,2,<PC AT INTERRUPT: >)
TBLWRD (52,0,KLIPII,HAFWD,3,<CONI PI AT INTERRUPT: >)
TBLWRD (52,0,KLIAPR,SPECL,4,<KLI001>)
TBLWRD (52,0,KLISBD,SPECL,5,<KAE00A>)
>
DEFINE BRF052 <
CMDWRD (052,00,,<DO,.TSIXN>,,<-1,KLINAM>,< PARITY OR NXM INTERRUPT ON >)
CMDWRD (052,01,,<DO,.TXWDW>,,<-1,KLIAPR>,< CONI APR = >)
CMDWRD (052,02,,<DO,.TXWDW>,,<-1,KLIPII>,< CONI PI = >)
CMDWRD (052,03,,<DO,.TXWDW>,,<-1,KLIERA>,< RDERA = >)
CMDWRD (052,04,,<DO,.TXWDW>,,<-1,KLIPCI>,< PC AT INTERRUPT = >)
CMDWRD (052,05,,<DO,ABORT>)
>
DEFINE DUM054 <
TBLWRD (54,0,KSNNAM,SIXBT,1,<ERROR DETECTED ON >)
TBLWRD (54,0,KSNPCT,HAFWD,2,<PC AT TRAP: >)
TBLWRD (54,0,KSNPIT,HAFWD,3,<CONI PI AT TRAP: >)
TBLWRD (54,0,KSNPFW,SPECL,4,<KSN001>)
TBLWRD (54,0,KSNPMA,HAFWD,5,<PHYSICAL MEMORY ADDRESS AT TRAP: >);[1307]
TBLWRD (54,0,KSNPPN,PPNWW,6,<USER'S ID AT TRAP: >)
TBLWRD (54,0,KSNPGM,SIXBT,7,<USER'S PROGRAM: >)
TBLWRD (54,0,KSNNRT,DECML,8,<# OF RECOVERABLE TRAPS: >)
TBLWRD (54,0,KSNNNT,DECML,9,<# OF NON-RECOVERABLE TRAPS: >)
>
DEFINE BRF054 <
CMDWRD (054,00,,<DO,.TXWDW>,,<-1,KSNPFW>,< NXM TRAP PFW = >)
CMDWRD (054,01,,<DO,.TXWDW>,,<-1,KSNPMA>,< PMA = >)
CMDWRD (054,02,<IFEQ,1>,,,<-1,BYT,<POINT 1,KSNRET,1>>,< NON>)
CMDWRD (054,03,,,,<-1,-1>,< RECOVERABLE FAILURE >)
CMDWRD (054,04,,<DO,.TDECW>,,<-1,BYT,<POINT 9,KSNRET,35>>,< RETRYS: >)
CMDWRD (054,05,,<DO,.TPPNW>,,<-1,KSNPPN>,< USER AT TRAP >) ;[1327]
CMDWRD (054,06,,<DO,.TSIXN>,,<-1,KSNPGM>,< RUNNING >)
CMDWRD (054,07,,<DO,ABORT>)
>
DEFINE DUM055 <
TBLWRD (55,0,KLTNAM,SIXBT,1,<ERROR DETECTED ON >)
TBLWRD (55,0,KLTPCT,HAFWD,2,<PC AT TRAP: >)
TBLWRD (55,0,KLTPIT,HAFWD,3,<CONI PI AT TRAP: >)
TBLWRD (55,0,KLTPMA,HAFWD,4,<PHYSICAL MEMORY ADDRESS AT TRAP: >);[1307]
TBLWRD (55,0,KLTPPN,PPNWW,5,<USER'S ID AT TRAP: >)
TBLWRD (55,0,KLTPGM,SIXBT,6,<USER'S PROGRAM: >)
TBLWRD (55,0,KLTPFW,SPECL,7,<KLT001>)
TBLWRD (55,0,KLTNRT,DECML,8,<# OF RECOVERABLE TRAPS: >)
TBLWRD (55,0,KLTNNT,DECML,9,<# OF NON-RECOVERABLE TRAPS: >)
>
DEFINE BRF055 <
CMDWRD (055,00,,<DO,.TXWDW>,,<-1,KLTPFW>,< PARITY TRAP PFW = >)
CMDWRD (055,01,,<DO,.TXWDW>,,<-1,KLTPMA>,< PMA = >)
CMDWRD (055,02,<IFEQ,1>,,CCF7,<-1,BYT,<POINT 1,KLTRET,1>>,< NON>)
CMDWRD (055,03,,,,<-1,-1>,< RECOVERABLE FAILURE >)
CMDWRD (055,04,,<DO,.TPPNW>,,<-1,KLTPPN>,< USER AT TRAP >);[1307]
CMDWRD (055,05,,<DO,.TSIXN>,,<-1,KLTPGM>,< RUNNING >)
CMDWRD (055,06,<IFEQ,0>,<XFR,055,20>,,<-1,BYT,<POINT 1,KLTRET,0>>)
CMDWRD (055,07,<IFEQ,1>,,,<-1,BYT,<POINT 1,KLTRET,2>>,< CACHE FAILED >)
CMDWRD (055,10,<IFEQ,1>,,,<-1,BYT,<POINT 1,KLTRET,3>>,< CACHE IN USE >)
CMDWRD (055,11,<IFEQ,1>,,,<-1,BYT,<POINT 1,KLTRET,4>>,< ERROR ON CACHE SWEEP >)
CMDWRD (055,12,<IFEQ,1>,,,<-1,BYT,<POINT 1,KLTRET,5>>,< CACHE WAS DISABLED >)
CMDWRD (055,13,,<DO,.TDECW>,,<-1,BYT,<POINT 9,KLTRET,26>>,< RETRIES WITH CACHE: >)
CMDWRD (055,14,,<DO,.TDECW>,,<-1,BYT,<POINT 9,KLTRET,35>>,< RETRIES WITHOUT CACHE: >)
CMDWRD (055,15,,<DO,ABORT>)
CMDWRD (055,20,,<DO,.TDECW>,,<-1,BYT,<POINT 9,KLTRET,35>>,< RETRIES: >)
CMDWRD (055,21,,<DO,ABORT>)
>
DEFINE DUM056 <
TBLWRD (56,0,NXSNAM,SIXBT,1,<NXM CORE SWEEP TOTALS FOR >)
TBLWRD (56,0,NXSTNE,DECML,2,< REPRODUCIBLE: >)
TBLWRD (56,0,NXSTSE,DECML,3,< NON-REPRODUCIBLE: >)
TBLWRD (56,0,NXSNCS,DECML,4,< DETECTED BY DATA
CHANNEL BUT NOT
BY CPU: >)
TBLWRD (56,0,NXSTNS,DECML,5,<SWEEP INFORMATION:
ERRORS DETECTED: >)
TBLWRD (56,0,NXSNAA,HAFWD,6,< LOGICAL "AND" OF BAD
PHYSICAL ADDRESSES: >)
TBLWRD (56,0,NXSNOA,HAFWD,7,< LOGICAL "OR" OF BAD
PHYSICAL ADDRESSES: >)
TBLWRD (56,0,NXSFLG,SPECL,8,<NXSLST>)
TBLWRD (56,0,NXSADR,SPECL,9,<BADADD>)
>
DEFINE BRF056 <
CMDWRD (056,00,,<DO,.TSIXN>,,<-1,NXSNAM>,< NXM SWEEP ON >)
CMDWRD (056,01,,<DO,.TDECW>,,<-1,NXSTNS>,< # OF ERRORS SEEN = >)
CMDWRD (056,02,,<DO,ABORT>)
>
DEFINE DUM057 <
TBLWRD (57,0,PARNAM,SIXBT,1,<DATA PARITY CORE SWEEP TOTALS FOR >)
TBLWRD (57,0,PARTPE,DECML,2,< REPRODUCIBLE: >)
TBLWRD (57,0,PARTSE,DECML,3,< NON-REPRODUCIBLE: >)
TBLWRD (57,PARPAR,MPEUEP,DECML,4,< USER ENABLED: >)
TBLWRD (57,PARPAR,MPEPSC,DECML,5,< CORE SWEEPS: >)
TBLWRD (57,PARPAR,MPEPCS,DECML,6,< DETECTED BY DATA
CHANNEL BUT NOT
BY CPU: >)
TBLWRD (57,PARPAR,MPEPTS,DECML,7,<SWEEP INFORMATION:
ERRORS DETECTED: >)
TBLWRD (57,PARPAR,MPEPAA,HAFWD,8,< LOGICAL "AND" OF BAD
PHYSICAL ADDRESSES: >)
TBLWRD (57,PARPAR,MPEPOA,HAFWD,9,< LOGICAL "OR" OF BAD
PHYSICAL ADDRESSES: >)
TBLWRD (57,PARPAR,MPEPAC,HAFWD,10,< LOGICAL "AND" OF BAD DATA: >)
TBLWRD (57,PARPAR,MPEPOC,HAFWD,11,< LOGICAL "OR" OF BAD DATA: >)
>
DEFINE BRF057 <
CMDWRD (057,00,,<DO,.TSIXN>,,<-1,PARNAM>,< DATA PARITY CORE SWEEP FOR >)
CMDWRD (057,A1,,<DO,FIXOFF>,,<-1,PARPAR>) ;[1325]
CMDWRD (057,01,,<DO,.TDECW>,,<PARPAR,MPEPTS>,< # OF ERRORS SEEN = >)
CMDWRD (057,02,,<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,00,,<DO,.TSIXN>,,<-1,KDINAM>,< PARITY INTERRUPT ON >)
CMDWRD (060,01,,<DO,.TXWDW>,,<-1,KDICNI>,< CONI APR = >)
CMDWRD (060,02,,<DO,.TXWDW>,,<-1,KDIERA>,< ERA = >)
CMDWRD (060,03,,<DO,.TXWDW>,,<-1,KDIMPP>,< PC AT INTERRUPT = >)
CMDWRD (060,04,,<DO,.TDECW>,,<-1,KDITPE>,< # OF ERRORS SEEN = >)
CMDWRD (060,05,,<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,00,,<DO,.TXWDW>,,<-1,KDTPFW>,< PARITY TRAP PFW = >)
CMDWRD (061,01,,<DO,.TXWDW>,,<-1,KDTPMA>,< PMA = >)
CMDWRD (061,02,<IFEQ,1>,,,<-1,BYT,<POINT 1,KDTTRY,1>>,< NON>)
CMDWRD (061,03,,,,<-1,-1>,< RECOVERABLE FAILURE >)
CMDWRD (061,04,,<DO,.TDECW>,,<-1,BYT,<POINT 9,KDTTRY,26>>,< RETRYS::CACHE ON: >)
CMDWRD (061,05,,<DO,.TDECW>,,<-1,BYT,<POINT 9,KDTTRY,35>>,< CACHE OFF: >)
CMDWRD (061,06,,<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,OCTLE,8,< LOGICAL "AND" OF BAD
PHYSICAL ADDRESSES: >)
TBLWRD (62,MDTPAR,MPEPOA,OCTLE,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,<MDT00A>)
>
DEFINE BRF062 <
CMDWRD (062,00,,<DO,.TSIXN>,,<-1,MDTNAM>,< PARITY INTERRUPT ON >)
CMDWRD (062,01,,<DO,.TXWDW>,,<-1,MDTCNI>,< CONI APR = >)
CMDWRD (062,02,,<DO,.TXWDW>,,<-1,MDTERA>,< ERA = >)
CMDWRD (062,03,,<DO,.TXWDW>,,<-1,MDTMPP>,< PC AT INTERRUPT = >)
CMDWRD (062,04,,<DO,.TDECW>,,<-1,MDTTPE>,< # OF ERRORS SEEN = >)
CMDWRD (062,05,,<DO,ABORT>)
>
DEFINE DUM063 <
TBLWRD (063,0,CSBAPI,SPECL,1,<CSBST>)
TBLWRD (063,0,CSBAPI,HAFWD,2,<APRID = >)
TBLWRD (063,0,CSBAPR,HAFWD,3,<CONI APR = >)
TBLWRD (063,0,CSBERA,HAFWD,4,<RDERA = >)
TBLWRD (063,0,CSBPIC,HAFWD,5,<CONI PI = >)
TBLWRD (063,0,CSBPGD,HAFWD,6,<DATAI PAG = >)
TBLWRD (063,0,CSBPGC,HAFWD,7,<CONI PAG = >)
TBLWRD (063,0,CSBRHC,SPECL,8,<KLCSBA>)
TBLWRD (063,0,CSBSBD,SPECL,9,<KLCSBB>)
>
DEFINE BRF063 <
CMDWRD (063,00,,,,<-1,-1>,< CPU STATUS BLOCK >)
CMDWRD (063,01,,<DO,.TXWDW>,,<-1,CSBAPI>,< APRID = >)
CMDWRD (063,02,,<DO,.TXWDW>,,<-1,CSBAPR>,< CONI APR = >)
CMDWRD (063,03,,<DO,.TXWDW>,,<-1,CSBPIC>,< CONI PI = >)
CMDWRD (063,04,,<DO,.TXWDW>,,<-1,CSBPGC>,< CONI PAG = >)
CMDWRD (063,05,,<DO,.TXWDW>,,<-1,CSBPGD>,< DATAI PAG = >)
CMDWRD (063,06,,<DO,ABORT>)
>
DEFINE DUM064<
TBLWRD (64,0,DSBIOI,SPECL,1,<DSB00A>)
>
DEFINE BRF064 <
CMDWRD (064,01,,,,<-1,-1>,< DEVICE STATUS BLOCK >)
CMDWRD (064,02,,<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,00,,<DO,.TSIXN>,,<-1,KAENAM>,< CPU NXM ERROR ON >)
CMDWRD (066,01,,<DO,.TXWDW>,,<-1,KAECNI>,< CONI APR = >)
CMDWRD (066,02,,<DO,.TXWDW>,,<-1,KAEERA>,< RDERA = >)
CMDWRD (066,03,,<DO,.TDECW>,,<-1,KAENTS>,< # OF ERRORS >)
CMDWRD (066,04,,<DO,.TXWDW>,,<-1,KAENAA>,< LOGICAL "AND" OF ADDRESSES >)
CMDWRD (066,05,,<DO,.TXWDW>,,<-1,KAENOA>,< LOGICAL "OR" OF ADDRESSES>)
CMDWRD (066,06,,<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,<KAE00A>)
TBLWRD (67,KAEADR,0,SPECL,12,<BADADD>)
TBLWRD (67,0,KAEKPG,SPECL,13,<KAELSA>)
>
DEFINE BRF067 <
CMDWRD (067,00,,<DO,.TSIXN>,,<-1,KAENAM>,< CPU NXM ERROR ON >)
CMDWRD (067,01,,<DO,.TXWDW>,,<-1,KAECNI>,< CONI APR = >)
CMDWRD (067,02,,<DO,.TXWDW>,,<-1,KAEERA>,< RDERA = >)
CMDWRD (067,03,,<DO,.TDECW>,,<-1,KAENTS>,< # OF ERRORS >)
CMDWRD (067,04,,<DO,.TXWDW>,,<-1,KAENAA>,< LOGICAL "AND" OF ADDRESSES >)
CMDWRD (067,05,,<DO,.TXWDW>,,<-1,KAENOA>,< LOGICAL "OR" OF ADDRESSES>)
CMDWRD (067,06,,<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,00,,<DO,.TSIXN>,<POST>,<-1,LPTNAM>,< LP100 ERROR >)
CMDWRD (071,01,,<DO,.TXWDW>,,<-1,LPTCNI>,< CONI LP = >)
CMDWRD (071,02,,<DO,ABORT>)
>
DEFINE DUM072 <
TBLWRD (72,0,HCCNAM,SIXBT,1,<UNIT NAME: >)
TBLWRD (72,0,HCCTYP,SPECL,2,<HCC00A>)
TBLWRD (72,0,HCCTYP,SPECL,3,<HCC00B>)
TBLWRD (72,0,HCCUID,PPNWW,4,<USER ID: >)
TBLWRD (72,0,HCCPGM,SIXBT,5,<PROGRAM NAME: >)
TBLWRD (72,0,HCCTYP,SPECL,6,<HCC00C>)
>
DEFINE BRF072 <
CMDWRD (072,00,,<DO,.TSIXN>,,<-1,HCCNAM>,< >)
CMDWRD (072,01,,<DO,.TPPNW>,,<-1,HCCUID>,< ERROR FOR USER >)
CMDWRD (072,02,,<DO,.TSIXN>,,<-1,HCCPGM>,< RUNNING >)
CMDWRD (072,03,<IFEQ,1>,<XFR,072,A0>,,<-1,BYT,HCCCTL>)
CMDWRD (072,04,<IFEQ,2>,<XFR,072,B0>,,<-1,BYT,HCCCTL>)
CMDWRD (072,05,<IFEQ,3>,<XFR,072,C0>,,<-1,BYT,HCCCTL>)
CMDWRD (072,06,<IFEQ,4>,<XFR,072,D0>,,<-1,BYT,HCCCTL>)
CMDWRD (072,07,,<DO,ABORT>,,<-1,-1>,< UNKNOWN CONTROLLER TYPE >)
CMDWRD (072,A0,<IFEQ,1>,<XFR,072,E0>,,<-1,BYT,HCCDEV>)
CMDWRD (072,A1,<IFEQ,2>,<XFR,072,F0>,,<-1,BYT,HCCDEV>)
CMDWRD (072,A2,<IFEQ,3>,<XFR,072,G0>,,<-1,BYT,HCCDEV>)
CMDWRD (072,A3,<IFEQ,4>,<XFR,072,H0>,,<-1,BYT,HCCDEV>)
CMDWRD (072,A4,,<DO,ABORT>,,<-1,-1>,< UNKNOWN DEVICE TYPE >)
CMDWRD (072,B0,,<DO,.TXWDW>,,<HCCSBP,HCCCLP>,< CONI LP100 = >)
CMDWRD (072,B1,,<XFR,072,Z0>)
CMDWRD (072,C0,,<DO,.TXWDW>,,<HCCSBP,HCCL20>,< UBA STS = >)
CMDWRD (072,C1,,<DO,.TXWDW>,,<HCCSBP,HCCL21>,< UBA MAP = >)
CMDWRD (072,C2,,<DO,.TOCTW>,,<HCCSBP,BYT,<POINT 18,HCCL22,17>>,< LPCSRA = >)
CMDWRD (072,C3,,<DO,.TOCTW>,,<HCCSBP,BYT,<POINT 18,HCCL22,35>>,< LPCSRB = >)
CMDWRD (072,C4,,<XFR,072,Z0>)
CMDWRD (072,D0,,<DO,.TXWDW>,,<HCCSBP,HCCC20>,< UBA STS = >)
CMDWRD (072,D1,,<DO,.TXWDW>,,<HCCSBP,HCCC21>,< UBA MAP = >)
CMDWRD (072,D2,,<DO,.TOCTW>,,<HCCSBP,BYT,<POINT 18,HCCC22,17>>,< CD11ST = >)
CMDWRD (072,D3,,<XFR,072,Z0>)
CMDWRD (072,E0,,<DO,.TXWDW>,,<HCCSBP,HCCCBA>,< CONI LPT = >)
CMDWRD (072,E1,,<XFR,072,Z0>)
CMDWRD (072,F0,,<DO,.TXWDW>,,<HCCSBP,HCCCBA>,< CONI CDR = >)
CMDWRD (072,F1,,<XFR,072,Z0>)
CMDWRD (072,G0,,<DO,.TXWDW>,,<HCCSBP,HCCCBA>,< CONI CDP = >)
CMDWRD (072,G1,,<XFR,072,Z0>)
CMDWRD (072,H0,,<DO,.TXWDW>,,<HCCSBP,HCCCBA>,< CONI PLT = >)
CMDWRD (072,H1,,<XFR,072,Z0>)
CMDWRD (072,Z0,,<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 < ;;TOPS-20 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,<-1,BYT,MB.DEV>) ;;[1204]
CMDWRD (111,03,IFNE,<DO,DSERCD>,,<-1,MB%REG+10>,< SERIAL #>)
CMDWRD (111,04,IFNE,<DO,.TDIRW>,POST,<-1,MB%USR>) ;;[1207]
CMDWRD (111,05,IFNE,<DO,.TSIXN>,,<-1,MB%PGM>,< RUNNING >) ;;[1207]
CMDWRD (111,06,<IFEQ,1>,<XFR,111,10>,,<-1,BYT,MB.CHN>)
CMDWRD (111,07,<IFEQ,2>,<XFR,111,20>,,<-1,BYT,MB.CHN>)
CMDWRD (111,08,<IFEQ,3>,<XFR,111,30>,,<-1,BYT,MB.CHN>)
CMDWRD (111,09,,<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 < ;;TOPS-20 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>)
;[1335] TBLWRD (112,0,DX%USR,PPNWT,5,< USER'S LOGGED IN DIR: >)
;[1335] TBLWRD (112,0,DX%PGM,SIXBT,6,< USER'S PGM: >)
;[1335] 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,<-1,BYT,MB.DEV>) ;;[1204]
CMDWRD (111,A3,IFNE,<DO,.TDIRW>,POST,<-1,DX%USR>) ;;[1207]
CMDWRD (111,A4,IFNE,<DO,.TSIXN>,,<-1,DX%PGM>,< RUNNING >) ;;[1207]
CMDWRD (112,A5,,<DO,.TXWDW>,,<-1,DX%CNI>,< CONI=>)
CMDWRD (112,A6,,<DO,.TXWDW>,,<-1,DX%CS1>,< CHN STS 1= >)
CMDWRD (112,A7,,<DO,.TXWDW>,,<DX%MBR,BYT,<POINT 18,DM%CR,35>>,< CR=>) ;;[1262]
CMDWRD (112,A8,,<DO,.TXWDW>,,<DX%MBR,BYT,<POINT 18,DM%SR,35>>,< SR=>)
CMDWRD (112,A9,,<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 DUM114 < ;;;#12 TOPS-20 DISK/MAGTAPE STATISTICS
TBLWRD (114,0,ST%VID,SIXBT,1,<VOLUME ID: >)
TBLWRD (114,0,ST%COD,OCTLE,2,<STAT CODE: >)
TBLWRD (114,0,ST%NAM,OCTLE,3,<UNIT IF TAPE: >)
TBLWRD (114,0,ST%TYP,SPECL,4,<MB%000>) ;;UNIT TYPE & S/N
TBLWRD (114,0,ST%CAD,OCTLE,5,<CHANNEL ADDR: >)
TBLWRD (114,0,ST%UAD,OCTLE,6,<UNIT ADDR: >)
TBLWRD (114,0,ST%RED,DECML,7,<DP: READS: >)
TBLWRD (114,0,ST%WRT,DECML,8,<DP: WRITES: >)
TBLWRD (114,0,ST%SEK,DECML,9,<DP: SEEKS: >)
TBLWRD (114,0,ST%RNR,DECML,10,<MT: FRAMES READ NRZE: >)
TBLWRD (114,0,ST%RPE,DECML,11,<MT: FRAMES READ PE: >)
TBLWRD (114,0,ST%RGC,DECML,12,<MT: FRAMES READ GCR: >)
TBLWRD (114,0,ST%WNR,DECML,13,<MT: FRAMES WRITTEN NRZE: >)
TBLWRD (114,0,ST%WPE,DECML,14,<MT: FRAMES WRITTEN PE: >)
TBLWRD (114,0,ST%WGC,DECML,15,<MT: FRAMES WRITTEN GCR: >)
>;#12 .
DEFINE BRF114 < ;;;#12 .
CMDWRD (114,00,,<DO,DRVTYP>,,<-1,BYT,ST%TYP>,< STATS DRIVE: >)
CMDWRD (114,01,,<DO,.TSIXN>,,<-1,ST%NAM>,< VOLID: >)
CMDWRD (114,02,<IFEQ,1>,<XFR,114,10>,,<-1,ST%COD>) ;#12 system shutdown
CMDWRD (114,03,<IFEQ,2>,<XFR,114,20>,,<-1,ST%COD>) ;#12 disk mount
CMDWRD (114,04,<IFEQ,3>,<XFR,114,30>,,<-1,ST%COD>) ;#12 disk dismount
CMDWRD (114,05,<IFEQ,4>,<XFR,114,40>,,<-1,ST%COD>) ;#12 tape unload
CMDWRD (114,06,,<DO,.TOCTW>,,<-1,ST%COD>,< Unknown reason code: >)
CMDWRD (114,07,,<DO,ABORT>,,<-1,-1>,< >)
CMDWRD (114,10,,<DO,ABORT>,,<-1,-1>,< Reason: Shutdown.>)
CMDWRD (114,20,,<DO,ABORT>,,<-1,-1>,< Reason: Disk pack mount.>)
CMDWRD (114,30,,<DO,ABORT>,,<-1,-1>,< Reason: Disk pack dismount.>)
CMDWRD (114,40,,<DO,ABORT>,,<-1,-1>,< Reason: Magtape unload.>)
>;#12 .
DEFINE DUM115 < ;;[1204]
TBLWRD (115,0,0,SPECL,1,<CS%001>)
TBLWRD (115,0,CS%DNM,SIXBT,2,< AS >)
TBLWRD (115,0,0,SPECL,3,<CS%002>)
TBLWRD (115,0,CS%RSW,TASCI,4,< REASON: >)
>
DEFINE BRF115 < ;;[1215]
CMDWRD (115,A0,<IFEQ,CS%ADV>,<XFR,115,B0>,,<-1,BYT,CS.OPR>,< ATTACH >)
CMDWRD (115,A1,<IFEQ,CS%DDV>,<XFR,115,B0>,,<-1,BYT,CS.OPR>,< DETACH >)
CMDWRD (115,AZ,,<XFR,115,ZZ>,,<-1,-1>,< ? UNKNOWN CONFIGURATION CHANGE OPERATION!>)
CMDWRD (115,B0,,<DO,DRVTYP>,,<-1,BYT,CS.UTP>)
CMDWRD (115,B1,,<DO,.TDECW>,,<-1,BYT,CS.DSN>,< S/N:>)
CMDWRD (115,B2,IFNE,<DO,.TSIXN>,,<-1,CS%DNM>,< AS >)
CMDWRD (115,B4,,<DO,.TOCTW>,,<-1,BYT,CS.CHN>,< AT CHANNEL #>)
CMDWRD (115,B5,,<DO,.TOCTW>,,<-1,BYT,CS.CON>,< CONTROLLER #>)
CMDWRD (115,B6,,<DO,.TOCTW>,,<-1,BYT,CS.UNI>,< UNIT #>)
CMDWRD (115,B7,IFNE,<DO,PTSTRG>,,<-1,CS%RSW>,< REASON: >)
CMDWRD (115,ZZ,,<DO,ABORT>)
>
DEFINE DUM116 < ;;ADDED WITH [1100]
TBLWRD (116,0,SLMTTY,HAFWD,1,<ENTRY CREATED BY:
JOB #, TTY #: >)
TBLWRD (116,0,SLMPPN,TASCI,2,< DIRECTORY: >)
TBLWRD (116,0,SLMWHO,SIXBT,3,< WHO: >)
TBLWRD (116,0,SLMDEV,SIXBT,4,< DEV: >)
TBLWRD (116,0,SLMPTR,TASCI,5,< MESSAGE: >)
>
DEFINE BRF116 <
CMDWRD (116,00,,<DO,.TSIXN>,,<-1,SLMWHO>,< SYSTEM LOG ENTRY BY >)
CMDWRD (116,01,,<DO,.TSIXN>,,<-1,SLMDEV>,< FOR DEVICE >)
CMDWRD (116,02,,<DO,.TOCTW>,,<-1,BYT,<POINT 18,SLMTTY,35>>,< ON TTY # >)
CMDWRD (116,03,IFNE,<DO,PTSTRG>,,<-1,SLMPTR>,< MESSAGE: >)
CMDWRD (116,04,,<DO,ABORT>)
>
DEFINE DUM121 < ;;#1 SA10 Disk Device Errors Code
TBLWRD (121,0,MB%NAM,SIXBT,1,< UNIT NAME: >) ;#1
TBLWRD (121,0,MB%TYP,SPECL,2,<SD%000>) ;#1 Unit type, Physical module
TBLWRD (121,0,MB%VID,SIXBT,3,< VOLUME ID: >) ;#1
TBLWRD (121,0,MB%LOC,SPECL,4,<SD%001>) ;#1
;#1 TBLWRD (121,0,MB%USR,PPNWT,5,< USER'S LOGGED IN DIR: >)
;#1 TBLWRD (121,0,MB%PGM,SIXBT,6,< USER'S PGM: >)
;#1 TBLWRD (121,0,MB%FIL,TASCI,7,< USER'S FILE: >)
TBLWRD (121,0,MB%IRS,HAFWD,7,< FINAL IORB STATUS: >) ;#1 .
TBLWRD (121,0,MB%FES,HAFWD,8,< FINAL ERROR STATUS: >) ;#1 .
TBLWRD (121,0,MB%FEC,SPECL,9,<SD%004>) ;#1 .
TBLWRD (121,0,SD%SEN,SPECL,10,<SD%005>) ;#1 .
TBLWRD (121,0,SD%IOW,HAFWD,11,< IOW for operation: >) ;#1 .
TBLWRD (121,0,SD%STS,HAFWD,12,< SW Status word: >) ;#1 .
TBLWRD (121,0,MB%CNI,HAFWD,13,< CONI SA, at end: >) ;#1 .
;#1 TBLWRD (121,0,SD%ES0,HAFWD,14,< Status word 0 at error: >)
TBLWRD (121,0,SD%ES1,B8HEX,15,< Status word 1 at error: >) ;#4 ;#1 .
TBLWRD (121,0,SD%ES2,HAFWD,16,< Status word 2 at error: >) ;#1 .
;#1 TBLWRD (121,0,MB%CS0,HAFWD,17,< Status word 0 at end: >)
TBLWRD (121,0,MB%CS1,B8HEX,18,< Status word 1 at end: >) ;#4 ;#1 .
TBLWRD (121,0,MB%CS2,HAFWD,19,< Status word 2 at end: >) ;#1 .
TBLWRD (121,0,SD%CCP,HAFWD,21,< Current Channel Program address: >) ;#1 .
TBLWRD (121,0,SD%SCP,SPECL,23,SD%006) ;#1 .
> ;#1 .
DEFINE BRF121 < ;;#1 SA10 Disk error code
CMDWRD (121,00,,<DO,.TSIXN>,POST,<-1,MB%NAM>) ;#1 .
CMDWRD (121,01,IFNE,<DO,.TSIXN>,POST,<-1,MB%VID>,<:>) ;#1 .
CMDWRD (121,02,,<DO,DRVTYP>,POST,<-1,BYT,MB.DEV>) ;#1 .
CMDWRD (121,03,IFNE,<DO,SD%100>,,<-1,BYT,<POINT 8,SD%SEN+1,7>>,< Drive >) ;#5 #1 .
CMDWRD (121,04,IFNE,<DO,.TDIRW>,POST,<-1,MB%USR>) ;#1 .
CMDWRD (121,05,IFNE,<DO,.TSIXN>,,<-1,MB%PGM>,< RUNNING >) ;#1 .
CMDWRD (121,SX,,,,<-1,-1>,< SW1:>) ;#1 status word 1
CMDWRD (121,S0,,<DO,.THEXB>,,<-1,BYT,<POINT 8,SD%ES1,7>>,< >) ;#4 ;#1 .
CMDWRD (121,S1,,<DO,.THEXB>,,<-1,BYT,<POINT 8,SD%ES1,15>>,< >) ;#4 ;#1 .
CMDWRD (121,S2,,<DO,.THEXB>,,<-1,BYT,<POINT 8,SD%ES1,23>>,< >) ;#4 ;#1 .
CMDWRD (121,S3,,<DO,.THEXB>,,<-1,BYT,<POINT 8,SD%ES1,31>>,< >) ;#4 ;#1 .
CMDWRD (121,BX,,,,<-1,-1>,< SB0-3:>) ;#1 sense bytes 0-3
CMDWRD (121,B0,,<DO,.THEXB>,,<-1,BYT,<POINT 8,SD%SEN,7>>,< >) ;#4 ;#1 .
CMDWRD (121,B1,,<DO,.THEXB>,,<-1,BYT,<POINT 8,SD%SEN,15>>,< >) ;#4 ;#1 .
CMDWRD (121,B2,,<DO,.THEXB>,,<-1,BYT,<POINT 8,SD%SEN,23>>,< >) ;#4 ;#1 .
CMDWRD (121,B3,,<DO,.THEXB>,,<-1,BYT,<POINT 8,SD%SEN,31>>,< >) ;#4 ;#1 .
CMDWRD (121,B7,,<DO,.THEXB>,,<-1,BYT,<POINT 8,SD%SEN+1,31>>,< SB7: >) ;#6 .
CMDWRD (123,BZ,,,,<-1,-1>,< >) ;#6 .
CMDWRD (121,42,,<DO,BLKTRN>,,<-1,MB%LOC>) ;#1 .
CMDWRD (121,43,,<DO,ABORT>) ;#1 .
> ;#1 .
DEFINE DUM122 < ;;#2 Magtape on SA10 device errors, code 122
TBLWRD (122,0,MB%NAM,SIXBT,1,< UNIT NAME: >) ;#2 .
TBLWRD (122,0,MB%TYP,SPECL,2,<SM%000>) ;#2 .
TBLWRD (122,0,MB%VID,SIXBT,3,< VOLUME ID: >) ;#2 .
TBLWRD (122,0,MB%LOC,SPECL,4,<SM%001>) ;#2 .
;#2 TBLWRD (122,0,DX%USR,PPNWT,5,< USER'S LOGGED IN DIR: >)
;#2 TBLWRD (122,0,DX%PGM,SIXBT,6,< USER'S PGM: >)
;#2 TBLWRD (122,0,DX%FIL,TASCI,7,< USER'S FILE: >)
TBLWRD (122,0,MB%FES,HAFWD,8,< FINAL ERROR STATUS: >) ;#2 .
TBLWRD (122,0,MB%FEC,SPECL,9,<MB%004>) ;#2 .
TBLWRD (122,0,MB%CNI,HAFWD,10,< CONI SA, at end: >) ;#2 .
;#2 TBLWRD (122,0,DX%D1I,HAFWD,11,< DATAI PTCR AT ERROR: >)
;#2 TBLWRD (122,0,DX%D1F,HAFWD,12,< DATAI PTCR AT END: >)
;#2 TBLWRD (122,0,DX%D2I,HAFWD,13,< DATAI PBAR AT ERROR: >)
;#2 TBLWRD (122,0,DX%D2F,HAFWD,14,< DATAI PBAR AT END: >)
;#2 TBLWRD (122,0,DX%CS0,SPECL,15,<DX%003>)
TBLWRD (122,0,SM%ES1,B8HEX,16,< Status word 1 at error: >) ;#4 ;#2 .
TBLWRD (122,0,SM%ES2,HAFWD,17,< Status word 2 at error: >) ;#2 .
TBLWRD (122,0,SM%SEN,SPECL,18,<SM%005>) ;#2 .
> ;#2 .
DEFINE BRF122 < ;#2 .
CMDWRD (122,A0,,<DO,.TSIXN>,POST,<-1,MB%NAM>) ;#2 .
CMDWRD (122,A1,IFNE,<DO,.TSIXN>,POST,<-1,MB%VID>,<:>) ;#2 .
CMDWRD (122,A2,,<DO,DRVTYP>,POST,<-1,BYT,MB.DEV>) ;#2 .
CMDWRD (122,A3,IFNE,<DO,.TDIRW>,POST,<-1,MB%USR>) ;#2 .
CMDWRD (122,A4,IFNE,<DO,.TSIXN>,,<-1,MB%PGM>,< RUNNING >) ;#2 .
CMDWRD (122,A5,,<DO,.TXWDW>,,<-1,MB%CNI>,< CONI=>) ;#2 .
CMDWRD (122,SX,,,,<-1,-1>,< SW1:>) ;#2 status word 1
CMDWRD (122,S0,,<DO,.THEXB>,,<-1,BYT,<POINT 8,SM%ES1,7>>,< >) ;#4 ;#2 .
CMDWRD (122,S1,,<DO,.THEXB>,,<-1,BYT,<POINT 8,SM%ES1,15>>,< >) ;#4 ;#2 .
CMDWRD (122,S2,,<DO,.THEXB>,,<-1,BYT,<POINT 8,SM%ES1,23>>,< >) ;#4 ;#2 .
CMDWRD (122,S3,,<DO,.THEXB>,,<-1,BYT,<POINT 8,SM%ES1,31>>,< >) ;#4 ;#2 .
CMDWRD (122,B0,,,,<-1,-1>,< SENSE BYTES 0-3:>) ;#2 .
CMDWRD (122,B1,,<DO,.THEXB>,,<-1,BYT,<POINT 8,SM%SEN,7>>,< >) ;#4 ;#2 .
CMDWRD (122,B2,,<DO,.THEXB>,,<-1,BYT,<POINT 8,SM%SEN,15>>,< >) ;#4 ;#2 .
CMDWRD (122,B3,,<DO,.THEXB>,,<-1,BYT,<POINT 8,SM%SEN,23>>,< >) ;#4 ;#2 .
CMDWRD (122,B4,,<DO,.THEXB>,,<-1,BYT,<POINT 8,SM%SEN,31>>,< >) ;#4 ;#2 .
CMDWRD (122,C0,,<DO,BLKTRN>,,<-1,MB%LOC>) ;#2 .
CMDWRD (122,ZZ,,<DO,ABORT>) ;#2 .
> ;#2 .
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>)
>
;THE 130 BRIEF PROCESSOR HAS BEEN REPEAT 0'ED OUT BECAUSE BOTH SYSERC
;AND SYSERD USE BRF030 SINCE THEIR BOTH THE SAME AND IT WORKS. [1311]
REPEAT 0,<
DEFINE BRF130 < ;;EDITED WITH [1210]
CMDWRD (130,A1,IFLQ,<XFR,130,Z3>,,<-1,BYT,FE.DEV>)
CMDWRD (130,A2,<IFGT,.FEMAX>,<XFR,130,K1>,,<-1,BYT,FE.DEV>)
CMDWRD (130,B1,,<DO,FE%DEV>,POST,<-1,BYT,FE.DEV>) ;;PRINT DEVICE NAME
CMDWRD (130,B2,,<DO,.TOCTW>,,<-1,BYT,FE.DVN>,< #>) ;; & NUMBER
CMDWRD (130,B3,,<DO,.TOCTW>,,<FE%OFF,BYT,STD.ST>,< STD STAT=>)
CMDWRD (130,B4,<IFEQ,.FEDH11>,<XFR,130,D1>,,<-1,BYT,FE.DEV>)
CMDWRD (130,B5,<IFEQ,.FELP20>,<XFR,130,C1>,,<-1,BYT,FE.DEV>)
CMDWRD (130,B6,<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,D1,IFNE,<XFR,130,D5>,,<FE%OFF,BYT,STD.ST,1B26>) ;;DEV HUNG?
CMDWRD (130,D2,,<DO,.TOCTW>,,<FE%OFF,BYT,DH.ADR>,< UNIBUS ADDR=>)
CMDWRD (130,D3,IFNE,<DO,.TOCTW>,,<FE%OFF,BYT,DH.SCR>,< SYS CONTROL=>)
CMDWRD (130,D4,IFNE,<DO,.TOCTW>,,<FE%OFF,BYT,DH.NRC>,< REC CHAR=>)
CMDWRD (130,D5,,<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>)
>
>;END REPEAT 0 OF BRF130 [1311]
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,< FLAGS,,PAGE FAIL WORD: >)
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: >)
>
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,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,,RETRIES;>)
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,HAFWD,3,< PC FLAGS AT INTERRUPT: >) ;;[1204]
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>)
>
DEFINE DUM163 < ;;KL CPU STATUS BLOCK [740]
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,9,<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>)
>
DEFINE DUM164 < ;;MF20 DEVICE REPORT
TBLWRD (164,0,MF%TXT,TASCI,1,< TEXT FROM TGHA: >)
>
DEFINE BRF164 <
CMDWRD (164,00,,,,<-1,-1>,< MF20 REPORT>)
CMDWRD (164,01,,<DO,ABORT>)
>
DEFINE DUM201 < ;;CONTROL UTILITY STARTED
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>)
>
DEFINE DUM202 < ;;DOWN LINE LOAD
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%PGM,SPECL,5,<NL$PST>)
TBLWRD (202,0,NL%RTN,SPECL,6,<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,NL$PST>,,<-1,NL%PGM>)
CMDWRD (202,06,,<DO,ABORT>)
>
DEFINE DUM203 < ;;UP LINE DUMP
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 (202,0,ND%PGM,SPECL,5,<NL$PST>)
TBLWRD (203,0,ND%RTN,SPECL,6,<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$PST>,,<-1,ND%PGM>)
CMDWRD (203,05,,<DO,NL$RTN>,,<-1,ND%RTN>)
CMDWRD (203,06,,<DO,ABORT>)
>
DEFINE DUM210 < ;;NETWORK HARDWARE ENTRY
TBLWRD (210,0,NH%MID,SPECL,1,<NETHDR>)
TBLWRD (210,0,NH%RSM,SPECL,2,<NETHDW>)
>
DEFINE BRF210 <
CMDWRD (210,AA,,,,<-1,-1>,< NETWORK HARDWARE ERROR >)
CMDWRD (210,B0,IFLT,<DO,ABORT>,,<-1,NH%XID,<0,,-1>>)
CMDWRD (210,B1,,<DO,PTSTRG>,,<-1,NH%XID>,< FROM >)
CMDWRD (210,C0,,<DO,NETLID>,,<-1,NH%FUN>,< FOR LINE >)
CMDWRD (210,D0,,<DO,NETBRF>,,<-1,NH%RSM>,< ERROR IS >)
CMDWRD (210,ZZ,,<DO,ABORT>)
>
DEFINE DUM211 < ;;NETWORK SOFTWARE ERROR
TBLWRD (211,0,NH%MID,SPECL,1,<NETHDR>)
>
DEFINE BRF211 <
CMDWRD (211,AA,,,,<-1,-1>,< NETWORK SOFTWARE ERROR >)
CMDWRD (211,ZZ,,<DO,ABORT>)
>
DEFINE DUM220 < ;;OPERATOR TEXT
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>)
>
DEFINE DUM221 < ;;TOPOLOGY CHANGE
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>)
>
DEFINE DUM222 <
TBLWRD (222,0,NH%MID,SPECL,1,<NETHDR>)
TBLWRD (222,0,NH%PTR,SPECL,2,<NETOPR>)
>
DEFINE BRF222 <
CMDWRD (222,AA,,,,<-1,-1>,< NETWORK CHECK11 REPORT >)
CMDWRD (222,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,A1,,<DO,PTSTRG>,,<-1,NH%XID>,< FROM NODE >) ;;[1227]
CMDWRD (230,BB,,<DO,NETLID>,,<-1,NH%FUN>,< FOR LINE >)
CMDWRD (230,CC,,<DO,LC$3ER>,,<-1,NH%PTR>,< LINE ERROR RETRANS >)
CMDWRD (230,DD,,<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 (232,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>)
>
;START [1253]
;DN6x ENTRIES FOR TOPS-20 REL 4
DEFINE DUM233 <
TBLWRD (233,0,DN6LID,SPECL,1,<D6%LST>) ;;[1267]
>
;[1265]
DEFINE BRF233 <
CMDWRD (233,AA,,<DO,.TOCTW>,,<-1,BYT,<POINT 16,DN6LID,17>>,< Port Number: >)
CMDWRD (233,A1,,<DO,.TOCTW>,,<-1,BYT,<POINT 16,DN6LID,35>>,< LIne Number: >)
CMDWRD (233,A2,,<DO,DS%LST>,,<-1,-1>,< Terminal Type: >)
CMDWRD (233,BB,<IFEQ,0>,<XFR,233,GG>,,<-1,BYT,<POINT 8,DN6COD,7>>,< Unknown >)
CMDWRD (233,CC,<IFEQ,1>,<XFR,233,GG>,,<-1,BYT,<POINT 8,DN6COD,7>>,< 3780 >)
CMDWRD (233,DD,<IFEQ,2>,<XFR,233,GG>,,<-1,BYT,<POINT 8,DN6COD,7>>,< 2780 >)
CMDWRD (233,EE,<IFEQ,3>,<XFR,233,GG>,,<-1,BYT,<POINT 8,DN6COD,7>>,< Hasp >)
CMDWRD (233,FF,<IFGQ,4>,,,<-1,BYT,<POINT 8,DN6COD,7>>,< Unknown >)
CMDWRD (233,GG,,<DO,.TDECW>,,<-1,BYT,<POINT 16,DN6DAT+3,15>>,< Messages Sent: >)
CMDWRD (233,HH,,<DO,.TDECW>,,<-1,BYT,<POINT 16,DN6DAT+7,31>>,< Messages Received: >)
CMDWRD (233,JJ,,<DO,.TDECW>,,<-1,BYT,<POINT 16,DN6DAT+10,31>>,< NAK's Sent: >)
CMDWRD (233,KK,,<DO,.TDECW>,,<-1,BYT,<POINT 16,DN6DAT+3,31>>,< NAK's Received: >)
CMDWRD (233,ZZ,,<DO,ABORT>)
>
;END [1265]
DEFINE DUM234 <
TBLWRD (234,0,DNENAM,SIXBT,1,< NODE NAME: >)
TBLWRD (234,0,DNECOD,SPECL,2,<DE%LST>)
>
DEFINE BRF234 <
CMDWRD (234,AA,<IFEQ,1>,<XFR,234,DD>,,<-1,DNECOD>,< ENABLED >)
CMDWRD (234,BB,<IFEQ,2>,<XFR,234,DD>,,<-1,DNECOD>,< DISABLED >)
CMDWRD (234,CC,<IFGQ,3>,,,<-1,DNECOD>,< UNKNOWN >)
CMDWRD (234,DD,,<DO,.TOCTW>,,<-1,BYT,<POINT 18,DNEPRT,17>>,< PORT # >)
CMDWRD (234,EE,,<DO,.TOCTW>,,<-1,BYT,<POINT 18,DNEPRT,35>>,< LINE # >)
CMDWRD (234,ZZ,,<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,12,14,15,16,17,20,21,30,31,33,40,41,42,45,50,51,52,54,55,56,57,60,61,62,63,64,66,67,71,72,101,102,111,112,114,115,116,121,122,130,131,133,160,161,162,163,164,201,202,203,210,220,222,221,230,232,233,234>,0,0,0,<1,2,3,4,5,6,7,10,11,12,14,15,16,17,20,21,30,31,33,40,41,42,45,50,51,52,54,55,56,57,60,61,62,63,64,66,67,71,72,101,102,111,112,114,115,116,121,122,130,131,133,160,161,162,163,164,201,202,203,210,220,221,222,230,232,233,234>,0) ;#1 ;#2 ;#12 [740]
TBLCH1 (ALLNXM,0,<4,6,111,112,51,52,54,56,66,67>,0,0,0,1)
TBLCH1 (ALLPAR,<3,51,52,54,55,56,57,60,61,62,66,67,111,112,160,161,162,164>,0,6,0,0,2)
TBLCH1 (ALLPER,<1,2,5,7,15,17,31,40,41,42,45,101,102,131,232,233,234>,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,33,40,41,42,45,50,51,52,54,55,56,57,60,61,62,63,64,66,67,71,72,101,102,111,112,121,122,130,131,133,160,161,162,232,233,234>,4) ;#1 ;#2 .
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,30,31,33,51,52,54,55,56,57,60,61,62,63,64,66,67,101,102,130,131,133,160,161,162,163,164>,0,0,0,<1,2,3,4,30,31,33,51,52,54,55,56,57,60,61,62,63,64,66,67,101,102,130,131,133,160,161,162,163,164>,9) ;[740]
TBLCH1 (CPUPAR,<3,51,52,54,55,56,57,60,61,62,66,67,160,161,162,164>,0,0,0,0,10); [740]
TBLCH1 (CPUPER,<1,2,5,7,15,17,31,63,64,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,33,51,52,54,55,56,57,60,61,62,63,64,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,45>,0,0,0,0,15)
TBLCH1 (DSKSUM,0,0,0,0,<10,40>,16)
TBLCH1 (MAGALL,<12,20,21,41,42>,0,0,0,<12,20,21,41,42>,17)
TBLCH1 (MAGPAR,0,0,<12,20,21>,0,0,18)
TBLCH1 (MAGPER,<41,42>,0,0,0,0,19)
TBLCH1 (MAGSUM,0,0,0,0,<12,20,21,41,42>,20)
TBLCH1 (MASALL,<11,111,112,114,115,121,122>,0,0,0,<11,111,112,114,115,121,122>,21) ;#1 ;#2 ;#12 .
TBLCH1 (MASPAR,0,0,<11,111,112,121,122>,0,0,22) ;#1 ;#2 .
TBLCH1 (MASSUM,0,0,0,0,<11,111,112,121,122>,23) ;#1 ;#2 .
TBLCH1 (MASNXM,0,<11,111,112,121,122>,0,0,0,24) ;#1 ;#2 .
TBLCH1 (COMALL,50,0,0,0,50,25)
TBLCH1 (CPUNXM,<4,51,52,54,56,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,72>,0,0,0,<71,72>,29) ;[414]
TBLCH1 (NETALL,<31,50,201,202,203,210,220,221,222,230,232,233,234>,0,0,0,<201,202,203,210,220,221,222,230,232,233,234>,30) ;[500],[520],[522]
TBLCH1 (NETPER,<202,203,230,232,233,234>,0,0,<202,203,230,232,233,234>,<202,203,230,232,233,234>,31) ;[520],[522] [1214]
TBLCH1 (CPURLD,<1,31,33,101,131,202>,0,0,0,0,32) ;[541] [1214]
TBLCH1 (CPUCHK,<2,102>,0,0,0,0,33) ;[541]
TBLCH1 (SYSLOG,<14,16,114,115,116>,0,0,0,<14,16,114,115,116>,34) ;#12 [715]
TBLCH1 (NETHDW,210,0,0,0,210,35) ;1202
TBLCH1 (NETOPR,<220,222>,0,0,0,<220,222>,36) ;1202
TBLCH1 (SYSSFT,<5,7,14,17>,0,0,0,0,37)
>
; ;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]
TBLCH2 (OCTAL,.SWOCT,DUM) ; [1146]
>
; ;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,MTE,MTF,MTG,MTH>)
>
DEFINE DUMFS<
DEVBL1 (<FSA,FSB,FSC,FSD>)
>
DEFINE DUMRP<
DEVBL1 (<RPA,RPB,RPC,RPD,RPE,RPF,RPG,RPH,RPI,RPJ,RPK,RPL,RPM,RPN,RPO,RPP>)
>
; [1340]
DEFINE DUMRN<
DEVBL1 (<RNA,RNB,RNC,RND,RNE,RNF,RNG,RNH>)
>
DEFINE DUMDVA<
DUMDP
DUMFH
DUMTM
DUMFS
DUMRP
DUMRN
>
; ;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,MTE,MTF,MTG,MTH>)
>
DEFINE LOCFS<
NAMLOC (<FSA,FSB,FSC,FSD>)
>
DEFINE LOCRP<
NAMLOC (<RPA,RPB,RPC,RPD,RPE,RPF,RPG,RPH,RPI,RPJ,RPK,RPL,RPM,RPN,RPO,RPP>)
>
; [1340]
DEFINE LOCRN<
NAMLOC (<RNA,RNB,RNC,RND,RNE,RNF,RNG,RNH>)
>
DEFINE LOCDVA<
LOCDP
LOCFH
LOCTM
LOCFS
LOCRP
LOCRN
>
; ;HERE GOES THE ACTUAL CALL!
ZZ=0
LOCDVA
IFN EXPPRT,<
LALL
>
IFE EXPPRT,<
SALL
>
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,<CONTROLLER HANG>)
TBLDEV (5,<TRANSFER HANG>)
TBLDEV (6,<SEEK HANG>)
TBLDEV (7,<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 (26,<PWR FAIL>)
TBLDEV (27,<NXM>)
TBLDEV (28,<HARD MEM ERR>)
TBLDEV (29,<SOFT MEM ERR>)
TBLDEV (31,<8080 INTERRUPT>) ;;[1225]
>
;CONI APR FOR KI10
;SOMEWHAT INTERESTING TO NOTE THAT THIS DUMMY MACRO WAS FINALLY ADDED
;ON SYSERR'S 7TH BIRTHDAY, OCT 30,1979
DEFINE DUMKIA<
TBLDEV (19,<PARITY ERROR>)
TBLDEV (22,<PWR FAILURE>)
TBLDEV (28,<I-O PAGE FAIL>)
TBLDEV (29,<NXM>)
>
;FE STARDARD STATUS WORD
DEFINE DUFEST<
TBLDEV (24,<CONFIGURATION REPORT>) ;;EDIT [1311]
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>)
>
;DH11 SYSTEM CONTROL REGISTER [1223]
DEFINE DUMSCR<
TBLDEV (20,<TRANSMITTER INT>)
TBLDEV (21,<STORAGE INT>)
TBLDEV (22,<TRANS & NXM INT ENA>)
TBLDEV (23,<STORAGE INT ENA>)
TBLDEV (24,<MASTER CLEAR>)
TBLDEV (25,<NXM>)
TBLDEV (26,<MAINT>)
TBLDEV (27,<RECEIVER INT>)
TBLDEV (28,<RECEIVER INT ENA>)
>
;DH11 NEXT RECEIVED CHARACTER REGISTER [1223]
DEFINE DUMNRC<
TBLDEV (20,<VALID DATA PRESENT>)
TBLDEV (21,<DATA OVERRUN>)
TBLDEV (22,<FRAMING ERROR>)
TBLDEV (23,<PARITY ERROR>)
>
;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>)
>
;#1 SA10 CONI
DEFINE DUMSA1,< ;#1 .
TBLDEV (18,<P.I. Request>) ;#1 .
TBLDEV (19,<Parity error>) ;#1 .
TBLDEV (20,<NXM>) ;#1 .
TBLDEV (21,<CH0 ena>) ;#1 .
TBLDEV (22,<CH1 ena>) ;#1 .
TBLDEV (23,<CH2 ena>) ;#1 .
TBLDEV (24,<CH3 ena>) ;#1 .
TBLDEV (25,<CH0 Go>) ;#1 .
TBLDEV (26,<CH1 Go>) ;#1 .
TBLDEV (27,<CH2 Go>) ;#1 .
TBLDEV (28,<CH3 Go>) ;#1 .
TBLDEV (29,<CH0 STS>) ;#1 .
TBLDEV (30,<CH1 STS>) ;#1 .
TBLDEV (31,<CH2 STS>) ;#1 .
TBLDEV (32,<CH3 STS>) ;#1 .
>
; ;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>)
>
; ;[11XX]
; ;COMBINED VALUE FOR RH11 CS1&2
; ;LEFT HALF IS CS2,,RIGHT HALF IS CS1
DEFINE DUMCS3<
TBLDEV (2,<DATA LATE>)
TBLDEV (3,<WRITE CHECK>)
TBLDEV (4,<UNIBUS PAR ERR>)
TBLDEV (5,<NON-EXISTANT DEVICE>)
TBLDEV (6,<NXM>)
TBLDEV (7,<PROGRAM ERROR>)
TBLDEV (8,<MISSED TRANSFER>)
TBLDEV (9,<DATA PAR ERR>)
TBLDEV (20,<SC>)
TBLDEV (21,<TRE>)
TBLDEV (22,<MCPE>)
>
; ;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 ARE THE DEFINITIONS FOR RP20/DX20 SUPPORT
; ;FIRST IS SENSE BYTE 0
DEFINE DURSB0<
TBLDEV (28,<CMD REJ>)
TBLDEV (29,<INTERVENTION REQ'D>)
TBLDEV (30,<CHN BUS OUT PAR>)
TBLDEV (31,<EQUIP. CHK>)
TBLDEV (32,<DATA CHK>)
TBLDEV (33,<OVERRUN>)
>
; ;NOW SENSE BYTE 1
DEFINE DURSB1<
TBLDEV (28,<PERMANENT ERR>)
TBLDEV (29,<INVALID TRACK FMT>)
TBLDEV (30,<END OF CYL>)
TBLDEV (32,<NO REC. FOUND>)
TBLDEV (33,<FILE PROT.>)
TBLDEV (34,<WRITE INH.>)
TBLDEV (35,<OPERATION INC.>)
>
; ;NOW SENSE BYTE 2
DEFINE DURSB2<
TBLDEV (29,<CORRECTABLE>)
TBLDEV (30,<ALT. CONT.>)
TBLDEV (31,<ENVIR. DATA PRESENT>)
TBLDEV (32,<COMP. MODE>)
>
; ;FORMAT 1 SENSE BYTE 9
DEFINE DUF1B9<
TBLDEV (28,<PAD IN PROGRESS>)
TBLDEV (29,<SECTOR COMP ERROR>)
TBLDEV (30,<MOTOR AT SPEED SWITCH LATCHED>)
TBLDEV (31,<AIR SWITCH LATCHED>)
TBLDEV (32,<WRITE ENABLE>)
TBLDEV (33,<FIXED HEAD HDA INST.>)
TBLDEV (34,<SPINDLE MODE 2 BIT>)
TBLDEV (35,<SPINDLE MODE 1 BIT>)
>
; ;FORMAT 1 BYTE 10
DEFINE DUF1B0<
TBLDEV (28,<MODE SIZE CHECK>)
TBLDEV (29,<HDA SEQ LATCH 4>)
TBLDEV (30,<HDA SEQ LATCH 2>)
TBLDEV (31,<HDA SEQ LATCH 1>)
TBLDEV (32,<HDA SEQ CHECK>)
TBLDEV (33,<INHIBIT HDA RECYCLE>)
TBLDEV (35,<ODD PHYSICAL TRACK>)
>
; ;FORMAT 1 BYTE 11
DEFINE DUF1B1<
TBLDEV (28,<DRIVE START SWITCH>)
TBLDEV (29,<GUARD BAND PATTERN>)
TBLDEV (30,<TARGET VELOCITY>)
TBLDEV (31,<TRACK CROSSING>)
TBLDEV (33,<AIR SWITCH>)
TBLDEV (35,<MOTOR AT SPEED>)
>
; ;FORMAT 1 BYTE 12
DEFINE DUF1B2<
TBLDEV (28,<MULTIPLE HEAD SELECT CHECK>)
TBLDEV (29,<CAPABLE-ENABLE CHECK>)
TBLDEV (30,<WRITE OVERRUN>)
TBLDEV (31,<INDEX CHECK>)
TBLDEV (32,<DELTA CURRENT CHECK>)
TBLDEV (33,<CONTROL CHECK>)
TBLDEV (34,<WRITE TRANSITION CHECK>)
TBLDEV (35,<WRITE CURRENT DURING READ CHECK>)
>
; ;FORMAT 1 BYTE 16
DEFINE DUF1B6<
TBLDEV (28,<ACCESS TIME OUT>)
TBLDEV (29,<OVERSHOOT CHECK>)
TBLDEV (30,<SERVO OFF TRACK>)
TBLDEV (31,<REZERO MODE LATCH>)
TBLDEV (32,<SERVO LATCH>)
TBLDEV (33,<LINEAR MODE LATCH>)
TBLDEV (34,<CONTROL LATCH>)
TBLDEV (35,<WAIT LATCH>)
>
; ;FORMAT 1 BYTE17
DEFINE DUF1B7<
TBLDEV (30,<SERDES CHECK>)
TBLDEV (31,<GAP COUNTER CHECK>)
TBLDEV (32,<WRITE DATA CHECK>)
TBLDEV (33,<MONITOR CHECK>)
TBLDEV (34,<ECC HARDWARE CHECK>)
TBLDEV (35,<ZERO ECC DETECTED>)
>
; ;FORMAT 1 BYTE 19
DEFINE DUF119<
TBLDEV (28,<SET R-W ON>)
TBLDEV (32,<HEAD CHECK>)
TBLDEV (33,<PAD GATE CHECK>)
>
; ;FORMAT 1 BYTE 8 STYLE A
; ;USED IF BYTE 19 BIT 0 .NE. 1
DEFINE DUF18A<
TBLDEV (28,<CONTROLLER CHECK>)
TBLDEV (29,<DEVICE INTERFACE CHECK>)
TBLDEV (30,<DRIVE CHECK>)
TBLDEV (31,<READ WRITE CHECK>)
TBLDEV (32,<ONLINE>)
TBLDEV (33,<HDA ATTENTION>)
TBLDEV (34,<BUSY>)
TBLDEV (35,<SEEK COMPL SRCH SECTOR PAD COMPL>)
>
; ;FORMAT 1 BYTE 8 STYLE B
; ;USED IF BYTE 19 BIT 0 .EQ. 1
DEFINE DUF18B<
TBLDEV (28,<CONTROLLER CHECK>)
TBLDEV (29,<CURRENT WRITE CHECK>)
TBLDEV (30,<DRIVE CHECK>)
TBLDEV (31,<READ WRITE CHECK>)
TBLDEV (32,<ONLINE>)
TBLDEV (33,<PAD IN PROGRESS>)
TBLDEV (34,<INDEX MARK>)
TBLDEV (35,<3330 MODES>)
>
; ;FORMAT 2 BYTE 11
DEFINE DUF2B1 <
TBLDEV (28,<CHN BUFFER PARITY CHECK>)
TBLDEV (29,<INTERFACE CHECK, CHN A OR C>)
TBLDEV (30,<INTERFACE CHECK, CHN B OR D>)
TBLDEV (31,<DATA XFER CHECK>)
TBLDEV (32,<CTRL INTERFACE LOGIC CHECK>)
TBLDEV (33,<LOAD S REGISTERS CHECK>)
TBLDEV (34,<COMPARE ASSIST CHECK>)
TBLDEV (35,<CHN C-D OR MULTICONNECT>)
>
; ;FORMAT 2 BYTE 20
DEFINE DUF2B0 <
TBLDEV (28,<CONTROL MODULE CHECK>)
TBLDEV (29,<CONTROL MODULE ACTIVE CHECK>)
TBLDEV (30,<CONTROL MODULE BUFFER PARITY CHECK>)
TBLDEV (31,<CONTROL MODULE UNEXPECTED END CHECK>)
TBLDEV (32,<CONTROL MODULE TAG BUS CHECK>)
TBLDEV (33,<CONTROL MODULE BUS-OUT CHECK>)
TBLDEV (34,<CONTROL MODULE TRANSFER CHECK>)
>
; ;FORMAT 3 BYTE 10 STYLE A
; ;USED IF BYTE 10 BIT 0 .EQ. 0
DEFINE DUF30A <
TBLDEV (28,<EARLY ERROR>)
TBLDEV (29,<CLOCK ERROR>)
TBLDEV (35,<SPECIAL OPERATION ERROR>)
>
; ;FORMAT 3 BYTE 10 STYLE B
; ;USED IF BYTE 10 BIT 0 .EQ. 1
DEFINE DUF30B <
TBLDEV (29,<CLOCK ERROR>)
TBLDEV (32,<A REGISTER CHECK>)
TBLDEV (33,<B REGISTER CHECK>)
TBLDEV (34,<ALU CHECK>)
TBLDEV (35,<MPL READ CHECK>)
>
; ;FORMAT 3 BYTE 11 STYLE A
; ;USED IF BYTE 10 BIT 0 .EQ. 1
DEFINE DUF31A <
TBLDEV (29,<STORE MULT. READ ERROR>)
TBLDEV (30,<STORE ECC LOGIC ERROR>)
TBLDEV (33,<CD DECODE ERROR>)
>
; ;FORMAT 3 BYTE 11 STYLE B
; ;USED IF BYTE 10 BIT 0 .EQ. 0
DEFINE DUF31B <
TBLDEV (28,<STORE ADDR BUS 0-7 CHK>)
TBLDEV (29,<STORE ADDR BUS 8-13 CHK>)
TBLDEV (30,<STORE WRITE BUS 2-3 CHK>)
TBLDEV (31,<STORE WRITE BUS 0-1 CHK>)
TBLDEV (34,<MPL NOT READY>)
>
; ;FORMAT 1 BYTE 20
DEFINE DUF120 <
TBLDEV (28,<CTRL INTERFACE TAG BUS PAR CHECK>)
TBLDEV (29,<CTRL INTERFACE BUS OUT PAR CHK>)
TBLDEV (30,<DRIVE SEL CHK>)
TBLDEV (31,<DEVICE IN PAR CHK>)
TBLDEV (32,<CTRL INTERFACE BUS IN PAR CHK>)
TBLDEV (33,<WRITE FAILURE>)
TBLDEV (34,<3330 MODE INDEX CHECK>)
TBLDEV (35,< RE-ORIENT COUNTER CHK>)
>
; ;FORMAT 1 BYTE 21
DEFINE DUF121 <
TBLDEV (34,<DEVICE BUS OUT PAR CHK>)
TBLDEV (35,<DEVICE TAG PARITY>)
>
; ;HERE ARE THE MASSBUS REGISTER BITS FOR RP20 SUPPORT
; ;THE STATUS REGISTER
DEFINE DURPSR <
TBLDEV (2,<ATA>)
TBLDEV (3,<ERR>)
TBLDEV (4,<LINK PRESENT>)
TBLDEV (5,<MP RUN>)
>
; ;THE ERROR REG
DEFINE DURPER <
TBLDEV (10,<MPER>)
TBLDEV (11,<MPSTOP>)
TBLDEV (12,<UB PAR ERR>)
TBLDEV (13,<DB PAR ER>)
TBLDEV (14,<CB PAR ER>)
TBLDEV (15,<RMR>)
TBLDEV (16,<ILR>)
TBLDEV (17,<ILF>)
>
; ;MAINT. REG
DEFINE DURPRM<
TBLDEV (13,<MICRO P SINGLE CYCLE>)
TBLDEV (14,<WRITE EVEN PARITY>)
TBLDEV (15,<MICRO P START>)
TBLDEV (16,<DX RESET>)
>
; ;STATUS INDEX/DEV STATUS
DEFINE DURPSI <
TBLDEV (3,<STATUS MODIFIER>)
TBLDEV (4,<CTRL UNIT END>)
TBLDEV (5,<BUSY>)
TBLDEV (6,<CHANNEL END>)
TBLDEV (7,<DEVICE END>)
TBLDEV (8,<UNIT CHECK>)
TBLDEV (9,<UNIT EXCEPT.>)
>
; ;RP20 FLAGS/ARGUEMENT
DEFINE DURPFA <
TBLDEV (3,<IGNORE LENGTH>)
TBLDEV (4,<DIAG MODE>)
TBLDEV (5,<COMMAND RETRY>)
TBLDEV (7,<DISABLE SENSE>)
TBLDEV (8,<FORCE SENSE>)
TBLDEV (9,<WHOLE TRACK>)
>
;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.
;*%*%*%*%*%*
;HERE IS A QUICK MAP OF PDP-11 BIT POSITIONS IN A -10 WORD
;WHEN THE -11 WORD IS RIGHT JUSTIFIED IN THE -10 WORD
;*%*%*%*%*%*
; 10 BIT 11 BIT
; ------ ------
; 20 15
; 21 14
; 22 13
; 23 12
; 24 11
; 25 10
; 26 9
; 27 8
; 28 7
; 29 6
; 30 5
; 31 4
; 32 3
; 33 2
; 34 1
; 35 0
; ;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>)
>
; ;DZ11-CSR
DEFINE DUN004<
TBLDEV (22,<SILO ALARM>)
TBLDEV (32,<MAINT.>)
>
; ;DMC/KMC11-SEL6
DEFINE DUN005<
TBLDEV (26,<PROC ERR>)
TBLDEV (27,<NXM>)
TBLDEV (28,<DDCMP START REC'D>)
TBLDEV (29,<DISCONNECT>)
TBLDEV (31,<LOST DATA>)
TBLDEV (32,<DDCMP MAINT REC'D>)
TBLDEV (33,<O'RUN>)
TBLDEV (34,<TIME OUT>)
TBLDEV (35,<DATA CK>)
>
;#1 SA10 disk errors bit definitions
DEFINE DUSD00 < ;#1 sense bytes word 0
TBLDEV (0,<CMD REJ>) ;#1 command reject
TBLDEV (1,<INTER REQ>) ;#1 invervention required
TBLDEV (2,<BUS OUT CHK>) ;#1 bus out check
TBLDEV (3,<EQUIP CHK>) ;#1 equipment check
TBLDEV (4,<DATA CHK>) ;#1 data check
TBLDEV (5,<OVRN>) ;#1 overrun
TBLDEV (8+0,<PERM>) ;#1 permanent error
TBLDEV (8+1,<INV TRK FMT>) ;#1 invalid track format
TBLDEV (8+2,<END OF CYL>) ;#1 end of cylinder
TBLDEV (8+4,<NO REC FND>) ;#1 no record found
TBLDEV (8+5,<FIL PROT>) ;#1 file protect
TBLDEV (8+6,<WRT INH>) ;#1 write inhibit (Read only)
TBLDEV (8+7,<OP INC>) ;#1 operation incomplete
TBLDEV (16+1,<CORRECTABLE>) ;#1 correctable
TBLDEV (16+3,<ENV DATA>) ;#1 environmental data present (statistics)
> ;#1 end of DUSD00
DEFINE DUSD12< ;#6 FORMAT 1, bytes 8-11
TBLDEV (0,<INDEX ERROR>) ;#6 .
TBLDEV (1,<OFFSET ACTIVE>) ;#6 .
TBLDEV (2,<SEEK INCOMPLETE>) ;#6 .
TBLDEV (3,<SEEK COMPLETE>) ;#6 .
TBLDEV (4,<ONLINE>) ;#6 .
TBLDEV (5,<ATTENTION>) ;#6 .
TBLDEV (6,<BUSY>) ;#6 .
TBLDEV (7,<RECORD SEARCH IN PROG>) ;#6 .
TBLDEV (8+0,<PLO UNSAFE>) ;#6 .
TBLDEV (8+1,<DIAG LATCH 4>) ;#6 .
TBLDEV (8+2,<DIAG LATCH 2>) ;#6 .
TBLDEV (8+3,<DIAG LATCH 1>) ;#6 .
TBLDEV (8+4,<DZERO>) ;#6 .
TBLDEV (8+5,<MODE 4>) ;#6 .
TBLDEV (8+6,<MODE 2>) ;#6 .
TBLDEV (8+7,<MODE 1>) ;#6 .
TBLDEV (16+0,<MON STATE 8>) ;#6 .
TBLDEV (16+1,<MON STATE 7>) ;#6 .
TBLDEV (16+2,<MON STATE 6>) ;#6 .
TBLDEV (16+3,<MON STATE 5>) ;#6 .
TBLDEV (16+4,<MON STATE 4>) ;#6 .
TBLDEV (16+5,<MON STATE 3>) ;#6 .
TBLDEV (16+6,<MON STATE 2>) ;#6 .
TBLDEV (16+7,<MON STATE 1>) ;#6 .
TBLDEV (24+0,<CE PROG STOP>) ;#6 .
TBLDEV (24+1,<DATA FAULT>) ;#6 .
TBLDEV (24+2,<HEAD UNSAFE>) ;#6 .
TBLDEV (24+3,<WRITE SENSE ERR>) ;#6 .
TBLDEV (24+4,<CUDI BUSOUT PARITY ERR>) ;#6 .
TBLDEV (24+5,<MONITOR CHECK>) ;#6 .
TBLDEV (24+6,<READ/WRITE UNSAFE>) ;#6 .
TBLDEV (24+7,<COMMAND REJECT, DRIVE>) ;#6 .
> ;#6 end of DUSD12
DEFINE DUSD13< ;#6 FORMAT 1, BYTES 12-15
TBLDEV (0,<SELECT LOCK>) ;#6 .
TBLDEV (1,<DIAG LATCH 2 / DC UNSAFE*>) ;#6 .
TBLDEV (2,<WRITE OVERRUN*>) ;#6 .
TBLDEV (3,<PAD UNSAFE*>) ;#6 .
TBLDEV (4,<RESET ERROR / WRITE READY*>) ;#6 .
TBLDEV (5,<POWER RESET / WRITE OFFSET*>) ;#6 .
TBLDEV (6,<HEADS NOT LOADED>) ;#6 .
TBLDEV (7,<EVEN TRACK / WRITE UPPER THRESHOLD*>) ;#6 .
> ;#6 end of DUSD13
DEFINE DUSD15< ;#6 FORMAT 1, BYTES 20-23
TBLDEV (8+0,<DRIVE SELECTION ERROR>) ;#6 .
TBLDEV (8+1,<TAG INVALID>) ;#6 .
TBLDEV (8+2,<DEVICE CHECK>) ;#6 .
TBLDEV (8+3,<TA REGISTER CHECK>) ;#6 .
TBLDEV (8+4,<CUDI BUSIN CHECK>) ;#6 .
TBLDEV (8+5,<TD REGISTER CHECK>) ;#6 .
TBLDEV (8+7,<BANK B>) ;#6 .
> ;#6 end of DUSD15
DEFINE DUSD22< ;#6 FORMAT 2, BYTES 8-11
TBLDEV (0,<CHAN BUFFER READ ERROR>) ;#6 .
TBLDEV (1,<INTERFACE CHECK CHAN A>) ;#6 .
TBLDEV (2,<INTERFACE CHECK CHAN B>) ;#6 .
TBLDEV (3,<DATA TRANSFER CHECK>) ;#6 .
TBLDEV (4,<SERDES/VFO/ECC ERR>) ;#6 .
TBLDEV (5,<PLO ERROR>) ;#6 .
TBLDEV (6,<BYTE COUNTER ERROR>) ;#6 .
TBLDEV (8+0,<CUDI CHECK>) ;#6 .
TBLDEV (8+1,<WRITE PARITY ERROR>) ;#6 .
TBLDEV (8+2,<READ PARITY ERROR>) ;#6 .
TBLDEV (8+3,<BIT RING ERROR>) ;#6 .
TBLDEV (8+4,<ECC PARITY CHECK>) ;#6 .
TBLDEV (8+5,<ECC PARITY CHECK>) ;#6 .
TBLDEV (8+6,<VFO ERROR, MISSING PLO PULSES>) ;#6 .
TBLDEV (8+7,<VFO PHASE ERROR>) ;#6 .
TBLDEV (16+0,<ERROR- NO INPUT DATA RECEIVED>) ;#6 .
TBLDEV (16+1,<ERROR- PO OR WRITE>) ;#6 .
TBLDEV (16+2,<ERROR- P1 OR P3>) ;#6 .
TBLDEV (16+3,<ERROR- P2>) ;#6 .
TBLDEV (24+0,<DRIVE SELECTION ERROR>) ;#6 .
TBLDEV (24+1,<TAG INVALID>) ;#6 .
TBLDEV (24+2,<DEVICE CHECK>) ;#6 .
TBLDEV (24+3,<TA REGISTER CHECK>) ;#6 .
TBLDEV (24+4,<CUDI BUSIN CHECK>) ;#6 .
TBLDEV (24+5,<TD REGISTER CHECK>) ;#6 .
TBLDEV (24+7,<BANK B>) ;#6 .
> ;#6 end of DUSD22
;#2 SA10 magtape error bit definitions
DEFINE DUST00 < ;;#2 sense bytes word 0
TBLDEV (0,<CMD REJ>) ;;#2 Command reject
TBLDEV (1,<INTER REQ>) ;;#2 Intervention required
TBLDEV (2,<BUS OUT CHK>) ;;#2 Bus out check
TBLDEV (3,<EQUIP CHK>) ;;#2 Equipment check
TBLDEV (4,<DATA CHK>) ;;#2 Data check
TBLDEV (5,<OVRN>) ;;#2 Overrun
TBLDEV (6,<WD CNT 0>) ;;#2 Word count 0
TBLDEV (7,<DATA CONV CHK>) ;;#2 Data converter check
TBLDEV (8+0,<NOISE>) ;;#2 Noise
TBLDEV (8+1,<TU STAT A>) ;;#2 TU is selected, ready, and not busy
TBLDEV (8+2,<TU STAT B>) ;;#2 TU is rewinding or busy with another TCU
TBLDEV (8+3,<7 TRACK>) ;;#2 TU has the 7 track feature
TBLDEV (8+4,<LOAD PT>) ;;#2 TU is at load point
TBLDEV (8+5,<WRT STATUS>) ;;#2 TU is in write status
TBLDEV (8+6,<FILE PROTECT>) ;;#2 TU is in read status
TBLDEV (8+7,<NOT COMPAT>) ;;#2 Controller not compatible with TU
TBLDEV (24+0,<R/W VRC>) ;;#7 .
TBLDEV (24+1,<MTE/LRC>) ;;#7 .
TBLDEV (24+2,<SKEW ERROR>) ;;#7 .
TBLDEV (24+3,<END DATA CK/CRC>) ;;#7 .
TBLDEV (24+4,<ENV. CK/SKEW REG VRC>) ;;#7 .
TBLDEV (24+5,<1600 BPI>) ;;#7 TU is in 1600 BPI (PE) mode
TBLDEV (24+6,<BACKWARD>) ;;#7 TU is in backward status
TBLDEV (24+7,<C COMPARE>) ;;#7 .
> ;#2 end of DUST00
;CALCULATE LOWEST & HIGHEST NUMBERED ERROR BITS IN USE
; ;AND THE NUMBER OF ERROR BITS IN WORD
RADIX 10 ;***** NOTE WELL *****
DEFINE TBLDEV(A,B)<
IFL A-MISB81,<MISB81==A>
IFG A-MASB81,<MASB81==A> ;;[1224]
NUSB81==NUSB81+1
>
MISB81==36
MASB81==0 ;[1224]
NUSB81==0
DUSB81
DEFINE TBLDEV(A,B)<
IFL A-MINLPT,<MINLPT==A>
IFG A-MANLPT,<MANLPT==A> ;;[1224]
NUMLPT==NUMLPT+1
>
MINLPT==36
MANLPT==0 ;[1224]
NUMLPT==0
DUMLPT
DEFINE TBLDEV(A,B)<
IFL A-MIRP05,<MIRP05==A>
IFG A-MARP05,<MARP05==A> ;;[1224]
NURP05==NURP05+1
>
MIRP05==36
MARP05==0 ;[1224]
NURP05==0
DURP05
DEFINE TBLDEV(A,B)<
IFL A-MIRP06,<MIRP06==A>
IFG A-MARP06,<MARP06==A> ;;[1224]
NURP06==NURP06+1
>
MIRP06==36
MARP06==0 ;[1224]
NURP06==0
DURP06
DEFINE TBLDEV(A,B)<
IFL A-MIRLD1,<MIRLD1==A>
IFG A-MARLD1,<MARLD1==A> ;;[1224]
NURLD1==NURLD1+1
>
MIRLD1==36
MARLD1==0 ;[1224]
NURLD1==0
DURLD1
DEFINE TBLDEV(A,B)<
IFL A-MINRCB,<MINRCB==A>
IFG A-MAXRCB,<MAXRCB==A> ;;[1224]
NUMRCB==NUMRCB+1
>
MINRCB==36
MAXRCB==0 ;[1224]
NUMRCB==0
DUMRC1
DEFINE TBLDEV(A,B)<
IFL A-MINKLA,<MINKLA==A>
IFG A-MAXKLA,<MAXKLA==A> ;;[1224]
NUMKLA==NUMKLA+1
>
MINKLA==36
MAXKLA==0 ;[1224]
NUMKLA==0
DUMKLA
DEFINE TBLDEV(A,B)<
IFL A-MINKSA,<MINKSA==A>
IFG A-MAXKSA,<MAXKSA==A> ;;[1224]
NUMKSA==NUMKSA+1
>
MINKSA==36
MAXKSA==0 ;[1224]
NUMKSA==0
DUMKSA
DEFINE TBLDEV(A,B)<
IFL A-MINKIA,<MINKIA==A>
IFG A-MAXKIA,<MAXKIA==A> ;;[1224]
NUMKIA==NUMKIA+1
>
MINKIA==36
MAXKIA==0 ;[1224]
NUMKIA==0
DUMKIA
DEFINE TBLDEV(A,B)<
IFL A-MINTCB,<MINTCB==A>
IFG A-MAXTCB,<MAXTCB==A> ;;[1224]
NUMTCB==NUMTCB+1
>
MINTCB==36
MAXTCB==0 ;[1224]
NUMTCB==0
DUMTC1
DEFINE TBLDEV(A,B)<
IFL A-MINRPB,<MINRPB==A>
IFG A-MAXRPB,<MAXRPB==A> ;;[1224]
NUMRPB==NUMRPB+1
>
MINRPB==36
MAXRPB==0 ;[1224]
NUMRPB==0
DUMRP1
DEFINE TBLDEV(A,B)<
IFL A-MINRNB,<MINRNB==A>
IFG A-MAXRNB,<MAXRNB==A> ;;[1224]
NUMRNB==NUMRNB+1
>
MINRNB==36
MAXRNB==0 ;[1224]
NUMRNB==0
DUMRH2
DEFINE TBLDEV(A,B)<
IFL A-MINSFB,<MINSFB==A>
IFG A-MAXSFB,<MAXSFB==A> ;;[1224]
NUMSFB==NUMSFB+1
>
MINSFB==36
MAXSFB==0 ;[1224]
NUMSFB==0
DUMSF1
DEFINE TBLDEV(A,B)<
IFL A-MINTMB,<MINTMB==A>
IFG A-MAXTMB,<MAXTMB==A> ;;[1224]
NUMTMB=NUMTMB+1
>
MINTMB==36
MAXTMB==0 ;[1224]
NUMTMB==0
DUMTM1
DEFINE TBLDEV(A,B)<
IFL A-MINRHB,<MINRHB==A>
IFG A-MAXRHB,<MAXRHB==A> ;;[1224]
NUMRHB=NUMRHB+1
>
MINRHB==36
MAXRHB==0 ;[1224]
NUMRHB==0
DUMRH1
DEFINE TBLDEV(A,B)<
IFL A-MINDL2,<MINDL2==A>
IFG A-MAXDL2,<MAXDL2==A> ;;[1224]
NUMDL2==NUMDL2+1
>
MINDL2==36
MAXDL2==0 ;[1224]
NUMDL2==0
DUMDL2
DEFINE TBLDEV(A,B)<
IFL A-MIRP01,<MIRP01==A>
IFG A-MARP01,<MARP01==A> ;;[1224]
NURP01==NURP01+1
>
MIRP01==36
MARP01==0 ;[1224]
NURP01==0
DURP01
DEFINE TBLDEV(A,B)<
IFL A-MIRP02,<MIRP02==A>
IFG A-MARP02,<MARP02==A> ;;[1224]
NURP02==NURP02+1
>
MIRP02==36
MARP02==0 ;[1224]
NURP02==0
DURP02
DEFINE TBLDEV(A,B)<
IFL A-MIRP10,<MIRP10==A>
IFG A-MARP10,<MARP10==A> ;;[1224]
NURP10==NURP10+1
>
MIRP10==36
MARP10==0 ;[1224]
NURP10==0
DURP10
DEFINE TBLDEV(A,B)<
IFL A-MIRP15,<MIRP15==A>
IFG A-MARP15,<MARP15==A> ;;[1224]
NURP15==NURP15+1
>
MIRP15==36
MARP15==0 ;[1224]
NURP15==0
DURP15
DEFINE TBLDEV(A,B)<
IFL A-MIRS01,<MIRS01==A>
IFG A-MARS01,<MARS01==A> ;;[1224]
NURS01==NURS01+1
>
MIRS01==36
MARS01==0 ;[1224]
NURS01==0
DURS01
DEFINE TBLDEV(A,B)<
IFL A-MIRS02,<MIRS02==A>
IFG A-MARS02,<MARS02==A> ;;[1224]
NURS02==NURS02+1
>
MIRS02==36
MARS02==0 ;[1224]
NURS02==0
DURS02
DEFINE TBLDEV(A,B)<
IFL A-MIT601,<MIT601==A>
IFG A-MAT601,<MAT601==A> ;;[1224]
NUT601==NUT601+1
>
MIT601==36
MAT601==0 ;[1224]
NUT601==0
DUT601
DEFINE TBLDEV(A,B)<
IFL A-MIT602,<MIT602==A>
IFG A-MAT602,<MAT602==A> ;;[1224]
NUT602==NUT602+1
>
MIT602==36
MAT602==0 ;[1224]
NUT602==0
DUT602
DEFINE TBLDEV(A,B)<
IFL A-MIICPC,<MIICPC==A>
IFG A-MAICPC,<MAICPC==A> ;;[1224]
NUICPC==NUICPC+1
>
MIICPC==36
MAICPC==0 ;[1224]
NUICPC==0
DUICPC
DEFINE TBLDEV(A,B)<
IFL A-MIDXTB,<MIDXTB==A>
IFG A-MADXTB,<MADXTB==A> ;;[1224]
NUDXTB==NUDXTB+1
>
MIDXTB==36
MADXTB==0 ;[1224]
NUDXTB==0
DUDXTB
DEFINE TBLDEV(A,B)<
IFL A-MIRPMR,<MIRPMR==A>
IFG A-MARPMR,<MARPMR==A> ;;[1224]
NURPMR==NURPMR+1
>
MIRPMR==36
MARPMR==0 ;[1224]
NURPMR==0
DURPMR
DEFINE TBLDEV(A,B)<
IFL A-MISB03,<MISB03==A>
IFG A-MASB03,<MASB03==A> ;;[1224]
NUSB03==NUSB03+1
>
MISB03==36
MASB03==0 ;[1224]
NUSB03==0
DUSB03
DEFINE TBLDEV(A,B)<
IFL A-MISB47,<MISB47==A>
IFG A-MASB47,<MASB47==A> ;;[1224]
NUSB47==NUSB47+1
>
MISB47==36
MASB47==0 ;[1224]
NUSB47==0
DUSB47
DEFINE TBLDEV(A,B)<
IFL A-MINDXB,<MINDXB==A>
IFG A-MANDXB,<MANDXB==A> ;;[1224]
NUMDXB==NUMDXB+1
>
MINDXB==36
MANDXB==0 ;[1224]
NUMDXB==0
DUMDX1
DEFINE TBLDEV(A,B)<
IFL A-MINDL1,<MINDL1==A>
IFG A-MANDL1,<MANDL1==A> ;;[1224]
NUMDL1==NUMDL1+1
>
MINDL1==36
MANDL1==0 ;[1224]
NUMDL1==0
DUMDL1
DEFINE TBLDEV(A,B)<
IFL A-MIFEST,<MIFEST==A>
IFG A-MAFEST,<MAFEST==A> ;;[1224]
NUFEST==NUFEST+1
>
MIFEST==36
MAFEST==0 ;[1224]
NUFEST==0
DUFEST
;START EDIT [1223]
DEFINE TBLDEV(A,B)<
IFL A-MINSCR,<MINSCR==A>
IFG A-MAXSCR,<MAXSCR==A> ;;[1224]
NUMSCR==NUMSCR+1
>
MINSCR==36
MAXSCR==0 ;[1224]
NUMSCR==0
DUMSCR
DEFINE TBLDEV(A,B)<
IFL A-MINNRC,<MINNRC==A>
IFG A-MAXNRC,<MAXNRC==A> ;;[1224]
NUMNRC==NUMNRC+1
>
MINNRC==36
MAXNRC==0 ;[1224]
NUMNRC==0
DUMNRC
;END EDIT [1223]
DEFINE TBLDEV(A,B)<
IFL A-MIFELP,<MIFELP==A>
IFG A-MAFELP,<MAFELP==A> ;;[1224]
NUFELP==NUFELP+1
>
MIFELP==36
MAFELP==0 ;[1224]
NUFELP==0
DUFELP
DEFINE TBLDEV(A,B)<
IFL A-MILPSA,<MILPSA==A>
IFG A-MALPSA,<MALPSA==A> ;;[1224]
NULPSA==NULPSA+1
>
MILPSA==36
MALPSA==0 ;[1224]
NULPSA==0
DULPSA
DEFINE TBLDEV(A,B)<
IFL A-MILPSB,<MILPSB==A>
IFG A-MALPSB,<MALPSB==A> ;;[1224]
NULPSB==NULPSB+1
>
MILPSB==36
MALPSB==0 ;[1224]
NULPSB==0
DULPSB
DEFINE TBLDEV(A,B)<
IFL A-MIFECD,<MIFECD==A>
IFG A-MAFECD,<MAFECD==A> ;;[1224]
NUFECD==NUFECD+1
>
MIFECD==36
MAFECD==0 ;[1224]
NUFECD==0
DUFECD
DEFINE TBLDEV(A,B)<
IFL A-MICDST,<MICDST==A>
IFG A-MACDST,<MACDST==A> ;;[1224]
NUCDST==NUCDST+1
>
MICDST==36
MACDST==0 ;[1224]
NUCDST==0
DUCDST
DEFINE TBLDEV(A,B)<
IFL A-MINRH2,<MINRH2==A>
IFG A-MAXRH2,<MAXRH2==A> ;;[1224]
NUMRH2==NUMRH2+1
>
MINRH2==36
MAXRH2==0 ;[1224]
NUMRH2==0
DUMRH2
DEFINE TBLDEV(A,B)< ;#1 .
IFL A-MINSA1,<MINSA1==A> ;#1 .
IFG A-MAXSA1,<MAXSA1==A> ;#1 .
NUMSA1==NUMSA1+1 ;#1 .
> ;#1 .
MINSA1==36 ;#1 .
MAXSA1==0 ;#1 .
NUMSA1==0 ;#1 .
DUMSA1 ;#1 .
DEFINE TBLDEV(A,B)< ;[600]
IFL A-MINR11,<MINR11==A>
IFG A-MAXR11,<MAXR11==A> ;;[1224]
NUMR11==NUMR11+1
>
MINR11==36
MAXR11==0 ;[1224]
NUMR11==0
DUMR11
DEFINE TBLDEV(A,B)< ;[600]
IFL A-MINUBA,<MINUBA==A>
IFG A-MAXUBA,<MAXUBA==A> ;;[1224]
NUMUBA==NUMUBA+1
>
MINUBA==36
MAXUBA==0 ;[1224]
NUMUBA==0
DUMUBA
DEFINE TBLDEV(A,B)<
IFL A-MIRHSW,<MIRHSW==A>
IFG A-MARHSW,<MARHSW==A> ;;[1224]
NURHSW==NURHSW+1
>
MIRHSW==36
MARHSW==0 ;[1224]
NURHSW==0
DURHSW
DEFINE TBLDEV(A,B)<
IFL A-MIFEKL,<MIFEKL==A>
IFG A-MAFEKL,<MAFEKL==A> ;;[1224]
NUFEKL==NUFEKL+1
>
MIFEKL==36
MAFEKL==0 ;[1224]
NUFEKL==0
DUFEKL
DEFINE TBLDEV(A,B)<
IFL A-MIDXSR,<MIDXSR==A>
IFG A-MADXSR,<MADXSR==A> ;;[1224]
NUDXSR==NUDXSR+1
>
MIDXSR==36
MADXSR==0 ;[1224]
NUDXSR==0
DUDXSR
DEFINE TBLDEV(A,B)<
IFL A-MIDXER,<MIDXER==A>
IFG A-MADXER,<MADXER==A> ;;[1224]
NUDXER==NUDXER+1
>
MIDXER==36
MADXER==0 ;[1224]
NUDXER==0
DUDXER
DEFINE TBLDEV(A,B)<
IFL A-MIDXMR,<MIDXMR==A>
IFG A-MADXMR,<MADXMR==A> ;;[1224]
NUDXMR==NUDXMR+1
>
MIDXMR==36
MADXMR==0 ;[1224]
NUDXMR==0
DUDXMR
DEFINE TBLDEV(A,B)< ;[600]
IFL A-MINCS2,<MINCS2==A>
IFG A-MAXCS2,<MAXCS2==A> ;;[1224]
NUMCS2==NUMCS2+1
>
MINCS2==36
MAXCS2==0 ;[1224]
NUMCS2==0
DUMCS2
; ;[11XX]
DEFINE TBLDEV(A,B)< ;[600]
IFL A-MINCS3,<MINCS3==A>
IFG A-MAXCS3,<MAXCS3==A> ;;[1224]
NUMCS3==NUMCS3+1
>
MINCS3==36
MAXCS3==0 ;[1224]
NUMCS3==0
DUMCS3
DEFINE TBLDEV(A,B)< ;[601]
IFL A-MINMR1,<MINMR1==A>
IFG A-MAXMR1,<MAXMR1==A> ;;[1224]
NUMMR1==NUMMR1+1
>
MINMR1==36
MAXMR1==0 ;[1224]
NUMMR1==0
DURMR1
DEFINE TBLDEV(A,B)< ;[601]
IFL A-MINMR2,<MINMR2==A>
IFG A-MAXMR2,<MAXMR2==A> ;;[1224]
NUMMR2==NUMMR2+1
>
MINMR2==36
MAXMR2==0 ;[1224]
NUMMR2==0
DURMR2
DEFINE TBLDEV(A,B)< ;[601]
IFL A-MINER2,<MINER2==A>
IFG A-MAXER2,<MAXER2==A> ;;[1224]
NUMER2==NUMER2+1
>
MINER2==36
MAXER2==0 ;[1224]
NUMER2==0
DURER2
DEFINE TBLDEV(A,B)<
IFL A-MIN001,<MIN001==A>
IFG A-MAX001,<MAX001==A> ;;[1224]
NUN001==NUN001+1
>
MIN001==36
MAX001==0 ;[1224]
NUN001==0
DUN001
DEFINE TBLDEV(A,B)<
IFL A-MIN002,<MIN002==A>
IFG A-MAX002,<MAX002==A> ;;[1224]
NUN002==NUN002+1
>
MIN002==36
MAX002==0 ;[1224]
NUN002==0
DUN002
DEFINE TBLDEV(A,B)<
IFL A-MIN003,<MIN003==A>
IFG A-MAX003,<MAX003==A> ;;[1224]
NUN003==NUN003+1
>
MIN003==36
MAX003==0 ;[1224]
NUN003==0
DUN003
DEFINE TBLDEV(A,B)<
IFL A-MIN004,<MIN004==A>
IFG A-MAX004,<MAX004==A> ;;[1224]
NUN004==NUN004+1
>
MIN004==36
MAX004==0 ;[1224]
NUN004==0
DUN004
DEFINE TBLDEV(A,B)<
IFL A-MIN005,<MIN005==A>
IFG A-MAX005,<MAX005==A> ;;[1224]
NUN005==NUN005+1
>
MIN005==36
MAX005==0 ;[1224]
NUN005==0
DUN005
DEFINE TBLDEV(A,B)<
IFL A-MIRSB0,<MIRSB0==A>
IFG A-MARSB0,<MARSB0==A> ;;[1224]
NURSB0==NURSB0+1
>
MIRSB0==36
MARSB0==0 ;[1224]
NURSB0==0
DURSB0
DEFINE TBLDEV(A,B)<
IFL A-MIRSB1,<MIRSB1==A>
IFG A-MARSB1,<MARSB1==A> ;;[1224]
NURSB1==NURSB1+1
>
MIRSB1==36
MARSB1==0 ;[1224]
NURSB1==0
DURSB1
DEFINE TBLDEV(A,B)<
IFL A-MIRSB2,<MIRSB2==A>
IFG A-MARSB2,<MARSB2==A> ;;[1224]
NURSB2==NURSB2+1
>
MIRSB2==36
MARSB2==0 ;[1224]
NURSB2==0
DURSB2
; ;HERE ARE THE DEFINITIONS FOR RP20 SUPPORT
DEFINE TBLDEV(A,B)<
IFL A-MIF1B9,<MIF1B9==A>
IFG A-MAF1B9,<MAF1B9==A> ;;[1224]
NUF1B9==NUF1B9+1
>
MIF1B9==36
MAF1B9==0 ;[1224]
NUF1B9==0
DUF1B9
DEFINE TBLDEV(A,B)<
IFL A-MIF1B0,<MIF1B0==A>
IFG A-MAF1B0,<MAF1B0==A> ;;[1224]
NUF1B0==NUF1B0+1
>
MIF1B0==36
MAF1B0==0 ;[1224]
NUF1B0==0
DUF1B0
DEFINE TBLDEV(A,B)<
IFL A-MIF1B1,<MIF1B1==A>
IFG A-MAF1B1,<MAF1B1==A> ;;[1224]
NUF1B1==NUF1B1+1
>
MIF1B1==36
MAF1B1==0 ;[1224]
NUF1B1==0
DUF1B1
DEFINE TBLDEV(A,B)<
IFL A-MIF1B2,<MIF1B2==A>
IFG A-MAF1B2,<MAF1B2==A> ;;[1224]
NUF1B2==NUF1B2+1
>
MIF1B2==36
MAF1B2==0 ;[1224]
NUF1B2==0
DUF1B2
DEFINE TBLDEV(A,B)<
IFL A-MIF1B6,<MIF1B6==A>
IFG A-MAF1B6,<MAF1B6==A> ;;[1224]
NUF1B6==NUF1B6+1
>
MIF1B6==36
MAF1B6==0 ;[1224]
NUF1B6==0
DUF1B6
DEFINE TBLDEV(A,B)<
IFL A-MIF1B7,<MIF1B7==A>
IFG A-MAF1B7,<MAF1B7==A> ;;[1224]
NUF1B7==NUF1B7+1
>
MIF1B7==36
MAF1B7==0 ;[1224]
NUF1B7==0
DUF1B7
DEFINE TBLDEV(A,B)<
IFL A-MIF119,<MIF119==A>
IFG A-MAF119,<MAF119==A> ;;[1224]
NUF119==NUF119+1
>
MIF119==36
MAF119==0 ;[1224]
NUF119==0
DUF119
DEFINE TBLDEV(A,B)<
IFL A-MIF18A,<MIF18A==A>
IFG A-MAF18A,<MAF18A==A> ;;[1224]
NUF18A==NUF18A+1
>
MIF18A==36
MAF18A==0 ;[1224]
NUF18A==0
DUF18A
DEFINE TBLDEV(A,B)<
IFL A-MIF18B,<MIF18B==A>
IFG A-MAF18B,<MAF18B==A> ;;[1224]
NUF18B==NUF18B+1
>
MIF18B==36
MAF18B==0 ;[1224]
NUF18B==0
DUF18B
DEFINE TBLDEV(A,B)<
IFL A-MIF2B1,<MIF2B1==A>
IFG A-MAF2B1,<MAF2B1==A> ;;[1224]
NUF2B1==NUF2B1+1
>
MIF2B1==36
MAF2B1==0 ;[1224]
NUF2B1==0
DUF2B1
DEFINE TBLDEV(A,B)<
IFL A-MIF2B0,<MIF2B0==A>
IFG A-MAF2B0,<MAF2B0==A> ;;[1224]
NUF2B0==NUF2B0+1
>
MIF2B0==36
MAF2B0==0 ;[1224]
NUF2B0==0
DUF2B0
DEFINE TBLDEV(A,B)<
IFL A-MIF30A,<MIF30A==A>
IFG A-MAF30A,<MAF30A==A> ;;[1224]
NUF30A==NUF30A+1
>
MIF30A==36
MAF30A==0 ;[1224]
NUF30A==0
DUF30A
DEFINE TBLDEV(A,B)<
IFL A-MIF30B,<MIF30B==A>
IFG A-MAF30B,<MAF30B==A> ;;[1224]
NUF30B==NUF30B+1
>
MIF30B==36
MAF30B==0 ;[1224]
NUF30B==0
DUF30B
DEFINE TBLDEV(A,B)<
IFL A-MIF31A,<MIF31A==A>
IFG A-MAF31A,<MAF31A==A> ;;[1224]
NUF31A==NUF31A+1
>
MIF31A==36
MAF31A==0 ;[1224]
NUF31A==0
DUF31A
DEFINE TBLDEV(A,B)<
IFL A-MIF31B,<MIF31B==A>
IFG A-MAF31B,<MAF31B==A> ;;[1224]
NUF31B==NUF31B+1
>
MIF31B==36
MAF31B==0 ;[1224]
NUF31B==0
DUF31B
DEFINE TBLDEV(A,B)<
IFL A-MIF120,<MIF120==A>
IFG A-MAF120,<MAF120==A> ;;[1224]
NUF120==NUF120+1
>
MIF120==36
MAF120==0 ;[1224]
NUF120==0
DUF120
DEFINE TBLDEV(A,B)<
IFL A-MIF121,<MIF121==A>
IFG A-MAF121,<MAF121==A> ;;[1224]
NUF121==NUF121+1
>
MIF121==36
MAF121==0 ;[1224]
NUF121==0
DUF121
DEFINE TBLDEV(A,B)<
IFL A-MIRPSR,<MIRPSR==A>
IFG A-MARPSR,<MARPSR==A> ;;[1224]
NURPSR==NURPSR+1
>
MIRPSR==36
MARPSR==0 ;[1224]
NURPSR==0
DURPSR
DEFINE TBLDEV(A,B)<
IFL A-MIRPRM,<MIRPRM==A>
IFG A-MARPRM,<MARPRM==A> ;;[1224]
NURPRM==NURPRM+1
>
MIRPRM==36
MARPRM==0 ;[1224]
NURPRM==0
DURPRM
DEFINE TBLDEV(A,B)<
IFL A-MIRPSI,<MIRPSI==A>
IFG A-MARPSI,<MARPSI==A> ;;[1224]
NURPSI==NURPSI+1
>
MIRPSI==36
MARPSI==0 ;[1224]
NURPSI==0
DURPSI
DEFINE TBLDEV(A,B)<
IFL A-MIRPFA,<MIRPFA==A>
IFG A-MARPFA,<MARPFA==A> ;;[1224]
NURPFA==NURPFA+1
>
MIRPFA==36
MARPFA==0 ;[1224]
NURPFA==0
DURPFA
DEFINE TBLDEV(A,B)<
IFL A-MIRPER,<MIRPER==A>
IFG A-MARPER,<MARPER==A> ;;[1224]
NURPER==NURPER+1
>
MIRPER==36
MARPER==0 ;[1224]
NURPER==0
DURPER
DEFINE TBLDEV(A,B)< ;#1 SA10 disk errors
IFL A-MINSD0,<MINSD0==A> ;#1 minimum
IFG A-MAXSD0,<MAXSD0==A> ;#1 maximum
NUMSD0==NUMSD0+1 ;#1 number of bits defined
> ;#1 .
minsd0==36 ;#1 init min
maxsd0==0 ;#1 init max
NUMSD0==0 ;#1 init number
DUSD00 ;#1 define min, max, number of bits
DEFINE TBLDEV(A,B)< ;#6 SA10 disk fmt 1 sense bytes 8-11
IFL A-MNSD12,<MNSD12==A> ;#6 minimum
IFG A-MXSD12,<MXSD12==A> ;#6 maximum
NOSD12==NOSD12+1 ;#6 number of bits defined
> ;#6 .
mnsd12==36 ;#6 init min
mxsd12==0 ;#6 init max
NOSD12==0 ;#6 init number
DUSD12 ;#6 define min, max, number of bits
DEFINE TBLDEV(A,B)< ;#6 SA10 disk fmt 1 sense bytes 12-15
IFL A-MNSD13,<MNSD13==A> ;#6 minimum
IFG A-MXSD13,<MXSD13==A> ;#6 maximum
NOSD13==NOSD13+1 ;#6 number of bits defined
> ;#6 .
mnsd13==36 ;#6 init min
mxsd13==0 ;#6 init max
NOSD13==0 ;#6 init number
DUSD13 ;#6 define min, max, number of bits
DEFINE TBLDEV(A,B)< ;#6 SA10 disk fmt 1 sense bytes 16-19
IFL A-MNSD15,<MNSD15==A> ;#6 minimum
IFG A-MXSD15,<MXSD15==A> ;#6 maximum
NOSD15==NOSD15+1 ;#6 number of bits defined
> ;#6 .
mnsd15==36 ;#6 init min
mxsd15==0 ;#6 init max
NOSD15==0 ;#6 init number
DUSD15 ;#6 define min, max, number of bits
DEFINE TBLDEV(A,B)< ;#6 SA10 disk fmt 4 sense bytes 8-11
IFL A-MNSD22,<MNSD22==A> ;#6 minimum
IFG A-MXSD22,<MXSD22==A> ;#6 maximum
NOSD22==NOSD22+1 ;#6 number of bits defined
> ;#6 .
mnsd22==36 ;#6 init min
mxsd22==0 ;#6 init max
NOSD22==0 ;#6 init number
DUSD22 ;#6 define min, max, number of bits
DEFINE TBLDEV(A,B)< ;#2 SA10 magtape errors
IFL A-MINST0,<MINST0==A> ;#2 minimum
IFG A-MAXST0,<MAXST0==A> ;#2 maximum
NUMST0==NUMST0+1 ;#2 number of bits defined
> ;#2
MINST0==36 ;#2 Init min
MAXST0==0 ;#2 Init max
NUMST0==0 ;#2 Init number
DUST00 ;#2 Define min, max, number of bits
RADIX 8
; ;GENERATE THE DEVICE ERROR BIT MASK USING THE DUMMY MACROS
DEFINE TBLDEV(A,Y)<
N001SK==N001SK!1B'A
>
N001SK==0
DUN001
DEFINE TBLDEV(A,Y)<
N002SK==N002SK!1B'A
>
N002SK==0
DUN002
DEFINE TBLDEV(A,Y)<
N003SK==N003SK!1B'A
>
N003SK==0
DUN003
DEFINE TBLDEV(A,Y)<
N004SK==N004SK!1B'A
>
N004SK==0
DUN004
DEFINE TBLDEV(A,Y)<
N005SK==N005SK!1B'A
>
N005SK==0
DUN005
DEFINE TBLDEV(A,Y)<
SB81SK==SB81SK!1B'A
>
SB81SK==0
DUSB81
DEFINE TBLDEV(A,B)<
LPTMSK==LPTMSK!1B'A
>
LPTMSK==0
DUMLPT
DEFINE TBLDEV(A,Y)<
RP05SK==RP05SK!1B'A
>
RP05SK==0
DURP05
DEFINE TBLDEV(A,Y)<
RP06SK==RP06SK!1B'A
>
RP06SK==0
DURP06
DEFINE TBLDEV(A,Y)<
RCMASK==RCMASK!1B'A
>
RCMASK==0
DUMRC1
DEFINE TBLDEV(A,Y)<
KLAMSK==KLAMSK!1B'A
>
KLAMSK==0
DUMKLA
DEFINE TBLDEV(A,Y)<
KSAMSK==KSAMSK!1B'A
>
KSAMSK==0
DUMKSA
DEFINE TBLDEV(A,Y)<
KIAMSK==KIAMSK!1B'A
>
KIAMSK==0
DUMKIA
DEFINE TBLDEV(A,Y)<
TCMASK=TCMASK!1B'A
>
TCMASK==0
DUMTC1
DEFINE TBLDEV(A,Y)<
RPMASK=RPMASK!1B'A
>
RPMASK==0
DUMRP1
DEFINE TBLDEV(A,Y)<
TMMASK=TMMASK!1B'A
>
TMMASK==0
DUMTM1
DEFINE TBLDEV(A,Y)<
SFMASK=SFMASK!1B'A
>
SFMASK==0
DUMSF1
DEFINE TBLDEV(A,Y)<
P4DASK=P4DASK!1B'A
>
P4DASK==0
DURP15
DEFINE TBLDEV(A,Y)<
S4SRSK=S4SRSK!1B'A
>
S4SRSK==0
DURS01
DEFINE TBLDEV(A,Y)<
S4ERSK=S4ERSK!1B'A
>
S4ERSK==0
DURS02
DEFINE TBLDEV(A,Y)<
T6SRSK=T6SRSK!1B'A
>
T6SRSK==0
DUT601
DEFINE TBLDEV(A,Y)<
T6ERSK=T6ERSK!1B'A
>
T6ERSK==0
DUT602
DEFINE TBLDEV(A,Y)<
P4SRSK=P4SRSK!1B'A
>
P4SRSK==0
DURP01
DEFINE TBLDEV(A,Y)<
P4ERSK=P4ERSK!1B'A
>
P4ERSK==0
DURP02
DEFINE TBLDEV(A,Y)<
P4CBSK=P4CBSK!1B'A
>
P4CBSK==0
DURP10
DEFINE TBLDEV(A,Y)<
RHMASK=RHMASK!1B'A
>
RHMASK==0
DUMRH1
DEFINE TBLDEV(A,Y)<
DXMASK=DXMASK!1B'A
>
DXMASK==0
DUMDX1
DEFINE TBLDEV(A,Y)<
ICPCSK=ICPCSK!1B'A
>
ICPCSK==0
DUICPC
DEFINE TBLDEV(A,Y)<
RLD1SK=RLD1SK!1B'A
>
RLD1SK==0
DURLD1
DEFINE TBLDEV(A,Y)<
DXTBSK=DXTBSK!1B'A
>
DXTBSK==0
DUDXTB
DEFINE TBLDEV(A,Y)<
SB03SK=SB03SK!1B'A
>
SB03SK==0
DUSB03
DEFINE TBLDEV(A,Y)<
SB47SK=SB47SK!1B'A
>
SB47SK==0
DUSB47
DEFINE TBLDEV(A,Y)<
DL1MSK=DL1MSK!1B'A
>
DL1MSK==0
DUMDL1
DEFINE TBLDEV(A,Y)<
DL2MSK=DL2MSK!1B'A
>
DL2MSK==0
DUMDL2
DEFINE TBLDEV(A,Y)<
FESTSK=FESTSK!1B'A
>
FESTSK==0
DUFEST
DEFINE TBLDEV(A,Y)<
SCRMSK=SCRMSK!1B'A
>
SCRMSK==0
DUMSCR
DEFINE TBLDEV(A,Y)<
NRCMSK=NRCMSK!1B'A
>
NRCMSK==0
DUMNRC
DEFINE TBLDEV(A,Y)<
FELPSK=FELPSK!1B'A
>
FELPSK==0
DUFELP
DEFINE TBLDEV(A,Y)<
LPSASK=LPSASK!1B'A
>
LPSASK==0
DULPSA
DEFINE TBLDEV(A,Y)<
LPSBSK=LPSBSK!1B'A
>
LPSBSK==0
DULPSB
DEFINE TBLDEV(A,Y)<
FECDSK=FECDSK!1B'A
>
FECDSK==0
DUFECD
DEFINE TBLDEV(A,Y)<
CDSTSK=CDSTSK!1B'A
>
CDSTSK==0
DUCDST
DEFINE TBLDEV(A,Y)<
RPMRSK=RPMRSK!1B'A
>
RPMRSK==0
DURPMR
DEFINE TBLDEV(A,Y)<
RH20SK=RH20SK!1B'A
>
RH20SK==0
DUMRH2
DEFINE TBLDEV(A,Y)< ;#1
SA10SK=SA10SK!1B'A ;#1
> ;#1
SA10SK==0 ;#1
DUMSA1 ;#1
DEFINE TBLDEV(A,Y)< ;[600]
RH11SK=RH11SK!1B'A
>
RH11SK==0
DUMR11
DEFINE TBLDEV(A,Y)< ;[600]
UBAMSK=UBAMSK!1B'A
>
UBAMSK==0
DUMUBA
DEFINE TBLDEV(A,Y)<
RHSWSK=RHSWSK!1B'A
>
RHSWSK==0
DURHSW
DEFINE TBLDEV(A,Y)<
FEKLSK=FEKLSK!1B'A
>
FEKLSK==0
DUFEKL
DEFINE TBLDEV(A,Y)<
DXSRSK=DXSRSK!1B'A
>
DXSRSK==0
DUDXSR
DEFINE TBLDEV(A,Y)<
DXERSK=DXERSK!1B'A
>
DXERSK==0
DUDXER
DEFINE TBLDEV(A,Y)<
DXMRSK=DXMRSK!1B'A
>
DXMRSK==0
DUDXMR
DEFINE TBLDEV(A,Y)< ;[600]
CS2MSK=CS2MSK!1B'A
>
CS2MSK==0
DUMCS2
; ;[11XX]
DEFINE TBLDEV(A,Y)< ;[600]
CS3MSK=CS3MSK!1B'A
>
CS3MSK==0
DUMCS3
DEFINE TBLDEV(A,Y)< ;[601]
RMM1SK=RMM1SK!1B'A
>
RMM1SK==0
DURMR1
DEFINE TBLDEV(A,Y)< ;[601]
RMM2SK=RMM2SK!1B'A
>
RMM2SK==0
DURMR2
DEFINE TBLDEV(A,Y)< ;[601]
RME2SK=RME2SK!1B'A
>
RME2SK==0
DURER2
DEFINE TBLDEV(A,Y)<
RSB0SK==RSB0SK!1B'A
>
RSB0SK==0
DURSB0
DEFINE TBLDEV(A,Y)<
RSB1SK==RSB1SK!1B'A
>
RSB1SK==0
DURSB1
DEFINE TBLDEV(A,Y)<
RSB2SK==RSB2SK!1B'A
>
RSB2SK==0
DURSB2
; ;MORE DEFINITIONS FOR RP20
DEFINE TBLDEV(A,Y)<
F1B9SK=F1B9SK!1B'A
>
F1B9SK==0
DUF1B9
DEFINE TBLDEV(A,Y)<
F1B0SK=F1B0SK!1B'A
>
F1B0SK==0
DUF1B0
DEFINE TBLDEV(A,Y)<
F1B1SK=F1B1SK!1B'A
>
F1B1SK==0
DUF1B1
DEFINE TBLDEV(A,Y)<
F1B2SK=F1B2SK!1B'A
>
F1B2SK==0
DUF1B2
DEFINE TBLDEV(A,Y)<
F1B6SK=F1B6SK!1B'A
>
F1B6SK==0
DUF1B6
DEFINE TBLDEV(A,Y)<
F1B7SK=F1B7SK!1B'A
>
F1B7SK==0
DUF1B7
DEFINE TBLDEV(A,Y)<
F119SK=F119SK!1B'A
>
F119SK==0
DUF119
DEFINE TBLDEV(A,Y)<
F18ASK=F18ASK!1B'A
>
F18ASK==0
DUF18A
DEFINE TBLDEV(A,Y)<
F18BSK=F18BSK!1B'A
>
F18BSK==0
DUF18B
DEFINE TBLDEV(A,Y)<
F2B1SK=F2B1SK!1B'A
>
F2B1SK==0
DUF2B1
DEFINE TBLDEV(A,Y)<
F2B0SK=F2B0SK!1B'A
>
F2B0SK==0
DUF2B0
DEFINE TBLDEV(A,Y)<
F30ASK=F30ASK!1B'A
>
F30ASK==0
DUF30A
DEFINE TBLDEV(A,Y)<
F30BSK=F30BSK!1B'A
>
F30BSK==0
DUF30B
DEFINE TBLDEV(A,Y)<
F31ASK=F31ASK!1B'A
>
F31ASK==0
DUF31A
DEFINE TBLDEV(A,Y)<
F31BSK=F31BSK!1B'A
>
F31BSK==0
DUF31B
DEFINE TBLDEV(A,Y)<
F120SK=F120SK!1B'A
>
F120SK==0
DUF120
DEFINE TBLDEV(A,Y)<
F121SK=F121SK!1B'A
>
F121SK==0
DUF121
DEFINE TBLDEV(A,Y)<
RPSRSK=RPSRSK!1B'A
>
RPSRSK==0
DURPSR
DEFINE TBLDEV(A,Y)<
RPERSK=RPERSK!1B'A
>
RPERSK==0
DURPER
DEFINE TBLDEV(A,Y)<
RPRMSK=RPRMSK!1B'A
>
RPRMSK==0
DURPRM
DEFINE TBLDEV(A,Y)<
RPSISK=RPSISK!1B'A
>
RPSISK==0
DURPSI
DEFINE TBLDEV(A,Y)<
RPFASK=RPFASK!1B'A
>
RPFASK==0
DURPFA
DEFINE TBLDEV(A,Y)< ;;#1 SA10 disk errors sense word 0
SD00SK=SD00SK!1B<A> ;;#1 build mask
> ;#1 .
SD00SK==0 ;#1 init mask
DUSD00 ;#1 build mask
DEFINE TBLDEV(A,Y)< ;;#6 SA10 disk errors: format 1 sense word 2
SD12SK=SD12SK!1B<A> ;;#6 build mask
> ;#6 .
SD12SK==0 ;#6 init mask
DUSD12 ;#6 build mask
DEFINE TBLDEV(A,Y)< ;;#6 SA10 disk errors: format 1 sense word 3
SD13SK=SD13SK!1B<A> ;;#6 build mask
> ;#6 .
SD13SK==0 ;#6 init mask
DUSD13 ;#6 build mask
DEFINE TBLDEV(A,Y)< ;;#6 SA10 disk errors: format 1 sense word 5
SD15SK=SD15SK!1B<A> ;;#6 build mask
> ;#6 .
SD15SK==0 ;#6 init mask
DUSD15 ;#6 build mask
DEFINE TBLDEV(A,Y)< ;;#6 SA10 disk errors: format 2, sense word 2
SD22SK=SD22SK!1B<A> ;;#6 build mask
> ;#6 .
SD22SK==0 ;#6 init mask
DUSD22 ;#6 build mask
DEFINE TBLDEV(A,Y)< ;;#2 SA10 magtape errors sense word 0
ST00SK=ST00SK!1B<A> ;;#2 Build mask
>
ST00SK==0 ;#2 Init mask
DUST00 ;#2 Build mask
SUBTTL SCNMAC SUB-SECTION
;SCNMAC.MAC COPIED TO HERE . REQUIRED DELETIONS ARE INDICATED BY LINE
;WITH ";*;" WHERE IMPORTANT,
;MACRO DEFINITIONS OF GENERAL USE
;DEFAULTS
;DM ABBREVIATION,MAX,ADEFAULT,PDEFAULT
; DEFINES SYMBOLS MX.ABBREVIATION,AD.ABBREVIATION, AND PD.ABBREVIATION
; TO BE THE MAXIMUM ALLOWED VALUE, THE DEFAULT IF THE KEYWORD
; IS ABSENT, AND THE DEFAULT IF THE KEYWORD IS PRESENT RESPECTIVELY
; UNLESS THE CORRESPONDING SYMBOL IS ALREADY DEFINED.
DEFINE DM(ABBR,MAX,ADEF,PDEF),<
ND MX.'ABBR,MAX
ND AD.'ABBR,ADEF
ND PD.'ABBR,PDEF>
;WORDS IN FILE SPEC AREA
.FXDEV==0 ;DEVICE (NON-ZERO IF ANY PART OF SPEC)
.FXNAM==1 ;NAME (NON-ZERO IF NAME PRESENT)
.FXNMM==2 ;NAME MASK
.FXEXT==3 ;EXTENSION,,EXTENSION MASK (NON-ZERO DOT PRESENT)
.FXMOD==4 ;MODIFIER WORD
.FXMOM==5 ;MODIFIER MASK
.FXDIR==6 ;DIRECTORY WORD (EACH HALF=0 IF DEFAULT; SFD:0 IF END)
.FXDIM==7 ;DIRECTORY MASK
.FXBFR==22 ;/BEFORE
.FXSNC==23 ;/SINCE
.FXABF==24 ;/ABEFORE
.FXASN==25 ;/ASINCE
.FXFLI==26 ;FILE MIN SIZE (WORDS)
.FXFLM==27 ;FILE MAX SIZE (WORDS)
.FXEST==30 ;/ESTIMATE
.FXVER==31 ;/VERSION
;LENGTHS OF FILE SPEC AREA
.FXLEN==32 ;LENGTH OF ONE SPECIFICATION
.FXLND==6 ;LENGTH OF DIRECTORY (UFD+SFD'S)
;BYTES IN SCAN MOD WORD
FX.NDV==1B0 ;NULL DEVICE
FX.NUL==1B1 ;NULL EXTENSION
FX.DIR==1B2 ;DIRECTORY SPECIFIED (MOD=0 IF [-])
FX.PHY==1B3 ;/PHYSICAL
FX.NOM==1B4 ;/OKNONE
FX.DFX==1B5 ;DIRECTORY DOES NOT NEED FIX-UP BY WILD
FX.TRM==7B8 ;CODE FOR SPEC'S TERMINATION
.FXTRA==1 ;& (AND)
.FXTRO==2 ;! (OR)
.FXTRN==3 ;- (NOT)
.FXTRC==4 ;+ (CONCATENATE)
FX.STR==1B9 ;/STRS
FX.PRT==1B10 ;/OKPROT
FX.SUP==1B11 ;/ERSUPERSEDE
FX.DEN==7B23 ;/DENSITY [105]
FX.PAR==1B24 ;/PARITY
FX.PRO==777B35 ;/PROTECTION
;SPECIAL CHARACTERS FOR SCAN
.CHALX==0 ;ALTMODE
.CHEOL==-1 ;END OF LINE
.CHEOF==-2 ;END OF FILE
;GUIDE WORDS (TURNED INTO PSEUDO CHARACTERS)
.CHAND==4000 ;'AND' [101]
.CHOR==04001 ;'OR' [101]
.CHNOT==4002 ;'NOT' [101]
.CHTO==04003 ;'TO' [103]
.CHFRM==4004 ;'FROM' [103]
.CHINP==4005 ;'INPUT' [103]
.CHOUT==4006 ;'OUTPUT' [103]
.CHSRC==4007 ;'SOURCE' [103]
.CHLST==4010 ;'LIST' [103]
.CHOBJ==4011 ;'OBJECT' [103]
;FLAGS FOR .ISCAN CALL
FS.ICL==1B17 ;IGNORE SPECIAL COMMAND-LINE HANDLING
;FLAGS FOR .TSCAN CALL
FS.MOT==1B18 ;MULTIPLE OUTPUT SPECS POSSIBLE
FS.MIO==1B19 ;MIXED INPUT AND OUTPUT SPECS
;FLAGS FOR .TDIRB CALL
TS.DRW==0 ;SINGLE WORD
TS.DRP==1 ;PATH POINTER
TS.DRB==2 ;BIWORD (IE, SCAN SPEC FORMAT)
;VALUES FROM .VERBO
JWW.CN==1B33 ;/MESSAGE:CONTINUATION
JWW.FL==1B34 ;/MESSAGE:FIRST
JWW.PR==1B35 ;/MESSAGE:PREFIX
;VALUES IN .FLAQT
.FLASK==1 ;/ASK
.FLTEL==2 ;/TELL
.FLQUI==3 ;/QUIET
;SWITCH SCANNING MACROS AND TABLES
;SWTCHS IS THE MACRO LISTING ALL KNOWN SWITCHES
;IT INCLUDES THE NAME AND STORAGE LOCATION
;FOR VALUE TYPES, IT ALSO HAS THE MAX AND DEFAULT AND PROCESSOR
;FOR KEY-VALUE TYPES, IT POINTS TO THE KEYS AND HAS THE DEFAULT IF ANY
;FOR STAND-ALONE TYPES, IT HAS THE VALUE.
;WHEN THE SWITCH SCANNING TABLES ARE TO BE BUILT, INVOKE
;THE MACRO DOSCAN WITH 5-CHAR ARGUMENT TO USE AS SYMBOL PREFIX
;IT WILL DEFINE XXXXXN,L,P,M,D
; SL NAME,STORAGE,TABLE-NAME,DEFAULT,FLAGS
; DEFINES A LIST OF KEY-VALUES (SEE KEYS MACRO)
; DEFAULT IS THE ORDINAL OR 0 IF NO DEFAULT
; IF LH(STORAGE)=7777B11, STORAGE = ROUTINE TO PROCESS
;
; SP NAME,STORAGE,PROCESSOR,ABBRMEVIATION,FLAGS
; DEFINES A VALUE PARAMETER WHOSE DEFAULTS
; ARE DEFINED AT THE BEGINNING OF THE PROGRAM
; BY "DM" USING THE SAME ABBREVIATION
; PROCESSOR IS THE JUMP ADDRESS IN SWITCH PROCESSING
; IT WILL BE CALLED WITH P1=SWITCH OFFSET IN TABLE
; AND P2=POINTER TO 4-WORD BLOCK OF INTERNAL OR EXTERNAL STUFF
; IF MAX=0 AND FS.LRG, THEN ANY VALUE CAN BE STORED
; ELSE, 0.LE.VALUE.LE.MAX
;
; 0.LE.MAX,DEFAULT.LT.2**17 UNLESS FS.LRG
;
; IF MAX=0 AND NOT FS.LRG, THEN PROCESSOR IS AN IMMEDIATE ACTION
; WHICH WILL ALWAYS BE CALLED
; ELSE, PROCESSOR WILL BE CALLED ONLY IF ":"
;
; SS NAME,STORAGE,VALUE,FLAGS
; DEFINES A STAND-ALONE PARAMETER
;
; IN ALL CASES, STORAGE IS A BYTE POINTER.
; IF A FULL WORD, ONLY THE ADDRESS IS NEEDED
; IF A MULTIPLE WORD, THE BYTE SIZE IS 65-#WORDS (UP TO 28)
; IF A FILE SPECIFICATION, THE LENGTH IS HELD IN MX.ABBREVIATION
; IF POINTER IS 7777??,,?????? THEN RH(POINTER) IS DISPATCH
; ADDRESS OF PROCESSOR WHICH TAKES KEYWORD SWITCH VALUES
;
; SN NAME,STORAGE,FLAGS
; DEFINES A STAND-ALONE PARAMETER WHICH TAKES VALUE
; 1 IF /NAME, AND VALUE 0 IF /NONAME
; KEYS (NAME,LIST) WILL DEFINE A LIST OF KEYS BY NAME NAME
; NAME CAN BE UP TO 4 CHARS. (DEFINES NAME.T AND NAME.L)
; LIST IS SIXBIT NAMES SEPARATED BY COMMAS.
; DEFINES NAME CONCATENATED WITH START OF ITEM IN LIST
; AS INDEX IN LIST UNLESS THE ITEM BEGINS WITH "*"
DEFINE SL($NAME,$RESULT,$TABLE,$DEFAULT,$FLAGS),<
X $NAME,$TABLE'.T-1,<$RESULT>,$DEFAULT,-$TABLE'.L,$FLAGS
>
DEFINE SP($NAME,$RESULT,$PROCESSOR,$ABBR,$FLAGS),<
X $NAME,$PROCESSOR,<$RESULT>,PD.'$ABBR,MX.'$ABBR,$FLAGS
>
DEFINE SS($NAME,$RESULT,$VALUE,$FLAGS),<
X $NAME,0,<$RESULT>,$VALUE,0,$FLAGS
>
DEFINE SN($NAME,$RESULT,$FLAGS),<
X $NAME,0,<$RESULT>,0,0,FS.NOS!$FLAGS
>
;FLAGS WHICH CAN BE DEFINED IN SWITCH TABLE
FS.NFS==1B0 ;THIS SWITCH IS NEVER PART OF A FILE SPECIFICATION
; THIS SHOULD BE SET ON GLOBAL SWITCHES
; ** VERY IMPORTANT TO GET RIGHT **
FS.LRG==1B1 ;THE MAX AND DEFAULT VALUES ARE 0 OR .GT. 2**17
FS.NUE==1B2 ;NO USER EXIT ON THIS SWITCH
FS.VRQ==1B3 ;VALUE REQUIRED
FS.OBV==1B4 ;OR BIT VALUES TO RIGHT HALF
FS.NOS==1B5 ;SWITCH TAKES "NO" PREFIX (INTERNAL FOR SN MACRO ONLY)
FS.NCM==1B6 ;SWITCH DOES NOT CONSTITUTE A COMMAND [102]
; (FOR /RUN, /OPTION, /EXIT)
;DON'T USE FS.R??, WHICH ARE DEFINED IN C.MAC
;MACRO TO BUILD THE TABLES FROM THE SWTCHS MACRO
DEFINE DOSCAN(PFX),<
IFN EXPPRT,<
LALL
>
IFE EXPPRT,<
SALL
>
;;TABLE OF SIXBIT SWITCH NAMES
DEFINE X($NAME,$PROC,$POINT,$DEFLT,$MAX,$FLAGS),<
EXP SIXBIT /$NAME/
>
PFX'N: SWTCHS
PFX'L==.-PFX'N
;;TABLE OF BYTE POINTERS TO STORE RESULT
IF2,<
DEFINE X($NAME,$PROC,$POINT,$DEFLT,$MAX,$FLAGS),<
;*;..TEMP==0
;*;IRP $POINT,<
;*; IFE ..TEMP-1,<
;*; $POINT ;$NAME
;*; >
;*; IFE ..TEMP-2,<
POINT 36,$POINT,35 ;$NAME
;*; >
;*; IFIDN <$POINT><*P>,<..TEMP==1> ;;PARTIAL WORD
;*; IFIDN <$POINT><*F>,<..TEMP==2> ;;FULL WORD
;*;>
;*;
;*;IFB <$POINT>,<
;*; Z ;$NAME
;*;>
;*;IFNB <$POINT>,<IFE ..TEMP,<
;*; $POINT ;$NAME
;*;>>
>>
PFX'P: SWTCHS
;;TABLE OF IF LT 0, IOWD KEY TABLE
;; OR IF GE 0, XWD MAX,PROCESSOR
MX.==0
DEFINE X($NAME,$PROC,$POINT,$DEFLT,$MAX,$FLAGS),<
IF2,<
IFE <$FLAGS>&FS.LRG,<IFG <$MAX>-377777,<PRINTX ?MAXIMUM OF /$NAME CANNOT BE GT 377777>>
>
..TEMP==1
IFN <$FLAGS>&FS.LRG,<IFN <$MAX>,<..TEMP==0>>
IFN ..TEMP,<
XWD $MAX,$PROC ;$NAME
>
IFE ..TEMP,<
XWD [$MAX],$PROC ;$NAME
>
>
PFX'M: SWTCHS
;;FLAGS,,DEFAULT VALUE
PD.==0
DEFINE X($NAME,$PROC,$POINT,$DEFLT,$MAX,$FLAGS),<
IF2,<
IFL <$DEFLT>,<IFN <$DEFLT>+1,<PRINTX ?DEFAULT OF /$NAME CANNOT BE NEGATIVE>>
IFE <$FLAGS>&FS.LRG,<IFG <$DEFLT>-777777,<PRINTX ?DEFAULT OF /$NAME CANNOT BE GT 777777>>
>
IFB <$FLAGS>,<..TEMR==0>
IFNB <$FLAGS>,<..TEMR==($FLAGS)>
..TEMP==1
IFN <$FLAGS>&FS.LRG,<IFN <$DEFLT>,<..TEMP==0>>
IFN ..TEMP,<
XWD ..TEMR,$DEFLT ;$NAME
>
IFE ..TEMP,<
XWD ..TEMR,[$DEFLT] ;$NAME
>
>
PFX'D: SWTCHS
PURGE ..TEMP,..TEMR
IFN EXPPRT,<
LALL
>
IFE EXPPRT,<
SALL
>
>
REPEAT 0,<
;AND FINALLY, THE KEY-WORD VALUES
DEFINE KEYS(NAME,LST),<
NAME'.L==0
NAME'.T: IRP (LST)<EXP SIXBIT /LST/
NAME'.L==NAME'.L+1
..TEMP==0
IRPC (LST)<IFIDN <LST><*>,<..TEMP==1>
STOPI>
IFE ..TEMP,<NAME'LST==NAME'.L>
>
PURGE ..TEMP
>
>;END REPEAT
;M.FAIL <FOO> SENDS FOO AS A FATAL ERROR
DEFINE M.FAIL (A),<
EXT .FMSG
PJSP T1,.FMSG
XLIST
ASCIZ \A\
LIST
>
;M.FAIN <FOO> SENDS FOO AS A FATAL ERROR WITH N IN SIXBIT
DEFINE M.FAIN (A),<
EXT .FMSGN
PJSP T1,.FMSGN
XLIST
ASCIZ \A\
LIST
>
;M.FAID <FOO> SENDS FOO AS A FATAL ERROR WITH N IN DECIMAL
DEFINE M.FAID (A) <
EXT .FMSGD
PJSP T1,.FMSGD
XLIST
ASCIZ \A\
LIST
>
;M.FAIO <FOO> SENDS FOO AS A FATAL ERROR WITH N IN OCTAL
DEFINE M.FAIO (A),<
EXT .FMSGO
PJSP T1,.FMSGO
XLIST
ASCIZ \A\
LIST
>
;M.MAIF <FOO> SENDS FOO AS A FATAL ERROR WITH N=ADDR OF FILE DESCRIPTOR
DEFINE M.FAIF(A)<
EXT .FMSGF
PJSP T1,.FMSGF
XLIST
ASCIZ \A\
LIST
>
LIT
END