Trailing-Edge
-
PDP-10 Archives
-
bb-d868a-bm
-
3-sources/syrunv.mac
There are 16 other files named syrunv.mac in the archive. Click here to see a list.
UNIVERSAL SYRUNV PARAMETER FILE FOR SYSERR PKG.
SUBTTL VERSION 11(614) K. COYE/ RLD/ PJB/ ES
;COPYRIGHT (C) 1972,1975,1977,1978 BY
;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
;TRANSFERED.
;
;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
;AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.
;
;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
;REVISION HISTORY
;EDIT #'S 100-327 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 TOPS20 SUPPORT START WITH 200
;
;***********************************************
;200 - CHECKS TO SEE WHAT MONITOR WE ARE UNDER
;201 - SUPPORT FOR CODES 101 & 102; RELOAD AND BUGHLT/BUGCHK
; FROM TOPS20. ADDED MODULE SYSERD TO SUPPORT TOPS20 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 TOPS20 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 TOPS20.
;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 TOPS20 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 TOPS20 *****
;*******
;EDITS FOR VERSION 6 START WITH 300
;*******
;300 - COMBINED TOPS10 AND TOPS20 VERSIONS BACK INTO ONE VERSION
; WHICH WILL COMPILE FOR EITHER MONITOR DEPENDING ON
; THE VALUE OF TWO SWITCHES, TOPS10 AND TOPS20.
; 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 TOPS10 CODE 21 ENTRIES
;306 - MODIFIED SETDAT & SETDA1 IN SYSERR TO SUBTRACT 1 HOUR FROM
; STDATE&ENDATE IF DAYLIGHT SAVINGS IN EFFECT UNDER TOPS20
;307 - MODIFED PACKAGE TO LIST ALL CONTENTS OF REGISTERS EVEN IF
; CONTENS ARE ZERO
;310 - CORRECTLY SUPPORT RP05 & RP06. SEVERAL BIT DEFINITIONS
; ARE DIFFERENT IN DEVICE ERROR REGISTERS 2 & 3
;311 - FIX LOW SEGMENT LENGTH BUG BY CORRECTING DEFINITION
; OF LOWEND IN SYRLOW.
;312 - ADD CODE TO SUPPORT TU72-E UNDER TOPS10 CODE21 ENTRIES
;313 - ADD SUPPORT FOR RH20 IN CODE 11 ENTRIES UNDER TOPS10.
;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 TOPS20 CODE 111 ENTRIES
;316 - ANSWER TO SPR 10-19498-FIX DEFAULT INPUT DEV IF
; P,PN IS SPECIFIED. FIX IN SYSERR AT SETFIX
;317 - FIX SML111 ROUTINES IN SYSERS TO UNDERSTAND RP05&RP06
;320 - REMOVED "(CODE XXX)" FROM HEADER AND SUMMARY LISTINGS
; ALSO ADDED PROMPT "FOR HELP..." TO INIT ROUTINES
;321 - SUPPORT KLERR DEVICE NAME WIH KLCPU DEV
; NAME AND OTHERS
;322 - L.I.R. RELEASE FOR TU16/TU72-E AND RP05/RP06 FOR TOPS10
;323 - SUPPORT TOPS10 ERROR FILES RUNNING UNDER TOPS20
;324 - SUPPORT /DEV SWITCH ONLY WHEN UNDER TOPS10 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 TOPS20 & TOPS10
LIST
;********
;EDITS FOR VESION 7 START WITH 400
;********
;400 - START SUPPORT OF TOPS20 FILES LISTED UNDER TOPS10.
; ALSO CHANGE DEFAULT OF I.DEV IFF UNDER TOPS20.
; 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
; TOPS10. 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 TOPS10 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 TOPS10
;410 - CHANGES TO SUPPORT TOPS20 RELEASE 2
; 1-ONLY PRINT LOAGGED IN DIR IN SEVERAL CASES
; 2-FIXES TO KLERROR ALA TOPS10
; 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 TOPS10,TOPS20 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 TOPS20 ERROR
; FILE ON TOPS10 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 TOPS10.
; 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 TOPS20
; AFFECTS TIMES LISTED IN HEADERS.
;427 - FIX AC LISTING ROUTINES IN SYSERB FOR CODE 2
;430 - FIX DATE/TIME IN SYRLIB AT GETNB1 FOR TOPS20
;431 - FIX SYSERA TO COMPILE W MACRO 50A
;432 - CORRECTLY LIST MONIOR VERSION FOR TOPS20 IN
; EVENT CODES 101 & 102
;433 - SECOND PASS AT TOPS20 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
;*********************
; 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 TOPS20 - ARGUMENT TO
; ODCNV JSYS. ALSO FIXED MONITOR VERSION DECODE
; FOR TOPS20.
;505 - FIX RP04DC IN SYSERD TO USE ALL CYLINDER BITS
; AFFECTS RP06 UNDER TOPS20 & 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 TOPS20. 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 TOPS20 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 TOPS10
; CRASH INFO.
;527 - CHANGE LBN LIST VALUE TO OCTAL FOR TOPS20 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 - TOPS20 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 TOPS20 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
; TOPS20 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
; TOPS10, FIX IN SYSERB AT MDE13B + ABOUT 20.
;***********************
;EDITS FOR VERSION 11 START AT 600
;***********************
;600 - 2020 SUPPORT FOR UBA/RH11 CONTROLLER [PJB]
;601 - 2020 SUPPORT FOR RM03 [PJB]
;602 - CHANGE 'DETAIL' MESSAGE TO TYPE PRESENT SETTING [PJB]
;603 - START SUPPORT FOR BRIEF OUTPUT [PJB]
;604 - ADD F.DEV CHECK TO NETWORK ENTRIES [ES]
;605 - KLINIK FIXES [ES]
;606 - REWORK /DEV: SWITCH IN BCK111: ROUTINE [PJB]
;607 - FIX 111 PARITY BIT-CHECK AND SUMMARY ROUTINES TO HANDLE
; DEVICES OTHER THAN RP04, RS04, & TU16 CORRECTLY [PJB]
;610 - CHANGE TO ACCEPT 15 BIT SYSTEM S/N FOR KS-10
; ADD 'PS:' TO DEFAULT INPUT FILE DEFINITION [PJB]
;611 - FIX 'UNIT NAME' CONSTRUCTION IN 'MBCHAR' [PJB]
;612 - ADD WARNING FOR 2 DEVICES AT SAME PHYSICAL ADDRESS [PJB]
;613 - FIX MBCHA1 TO INSURE SUMMARY KNOWS CONTROLLER TYPE [PJB]
; ALSO SOME COSMETICS FOR RH11 & RM03 SUMMARY LISTINGS
; FIX CONTROL & STATUS #1 BIT TRANSLATOR - RIGHT JUSTIFY
;614 - CREATE 162(62) ENTRY - NEW MEMORY PARITY INTERRUPT [PJB]
;SEARCH SCNMAC ;COMMAND SCANNER UNIVERSAL FOR SCAN
IFNDEF FULSEG <FULSEG==1> ;DEFINING TO 0 WILL
;ALLOW LISTING TOPS20 FILE UNDER
;TOPS10 WITH A VERY MUCH LARGER
;LOW SEGMENT-NOT ADVISED FOR
;SMALL TOPS 10 SYSTEMS
;[551] REMOVED THE REQUIREMENT FOR THESE
; IFNDEF RH1KON, <RH1KON==1> ;1 SAYS LIST RH10 HEADER FOR MASBUS
;SUMMARY LISTINGS UNDER TOPS10
; IFNDEF RH2KON, <RH2KON==1> ;DITTO, BUT FOR RH20
VWHO==0
VSYSER==11
VMINOR==0
VEDIT==614
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
;JSYS ES ARE DEFINED HERE TO ALLOW PACKAGE TO COMPILE UNDER TOPS10
;WITHOUT MONSYM. EACH JSYS USED WILL HAVE A SKIPE TOPMON
;BEFORE THE CALL SO SKIP TESTS WON'T WORK.
DEFINE JSUB (NAME,NUM)<
DEFINE NAME<
LALL
OPDEF J'NAME[104B8+NUM]
SKIPE TOPMON ;UNDER TOPS20 MONITOR?
J'NAME ;YES,DO A JSYS,ELSE SKIP IT
XALL
>
>
;NOW CALL THOSE WE USE,ADD NEW ONES TO THE LIST
JSUB (ODTIM,220)
JSUB (DIRST,41)
JSUB (GTAD,227)
JSUB (ODCNV,222)
JSUB (CRLNM,502)
JSUB (ODTNC,230)
;EVENT CODES FOR TOPS10
IFNDEF ER.WHY <ER.WHY==1> ;ERROR NUMBER FOR RELOAD
IFNDEF ER.MSE <ER.MSE==2> ;MONITOR SOFTWARE ERROR
IFNDEF ER.MPE <ER.MPE==3> ;CPU MEM PARITY ERROR
IFNDEF ER.NXM <ER.NXM==4> ;CPU NXM ERROR KA/KI
IFNDEF ER.CIN <ER.CIN==5> ;EXTRACTED CRASH INFO
IFNDEF ER.CPE <ER.CPE==6> ;CHANNEL ERROR REPORT
IFNDEF ER.DST <ER.DST==7> ;DAEMON STARTED
IFNDEF ER.DPE <ER.DPE==10> ;DISK ERROR
IFNDEF ER.MDE <ER.MDE==11> ;MASSBUS ERRORS
IFNDEF ER.CSC <ER.CSC==15> ;CONFIGURATION STATUS CHANGE
IFNDEF ER.DEB <ER.DEB==17> ;SOFTWARE REQUESTED DATA
IFNDEF ER.MAG <ER.MAG==20> ;MAGTAPE ERROR REPORTING
IFNDEF ER.TAP <ER.TAP==21> ;TU70/DX10 ERRORS
IFNDEF ER.FEE <ER.FEE==30> ;FRONT END DEVICE ERROR
IFNDEF ER.FER <ER.FER==31> ;FRONT END RELOADED
IFNDEF ER.USC <ER.USC==40> ;DISK STATISTICS
IFNDEF ER.MSC <ER.MSC==41> ;MAGTAPE STATISTICS.
IFNDEF ER.TPS <ER.TPS==42> ;MAGTAPE STATS FOR TAPSER
IFNDEF ER.DLE <ER.DLE==50> ;DL10 HARDWARE ERRORS
IFNDEF ER.KDI <ER.KDI==60> ;KL10 DATA PARITY INTERRUPT
IFNDEF ER.KDT <ER.KDT==61> ;KL10 DATA PARITY TRAP
IFNDEF ER.MDT <ER.MDT==62> ;KL10 DATA PARITY INTR-NEW [614]
IFNDEF ER.KAE <ER.KAE==67> ;KL10 ADDRESSING FAILURE
IFNDEF ER.LPT <ER.LPT==71> ;LPT ERROR(CURRENTLY LP100)
;EVENT CODES FOR TOPS20
IFNDEF SEC%RL <SEC%RL==101> ;TOPS20 RELOAD
IFNDEF SEC%BG <SEC%BG==102> ;TOPS20 BUGHLT/BUGCHK
IFNDEF SEC%MB <SEC%MB==111> ;TOPS20 MASSBUS ERROR
IFNDEF SEC%DX <SEC%DX==112> ;DX20 DEVICE ERROR
IFNDEF SEC%FE <SEC%FE==130> ;TOPS20 FRONT END DEVICE REPORT
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]
;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%NM <SEC%NM==210> ;NETWORK MAINT. LOG ENTRY
IFNDEF SEC%NO <SEC%NO==220> ;NETWORK OPR. LOG ENTRY
IFNDEF SEC%LC <SEC%LC==230> ;NETWORK LINE COUNTERS
IFNDEF SEC%6S <SEC%6S==232> ;DN64 STATISTICS
ERRSAT==0
ERRRIB==1
ERRCHK==2
ERRINC==3
ERRHN1==4
ERRHN2==5
ERRHN3==6
ERRHN4==7
ERRCWF==10
.JBSYM==116
.JBUSY==117
;SYSTEM CONFIGURATION
;DEFINE # OF UNITS ON EACH CONTROLLER.
IFNDEF DPANUM <DPANUM==^D8> ;# UNITS ON DPA.
IFNDEF DPBNUM <DPBNUM==^D8>
IFNDEF DPCNUM <DPCNUM==^D0>
IFNDEF DPDNUM <DPDNUM==^D0>
DPXNUM==DPANUM+DPBNUM+DPCNUM+DPDNUM
IFNDEF FHANUM <FHANUM==^D4> ;# UNITS ON FHA.
IFNDEF FHBNUM <FHBNUM==^D4>
IFNDEF FHCNUM <FHCNUM==^D1>
IFNDEF FHDNUM <FHDNUM==^D1>
FHXNUM==FHANUM+FHBNUM+FHCNUM+FHDNUM
IFNDEF MTANUM <MTANUM==^D8> ;# UNITS ON MTA.
IFNDEF MTBNUM <MTBNUM==^D8>
IFNDEF MTCNUM <MTCNUM==^D4>
IFNDEF MTDNUM <MTDNUM==^D4>
MTXNUM==MTANUM+MTBNUM+MTCNUM+MTDNUM
IFNDEF FSANUM <FSANUM==^D8>
IFNDEF FSBNUM <FSBNUM==^D1>
IFNDEF FSCNUM <FSCNUM==^D1>
IFNDEF FSDNUM <FSDNUM==^D1> ;FIXED HEAD UNITS ON RH10.
FSXNUM==FSANUM+FSBNUM+FSCNUM+FSDNUM
IFNDEF RPANUM <RPANUM==^D8> ;RP04'S ON RH10
IFNDEF RPBNUM <RPBNUM==^D8>
IFNDEF RPCNUM <RPCNUM==^D8>
IFNDEF RPDNUM <RPDNUM==^D1>
RPXNUM==RPANUM+RPBNUM+RPCNUM+RPDNUM
;SYSTEM CONFIGURATION
;DEFINE # OF UNITS ON EACH CONTROLLER.
;DEFINITION OF MASSBUS UNITS SUPPORTED FORTOPS20
; DEFINE MAX # OF
;CHANNELS AND MAX # OF DEVICES PER CHANNEL
MAXCHN==4 ;4 CHANNELS FOR NOW
MAXDEV==^D8 ;8 DEVICES ON EACH CHANNEL
MAXSLV==^D8 ;EDIT 221 # OF SLAVES PER DEVICE
MAXSDV==MAXDEV*MAXSLV
MASMAX==MAXCHN*MAXDEV*MAXSLV
IFNDEF NOTMIN <NOTMIN==500> ;RANGE OF ERROR CODES
IFNDEF NOTMAX <NOTMAX==677> ;NOT ELIGIBLE FOR SYSERR
IFNDEF DV.DSK <DV.DSK==200000> ;DEVICE IS DISK IN DEVCHR ARGUEMENT
IFNDEF DEBUGA <DEBUGA=0> ;1 IMPLIES MONITOR OR SYSTEM DEBUGGING
IFNDEF PAGLM <PAGLM==^D1000> ;MAX PAGES TO BE OUTPUT ON REPORT EXCLUDING SUMMARY
IFNDEF PAGLIN <PAGLIN==^D50> ;# OF LINES PER PAGE IN LISTING
IFNDEF HDRCOD <HDRCOD==0> ;OFFSET OF FIRST WORD IN HEADER,CODE ETC
IFNDEF TOPBIT <TOPBIT==1> ;TOPS20 RECORDED ENTRY
IFNDEF CSHENT <CSHENT==2> ;ENTRY EXTRACTED FROM A CRASH
IFNDEF HDRDAT <HDRDAT==1> ;OFFSET OF DATE WORD IN HEADER
IFNDEF HDRUPT <HDRUPT==2> ;OFFSET OF UPTIME WORD IN HEADER
IFNDEF HDRPSN <HDRPSN==3> ;VER 1 SYSTEM SER #.
IFNDEF SUBMAX <SUBMAX==^D12> ;MAX # OF WORD PROCESSORS AVAILABLE
IFNDEF LPDL, <LPDL==40> ;PUSHDOWN LIST LENGTH
IFNDEF WKSIZE, <WKSIZE==777> ;SIZE OF WORKING BUFFER
IFNDEF HDSIZE, <HDSIZE==6> ;ALLOW FOR FUTURE HEADER EXPANSION
IFNDEF .RBCNT, <.RBCNT==0> ;COUNT OF ARGS FOLLOWING IN EXTENDED LOOKUP
IFNDEF .RBPPN, <.RBPPN==1> ;REL LOCATION OF PPN IN LOOKUP BLOCK
IFNDEF .RBNAM, <.RBNAM==2> ;REL LOCATION OF FILENAME IN LOOKUP BLOCK
IFNDEF .RBEXT, <.RBEXT==3> ;REL LOCATION OF EXTENSION IN LOOKUP BLOCK
IFNDEF .RBSIZ <.RBSIZ==5> ;REL LOCATION OF FILE SIZE IN WDS
IFNDEF .RBTIM, <.RBTIM==35> ;REL LOCATION OF NBS CREATION DATE/TIME WORD
; FOR EXTENDED LOOKUP
IFNDEF SREDEF, <SREDEF==4> ;DEFAULT VALUE FOR SOFT READ
; ERROR SWITCH.
IFNDEF SWEDEF, <SWEDEF==7> ;DEFAULT VALUE FOR SOFT WRITE ERROR.
IFNDEF SEQMAX,<SEQMAX==^D20> ;MAX NUMBER OF ENTRIES IN SEQTAB
IFNDEF SYS.SN, <SYS.SN==77777> ;MASK FOR 15 BIT SYSTEM SERIAL # [610]
;DEFINITIONS OF WORDS FOUND IN EACH TYPE OF ENTRY
;FIRST THREE CHARACTER REPRESENT ERROR TYPE
;LAST THREE REPRESENT LAST THREE CHARACTERS OF MONITOR SYMBOL
RADIX 10 ;*************** NOTE WELL *************
;MACRO TO SAVE SOME TYPING!!
DEFINE ND (A,B)<
IFNDEF A, <A==B>
>
;ERROR CODE 1 ER.WHY (SYSTEM RELOAD)
IFNDEF WHYFG0, <WHYFG0==0> ;5 ASCIZ LOCATIONS
IFNDEF WHYDT0, <WHYDT0==5>
IFNDEF WHYSTS, <WHYSTS==7>
IFNDEF WHYVER, <WHYVER==8>
IFNDEF WHYSER, <WHYSER==9>
IFNDEF WHYWHY, <WHYWHY==10>
IFNDEF WHACOM, <WHACOM==11> ;AOB POINTER TO OPR COMMENTS
ND (WHYKPG,12) ;EDIT 134
ND (WHYBIT,13) ;EDIT 134
;ERROR CODE 2 ER.MSE (MONITOR SOFTWARE ERROR - STOPCD)
IFNDEF MSEFGO <MSEFGO==0>
ND (MSEDT0,5)
IFNDEF MSESER <MSESER==7>
IFNDEF MSEVER <MSEVER==8>
ND (MSESPC,9)
ND (MSESJN,10)
ND (MSESTN,11)
ND (MSESPN,12)
ND (MSENAM,13)
ND (MSENJS,14)
ND (MSENDS,15)
ND (MSEA00,16)
ND (MSEA01,17)
ND (MSEA02,18)
ND (MSEA03,19)
ND (MSEA04,20)
ND (MSEA05,21)
ND (MSEA06,22)
ND (MSEA07,23)
ND (MSEA10,24)
ND (MSEA11,25)
ND (MSEA12,26)
ND (MSEA13,27)
ND (MSEA14,28)
ND (MSEA15,29)
ND (MSEA16,30)
ND (MSEA17,31)
ND (MSEPIS,32)
;ERROR CODE 3 ER.MPE (CPU MEMORY PARITY ERROR)
IFNDEF MPEPHY, <MPEPHY==0>
IFNDEF MPETPE, <MPETPE==1>
IFNDEF MPESPE, <MPESPE==2>
IFNDEF MPEMPC, <MPEMPC==3>
IFNDEF MPEMPP, <MPEMPP==4>
IFNDEF MPEMPW, <MPEMPW==5>
IFNDEF MPEMPA, <MPEMPA==6>
IFNDEF MPAPAR, <MPAPAR==7> ;AOB POINTER TO %CCPAR TABLE
IFNDEF MPAMPT, <MPAMPT==8> ;AOB POINTER TO %CCMPT TABLE
ND (MPEPPN,9) ;EDIT 137
ND (MPEJOB,10) ;EDIT 137
;ERROR CODE 4 ER.NXM (KA/KI NXM ERRORS)
ND (NXMPHY,0)
ND (NXMTNE,1)
ND (NXMSNE,2)
ND (NXMMPP,3)
ND (NXMNJA,4)
ND (NXMMNA,5)
ND (NXMLNA,6)
ND (NXMMNR,7)
ND (NXMNTS,8)
ND (NXMNSC,9)
ND (NXMUEN,10)
ND (NXMNAA,11)
ND (NXMNOA,12)
ND (NXMNCS,13)
ND (NXMKPG,14)
ND (NXMBEF,15)
ND (NXMAFT,16)
ND (NXMADR,17)
ND (NXMPPN,18)
ND (NXMJOB,19)
;VALUES IN %CCPAR TABLE
IFNDEF MPELPA, <MPELPA==0>
IFNDEF MPEMPR, <MPEMPR==1>
IFNDEF MPEPTS, <MPEPTS==2>
IFNDEF MPEPSC, <MPEPSC==3>
IFNDEF MPEUEP, <MPEUEP==4>
IFNDEF MPEPAA, <MPEPAA==5>
IFNDEF MPEPAC, <MPEPAC==6>
IFNDEF MPEPOA, <MPEPOA==7>
IFNDEF MPEPOC, <MPEPOC==8>
IFNDEF MPEPCS, <MPEPCS==9>
ND (KAEASC,14) ;EDIT 133 ADDRESS ERROR SWEEP COUNT
;THIS IS THE TABLE OF GETTAB ITEMS TO BE EXTRACTED FROM A CRASH.
;ADDITIONAL ITEMS SHOULD NOT BE ADDED HERE BY A SITE BECAUSE IT WILL
;CONFUSE SYSERR VERY BADLY. USE THE TABLE CRSGT1 INSTEAD.
; ";***" INDICATES A SUBTABLE ITEM
;ERROR CODE 5 ER.CIN (EXTRACTED CRASH INFORMATION)
ND (CINSTR,0) ;STR NAME FOR SOURCE OF CRASH.EXE
ND (CINSEC,1) ;SYSTEM WIDE ERROR COUNT
ND (CINPTR,2) ;PNTR FOR GETTABS
ND (CINTIM,3) ;TIME OF DAY
ND (CINSIZ,4) ;SYSTEM MEMORY SIZE
ND (CINPOK,5) ;LAST ADDR POKED
ND (CINLNM,6) ;# JOBS LOGGED IN
ND (CINTIC,7) ;#TICKS PER SECOND
ND (CINVER,8) ;MONITOR VERSION
ND (CINDBG,9) ;DEBUG STATUS WORD
ND (CINHSO,10) ;START OF MONITO HIGH SEG
ND (CINNWC,11) ;#OF WORDS OF CORE
ND (CINUPT,12) ;UPTIME IN TICKS
ND (CINMMS,13) ;MEMORY SIZE
ND (CINTPE,14) ;TOTLAL MEM PAR ERRORS
ND (CINSPE,15) ;TOTAL SPURIOUS PARITY ERRORS
ND (CINMPC,16) ;MULTIPLE PARITY ERRORS
ND (CINMPA,17) ;LAST PARITY ADDR
ND (CINMPW,18) ;LAST PARITY WORD
ND (CINMPP,19) ;LASTPARITY PC
ND (CINEPO,20) ;# UNREC EXEC PDL OV
ND (CINEPP,21) ;# RECOVERED EXEC PDL OV
ND (CINERC,22) ;SWAP ERROR COUNT
ND (CINDEL,23) ;DISABLED ARDWARE ERROR COUNT
ND (CINSPC,24) ;LAST STOPCD
ND (CINNDS,25) ;# DEBUG STOPCDS
ND (CINNJS,26) ;# JOB STOPCDS
ND (CINSJN,27) ;LAST STOPCD-JOB NUMBER
ND (CINSPN,28) ;LAST STOPCD-PROGRAM NAME
ND (CINSUU,29) ;LAST STOPCD-UUO
ND (CINSPP,30) ;LAST STOPCD-P,PN
ND (CINPAR,31) ;PARITY SUBTABLE
ND (CINPLA,32) ;**HIGHEST ADDR OF PARITY ERROR
ND (CINPMR,33) ;**ADDRES IN SEGMENT OF PAR ERR
ND (CINPTS,34) ;**PAR ERRORS THIS SWEEP
ND (CINPSC,35) ;**#SWEEPS
ND (CINPUE,36) ;**USER ENABLED
ND (CINPAA,37) ;**LOGICAL AND OF ADDR
ND (CINPAC,38) ;**LOGICAL AND OF WORDS
ND (CINPOA,39) ;**LOG OR OF ADDR
ND (CINPOC,40) ;**LOG OR OF DATA
ND (CINPCS,41) ;**COUNT OF SPUR CHANNEL ERROS
ND (CINRSP,42) ;ADDR OF RESPONSE SUBTABLE
ND (CINRSO,43) ;**SUM TTY OUT UUO RES
ND (CINRNO,44) ;**NUM TTY OUT UUO
ND (CINRHO,45) ;**HI-SUM SQ TTY OUT UUO
ND (CINRLO,46) ;**LO-SUM " "
ND (CINRSI,47) ;**SUM TTY INP UUO
ND (CINRNI,48) ;**NUMBER TTY INP UUO
ND (CINRHI,49) ;**HI-SUM SQ TTY INP UUO
ND (CINRLI,50) ;**LO-SUMSQ TTY INP UUO
ND (CINRSR,51) ;**SUM QUANTUM REQ RES
ND (CINRNR,52) ;**NUMBER QUANTUM REQ RES
ND (CINRHR,53) ;**HI-SUM SQ QUANTUM RES
ND (CINRLR,54) ;**LO-SUM SQ QUANTUM REQ RES
ND (CINRSX,55) ;**SUM ONE OF ABOVE
ND (CINRNX,56) ;**NUMBER ONE OF ABOVE
ND (CINRHX,57) ;** HI-SUM SQ ONE OF ABOVE
ND (CINRLX,58) ;**LO-SUM SQ ONE OF ABOVE
ND (CINRSC,59) ;**SUM CPU RES
ND (CINRNC,60) ;**NUMBER CPU RES
ND (CINRHC,61) ;**HI-SUM CPU RES
ND (CINRLC,62) ;**LO-SUM CPU RES
ND (CINUPT,63) ;UPTIME
ND (CINLST,64) ;LOST TIME
ND (CINNUL,65) ;NULTIME
ND (CINOHT,66) ;OVERHEAD TIME IN JIFFIES
ND (CINTUC,67) ;TOTAL UUO COUNT
ND (CINTJC,68) ;TOTAL JOB CONTEXT SWITCH COUNT
ND (CINTNE,69) ;TOTAL NXM
ND (CINSNE,70) ;TOTAL SPUR NXM
ND (CINNJA,71) ;# JOBS AFFECTED LAST NXM
ND (CINMNA,72) ;FIRST ADDR LAST NXM
ND (CINUNI,73) ;COUNT OF DISK INFO BLOCKS IN THIS ENTRY,
;EACH HAS THE FORMAT
;SIXBIT NAME
;DSKCHR UUO RESULTS
;TOTAL # READS
;TOTAL # WRITES
;TOTAL # SEEKS
;# SOFT ERRORS
;# HARD ERRORS
;# MONITOR DETECTED ERRORS (RIB,ETC)
;ERROR CODE 6 ER.CPE (CHANNEL ERROR REPORT)
IFNDEF CPENAM, <CPENAM==0>
IFNDEF CPENXM, <CPENXM==1>
IFNDEF CPEMPE, <CPEMPE==2>
IFNDEF CPEDPE, <CPEDPE==3>
IFNDEF CPEICW, <CPEICW==4>
IFNDEF CPEFCW, <CPEFCW==5>
IFNDEF CPECW2, <CPECW2==6>
IFNDEF CPECW1, <CPECW1==7>
IFNDEF CPECW0, <CPECW0==8>
IFNDEF CPEDW2, <CPEDW2==9>
IFNDEF CPEDW1, <CPEDW1==10>
IFNDEF CPEDW0, <CPEDW0==11>
ND (CPEETW,12) ;EDIT 122
;ERROR CODE 7 ER.DST (DAEMON STARTED)
ND (DSTVER,0)
;ERROR CODE 10 ER.DPE (DISK ERROR)
IFNDEF HDENAM, <HDENAM==0>
IFNDEF HDEHID, <HDEHID==1>
IFNDEF HDEHCT, <HDEHCT==2>
IFNDEF HDESCT, <HDESCT==3>
IFNDEF HDEECT, <HDEECT==4>
IFNDEF HDESOF, <HDESOF==5>
IFNDEF HDEERR, <HDEERR==6>
IFNDEF HDESDI, <HDESDI==7>
IFNDEF HDEHDI, <HDEHDI==8>
IFNDEF HDEHBN, <HDEHBN==9>
IFNDEF HDEMCT, <HDEMCT==10>
IFNDEF HDEPCT, <HDEPCT==11>
IFNDEF HDEHNG, <HDEHNG==12>
IFNDEF HDETRC, <HDETRC==13>
IFNDEF HDETWC, <HDETWC==14>
IFNDEF HDETSC, <HDETSC==15>
IFNDEF HDEDCR, <HDEDCR==16>
ND (HDELOG,17)
ND (HDECCT,18) ;EDIT 122
ND (HDEFIL,19) ;EDIT 140
ND (HDEEXT,20)
ND (HDEUID,21)
ND (HDEPGM,22) ;EDIT 140
;ERROR CODE 11 ER.MDE (MASSBUS ERRORS)
ND (MDENAM,0)
ND (MDEMID,1) ;MEDIA ID
ND (MDESTR,2)
ND (MDELOC,3)
ND (MDETYP,4)
ND (MDECNI,5)
ND (MDECNF,6)
ND (MDESF1,7)
ND (MDESF2,8)
ND (MDESF3,9)
ND (MDEUID,12)
ND (MDEFIL,10)
ND (MDEEXT,11)
ND (MDEPGM,13)
ND (MDEDTI,14)
ND (MDEDTF,15)
ND (MDE2DT,16)
ND (MDE2DF,17)
ND (MDEDCR,18)
ND (MDEDSR,19)
ND (MDEDER,20)
ND (MDEDMR,21)
ND (MDEDAS,22)
ND (MDEDBA,23)
ND (MDEDDT,24)
ND (MDEDLA,25)
ND (MDEDSN,26) ;SERIAL #
ND (MDEDMO,27)
ND (MDEDDC,28)
ND (MDEDCC,29)
ND (MDEDCB,30)
ND (MDEDDA,31)
ND (MDEDEP,32)
ND (MDEDPL,33)
ND (MDEICR,34)
ND (MDECCT,35) ;EDIT 122
;ERROR CODE 15 ER.CSC (CONFIGURATION STATUS CHANGE)
IFNDEF CSCNAM, <CSCNAM==0>
IFNDEF CSCNM2, <CSCNM2==1>
IFNDEF CSCSTS, <CSCSTS==2>
;ERROR CODE 17 ER.DEB (SOFTWARE REQUESTED DATA)
ND (DEBPTR,0) ;PNTR WORD TO SAVED DATA
;ERROR CODE 20 ER.MAG (MAGTAPE ERRORS)
IFNDEF MAGNAM, <MAGNAM==0>
IFNDEF MAGRID, <MAGRID==1>
IFNDEF MAGFFB, <MAGFFB==2>
IFNDEF MAGRFF, <MAGRFF==3>
IFNDEF MAGICC, <MAGICC==4>
IFNDEF MAGICS, <MAGICS==5>
IFNDEF MAGFCC, <MAGFCC==6>
IFNDEF MAGFCS, <MAGFCS==7>
IFNDEF MAGRTC, <MAGRTC==8>
IFNDEF MAGMED, <MAGMED==9>
;ERROR CODE 21 ER.TAP (TAPSER ERRORS)
ND (TAPNAM,0)
ND (TAPRID,1)
ND (TAPFIL,2)
ND (TAPREC,3)
ND (TAPTRY,4)
ND (TAPCCR,5)
ND (TAPPBE,6)
ND (TAPFES,7)
ND (TAPIEP,8)
ND (TAPFEP,9)
;CONTENTS OF DX10 TERMINATION AREA SUB-TABLE FOR TU70
ND (XS.RBC,0)
ND (XS.TAG,1)
ND (XS.DAC,2)
ND (XS.FR,3)
ND (XS.S0,4)
ND (XS.S4,5)
ND (XS.S8,6)
ND (XS.S12,7)
ND (XS.S16,8)
ND (XS.S20,9)
ND (XS.CNI,10)
ND (XS.ST1,11)
ND (XS.ST2,12)
ND (XS.CPC,13)
ND (XS.CMD,14)
ND (XS.CM1,15)
ND (XS.MD,16)
ND (XS.DR,17)
ND (XS.DAG,18) ;DIAGN FAILURE CODE
ND (XS.MR1,19) ;DX MEM REG 10&11
;TERMINATION AREA FOR TC10
ND (TC.CNI,0)
;TERMINATION AREA FOR TM10
ND (TM.CNC,0) ;CONI MTC
ND (TM.CNS,1) ;CONI MTS
;ADDED WITH EDIT 305
;TERMINATION AREA FOR TM02 WITH TU16 & TU45
;DEVICE REG CONTENTS ARE IN RIGHT HALF OF WORD
ND (T2.CNI,0) ;CONI RH10
ND (T2.DTI,1) ;DATAI RHCR
ND (T2.2DT,2) ;DATAI RHDB
ND (T2.ICR,3) ;LAST COMMAND ISSUED
ND (T2.DCR,4) ;CONTROL REG
ND (T2.DSR,5) ;STATUS REG
ND (T2.DER,6) ;ERROR REG
ND (T2.DMR,7) ;MAINT. REG
ND (T2.DAS,8) ;ATTN SUMMARY
ND (T2.DFC,9) ;FRAME COUNT REG
ND (T2.DDT,10) ;DRIVE TYPE REG
ND (T2.DCK,11) ;CHECKSUM REG
ND (T2.DSN,12) ;DRIVE S/N REG
ND (T2.DTC,13) ;TAPE CONTROL REG
;ERROR CODE 40 ER.USC
IFNDEF USCNAM, <USCNAM==0>
IFNDEF USCHID, <USCHID==1>
IFNDEF USCHCT, <USCHCT==2>
IFNDEF USCSCT, <USCSCT==3>
IFNDEF USCPCT, <USCPCT==4>
IFNDEF USCHNG, <USCHNG==5>
IFNDEF USCMCT, <USCMCT==6>
IFNDEF USCBRC, <USCBRC==7>
IFNDEF USCBWC, <USCBWC==8>
IFNDEF USCDRC, <USCDRC==9>
IFNDEF USCDWC, <USCDWC==10>
IFNDEF USCMRC, <USCMRC==11>
IFNDEF USCMWC, <USCMWC==12>
IFNDEF USCICT, <USCICT==13>
IFNDEF USCOCT, <USCOCT==14>
IFNDEF USCMSC, <USCMSC==15>
IFNDEF USCUSC, <USCUSC==16>
; ERROR CODE 41 ER.MSC
IFNDEF MSCNAM, <MSCNAM==0>
IFNDEF MSCRID, <MSCRID==1>
IFNDEF MSCWRC, <MSCWRC==2>
IFNDEF MSCWWC, <MSCWWC==3>
IFNDEF MSCSRE, <MSCSRE==4>
IFNDEF MSCHRE, <MSCHRE==5>
IFNDEF MSCSWE, <MSCSWE==6>
IFNDEF MSCHWE, <MSCHWE==7>
IFNDEF MSCPPN, <MSCPPN==8>
ND (MSCLAB,9)
ND (MSCUSN,10)
ND (MSCUTP,11)
; ERROR CODE 42 ER.TPS
IFNDEF TPSNAM, <TPSNAM==0>
IFNDEF TPSRID, <TPSRID==1>
IFNDEF TPSWRC, <TPSWRC==2>
IFNDEF TPSWWC, <TPSWWC==3>
IFNDEF TPSSRE, <TPSSRE==4>
IFNDEF TPSHRE, <TPSHRE==5>
IFNDEF TPSSWE, <TPSSWE==6>
IFNDEF TPSHWE, <TPSHWE==7>
IFNDEF TPSPPN, <TPSPPN==8>
ND (TPSLAB,9)
ND (TPSUSN,10)
ND (TPSUTP,11)
;ER.DLE DL10 HARDWARE ERRORS CODE 50
ND (DLEPRT,0)
ND (DLECNI,1)
ND (DLEDTI,2)
ND (DLECN0,3)
ND (DLECN1,4)
ND (DLECN2,5)
ND (DLECN3,6)
ND (DLEDT1,7)
ND (DLEPGM,8)
ND (DLESTS,9)
ND (DLEERR,10)
ND (DLERHS,11)
ND (DLECOD,12)
ND (DLEPER,13)
;ER.KDT CODE 61 KL10 DATA PARITY ERROR TRAP
ND (KDTPFW,0)
ND (KDTBDW,1)
ND (KDTGDW,2)
ND (KDTPMA,3)
ND (KDTTRY,4)
ND (KDTTRE,5)
ND (KDTNRE,6)
ND (KDTTPC,7) ;PC AT TRAP
;ER.KDI CODE 60 KL10 DATA PARITY INTERRUPT
IFNDEF KDINAM, <KDINAM==0>
IFNDEF KDITPE, <KDITPE==1>
IFNDEF KDISPE, <KDISPE==2>
IFNDEF KDIMPC, <KDIMPC==3>
IFNDEF KDIMPP, <KDIMPP==4>
IFNDEF KDIMPW, <KDIMPW==5>
IFNDEF KDIMPA, <KDIMPA==6>
IFNDEF KDIPAR, <KDIPAR==7> ;AOB POINTER TO %CCPAR TABLE
IFNDEF KDIMPT, <KDIMPT==8> ;AOB POINTER TO %CCMPT TABLE
ND (KDIPPN,9)
ND (KDIPGM,10) ;
ND (KDICNI,11)
ND (KDIERA,12)
ND (KDISBD,13)
;CONTENTS OF THE S-BUS DIAGNOSTIC FUNCTION SUBTABLE
ND (SBD4F0,0) ;DMA FUNCTION 0
ND (SBD4F1,1) ;DMA FUNCTION1
ND (SBD0F0,2) ;MODULE 0, FUNCTION0
ND (SBD0F1,3) ;AND SO ON...
ND (SBD1F0,4)
ND (SBD1F1,5)
ND (SBD2F0,6)
ND (SBD2F1,7)
ND (SBD3F0,8)
ND (SBD3F1,9)
;ER.MDT CODE 62 - SAME AS CODE 60 EXCEPT FOR SUB-BLOCK [614]
IFNDEF MDTNAM, <MDTNAM==0>
IFNDEF MDTTPE, <MDTTPE==1>
IFNDEF MDTSPE, <MDTSPE==2>
IFNDEF MDTMPC, <MDTMPC==3>
IFNDEF MDTMPP, <MDTMPP==4>
IFNDEF MDTMPW, <MDTMPW==5>
IFNDEF MDTMPA, <MDTMPA==6>
IFNDEF MDTPAR, <MDTPAR==7> ;AOB POINTER TO %CCPAR TABLE
IFNDEF MDTMPT, <MDTMPT==8> ;AOB POINTER TO %CCMPT TABLE
ND (MDTPPN,9)
ND (MDTPGM,10) ;
ND (MDTCNI,11)
ND (MDTERA,12)
ND (MDTSBD,13)
; SEE CODE 162 FOR SUB-BLOCK DEFINITION
;ER.KAE CODE 67
ND (KAENAM,0)
ND (KAETNE,1)
ND (KAESNE,2)
ND (KAEMPP,3)
ND (KAENJA,4)
ND (KAEMNA,5)
ND (KAELNA,6)
ND (KAEMNR,7)
ND (KAENTS,8)
ND (KAENSC,9)
ND (KAEUEN,10)
ND (KAENAA,11)
ND (KAENOA,12)
ND (KAENCS,13)
ND (KAEKPG,14)
ND (KAEBEF,15)
ND (KAEAFT,16)
ND (KAEADR,17)
ND (KAEPPN,18)
ND (KAEPGM,19)
ND (KAECNI,20)
ND (KAEERA,21)
ND (KAESBD,22)
;ER.LPT CODE 71
ND (LPTNAM,0)
ND (LPTCNI,1)
ND (LPTWRD,2)
ND (LPTTYP,3)
RADIX 8 ;RETURN TO DEFAULT
; THE EVENT CODE FOR EACH EVENT IS FOLLOWED BY THE
;DESCRIPTION OF THE BLOCK WHICH RECORDS IT.
;***********************************
; SYSTEM RELOADED
;***********************************
SEC%RL==101 ;EVENT CODE
RL%SVN==0 ;SYSTEM NAME (ASCIZ PTR)
RL%STD==1 ;TIME OF SYSTEM BUILD (UNIVERSAL FMT)
RL%VER==2 ;SYSTEM VERSION NUMBER
RL%SER==3 ;APR SERIAL NUMBER
RL%OPR==4 ;OPERATOR ANSWER TO WHY RELOAD (ASC PTR)
RL%HLT==5 ;BUGHLT ADDRESS (IF AUTO RELOAD)
RL%FLG==6 ;RELOAD FLAGS
RL%SIZ==7 ;SIZE OF DATA BLOCK
RL%LEN==RL%SIZ+20 ;SIZE OF WHOLE BLOCK (INCL 2 STRINGS)
;*********************************
; BUGHLT/BUGCHK
;*********************************
SEC%BG==102 ;EVENT CODE
BG%SVN==0 ;SYSTEM NAME (ASCIZ)
BG%SER==1 ;APR SERIAL NUMBER
BG%VER==2 ;MONITOR VERSION
BG%SDT==3 ;TAD OF MONITOR BUILD
BG%FLG==4 ;FLAG,
BG%CHK==1 ;BUGCHK
BG%INF==2 ;BUGINF
BG%HLT==3 ;BUGHLT
BG%ADR==5 ;ADDRESS OF HLT/CHK
BG%JOB==6 ;FORKX,,JOB NUMBER
BG%USR==7 ;USER NUMBER
BG%PNM==10 ;PROGRAM NAME (SIXBIT)
BG%MSG==11 ;MESSAGE (ASCIZ)
BG%ACS==12 ;ACS
BG%PIS==32 ;PI STATUS
BG%RCT==33 ;REGISTER COUNT
BG%REG==34 ;REGISTERS (MAX OF 4)
BG%NAM==40 ;SIXBIT NAME OF CHECK
BG%DAT==41 ;DATE/TIME OF BUGHLT
BG%CNT==42 ;# OF ERROR SINCE RELOAD
BG%SIZ==43 ;SIZE OF DATA BLOCK
BG%LEN==BG%SIZ+30 ;LENGTH OF TOTAL BLOCK, INCL 2 STRINGS
;*****************************************
; FRONT END DEVICE REPORT EDIT [542]
;*****************************************
;SEC%FE==30 ;EVENT CODE IN ENTRY HEADER FOR TOPS10
;SEC%FE==130 ;EVENT CODE IN ENTRY HEADER FOR TOPS20
FE%JOB==0 ;FORK #,,JOB # (-2 IF UNASSIGNED)
FE%DIR==1 ;LOGGED IN DIRECTORY,, CONNECTED DIR
FE%VER==2 ;FRONT END SOFTWARE VERSION #
FE%PGM==3 ;USER'S PGM NAME IN SIXBIT
FE%COD==4 ;DEVICE #,,DEVICE CODE
FE.UNK==1B0 ; DEVICE CODE UNKNOWN TO TOPSxx
FE.DVN==POINT 17,0,17 ; DEVICE #
FE.DEV==POINT 18,0,35 ; DEVICE CODE OF REPORTED DEVICE
; SAME AS CODE IN FE PROTOCOL
FE%OFF==5 ;POINTER TO SUB-BLOCK
; DEVICE DEPENDENT PACKET OF INFORMATION.
; -# OF WORDS,,OFFSET
FE%DTE==6 ;DTE # WHICH DETECTED ERROR
FE%LTH==7 ;LENGTH OF DATA PACKET IN 8 BIT BYTES
;10-X SUB-BLOCK DATA PACKET
;FRONT END DEVICE CODES (RH FE%COD)
.FECTY==1 ;CTY
.FEDL11C==2 ;ALSO CTY
.FEDH11==3 ;COMM LINES
.FEDLS==4 ;DATA LINE SCANNER. EITHER CTY OR DH11
.FELP20==5 ;LINE PRINTER
.FECD20==6 ;CARD READER
.FECLOCK==7 ;CLOCK
.FEFE==10 ;FRONT END DEVICE
;PSEUDO DEVICE CODES
.KLCPU==200
.KLERR==201
.KLINK==210 ;KLINIK EVENT
;SUB-BLOCK FOR KLINIK ENTRY
K%EID0==0 ;EVENT INDEPENDENT DATA WORD 0
STD.ST==POINT 16,0,15 ; STANDARD STATUS WORD
; 100 = ERROR LOG REQUEST
K.LCOD==POINT 8,0,23 ; KLINIK EVENT CODE
K.LTYP==POINT 8,0,31 ; KLINIK EVENT TYPE
K.0NUL==POINT 4,0,35 ; NOT USED 0
;KLINIK EVENT TYPES (K.LTYP)
K.LCKL==377 ;CLEAR KLINIK (8BIT -1)
K.LSKL==1 ;SET KLINIK
K.LRNG==2 ;KLINIK LINE RING
K.LDSC==3 ;KLINIK LINE DISCONNECT
K.LCON==4 ;KLINIK LINE CONNECT
K.LBPW==5 ;KLINIK BAD PASSWORD
K.LLTO==6 ;KLINIK UNSUCCESSFUL LOGON
K.LRBA==7 ;KLINIK ACTIVE ON REBOOT
;ADDITIONAL SUB-BLOCK WORDS FOR 'SET' (1) & 'CLEAR' (-1) KLINIK ENTRIES
; KLINIK EVENT CODE (K.LCOD) IS NULL FOR SET/CLEAR ENTRIES
K%EID1==1 ;WINDOW OPEN TIME, DATE (MONTH,YEAR)
K.OTME==POINT 16,1,15 ; WINDOW OPEN TIME (SECS. SINCE MIDNIGHT / 2)
K.O.MO==POINT 8,1,23 ; WINDOW OPEN MONTH
K.O.YR==POINT 8,1,31 ; WINDOW OPEN YEAR (SINCE 1900)
K.1NUL==POINT 4,1,35 ; NOT USED 0
K%EID2==2 ;OPEN DATE (DAY), CLOSE TIME
K.ONUL==POINT 8,2,7 ; NOT USED 0
K.ODAY==POINT 8,2,15 ; WINDOW OPEN DAY (SINCE BEGINING OF MONTH)
K.CTME==POINT 16,2,31 ; WINDOW CLOSE TIME (SECS. SINCE MIDNIGHT / 2)
K.2NUL==POINT 4,2,35 ; NOT USED 0
K%EID3==3 ;WINDOW CLOSE DATE
K.C.MO==POINT 8,3,7 ; WINDOW CLOSE MONTH
K.C.YR==POINT 8,3,15 ; WINDOW CLOSE YEAR (SINCE 1900)
K.CNUL==POINT 8,3,23 ; NOT USED 0
K.CDAY==POINT 8,3,31 ; WINDOW CLOSE DAY (SINCE BEGINING OF MONTH)
K.3NUL==POINT 4,3,35 ; NOT USED 0
K%EID4==4 ;MODE INFORMATION
K.SLIM==POINT 8,4,7 ; KLINIK REMOTE ACCESS LIMIT (SET/CLEAR ENTRY)
K.SMOD==POINT 8,4,15 ; KLINIK ACCESS MODE (SET/CLEAR ENTRY)
K.NUL4==POINT 16,4,31 ; NOT USED 0
K.4NUL==POINT 4,4,35 ; NOT USED 0
;KLINIK ACCESS MODES (SET/CLEAR ENTRY) (K.SMOD)
K.SUSR==377 ;USER CONSOLE MODE (8BIT -1)
K.SREM==1 ;REMOTE MODE [605]
;KLINIK REMOTE ACCESS LIMITS (SET/CLEAR ENTRY) (K.SLIM)
K.SROP==1 ;REMOTE OPERATOR CONSOLE MODE
K.SRPR==3 ;REMOTE PROGRAMMER CONSOLE MODE
K.SRMN==7 ;REMOTE MAINTENANCE CONSOLE MODE
;KLINIK EVENT CODES (K.LCOD) FOR LINE RING ENTRY (2)
K.LRRJ==377 ;RING REJECTED (WINDOW CLOSED) (8BIT -1)
K.LRAC==1 ;RING ACCEPTED (WINDOW OPEN)
;KLINIK EVENT CODES (K.LCOD) FOR LINE DISCONNECT ENTRY (3)
K.LDRP==377 ;CARRIER LOSS (8BIT -1)
K.LDCM==1 ;SOFTWARE DISCONNECT
;KLINIK EVENT CODES (K.LCOD) FOR LINE CONNECT ENTRY (4)
K.LUSR==377 ;USER CONSOLE MODE (8BIT -1)
K.LROP==1 ;REMOTE OPERATOR CONSOLE MODE
K.LRPR==2 ;REMOTE PROGRAMMER CONSOLE MODE
K.LRMN==3 ;REMOTE MAINTENANCE CONSOLE MODE
;ADDITIONAL SUB-BLOCK WORD FOR BAD PASSWORD (5) KLINIK ENTRY
; KLINIK EVENT CODE (K.LCOD) = # OF BAD PASSWORDS RECEIVED (1-5)
K%EID1==1 ;FIRST 4 CHARACTERS OF BAD PASSWORD
K.BPW2==POINT 8,1,7 ; CHARACTER 2 OF BAD PASSWORD
K.BPW1==POINT 8,1,15 ; CHARACTER 1 OF BAD PASSWORD
K.BPW4==POINT 8,1,23 ; CHARACTER 4 OF BAD PASSWORD
K.BPW3==POINT 8,1,31 ; CHARACTER 3 OF BAD PASSWORD
K.1NUL==POINT 4,1,35 ; NOT USED 0
K%EID2==2 ;LAST 2 CHARACTERS OF BAD PASSWORD
K.BPW6==POINT 8,2,7 ; CHARACTER 6 OF BAD PASSWORD
K.BPW5==POINT 8,2,15 ; CHARACTER 5 OF BAD PASSWORD
K.NUL2==POINT 16,2,31 ; NOT USED 0
K.2NUL==POINT 4,2,35 ; NOT USED 0
;KLINIK EVENT CODE (K.LCOD) FOR UNSUCCESSFUL LOGON ENTRY (6)
; = # OF PASSWORDS ATTEMPTED (0-5)
;KLINIK EVENT CODES (K.LCOD) FOR ACTIVE ON REBOOT ENTRY (7)
; ARE THE SAME AS THOSE FOR LINE CONNECT ENTRY (4)
;FRONT END RELOAD ENTRY. GIVES -11 REBOOT INFORMATION
SEC%11==131 ;-11 RELOAD
R1%NUM==0 ;-11 NUMBER
R1%STS==1 ;RELOAD STATUS BITS
.R1GTF==1B0 ;GTJFN FAILED FOR DUMP FILE
.R1OPF==1B1 ;OPENF FAILED FOR DUMP FILE
.R1DPF==1B2 ;DUMP FAILED
.R110E==1B3 ;TO -10 ERROR ON DUMP
.R111E==1B4 ;TO -11 ERROR ON BOOT
.R1ASF==1B5 ;ASGPAG FAILED ON DUMP
.R1RLF==1B6 ;RELOAD FAILED
.R1PDF==1B7 ;-11 DIDN'T POWER DOWN
.R1PUF==1B8 ;-11 DIDN'T POWER UP
.R1RMF==1B9 ;ROM DID NOT ACK THE -10
.R1BSF==1B10 ;-11 BOOT PROGRAM DIDN'T MAKE IT TO
; THE -11
.R1NRL==1B11 ;-11 TOOK MORE THAN 1 MINUTE TO RELOAD.
; WILL CAUSE A RETRY
;EDIT 404-ADDED FOR TOPS10
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
;***********************************
;MASSBUS DEVICE ERROR
;***********************************
SEC%MB==111 ;EVENT CODE
MB%NAM==0 ;DEVICE NAME IN SIXBIT (0 IF NOT AVAIL.)
MB%VID==1 ;VOLUME ID (SIXBIT)
MB%TYP==2 ;DEVICE AND CHANNEL TYPE
MB.CHN==POINT 3,2,17 ; CHANNEL TYPE (ACTUALLY 5 BITS)
MB.DEV==POINT 5,2,35 ; DEVICE (UNIT) TYPE
MB%LOC==3 ;LOCATION OF ERROR - SECTOR OR FILE,,RECORD
MB%FES==4 ;FINAL ERROR STATE
MB%CNI==5 ;CONI INITIAL
MB%S1I==5 ; CONTROL & STATUS 1 INITIAL (FOR RH11)
MB%CIF==6 ;CONI FINAL
MB%S1F==6 ; CONTROL & STATUS 1 FINAL (FOR RH11)
MB%SEK==7 ;NUMBER OF SEEKS
MB%RED==10 ;NUMBER OF BLOCKS/FRAMES READ
MB%WRT==11 ;NUMBER OF BLOCKS/FRAMES WRITTEN
MB%FIL==12 ;FILENAME
MB%USR==13 ;USER MAKING REQUEST
MB%PGM==14 ;PROGRAM RUNNING (SIXBIT)
MB%D1I==15 ;DATAI PTCR INITIAL
MB%S2I==15 ; CONTROL & STATUS 2 INITIAL (FOR RH11)
MB%D1F==16 ;DATAI PTCR FINAL
MB%S2F==16 ; CONTROL & STATUS 2 FINAL (FOR RH11)
MB%D2I==17 ;DATAI PBAR INITIAL
MB%UBI==17 ; UBA STATUS,MAP INITIAL (FOR RH11)
MB%D2F==20 ;DATAI PBAR FINAL
MB%UBF==20 ; UBA STATUS,MAP FINAL (FOR RH11)
MB%UDB==21 ;UNIT DATA BLOCK FOR JOB 0 BAT BLOCKS
MB%IRS==22 ;IORB STATUS WORD
MB%SRE==23 ;SOFT READ ERRORS
MB%SWE==24 ;SOFT WRITE ERRORS
MB%HRE==25 ;HARD READ ERRORS
MB%HWE==26 ;HARD WRITE ERRORS
MB%PS1==27 ;POSITION, CYL IF DISK, FILE IF TAPE
MB%PS2==30 ;SURF/SEC OR RECORD
MB%CS0==31 ;CHANNEL LOGOUT 0 (NOT USED FOR RH11)
MB%CS1==32 ;CHANNEL LOGOUT 1 (PSEUDO FOR RH11)
MB%CS2==33 ;CHANNEL LOGOUT 2 (PSEUDO FOR RH11)
MB%CC1==34 ;FIRST CCW
MB%CC2==35 ;SECOND CCW
MB%MPE==36 ;COUNT OF MPE
MB%NXM==37 ;COUNT OF NXM
MB%FEC==40 ;FINAL ERROR COUNT
MB%CAD==41 ;CHANNEL ADDRESS
MB%UAD==42 ;UNIT ADDRESS
MB%SPE==43 ;SOFT POSITIONING ERRORS
MB%HPE==44 ;HARD POSITIONING ERRORS
MB%OVR==45 ;NUMBER OF OVERRUNS
MB%ICR==46 ;CONTENTS OF INITIAL CONTROL REG
;THE FOLLOWING LOCATIONS ARE THE UNITS MASSBUSS REGISTERS IN ORDER
;FINAL CONTENTS,,INITIAL ERROR CONTENTS
MB%REG==47
MB%SIZ==MB%REG+20 ;SIZE OF DATA BLOCK
MB%LEN==MB%SIZ ;TOTAL LENGTH, CURRENTLY NO STRINGS REPORTED
;MASSBUS CHANNEL TYPE (MB.CHN)
.RH10==1
.RH20==2
.RH11==3
;OFFSETS INTO BIT DECODE TABLES
..RH10==4 ;RH10 CONI
..RH20==5 ;RH20 CONI
..RH11==13 ;CONTROL & STATUS 1
..UBA==14 ;UBA STATUS,MAP REGISTERS
;UNIT TYPES (MB.DEV)
.UTMIN==1 ;MINIMUM UNIT TYPE SUPPORTED
.UTRP4==1 ;RP04
.UTRS4==2 ;RS04
.UTT45==3 ;TU45
.UTTM2==4 ;TM02 (AS UNIT)
.UTRP5==5 ;RP05
.UTRP6==6 ;RP06
.UTRP7==7 ;RP07 (TU70)
.UTRP8==10 ;RP08 (DX20)
.UTRM3==11 ;RM03
.UTTM3==12 ;TM03
.UTT77==13 ;TU77
.UTTM7==14 ;TM78
.UTT78==15 ;TU78
.UTDX2==16 ;DX20
.UTT70==17 ;TU70 - TU72
.UTMAX==13 ;MAXIMUM UNIT TYPE NOW SUPPORTED
;MASS BUSS DEVICE TYPES (IN MASSBUS REGISTER 06)
TY.RP4==020 ;RP04
TY.RP5==021 ;RP05
TY.RP6==022 ;RP06
TY.RM3==24 ;RM03
TY.RPL==TY.RP4 ;LOWEST "RP04" TYPE
TY.RPH==TY.RM3 ;HIGHEST "RP04" TYPE
TY.RS4==002 ;RS04 DRIVE TYPE
TY.T2L==010 ;LOWEST TM02 TYPE
TY.T2H==017 ;HIGHEST TM02 TYPE
TY.T3L==050 ;LOWEST TM03 TYPE
TY.T3H==057 ;HIGHEST TM03 TYPE
;**************************************
;EVENT CODE 112 - DX20 DEVICE ERROR
;**************************************
SEC%DX==112
; RH20 INFORMATION
DX%NAM==0 ;DEVICE NAME (IF AVAILABLE)
DX%VID==1 ;VOLUME ID
DX%TYP==2 ;CHANNEL TYPE,,DEVICE (5 BITS)
DX%LOC==3 ;LOCATION OF ERROR - SECTOR OR FILE,,RECORD
DX%FES==4 ;FINAL ERROR STATE
DX%CNI==5 ;CONI INITIAL
DX%CIF==6 ;CONI FINAL
DX%SEK==7 ;NUMBER OF SEEKS
DX%RED==10 ;NUMBER OF BLOCKS/FRAMES READ
DX%WRT==11 ;NUMBER OF BLOCKS/FRAMES WRITTEN
DX%FIL==12 ;FILENAME
DX%USR==13 ;USER MAKING REQUEST
DX%PGM==14 ;PROGRAM RUNNING
DX%D1I==15 ;DATAI PTCR INITIAL
DX%D1F==16 ;DATAI PTCR FINAL
DX%D2I==17 ;DATAI PBAR INITIAL
DX%D2F==20 ;DATAI PBAR FINAL
DX%UDB==21 ;UNIT DATA BLOCK FOR JOB 0 BAT BLOCKS
DX%IRS==22 ;IORB STATUS WORD
DX%SRE==23 ;SOFT READ ERRORS
DX%SWE==24 ;SOFT WRITE ERRORS
DX%HRE==25 ;HARD READ ERRORS
DX%HWE==26 ;HARD WRITE ERRORS
DX%PS1==27 ;POSITION, CYL IF DISK, FILE IF TAPE
DX%PS2==30 ;SURF/SEC OR RECORD
DX%CS0==31 ;CHANNEL LOGOUT 0
DX%CS1==32 ;CHANNEL LOGOUT 1
DX%CS2==33 ;CHANNEL LOGOUT 2
DX%CC1==34 ;FIRST CCW
DX%CC2==35 ;SECOND CCW
DX%MPE==36 ;COUNT OF MPE
DX%NXM==37 ;COUNT OF NXM
DX%FEC==40 ;FINAL ERROR COUNT
DX%CAD==41 ;CHANNEL ADDRESS
DX%UAD==42 ;UNIT ADDRESS
DX%SPE==43 ;SOFT POSITIONING ERRORS
DX%HPE==44 ;HARD POSITIONING ERRORS
DX%OVR==45 ;NUMBER OF OVERRUNS
DX%ICR==46 ;CONTENTS OF INITIAL CONTROL REG
DX%VER==47 ;DX20 MICRO-CODE VERSION # (9 BITS OF EDIT #&6 BITS OF ER#)
;POINTERS TO SUB-BLOCKS
DX%MBR==50 ;# OF MASSBUS REGISTER VALUES,,OFFSET TO FIRST
DX%DVL==51 ;# OF DEVICE VALUES,,OFFSET TO FIRST
;OTHER POINTERS MAY BE ADDED HERE
;MASSBUS REGISTER VALUES ARE IN THE FORM -
; FINAL CONTENTS,,INITIAL CONTENTS
;MASSBUS REGISTER INFORMATION
DM%CR==0 ;CONTROL REG
DM%SR==1 ;STATUS REG
DM%ER==2 ;ERROR REG
DM%MR==3 ;MAINT. REG
DM%AS==4 ;ATTN SUMM
DM%SB==5 ;SECONDARY BLOCK ADDRESS REG. (SAME AS DM%BC) [507]
DM%DT==6 ;DRIVE TYPE&HDWR VER#
;REGISTERS 7-17 ARE NOT CURRENTLY DEFINED BUT SPACE
;IS ALLOCATED IN THE ERROR FILE
DM%SI==20 ;(20) STATUS INDEX/ENDING STATUS
DM%DN==21 ;(21)DRIVE # / MODE [507]
DM%ES==22 ;(22)EXTENDED STATUS TABLE SIZE [507]
DM%TE==23 ;(23)T.I.E./FLAGS
DM%AY==24 ;(24)ASYNCH STATUS
DM%BC==25 ;(25)BYTE COUNT (SAME AS DM%SB) [507]
DM%E0==26 ;(26) EXTENDED STATUS REG 0
DM%E1==27 ;(27) EXTENDED STATUS REG 1
DM%IR==30 ;(30) INSTR REG
DM%PC==31 ;(31) PROG COUNTER
DM%AL==32 ;(32) ALU
DM%SD==33 ;(33) SROM/DROM
DM%FP==34 ;(34)FROM/PARITY/INTERRUPTS
DM%BW==35 ;(35) BALU/WORKING MEMORY
DM%IB==36 ;(36) IBUS/BR
DM%MA==37 ;(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) 4-7
DT%MRC==11 ;(36-39) 10-13
DT%MRD==12 ;(40-43) 14-17
DT%MRE==13 ;(44-47) 20-23
DT%MRF==14 ;(48-51) 23-27
DT%CB0==15 ;(52-55)CHANNEL BUS INT. REGS 10-17
DT%CB1==16 ;(56-59) " " "
DT%DP0==17 ;(60-63)DATA PATH REGS 0-17
DT%DP1==20 ;(64-67) " "
DT%DP2==21 ;(68-71) " "
DT%DP3==22 ;(72-75) " "
DT%LAS==23 ;(76-79) LAST COMMAND,LAST DEV ADDR,LAST ASYCH,STATUS,
;LAST DEV W ASYNCH STATUS
;************************************
; PROCESSOR PARITY TRAP
;************************************
SEC%PT==160 ;EVENT CODE
PT%PFW==0 ;PAGE FAIL WORD
PT%BDW==1 ;BAD DATA WORD
PT%GDW==2 ;GOOD DATA WORD
PT%USR==3 ;USER ID
PT%JOB==4 ;FORK #,, JOB #
PT%PGM==5 ;USER'S PROGRAM NAME (SIXBIT)
PT%PMA==6 ;PHYSICAL MEMORY ADDR AT TRAP
PT%TRY==7 ;RETRY WORD 1B1=NON-RECOVERABLE
;1B2=CACHE FAILURE
;1B3=CACHE IN USE
;1B4=FAIL DURING CACHE SWEEP TO CORE
;18-35 =RETRY COUNT
;*********************************
; PROCESSOR PARITY INTERRUPT
;*********************************
SEC%PI==161 ;EVENT CODE
PI%CNI==0 ;CONI APR
PI%ERA==1 ;ERA
PI%FPC==2 ;PC AT INTERRUPT
PI%SWP==3 ; # ERRORS THIS SWEEP
PI%AAD==4 ;LOGICAL AND OF BAD ADDRESSES
PI%OAD==5 ; OR OF BAD ADDRESSES
PI%ADA==6 ; AND OF BAD DATA
PI%ODA==7 ; OR OF BAD DATA
PI%SBD==10 ;S-BUS DIAG FUNCTION SUBTABLE
PI%ADD==22 ;LIST OF 1ST 10. BAD ADDRESSES
PI%DAT==34 ;LIST OF 1ST 10. BAD DATA WORDS
PI%CDA==46 ;LIST OF 1ST 10. GOOD DATA WORDS
;*********************************
; NEW PROCESSOR PARITY INTERRUPT [614]
;*********************************
SEC%MP==162 ;EVENT CODE
MP%CNI==0 ;APR STATUS WORD
MP%ERA==1 ;ERA
MP%PCF==2 ;PC FLAGS AT INTERRUPT
MP%IPC==3 ;PC AT INTERRUPT
MP%SWP==4 ; # ERRORS THIS SWEEP
MP%AAD==5 ;LOGICAL AND OF BAD ADDRESSES
MP%OAD==6 ; OR OF BAD ADDRESSES
MP%ADA==7 ; AND OF BAD DATA
MP%ODA==10 ; OR OF BAD DATA
MP%SBD==11 ;POINTER TO S-BUS DIAG SUBTABLE
; -# OF ENTRIES,,OFFSET TO FIRST
MP%ADD==12 ;12-23 ;LIST OF 1ST 10. BAD ADDRESSES
MP%DAT==24 ;24-35 ;LIST OF 1ST 10. BAD DATA WORDS
MP%CDA==36 ;36-47 ;LIST OF 1ST 10. GOOD DATA WORDS
;S-BUS DIAG FUNCTION SUB-TABLE
;ALSO USED FOR CODE 62 ENTRY
SBD%NU==0 ;-# OF S-BUS DIAG FUNC,,# OF CONTROLLER
SBD%F0==1 ;DIAG FUNCTION 0
SBD%F1==2 ;DIAG FUNCTION 1
;SBD%FX==X+1 ;DIAG FUNCTION X ETC.
;***********************************
;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]
;***********************************
;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.
;************************************
; 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
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:"
;STATUS FLAGS IN LH OF S
S.SAT==400000 ;SAT FAILURE
S.RIB==200000 ;RIB ERROR
S.CHK==100000 ;CHECKSUM ERROR
S.SINC==40000 ;SEEK INCOMPLETE ERROR
S.HNG1==20000 ;NON-RECOVERABLE CONTROLLER HANG
S.HNG2==10000 ;RECOV XFER HANG
S.HNG3==4000 ;RECOV SEEK HANG
S.HNG4==2000 ;RECOV SOFTWARE HANG
S.CWF==1000 ;TERMINATION CONTROL WORD FAILURE EDIT122
;STATUS FLAGS IN LH OF ENTRY CHARACTERISTICS WORD
E.LALL==400000 ;SAYS LIST THIS ENTRY IN ALL CASES
E.LNXM==200000 ;SAYS LIST THIS ENTRY IF CAUSED BY A NON-EXISTANT MEMORY
E.LPAR==100000 ;SAYS LIST IF CAUSED BY PARITY ERROR
E.LPER==40000 ;SAYS LIST IF PERFORMANCE DATA ENTRY
E.LSUM==20000 ;SAYS DO SUMMATION OF ENTRY
;STATUS FLAGS IN RH OF ENTRY CHARACTERISTICS WORD
E.RCNT==777777 ;COUNT OF # OF TIMES ENTRY TYPE PROCESSED
ERRHRD==200000 ;BIT IN HDEECT SIGNIFING HARD ERROR IF 1
;CHANNEL ASSIGNMENTS
INPCHN==1
OUTCHN==2
;HERE LIES THE MACRO DEFINITIONS
OPDEF PJRST [JRST]
DEFINE FATAL (A) <
JRST [MOVEI T1,[ASCIZ/? A
/]
OUTSTR [ASCIZ/? A
/]
CLOSE OUTCHN ;SAVE GOOD OUTPUT
EXIT ;SAY GOODNIGHT DICK!
]>
DEFINE WARN (A) <PUSHJ P,[
OUTSTR [ASCIZ/% A
/]
POPJ P,0
]>
DEFINE WARN% (A) <PUSHJ P,[
OUTSTR [ASCIZ/% A/]
POPJ P,0
]>
DEFINE WARN.CR (A) <PUSHJ P,[
OUTSTR [ASCIZ/A
/]
POPJ P,0
]>
;LOOP DEFINED HERE BUT NEVER CALLED.
DEFINE LOOP (A,B) <JRST [OUTSTR [ASCIZ/A
/]
JRST <B>
]>
DEFINE TYPEIT(A)<
MOVEI T1,[ASCIZ\A\]
PUSHJ P,.TSTRG
>
DEFINE SINDEX (A) <
A==.-SUBTAB
JRST <.'A>
>
SUBTTL DUMMY MACRO DEFINITIONS
;DUMMY MACROS -- PRIOR TO THE DEFINITION OF THE DUMMY MACROS
;USED IN THIS PROGRAM A REFRESHER ON DUMMY MACROS MAY BE IN ORDER.
; DUMMY MACROS ARE USED TO HOLD SUBMACROS TO BE REDEFINED
;AS REQUIRED AT A LATER TIME AND THEN CALLED. THE ASSEMBLER REPLACES
;THE MACRO WITH IT'S SUBMACRO CALLS AND THEN IN TURN GENERATES THE
;REQUIRED CODE PER THE SUBMACRO DEFINITION.
;DUMENT -- DUMMY MACRO LEVEL 2
;SUBMACRO TBLENT
;ARGS
;A-ERROR CODE
;B-ERROR DESCRIPTION
;C-ENTRY LEVEL CONTROL TABLE ADDRESS (.CTXXX,0)
;D-ENTRY LEVEL PROCESSOR ADDRESS
;E-# OF LINES OF OUTPUT GENERATED BY THIS ENTRY EXCLUDING HEADER
;F-CONTROL TABLE ADDRESS FOR BRIEF OUTPUT
;THIS MACRO MUST CONTAIN ALL ERROR CODES WHICH ARE TO BE
;HANDLED BY SYSERR. ERROR CODES ARE IN THE RANGE 000-777
;WITH THE FOLLOWING CONSTRAINTS:
; 000-377 RESERVED FOR DEC WITH SYSERR
; 400-477 RESERVED NON-DEC WITH SYSERR
; 500-577 RESERVED FOR DEC NON-SYSERR
; 600-677 RESERVED NON-DEC NON-SYSERR
; 700-777 RESERVED ALL- ERROR FILE CONTROL
DEFINE DUMENT <
TBLENT (0,UNKNOWN,0,DMPENT,40)
TBLENT (1,SYSTEM RELOADED,.CT001,PROCSA,20,.BR001)
TBLENT (2,NON-RELOAD MONITOR ERROR,.CT002,PROCSB,21,.BR002)
TBLENT (3,CPU MEM PAR ERR,.CT003,PROCSA,43,.BR003)
TBLENT (4,CPU NXM ERROR,.CT004,PROCSB,43,.BR004)
TBLENT (5,INFORMATION EXTRACTED FROM A CRASH,.CT005,PROCSA,30,.BR005)
TBLENT (6,DATA CHANNEL ERR,.CT006,PROCSA,20,.BR006)
TBLENT (7,DAEMON STARTED,.CT007,PROCSA,3,.BR007)
TBLENT (10,DISK UNIT ERROR,.CT010,PROCSA,30,.BR010)
TBLENT (11,MASSBUS DEVICE ERROR,.CT011,PROCSB,25,.BR011)
TBLENT (15,CONFIGURATION STATUS CHANGE,.CT015,PROCSB,10,.BR015)
TBLENT (17,SOFTWARE REQUESTED DATA,.CT017,PROCSA,20,.BR017)
TBLENT (20,MAGTAPE ERROR,.CT020,PROCSA,23,.BR020)
TBLENT (21,MAGTAPE SYSTEM ERROR,.CT021,PROCSB,20,.BR021)
TBLENT (30,FRONT END DEVICE REPORT,.CT030,PROCSC,10,.BR030) ;[514],[523]
TBLENT (31,FRONT END RELOADED,.CT031,PROCSC,20,.BR031)
TBLENT (40,DISK STATISTICS,.CT040,PROCSA,40,.BR040)
TBLENT (41,MAGTAPE STATISTICS,.CT041,PROCSA,14,.BR041)
TBLENT (42,MAGTAPE STATISTICS,.CT042,PROCSB,14,.BR042)
TBLENT (50,DL10 COMMUNICATIONS ERROR,.CT050,PROCSB,20,.BR050)
TBLENT (60,KL10 DATA PARITY INTERRUPT,.CT060,PROCSC,20,.BR060)
TBLENT (61,KL10 DATA PARITY TRAP,.CT061,PROCSC,20,.BR061)
TBLENT (62,KL10 DATA PARITY INTERRUPT,.CT062,PROCSC,20,.BR062) ;[614]
TBLENT (67,KL10 ADDRESSING FAILURE,.CT067,PROCSC,40,.BR067)
TBLENT (71,LINE PRINTER ERROR,.CT071,PROCSA,10,.BR071)
TBLENT (101,TOPS20 SYSTEM RELOADED,.CT101,PROCSD,15,.BR101)
TBLENT (102,TOPS20 BUGHLT-BUGCHK,.CT102,PROCSD,15,.BR102)
TBLENT (111,MASSBUS DEVICE ERROR,.CT111,PROCSD,40,.BR111)
TBLENT (112,DX20 DEVICE ERROR,.CT112,PROCSD,40,.BR112)
TBLENT (130,FRONT END DEVICE REPORT,.CT130,PROCSD,10,.BR130) ;[523]
TBLENT (131,FRONT END RELOADED,.CT131,PROCSD,10,.BR131)
TBLENT (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 (201,NETCON STARTED,.CT201,PROCSN,10,.BR201) ;[515]
TBLENT (202,NETWORK DOWN-LINE LOAD,.CT202,PROCSN,10,.BR202)
TBLENT (203,NETWORK DOWN-LINE DUMP,.CT203,PROCSN,10,.BR203)
TBLENT (210,NETWORK MAINT. LOG ENTRY,.CT210,PROCSN,40,.BR210)
TBLENT (220,NETWORK OPR. LOG ENTRY,.CT220,PROCSN,40,.BR220)
TBLENT (230,NETWORK LINE COUNTERS,.CT230,PROCSN,10,.BR230) ;[515]
TBLENT (232,DN64 STATISTICS,.CT232,PROCSN,30,.BR232) ;[520]
>
;DUM001 -- DUMMY MACRO LEVEL 2
;SUBMACRO TBLWRD
;ARGS
;A-ERROR CODE
;B-LOCATION OF AOBJ POINTER IN ENTRY WITH REFERENCE TO WORD 0 OF BODY OF ENTRY
;C-OFFSET OF WORD IN BODY OF ENTRY OR WITH RESPECT TO AOBJ POINTER
; IF C ABOVE IS NOT 0
;D-WORD LEVEL PROCESSOR TYPE
;E-OREDR OF LISTING
;F-ASCIZ TEXT TO TYPEOUT OR ADDRESS OF SPECIAL ROUTINE IF D= SPECL
DEFINE DUM001<
TBLWRD (1,0,WHYFG0,ASCIE,1,<CONFIGURATION INFORMATION
SYSTEM NAME: >)
TBLWRD (1,0,WHYDT0,ASCIE,2,< MONITOR BUILT ON: >)
TBLWRD (1,0,WHYSER,DECML,3,< CPU SERIAL #: >)
TBLWRD (1,0,WHYSTS,HAFWD,4,< STATES WORD: >)
TBLWRD (1,0,WHYVER,SPECL,5,<MONVER>)
TBLWRD (1,0,WHYWHY,SIXBT,6,<
RELOAD BREAKDOWN
CAUSE: >)
TBLWRD (1,WHACOM,0,ASCIE,7,< COMMENTS >)
TBLWRD (1,0,WHYKPG,SPECL,8,<MEMLST>)
>
DEFINE 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 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 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 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 DUM007<
TBLWRD (7,0,DSTVER,SPECL,0,<DAEVER>)
>
DEFINE DUM017<
TBLWRD (17,0,DEBPTR,SPECL,1,<DEBLST>)
>
DEFINE DUM011<
TBLWRD (11,0,MDENAM,SIXBT,1,< UNIT ID: >)
TBLWRD (11,0,MDEDDT,SPECL,2,<MDELST>)
>
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 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 DUM015<
TBLWRD (15,0,CSCSTS,SPECL,0,<CSCLST>)
>
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 DUM021<
TBLWRD (21,0,TAPNAM,SIXBT,01,<
UNIT NAME: >)
TBLWRD (21,0,TAPTRY,SPECL,02,<TAPLST>)
>
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 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 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 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 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 DUM067<
TBLWRD (67,0,KAENAM,SIXBT,1,< ERROR TOTALS FOR >)
TBLWRD (67,0,KAETNE,DECML,2,< REPRODUCIBLE: >)
TBLWRD (67,0,KAESNE,DECML,3,< NON-REPRODUCIBLE: >)
TBLWRD (67,0,KAENSC,DECML,4,< CORE SWEEPS: >)
TBLWRD (67,0,KAENCS,DECML,5,< DETECTED BY DATA
CHANNEL BUT NOT
BY CPU: >)
TBLWRD (67,0,KAENTS,DECML,6,<SWEEP INFORMATION:
ERRORS DETECTED: >)
TBLWRD (67,0,KAENAA,OCTLE,7,< LOGICAL "AND" OF BAD
PHYSICAL ADDRESSES: >)
TBLWRD (67,0,KAENOA,OCTLE,8,< LOGICAL "OR" OF BAD
PHYSICAL ADDRESSES: >)
TBLWRD (67,0,KAEPPN,PPNWW,9,< USER'S ID AT FAILURE: >)
TBLWRD (67,0,KAEPGM,SIXBT,10,< USER'S PROGRAM: >)
TBLWRD (67,0,KDINAM,SPECL,10,<KAELST>)
TBLWRD (67,0,KAESBD,SPECL,11,<KDILSA>)
TBLWRD (67,KAEADR,0,SPECL,12,<BADADD>)
TBLWRD (67,0,KAEKPG,SPECL,13,<KAELSA>)
>
DEFINE 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>)
>
;CODE 62 USES THE SAME PROCESS TABLE AS CODE 60 [614]
DEFINE DUM062<
TBLWRD (62,0,MDTNAM,SIXBT,1,<DATA PARITY CORE SWEEP TOTALS FOR >)
TBLWRD (62,0,MDTTPE,DECML,2,< REPRODUCIBLE: >)
TBLWRD (62,0,MDTSPE,DECML,3,< NON-REPRODUCIBLE: >)
TBLWRD (62,MDTPAR,MPEUEP,DECML,4,< USER ENABLED: >)
TBLWRD (62,MDTPAR,MPEPSC,DECML,5,< CORE SWEEPS: >)
TBLWRD (62,MDTPAR,MPEPCS,DECML,6,< DETECTED BY DATA
CHANNEL BUT NOT
BY CPU: >)
TBLWRD (62,MDTPAR,MPEPTS,DECML,7,<SWEEP INFORMATION:
ERRORS DETECTED: >)
TBLWRD (62,MDTPAR,MPEPAA,HAFWD,8,< LOGICAL "AND" OF BAD
PHYSICAL ADDRESSES: >)
TBLWRD (62,MDTPAR,MPEPOA,HAFWD,9,< LOGICAL "OR" OF BAD
PHYSICAL ADDRESSES: >)
TBLWRD (62,MDTPAR,MPEPAC,HAFWD,10,< LOGICAL "AND" OF BAD DATA: >)
TBLWRD (62,MDTPAR,MPEPOC,HAFWD,11,< LOGICAL "OR" OF BAD DATA: >)
TBLWRD (62,0,MDTPPN,PPNWW,12,< USER'S ID AT FAILURE: >)
TBLWRD (62,0,MDTPGM,SIXBT,13,< USER'S PROGRAM: >)
TBLWRD (62,0,MDTCNI,SPECL,14,<MDTLST>)
TBLWRD (62,0,MDTSBD,SPECL,15,<SBUSFN>)
>
;ER.LPT==71
DEFINE DUM071<
TBLWRD (71,0,LPTNAM,SIXBT,1,<
UNIT NAME: >)
TBLWRD (71,0,LPTTYP,SPECL,2,<LPTLST>)
>
;HERE ARE DUMMY DEFINITIONS FOR TOPS20 ENTRIES
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 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>)
>
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 DUM161<
TBLWRD (161,0,PI%CNI,SPECL,1,<PI%001>)
TBLWRD (161,0,PI%FPC,OCTLE,2,< PC AT INTERRUPT: >)
TBLWRD (161,0,PI%SWP,DECML,3,< # ERRORS ON THIS SWEEP >)
TBLWRD (161,0,PI%AAD,HAFWD,4,< LOGICAL AND OF
BAD ADDRESSES: >)
TBLWRD (161,0,PI%OAD,HAFWD,5,< LOGICAL OR OF
BAD ADDRESSES: >)
TBLWRD (161,0,PI%ADA,HAFWD,6,< LOGICAL AND OF
BAD DATA: >)
TBLWRD (161,0,PI%ODA,HAFWD,7,< LOGICAL OR OF
BAD DATA: >)
TBLWRD (161,0,PI%SBD,SPECL,8,<PI%005>)
TBLWRD (161,0,PI%DAT,SPECL,9,<PI%002>)
>
;NEW MEMORY PARITY ENTRY - OBSOLETES 161 ENTRY [614]
DEFINE DUM162<
TBLWRD (162,0,MP%CNI,SPECL,1,<MP%001>)
TBLWRD (162,0,MP%PCF,OCTLE,2,< PC FLAGS AT INTERRUPT: >)
TBLWRD (162,0,MP%IPC,OCTLE,3,< PC AT INTERRUPT: >)
TBLWRD (162,0,MP%SWP,DECML,4,< # ERRORS ON THIS SWEEP >)
TBLWRD (162,0,MP%AAD,HAFWD,5,< LOGICAL AND OF
BAD ADDRESSES: >)
TBLWRD (162,0,MP%OAD,HAFWD,6,< LOGICAL OR OF
BAD ADDRESSES: >)
TBLWRD (162,0,MP%ADA,HAFWD,7,< LOGICAL AND OF
BAD DATA: >)
TBLWRD (162,0,MP%ODA,HAFWD,8,< LOGICAL OR OF
BAD DATA: >)
TBLWRD (162,0,MP%SBD,SPECL,9,<SBUSFN>)
TBLWRD (162,0,MP%DAT,SPECL,9,<MP%002>)
>
;MASSBUS DEVICE ERRORS CODE 111
DEFINE DUM111<
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>)
>
;DX20 DEVICE ERRORS, CODE 112
DEFINE DUM112<
TBLWRD (112,0,DX%NAM,SIXBT,1,< UNIT NAME: >)
TBLWRD (112,0,DX%TYP,SPECL,2,<DX%000>)
TBLWRD (112,0,DX%VID,SIXBT,3,< VOLUME ID: >)
TBLWRD (112,0,DX%LOC,SPECL,4,<DX%001>)
TBLWRD (112,0,DX%USR,PPNWT,5,< USER'S LOGGED IN DIR: >)
TBLWRD (112,0,DX%PGM,SIXBT,6,< USER'S PGM: >)
TBLWRD (112,0,DX%FIL,TASCI,7,< USER'S FILE: >)
TBLWRD (112,0,DX%FES,HAFWD,8,< FINAL ERROR STATUS: >)
TBLWRD (112,0,DX%FEC,SPECL,9,<DX%004>)
TBLWRD (112,0,DX%CNI,SPECL,10,<DX%002>)
TBLWRD (112,0,DX%D1I,HAFWD,11,< DATAI PTCR AT ERROR: >)
TBLWRD (112,0,DX%D1F,HAFWD,12,< DATAI PTCR AT END: >)
TBLWRD (112,0,DX%D2I,HAFWD,13,< DATAI PBAR AT ERROR: >)
TBLWRD (112,0,DX%D2F,HAFWD,14,< DATAI PBAR AT END: >)
TBLWRD (112,0,DX%CS0,SPECL,15,<DX%003>)
>
DEFINE DUM130<
TBLWRD (130,0,FE%COD,SPECL,1,<FE%KLI>) ;[514]
TBLWRD (130,0,FE%DTE,DECML,2,< DTE20 #: >)
TBLWRD (130,0,FE%VER,DECML,3,< FE SOFTWARE VER: >)
TBLWRD (130,0,FE%COD,SPECL,7,<FE%001>)
>
DEFINE DUM131<
TBLWRD (131,0,R1%NUM,SPECL,1,<R1%000>)
TBLWRD (131,0,R1%FNM,TASCI,2,< FILENAME FOR DUMP: >)
>
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 DUM031<
TBLWRD (031,0,R1%NUM,SPECL,1,<R1%000>)
>
DEFINE DUM201<
TBLWRD (201,0,NS%VER,SPECL,1,<NCUVER>)
TBLWRD (201,0,NS%NAM,TASCI,3,< NODE NAME: >)
>
DEFINE DUM202<
TBLWRD (202,0,NL%TAR,TASCI,1,< TARGET NODE NAME: >)
TBLWRD (202,0,NL%SER,TASCI,2,< SERVER NODE NAME: >)
TBLWRD (202,0,NL%SLD,TASCI,3,< SERVER LINE DESIG.: >)
TBLWRD (202,0,NL%FIL,TASCI,4,< FILE NAME LOADED: >)
TBLWRD (202,0,NL%RTN,SPECL,5,<NL$RTN>)
>
DEFINE DUM203<
TBLWRD (203,0,ND%TAR,TASCI,1,< TARGET NODE NAME: >)
TBLWRD (203,0,ND%SER,TASCI,2,< SERVER NODE NAME: >)
TBLWRD (203,0,ND%SLD,TASCI,3,< SERVER LINE DESIG.: >)
TBLWRD (203,0,ND%FIL,TASCI,4,< FILE NAME DUMPED: >)
TBLWRD (203,0,ND%RTN,SPECL,5,<NL$RTN>)
>
DEFINE DUM210<
TBLWRD (210,0,NM%MID,HAFWD,1,< XMIT NODE #,, DEST. NODE #: >)
TBLWRD (210,0,NM%XID,TASCI,2,< XMIT NODE NAME: >)
TBLWRD (210,0,NM%RID,TASCI,3,< DEST. NODE NAME: >)
TBLWRD (210,0,NM%FUN,SPECL,4,<NLOG00>)
>
DEFINE DUM220<
TBLWRD (220,0,NO%MID,HAFWD,1,< XMIT NODE #,, DEST. NODE #: >)
TBLWRD (220,0,NO%XID,TASCI,2,< XMIT NODE NAME: >)
TBLWRD (220,0,NO%RID,TASCI,3,< DEST. NODE NAME: >)
TBLWRD (220,0,NO%FUN,SPECL,4,<NLOG00>)
>
DEFINE DUM230<
TBLWRD (230,0,LC%NAM,TASCI,1,<NODE: >)
TBLWRD (230,0,LC%LIN,TASCI,2,<LINE: >)
TBLWRD (230,0,LC%CNT,SPECL,3,<LC$CNT>)
>
DEFINE DUM232<
TBLWRD (232,0,S6%000,SPECL,1,<S6%LST>)
>
;DUMCH1 -- DUMMY MACRO LEVEL 2
;SUBMACRO TBLCH1
;ARGS
;A-SWITCH ASSOCIATED WITH ENTRY
;B-ERROR CODES TO ALWAYS LIST IF THIS SWITCH SEEN
;C-ERROR CODES TO LIST IF CAUSED BY NXM
;D-ERROR CODES TO LIST IF CAUSED BY PARITY ERROR
;E-ERROR CODES TO LIST IF CAUSED BY PERFORMANCE REPORTS
;F-ERROR CODES TO SUMMATE IF SWITCH SEEN
;G-RELATIVE POSITION OF LINE IN THIS TABLE
DEFINE DUMCH1<
TBLCH1 (ALL,<1,2,3,4,5,6,7,10,11,15,17,20,21,30,31,40,41,42,50,60,61,62,67,71,101,102,111,112,130,131,160,161,162,201,202,203,232>,0,0,0,<1,2,3,4,5,6,7,10,11,15,17,20,21,30,31,40,41,42,50,60,61,62,67,71,101,102,111,112,130,131,160,161,162,201,202,203,232>,0)
TBLCH1 (ALLNXM,0,<4,6,111,112,67>,0,0,0,1)
TBLCH1 (ALLPAR,<3,60,61,62,67,111,112,160,161,162>,0,6,0,0,2)
TBLCH1 (ALLPER,<1,2,5,7,15,17,31,40,41,42,101,102,131,232>,0,0,0,0,3)
TBLCH1 (ALLSUM,0,0,0,0,<1,2,3,4,5,6,7,10,11,15,17,20,21,30,31,40,41,42,50,60,61,62,67,71,101,102,111,112,130,160,161,162,232>,4)
TBLCH1 (CHNALL,6,0,0,0,6,5)
TBLCH1 (CHNNXM,0,6,0,0,0,6)
TBLCH1 (CHNPAR,0,0,6,0,0,7)
TBLCH1 (CHNSUM,0,0,0,0,6,8)
TBLCH1 (CPUALL,<1,2,3,4,5,7,15,17,30,31,60,61,62,67,101,102,130,131,160,161,162>,0,0,0,<1,2,3,4,5,7,15,17,30,31,60,61,62,67,101,102,130,131,160,161,162>,9)
TBLCH1 (CPUPAR,<3,60,61,62,67,160,161,162>,0,0,0,0,10)
TBLCH1 (CPUPER,<1,2,5,7,15,17,31,101,102,131>,0,0,0,0,11)
TBLCH1 (CPUSUM,0,0,0,0,<1,2,3,4,5,7,15,17,30,31,60,61,62,67,101,102,130,160>,12)
TBLCH1 (DSKALL,<10,40>,0,0,0,<10,40>,13)
TBLCH1 (DSKPAR,0,0,10,0,0,14)
TBLCH1 (DSKPER,40,0,0,0,0,15)
TBLCH1 (DSKSUM,0,0,0,0,<10,40>,16)
TBLCH1 (MAGALL,<20,21,41,42>,0,0,0,<20,21,41,42>,17)
TBLCH1 (MAGPAR,0,0,<20,21>,0,0,18)
TBLCH1 (MAGPER,<41,42>,0,0,0,0,19)
TBLCH1 (MAGSUM,0,0,0,0,<20,21,41,42>,20)
TBLCH1 (MASALL,<11,111,112>,0,0,0,<11,111,112>,21)
TBLCH1 (MASPAR,0,0,<11,111,112>,0,0,22)
TBLCH1 (MASSUM,0,0,0,0,<11,111,112>,23)
TBLCH1 (MASNXM,0,<11,111,112>,0,0,0,24)
TBLCH1 (COMALL,50,0,0,0,50,25)
TBLCH1 (CPUNXM,<4,67>,0,0,0,0,26)
TBLCH1 (DSKBTH,<6,10>,0,0,0,<6,10>,27) ;EDIT 125
TBLCH1 (MASBTH,<6,11>,0,0,0,<6,11>,28) ;EDIT 125
TBLCH1 (URDALL,71,0,0,0,71,29) ;[414]
TBLCH1 (NETALL,<201,202,203,230,232>0,0,0,<201,202,203,230,232>,30) ;[500],[520],[522]
TBLCH1 (NETPER,<230,232>,0,0,<230,232>,<230,232>,31) ;[520],[522]
TBLCH1 (CPURLD,<1,31,101,131>,0,0,0,0,32) ;[541]
TBLCH1 (CPUCHK,<2,102>,0,0,0,0,33) ;[541]
>
;DUMCH2 -- DUMMY MACRO LEVEL 2
;SUBMACRO TBLCH2
;ARGS
;A-SWITCH NAME
;B-PROCESSING ROUTINE ADDRESS
;C-DEFAULT NAME (OPTIONAL)
DEFINE DUMCH2<
TBLCH2 (BEGIN,.SWDTP,)
TBLCH2 (END,.SWDTP,)
TBLCH2 (DEV,.SWSIX,)
TBLCH2 (SWE,.SWDEC,DSW)
TBLCH2 (SRE,.SWDEC,DSR)
TBLCH2 (ID,.SWSIX,)
TBLCH2 (DETAIL,.SWDEC,DDE)
TBLCH2 (REMOTE,.SWDEC,DRE)
TBLCH2 (STR,.SWSIX,)
TBLCH2 (RETRY,.SWDEC,DTR) ; [126]
TBLCH2 (NDEV,.SWSIX,) ; [325]
TBLCH2 (SEQ,.SWDEC)
TBLCH2 (BRIEF,.SWDEC,DBR) ; [603]
>
;HERE IS A MACRO TO CALL THE MACRO WHICH
;SETS UP THE DEFAULT VALUES JUST NAMED.
DEFINE DEFVAL<
DM (DSW,^D100,0,7)
DM (DSR,^D100,0,4)
DM (DDE,^D10,1,2)
DM (DRE,^D100,0,2)
DM (DTR,^D110,0,1)
DM (DSE,^D9999,0,1)
DM (DBR,^D132,0,^D72)
>
;DUMFLG -- DUMMY MARCO LEVEL 2
;SUBMACRO TBLFLG
;ARGS
;A-SUMMARY COUNTER PREFIXES
DEFINE DUMFLG<
TBLFLG (NXM)
TBLFLG (MPE)
TBLFLG (DPE)
;EDIT #110
IFN DEBUGA,<
TBLFLG (HDE)
TBLFLG (HDT)
TBLFLG (SDE)
TBLFLG (SDT)
TBLFLG (RED)
TBLFLG (WRT)
TBLFLG (SEK)
>
TBLFLG (TPE)
TBLFLG (SPE)
TBLFLG (UEP)
TBLFLG (PCS)
TBLFLG (TNE)
TBLFLG (SNE)
TBLFLG (NUE)
TBLFLG (NCS)
TBLFLG (NJS) ;NUMBER OF JOB STOPCD'S
TBLFLG (NDS) ;NUMBER OF DEBUG STOPCD'S
>
;DEVBL1 -- DUMMY MACRO LEVEL 4
;USED TO GENERATE CONFIGURATION DEPENDENT TABLES
;SUBMACRO DUMDV
;WILL GENERATE TABLES OF DEVICE BLOCKS WITH #OF UNITS
;ON EACH KONTROLLER.
DEFINE DEVBL1(DEV)<
IRP DEV,<
ZZZ==0
REPEAT DEV'NUM,<
DEVBL2 (DEV,\ZZZ)
ZZZ==ZZZ+1
>>>
DEFINE DEVBL2(A,B)<
DUMDV (A'B)
>
DEFINE DUMDP<
DEVBL1 (<DPA,DPB,DPC,DPD>)
>
DEFINE DUMFH<
DEVBL1 (<FHA,FHB,FHC,FHD>)
>
DEFINE DUMTM<
DEVBL1 (<MTA,MTB,MTC,MTD>)
>
DEFINE DUMFS<
DEVBL1 (<FSA,FSB,FSC,FSD>)
>
DEFINE DUMRP<
DEVBL1 (<RPA,RPB,RPC,RPD>)
>
DEFINE DUMDVA<
DUMDP
DUMFH
DUMTM
DUMFS
DUMRP
>
;THIS WILL GENERATE CODE AS
;DUMDV DPA0
;DUMDV DPA1 ETC.
;NAMLOC -- MACRO TO BUILD VALUES OF RELATIVE LOCATIONS
;OF DEVICE NAMES WITHIN NAMTBL.
;CAUTION----- LOCDVA MUST BE DEFINED IN SAME ORDER AS
;DUMDVA TO MAKE IT WORK.------------
DEFINE NAMLOC (DEV)<
IRP DEV<
DEV'LOC=ZZ
ZZ=DEV'NUM+ZZ
>>
DEFINE LOCDP<
NAMLOC (<DPA,DPB,DPC,DPD>)
>
DEFINE LOCFH<
NAMLOC (<FHA,FHB,FHC,FHD>)
>
DEFINE LOCTM<
NAMLOC (<MTA,MTB,MTC,MTD>)
>
DEFINE LOCFS<
NAMLOC (<FSA,FSB,FSC,FSD>)
>
DEFINE LOCRP<
NAMLOC (<RPA,RPB,RPC,RPD>)
>
DEFINE LOCDVA<
LOCDP
LOCFH
LOCTM
LOCFS
LOCRP
>
;HERE GOES THE ACTUAL CALL!
ZZ=0
LOCDVA
SALL
;DEVBL1 -- DUMMY MACRO LEVEL 4
;USED TO GENERATE CONFIGURATION DEPENDENT TABLES
;SUBMACRO DUMDV
;WILL GENERATE TABLES OF DEVICE BLOCKS WITH #OF UNITS
;ON EACH KONTROLLER.
;THIS IS DEFINITION FOR TOPS20 SYSTEMS
DEFINE DEVBL3(TYP)<
IRP TYP,<
YYY==0
REPEAT MAXCHN,<
IRP TYP,<
ZZZ==0
REPEAT MAXDEV,<
IRP TYP,<
AAA==0
REPEAT MAXSLV,<
DEVBL4 (TYP,\YYY,\ZZZ,\AAA)
AAA==AAA+1
>>
ZZZ==ZZZ+1
>>
YYY==YYY+1
>>>
DEFINE DEVBL4(A,B,C,D)<
DUMDV (A'B'C'D)
>
DEFINE DUMMAS<
DEVBL3 (M)
>
DEFINE DUMDVB<
DUMMAS
>
;DUMSF1 -- DUMMY MACRO LEVEL 2
;SUBMACRO TBLDEV
;ARGS
;A-ERROR BIT # IN CONI WORD OF DUMMY SOFTWARE DEVICE
;B-TEXT DESCRIPTION OF BIT
DEFINE DUMSF1<
TBLDEV (0,<SAT BLOCK DISCREPANCY>)
TBLDEV (1,<RETRIVAL BLOCK INFORMATION ERR>)
TBLDEV (2,<CHECKSUM ERR>)
TBLDEV (3,<SEEK INCOMPLETE ERR>)
TBLDEV (4,<NON-RECOVERABLE CONTROLLER HANG>)
TBLDEV (5,<RECOVERABLE TRANSFER HANG>)
TBLDEV (6,<RECOVERABLE SEEK HANG>)
TBLDEV (7,<RECOVERABLE SOFTWARE HANG>)
TBLDEV (8,<CCW TERM CHK FAILURE>)
>
;DUMLPT - DESCRIPTION FOR CODE 71 CONI-LP100
DEFINE DUMLPT<
TBLDEV (2,<FEATURES ENB>)
TBLDEV (3,<EVEN PARITY>)
TBLDEV (19,<NOT READY>)
TBLDEV (20,<PAGE CNTR ZERO>)
TBLDEV (21,<PARITY ERROR>)
TBLDEV (22,<VFU ERROR>)
TBLDEV (23,<VFU LOAD INHIBIT>)
TBLDEV (26,<LINE OVERFLOW>)
TBLDEV (27,<OFF LINE>)
TBLDEV (28,<BUSY>)
>
;SUBMACRO TBLDEV
;ARGS
;A-CONI ERROR BIT FROM RC10
;B-TEXT DESCRIPTION
DEFINE DUMRC1<
TBLDEV (19,<SEARCH ERR>)
TBLDEV (20,<TWO UNITS SELECTED AS SAME LOGICAL UNIT>)
TBLDEV (21,<TRACK/SECTOR NOT BCD>)
TBLDEV (22,<NOT READY>)
TBLDEV (23,<POWER FAIL>)
TBLDEV (24,<SECTOR PAR ERR>)
TBLDEV (25,<MEMORY PAR ERR>)
TBLDEV (26,<CTL WORD PAR ERR>)
TBLDEV (27,<NXM>)
TBLDEV (28,<ILLEGAL WRITE>)
TBLDEV (29,<OVERUN>)
>
;DUMRP1 -- DUMMY MACRO LEVEL 2
;SUBMACRO TBLDEV
;ARGS
;A-ERROR BIT IN RP10 CONI WORD
;B-TEXT DESCRIPTION
DEFINE DUMRP1<
TBLDEV (14,<CTL WORD PAR ERR>)
TBLDEV (15,<SECTOR PAR ERR>)
TBLDEV (16,<MEMORY PAR ERR>)
TBLDEV (17,<DISK WORD PAR ERR>)
TBLDEV (20,<POWER FAIL>)
TBLDEV (21,<SEARCH ERR>)
TBLDEV (22,<OVERUN>)
TBLDEV (23,<NXM>)
TBLDEV (25,<NOT READY>)
TBLDEV (26,<ILLEGAL WRITE>)
TBLDEV (27,<ILLEGAL DATAO>)
TBLDEV (28,<SECTOR ADDRESS ERR>)
TBLDEV (29,<SURFACE ADDRESS ERR>)
>
;DUMDX1 -- SAME AGAIN FOR DX10 CONI
DEFINE DUMDX1<
TBLDEV (17,<RUNNING>)
TBLDEV (25,<CSR>)
TBLDEV (26,<MP ERR>)
TBLDEV (27,<MEM PAR>)
TBLDEV (28,<NXM>)
TBLDEV (29,<STAT AVAIL>)
>
;DUMTM1 -- DUMMY MACRO LEVEL 2
;SUBMACRO TBLDEV
;ARGS
;A-ERROR BIT IN TMS CONI WORD (TM10)
;B-TEXT DESCRIPTION
DEFINE DUMTM1<
TBLDEV (11,<CTL WORD PAR ERR>)
TBLDEV (12,<NXM>)
TBLDEV (13,<MEMORY PAR ERR>)
TBLDEV (18,<UNIT HUNG>)
TBLDEV (21,<ILLEGAL COMMAND>)
TBLDEV (22,<TAPE PAR ERR>)
TBLDEV (25,<READ/COMPARE ERR>)
TBLDEV (27,<DATA LATE>)
TBLDEV (28,<BAD TAPE>)
TBLDEV (31,<DATA CHANNEL ERR>)
>
;DUMRH1 -- DUMMY MACRO LEVEL 2
;SUBMACRO TBLDEV
;ARGS
;A-ERROR BIT IN RH10 CONI WORD
;B-TEXT DESCRIPTION.
DEFINE DUMRH1<
TBLDEV (8,<CONTROLLER EXCEPTION>)
TBLDEV (9,<ILLEGAL FUNCTION>)
TBLDEV (10,<SEL RAE>)
TBLDEV (15,<MEMORY PAR ERR>)
TBLDEV (16,<CTL WORD PAR ERR>)
TBLDEV (17,<NXM>)
TBLDEV (18,<DATA BUS PAR ERR>)
TBLDEV (19,<EXCEPTION>)
TBLDEV (20,<CHANNEL ERR>)
TBLDEV (22,<OVERRUN>)
TBLDEV (23,<DRIVE RESPONSE ERROR>)
TBLDEV (24,<ILLEGAL COMMAND>)
TBLDEV (25,<P.S. FAIL>)
TBLDEV (28,<CTL BUS OVERRUN>)
TBLDEV (29,<RAE>)
>
;DUMR11 -- MASSBUS CONTROL REGISTER
; RH11 CONTROL & STATUS 1
DEFINE DUMR11<
TBLDEV (20,<SC>)
TBLDEV (21,<TRE>)
TBLDEV (22,<MCPE>)
>
;DURP01--DUMMY MACRO LEVEL 2
;TEXT TRANSLATIONS FOR RP04/5/6/RM03 DRIVE STATUS REG
;ARGS AS BEFORE
DEFINE DURP01<
TBLDEV (2,<ATA,>)
TBLDEV (3,<ERR>)
TBLDEV (4,<PIP>)
TBLDEV (5,<MOL>)
TBLDEV (6,<WRL>)
TBLDEV (7,<LST>)
TBLDEV (8,<PGM>)
TBLDEV (9,<DPR>)
TBLDEV (10,<DRY>)
TBLDEV (11,<VV>)
TBLDEV (12,<DE1>)
TBLDEV (13,<DL64>)
TBLDEV (14,<GRV>)
TBLDEV (15,<DIGB>)
TBLDEV (16,<DF20>)
TBLDEV (17,<DF5/OM>) ;5"/SEC (OFFSET MODE FOR RM03) [601]
>
;DURPMR-BITS IN RP04,5,6 MAINT REG
DEFINE DURPMR<
TBLDEV (7,<HI CNT DET>)
TBLDEV (8,<SYNC BYTE DET>)
TBLDEV (9,<ZERO DET>)
TBLDEV (10,<DATA ENV>)
TBLDEV (11,<ECC ENV>)
TBLDEV (12,<MAINT WRITE>)
TBLDEV (13,<MAINT READ>)
TBLDEV (14,<MAINT SECTOR CLOCK>)
TBLDEV (15,<MAINT INDX>)
TBLDEV (16,<MAINT CLOCK>)
TBLDEV (17,<DMD>)
>
;DURMR1--BITS IN RM03 MAINT REG 1 [601]
DEFINE DURMR1<
TBLDEV (2,<OCC>)
TBLDEV (3,<R/G>)
TBLDEV (4,<EBL>)
TBLDEV (5,<REXC>)
TBLDEV (6,<ESRC>)
TBLDEV (7,<PLFS>)
TBLDEV (8,<ECRC>)
TBLDEV (9,<PDA>)
TBLDEV (10,<PHA>)
TBLDEV (11,<CONT>)
TBLDEV (12,<PS>)
TBLDEV (13,<EECC>)
TBLDEV (14,<WD>)
TBLDEV (15,<LS>)
TBLDEV (16,<LST>)
TBLDEV (17,<DMD>)
>
;DURMR2 -- RM03 MAINTENANCE REGISTER #2 [601]
DEFINE DURMR2<
TBLDEV (2,<REQA>)
TBLDEV (3,<REQB>)
TBLDEV (4,<TAG>)
TBLDEV (5,<TEST>)
TBLDEV (6,<CNT/CYL>)
TBLDEV (7,<CNT/HD>)
>
;DURP02-- SAME AGAIN FOR RP04/5/6 RM03 ERROR REG.#1
DEFINE DURP02<
TBLDEV (2,<DCK>)
TBLDEV (3,<UNS>)
TBLDEV (4,<OPI>)
TBLDEV (5,<DTE>)
TBLDEV (6,<WLE>)
TBLDEV (7,<IAE>)
TBLDEV (8,<AOE>)
TBLDEV (9,<HCRC>)
TBLDEV (10,<HCE>)
TBLDEV (11,<ECH>)
TBLDEV (12,<WCF>)
TBLDEV (13,<FER>)
TBLDEV (14,<PAR>)
TBLDEV (15,<RMR>)
TBLDEV (16,<ILR>)
TBLDEV (17,<ILF>)
>
;SAME AGAIN FOR RP04 ERROR REG #2(14)
DEFINE DURP10 <
TBLDEV (2,<ACU>)
TBLDEV (4,<PLU>)
TBLDEV (5,<30VU>)
TBLDEV (6,<IXE>)
TBLDEV (7,<NHS>)
TBLDEV (8,<MHS>)
TBLDEV (9,<WRU>)
TBLDEV (10,<FEN>)
TBLDEV (11,<TUF>)
TBLDEV (12,<TDF>)
TBLDEV (13,<MSE>)
TBLDEV (14,<CSU>)
TBLDEV (15,<WSU>)
TBLDEV (16,<CSF>)
TBLDEV (17,<WCU>)
>
;SAME AGAIN FOR RP05/6 ERROR REG #2(14)
DEFINE DURP05 <
TBLDEV (4,<PLU>)
TBLDEV (6,<IXE>)
TBLDEV (7,<NHS>)
TBLDEV (8,<MHS>)
TBLDEV (9,<WRU>)
TBLDEV (10,<ABS>)
TBLDEV (11,<TUF>)
TBLDEV (12,<TDF>)
TBLDEV (13,<R&W>)
TBLDEV (14,<CSU>)
TBLDEV (15,<WSU>)
TBLDEV (16,<CSF>)
TBLDEV (17,<WCU>)
>
;DURER2 -- RM03 ERROR REGISTER #2 (15) [600]
DEFINE DURER2<
TBLDEV (2,<BSE>)
TBLDEV (3,<SKI>)
TBLDEV (4,<OPE>)
TBLDEV (5,<IVC>)
TBLDEV (6,<LSC>)
TBLDEV (7,<LBC>)
TBLDEV (10,<DVC>)
TBLDEV (14,<DPE>)
>
;AGAIN FOR RP04 ERROR REG #3(15)
DEFINE DURP15<
TBLDEV (2,<OCYL>)
TBLDEV (3,<SKI>)
TBLDEV (11,<DCL>)
TBLDEV (12,<ACL>)
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,<DCL>)
TBLDEV (12,<ACL>)
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,<FPAR>)
TBLDEV (13,<FMT>)
TBLDEV (14,<PAR>)
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>)
>
;FE STARDARD STATUS WORD
DEFINE DUFEST<
TBLDEV (25,<LOST INTERRUPT>)
TBLDEV (26,<DEV HUNG>)
TBLDEV (27,<11 REQUEST>)
TBLDEV (28,<NON RECOVERABLE ERROR>)
TBLDEV (29,<ERROR LOG REQUEST>)
TBLDEV (32,<SOFTWARE COND.-ACKN REQ'D>)
TBLDEV (33,<HDWR ERR OPR REQ'D>)
TBLDEV (34,<OFF LINE>)
TBLDEV (35,<NON EX DEV>)
>
;FE SOFTWARE STATUS FOR LP20
DEFINE DUFELP<
TBLDEV (32,<VFU RAM FILE ERROR>)
TBLDEV (33,<VFU ERROR>)
TBLDEV (34,<RAM CHAR INT.>)
>
;LP20 STATUS REGISTER A
DEFINE DULPSA<
TBLDEV (20,<ERROR>)
TBLDEV (21,<PAGE ZERO>)
TBLDEV (22,<UNDEF CHAR>)
TBLDEV (23,<DAVFU>)
TBLDEV (24,<ON LINE>)
TBLDEV (25,<DEL HOLD>)
TBLDEV (26,<RSTERR>)
TBLDEV (27,<LO INT>)
TBLDEV (28,<DONE>)
TBLDEV (29,<INT ENB>)
TBLDEV (32,<DAVFU LOAD>)
TBLDEV (33,<TEST MODE>)
TBLDEV (34,<PAR ENB>)
TBLDEV (35,<GO>)
>
;LP20 STATUS REGISTER B
DEFINE DULPSB<
TBLDEV (20,<VALID DATA>)
TBLDEV (21,<LA 180>)
TBLDEV (22,<LPT NOT RDY>)
TBLDEV (23,<LPT DATA PAR>)
TBLDEV (24,<OPT VFU>)
TBLDEV (25,<TEST 02>)
TBLDEV (26,<TEST 01>)
TBLDEV (27,<TEST 00>)
TBLDEV (28,<OFF LINE>)
TBLDEV (29,<VFUERR>)
TBLDEV (30,<LPTPAR>)
TBLDEV (31,<MEMPAR>)
TBLDEV (32,<RAMPAR>)
TBLDEV (33,<MSYNC TIMEOUT>)
TBLDEV (34,<DEMAND TIMEOUT>)
TBLDEV (35,<GO ERROR>)
>
;FRONT END SOFTWARE STATUS FOR CD20
DEFINE DUFECD<
TBLDEV (31,<STACKER FULL>)
TBLDEV (32,<HOPPER EMPTY>)
TBLDEV (33,<STACK CHECK>)
TBLDEV (34,<PICK CHECK>)
TBLDEV (35,<READ CHECK>)
>
;CD20 STATUS REGISTER
DEFINE DUCDST<
TBLDEV (20,<ERROR>)
TBLDEV (21,<READER CHECK>)
TBLDEV (22,<EOF>)
TBLDEV (23,<OFF-LINE>)
TBLDEV (24,<DATA ERROR>)
TBLDEV (25,<DATA LATE>)
TBLDEV (26,<NXM>)
TBLDEV (27,<PWR CLR>)
TBLDEV (28,<READY>)
TBLDEV (29,<INT ENB>)
TBLDEV (33,<HOPPER CHECK>)
TBLDEV (34,<DATA PACKING>)
TBLDEV (35,<READ>)
>
;RH20 CONI BITS
DEFINE DUMRH2<
TBLDEV (18,<DATA BUS PAR ERR>)
TBLDEV (19,<DRIVE EXCEPTION>)
TBLDEV (20,<LONG WD CNT ERR>)
TBLDEV (21,<SHORT WD CNT ERR>)
TBLDEV (22,<CHN ERROR>)
TBLDEV (23,<DRIVE RESPONSE ERR>)
TBLDEV (24,<REG ACCESS ERR>)
;DELETED 'CHAN NOT READY' (SHOULD HAVE BEEN 'CHAN READY') [516]
TBLDEV (26,<DATA OVERRUN ERR>)
>
;CONTENTS OF INT CHN STATUS WORD 1
DEFINE DURHSW<
TBLDEV (1,<MEM PAR ERR>)
TBLDEV (2,<NOT SBUS ERR>)
TBLDEV (3,<NOT WC = 0>)
TBLDEV (4,<NXM>)
TBLDEV (9,<LAST XFER ERR>)
TBLDEV (10,<RH20 ERR>)
TBLDEV (11,<LONG WC ERR>)
TBLDEV (12,<SHORT WC ERR>)
TBLDEV (13,<OVERRUN>)
>
;RH11 CONTROL & STATUS #2 [600]
DEFINE DUMCS2<
TBLDEV (20,<DATA LATE>)
TBLDEV (21,<WRITE CHECK>)
TBLDEV (22,<UNIBUS PAR ERR>)
TBLDEV (23,<NON-EXISTANT DEVICE>)
TBLDEV (24,<NXM>)
TBLDEV (25,<PROGRAM ERROR>)
TBLDEV (26,<MISSED TRANSFER>)
TBLDEV (27,<DATA PAR ERR>)
>
;UBA STATUS,,UBA MAP REGISTERS [600]
DEFINE DUMUBA<
TBLDEV (0,<UBA TIMEOUT>)
TBLDEV (1,<BAD DATA FETCH>)
TBLDEV (2,<BUS PAR>)
TBLDEV (3,<NON-EXISTANT DEVICE>)
>
;FRONT END RELOAD STATUS WORD
DEFINE DURLD1<
TBLDEV (0,<GTJFN FAILED FOR DUMP FILE>)
TBLDEV (1,<OPENF FAILED FOR DUMP FILE>)
TBLDEV (2,<DUMP FAILED>)
TBLDEV (3,<TO -10 ERROR ON DUMP>)
TBLDEV (4,<TO -11 ERROR ON BOOT>)
TBLDEV (5,<ASGPAG FAILED ON DUMP>)
TBLDEV (6,<RELOAD FAILED>)
TBLDEV (7,<-11 DIDN'T PWR DOWN>)
TBLDEV (8,<-11 DIDN'T PWR UP>)
TBLDEV (9,<ROM DIDN'T ACK THE -10>)
TBLDEV (10,<-11 BOOT PGM DIDN'T LOAD INTO -11>)
TBLDEV (11,<LONGER THAN 1 MINUTE TO RELOAD>)
;ADDED WITH [404]
TBLDEV (12,<TO-10 BYTE XFER FOR DUMP HUNG>)
TBLDEV (13,<ENTER FAILURE FOR DUMP FILE>)
TBLDEV (14,<OPEN FAILURE FOR DUMP OUTPUT DEVICE>)
TBLDEV (15,<OUTPUT FAILURE FOR DUMP FILE>)
TBLDEV (16,<TO-11 BYTE XFER TIMED OUT>)
>
;ERROR STATUS BITS FROM FE KL RELOAD
DEFINE DUFEKL<
TBLDEV (29,<PWR FAIL RESTART>)
TBLDEV (30,<REQUESTED REBOOT>)
TBLDEV (31,<KEEP ALIVE STOPPED>)
TBLDEV (32,<DEPOSIT EXAMINE ERROR>)
TBLDEV (33,<E BOX PAR ERROR>)
TBLDEV (34,<CLOCK ERROR STOP>)
TBLDEV (35,<CPU HALTED>)
>
;DEFINITIONS FOR DX20 SUPPORT
;DX20 - DXSTR
DEFINE DUDXSR<
TBLDEV (2,<ATA>)
TBLDEV (3,<CERR>)
TBLDEV (4,<LNKPRS>)
TBLDEV (5,<MPRUN>)
>
;DX20 - DXERR
DEFINE DUDXER<
TBLDEV (10,<MPERR>)
TBLDEV (11,<MPSTP>)
TBLDEV (12,<UBPARE>)
TBLDEV (13,<DBPARE>)
TBLDEV (14,<CBPARE>)
TBLDEV (15,<RMR>)
TBLDEV (16,<ILR>)
TBLDEV (17,<ILF>)
>
;DX20 - DXMTR
DEFINE DUDXMR<
TBLDEV (13,<MPSC>)
TBLDEV (14,<MPWEVP>)
TBLDEV (15,<MPSTR>)
TBLDEV (16,<DXRES>)
>
;CALCULATE LOWEST NUMBERED ERROR BIT IN USE
;AND THE NUMBER OF ERROR BITS IN WORD
RADIX 10 ;***** NOTE WELL *****
DEFINE TBLDEV(A,B)<
IFL A-MISB81,<MISB81==A>
NUSB81==NUSB81+1
>
MISB81==36
NUSB81==0
DUSB81
DEFINE TBLDEV(A,B)<
IFL A-MINLPT,<MINLPT==A>
NUMLPT==NUMLPT+1
>
MINLPT==36
NUMLPT==0
DUMLPT
DEFINE TBLDEV(A,B)<
IFL A-MIRP05,<MIRP05==A>
NURP05==NURP05+1
>
MIRP05==36
NURP05==0
DURP05
DEFINE TBLDEV(A,B)<
IFL A-MIRP06,<MIRP06==A>
NURP06==NURP06+1
>
MIRP06==36
NURP06==0
DURP06
DEFINE TBLDEV(A,B)<
IFL A-MIRLD1,<MIRLD1==A>
NURLD1==NURLD1+1
>
MIRLD1==36
NURLD1==0
DURLD1
DEFINE TBLDEV(A,B)<
IFL A-MINRCB,<MINRCB==A>
NUMRCB==NUMRCB+1
>
MINRCB==36
NUMRCB==0
DUMRC1
DEFINE TBLDEV(A,B)<
IFL A-MINKLA,<MINKLA==A>
NUMKLA==NUMKLA+1
>
MINKLA==36
NUMKLA==0
DUMKLA
DEFINE TBLDEV(A,B)<
IFL A-MINTCB,<MINTCB==A>
NUMTCB==NUMTCB+1
>
MINTCB==36
NUMTCB==0
DUMTC1
DEFINE TBLDEV(A,B)<
IFL A-MINRPB,<MINRPB==A>
NUMRPB==NUMRPB+1
>
MINRPB==36
NUMRPB==0
DUMRP1
DEFINE TBLDEV(A,B)<
IFL A-MINSFB,<MINSFB==A>
NUMSFB==NUMSFB+1
>
MINSFB==36
NUMSFB==0
DUMSF1
DEFINE TBLDEV(A,B)<
IFL A-MINTMB,<MINTMB==A>
NUMTMB=NUMTMB+1
>
MINTMB==36
NUMTMB==0
DUMTM1
DEFINE TBLDEV(A,B)<
IFL A-MINRHB,<MINRHB==A>
NUMRHB=NUMRHB+1
>
MINRHB==36
NUMRHB==0
DUMRH1
DEFINE TBLDEV(A,B)<
IFL A-MINDL2,<MINDL2==A>
NUMDL2==NUMDL2+1
>
MINDL2==36
NUMDL2==0
DUMDL2
DEFINE TBLDEV(A,B)<
IFL A-MIRP01,<MIRP01==A>
NURP01==NURP01+1
>
MIRP01==36
NURP01==0
DURP01
DEFINE TBLDEV(A,B)<
IFL A-MIRP02,<MIRP02==A>
NURP02==NURP02+1
>
MIRP02==36
NURP02==0
DURP02
DEFINE TBLDEV(A,B)<
IFL A-MIRP10,<MIRP10==A>
NURP10==NURP10+1
>
MIRP10==36
NURP10==0
DURP10
DEFINE TBLDEV(A,B)<
IFL A-MIRP15,<MIRP15==A>
NURP15==NURP15+1
>
MIRP15==36
NURP15==0
DURP15
DEFINE TBLDEV(A,B)<
IFL A-MIRS01,<MIRS01==A>
NURS01==NURS01+1
>
MIRS01==36
NURS01==0
DURS01
DEFINE TBLDEV(A,B)<
IFL A-MIRS02,<MIRS02==A>
NURS02==NURS02+1
>
MIRS02==36
NURS02==0
DURS02
DEFINE TBLDEV(A,B)<
IFL A-MIT601,<MIT601==A>
NUT601==NUT601+1
>
MIT601==36
NUT601==0
DUT601
DEFINE TBLDEV(A,B)<
IFL A-MIT602,<MIT602==A>
NUT602==NUT602+1
>
MIT602==36
NUT602==0
DUT602
DEFINE TBLDEV(A,B)<
IFL A-MIICPC,<MIICPC==A>
NUICPC==NUICPC+1
>
MIICPC==36
NUICPC==0
DUICPC
DEFINE TBLDEV(A,B)<
IFL A-MIDXTB,<MIDXTB==A>
NUDXTB==NUDXTB+1
>
MIDXTB==36
NUDXTB==0
DUDXTB
DEFINE TBLDEV(A,B)<
IFL A-MIRPMR,<MIRPMR==A>
NURPMR==NURPMR+1
>
MIRPMR==36
NURPMR==0
DURPMR
DEFINE TBLDEV(A,B)<
IFL A-MISB03,<MISB03==A>
NUSB03==NUSB03+1
>
MISB03==36
NUSB03==0
DUSB03
DEFINE TBLDEV(A,B)<
IFL A-MISB47,<MISB47==A>
NUSB47==NUSB47+1
>
MISB47==36
NUSB47==0
DUSB47
DEFINE TBLDEV(A,B)<
IFL A-MINDXB,<MINDXB==A>
NUMDXB==NUMDXB+1
>
MINDXB==36
NUMDXB==0
DUMDX1
DEFINE TBLDEV(A,B)<
IFL A-MINDL1,<MINDL1==A>
NUMDL1==NUMDL1+1
>
MINDL1==36
NUMDL1==0
DUMDL1
DEFINE TBLDEV(A,B)<
IFL A-MIFEST,<MIFEST==A>
NUFEST==NUFEST+1
>
MIFEST==36
NUFEST==0
DUFEST
DEFINE TBLDEV(A,B)<
IFL A-MIFELP,<MIFELP==A>
NUFELP==NUFELP+1
>
MIFELP==36
NUFELP==0
DUFELP
DEFINE TBLDEV(A,B)<
IFL A-MILPSA,<MILPSA==A>
NULPSA==NULPSA+1
>
MILPSA==36
NULPSA==0
DULPSA
DEFINE TBLDEV(A,B)<
IFL A-MILPSB,<MILPSB==A>
NULPSB==NULPSB+1
>
MILPSB==36
NULPSB==0
DULPSB
DEFINE TBLDEV(A,B)<
IFL A-MIFECD,<MIFECD==A>
NUFECD==NUFECD+1
>
MIFECD==36
NUFECD==0
DUFECD
DEFINE TBLDEV(A,B)<
IFL A-MICDST,<MICDST==A>
NUCDST==NUCDST+1
>
MICDST==36
NUCDST==0
DUCDST
DEFINE TBLDEV(A,B)<
IFL A-MINRH2,<MINRH2==A>
NUMRH2==NUMRH2+1
>
MINRH2==36
NUMRH2==0
DUMRH2
DEFINE TBLDEV(A,B)< ;[600]
IFL A-MINR11,<MINR11==A>
NUMR11==NUMR11+1
>
MINR11==36
NUMR11==0
DUMR11
DEFINE TBLDEV(A,B)< ;[600]
IFL A-MINUBA,<MINUBA==A>
NUMUBA==NUMUBA+1
>
MINUBA==36
NUMUBA==0
DUMUBA
DEFINE TBLDEV(A,B)<
IFL A-MIRHSW,<MIRHSW==A>
NURHSW==NURHSW+1
>
MIRHSW==36
NURHSW==0
DURHSW
DEFINE TBLDEV(A,B)<
IFL A-MIFEKL,<MIFEKL==A>
NUFEKL==NUFEKL+1
>
MIFEKL==36
NUFEKL==0
DUFEKL
DEFINE TBLDEV(A,B)<
IFL A-MIDXSR,<MIDXSR==A>
NUDXSR==NUDXSR+1
>
MIDXSR==36
NUDXSR==0
DUDXSR
DEFINE TBLDEV(A,B)<
IFL A-MIDXER,<MIDXER==A>
NUDXER==NUDXER+1
>
MIDXER==36
NUDXER==0
DUDXER
DEFINE TBLDEV(A,B)<
IFL A-MIDXMR,<MIDXMR==A>
NUDXMR==NUDXMR+1
>
MIDXMR==36
NUDXMR==0
DUDXMR
DEFINE TBLDEV(A,B)< ;[600]
IFL A-MINCS2,<MINCS2==A>
NUMCS2==NUMCS2+1
>
MINCS2==36
NUMCS2==0
DUMCS2
DEFINE TBLDEV(A,B)< ;[601]
IFL A-MINMR1,<MINMR1==A>
NUMMR1==NUMMR1+1
>
MINMR1==36
NUMMR1==0
DURMR1
DEFINE TBLDEV(A,B)< ;[601]
IFL A-MINMR2,<MINMR2==A>
NUMMR2==NUMMR2+1
>
MINMR2==36
NUMMR2==0
DURMR2
DEFINE TBLDEV(A,B)< ;[601]
IFL A-MINER2,<MINER2==A>
NUMER2==NUMER2+1
>
MINER2==36
NUMER2==0
DURER2
RADIX 8
;GENERATE THE DEVICE ERROR BIT MASK USING THE DUMMY MACROS
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)<
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)<
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)< ;[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
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
;SCNAMC.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,ABBREVIATION,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),<
XALL
;;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
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