Trailing-Edge
-
PDP-10 Archives
-
AP-D471B-SB_1978
-
mgnerr.bli
There are no other files named mgnerr.bli in the archive.
!***COPYRIGHT (C) 1974, 1975, 1976, 1977 DIGITAL EQUIPMENT CORP., MAYNARD, MASS.***
MODULE ERR(SREG = #17, FREG = #16, VREG = #15,
MLIST,TIMER=EXTERNAL(SIX12),FSAVE)=
BEGIN
! MCSGEN ERROR AND WARNING MESSAGES
! ===== ====== === ======= ========
!
! *** LAST MODIFIED BY ILG 30-DEC-76
!
GLOBAL BIND ERR = 1;
REQUIRE MGNMAC.BLI;
REQ (MGNEXT);
REQ (MGNMC2);
UNDECLARE ERROR, WARN;
COMMENT;
! ROUTINE ERROR
! ======= =====
! THIS ROUTINE WRITES AN ERROR MESSAGE GIVEN THE APPROPRIATE ERROR
! NUMBER. IT ALSO SETS THE ERROR FLAG (ERRORFLG) TO TRUE
GLOBAL ROUTINE ERROR(EN)=
BEGIN
OWN HIST1; !DONT INVALIDATE OLD BIN FILES (USED TO BE CRLFFLAG)
MACRO MAKERR(A) = PLIT (ASCIZ A)$;
BIND ERRLST = PLIT (
%0% MAKERR ( 'ITL INPUT LINE TOO LONG?M?J'),
%1% MAKERR ( 'NHY NO HELP YET?M?J'),
%2% MAKERR ( 'UNS UNKNOWN SWITCH?M?J'),
%3% MAKERR ( 'SWN SWITCH NOT UNIQUELY SPECIFIED?M?J'),
%4% MAKERR ( 'BCP BAD CHARACTER IN PPN?M?J'),
%5% MAKERR ( 'CNF COMMAND NAME NOT FOUND?M?J'),
%6% MAKERR ( 'FTP FILE-SPEC CONTAINS TOO MANY PERIODS?M?J'),
%7% MAKERR ( 'IVC INVALID CHARACTER?M?J'),
%8% MAKERR ( 'CNI COMMAND NOT YET IMPLEMENTED?M?J'),
%9% MAKERR ( 'SCG STATEMENT CONTAINS GARBAGE AFTER COMMAND?M?J'),
%10% MAKERR ( 'CNU COMMAND NAME NOT UNIQUE?M?J'),
%11% MAKERR ( 'TUK TYPE UNKNOWN?M?J'),
%12% MAKERR ( 'TNU TYPE NOT UNIQUE?M?J'),
%13% MAKERR ( 'UPN UNKNOWN PORT NAME?M?J'),
%14% MAKERR ( 'DPN DUPLICATE PORT NAME?M?J'),
%15% MAKERR ( 'PCP PORT NAME CANNOT CONTAIN PERIODS?M?J'),
%16% MAKERR ( 'UMN UNKNOWN MPP NAME?M?J'),
%17% MAKERR ( 'DMN DUPLICATE MPP NAME?M?J'),
%18% MAKERR ( 'MCP MPP NAME CANNOT CONTAIN PERIODS?M?J'),
%19% MAKERR ( 'UAT UNKNOWN ALTERNATE TERMINAL WHILE WRITING COMPILE FILE?M?J'),
%20% MAKERR ( 'ENF EXTENSION SPECIFIED BUT NO FILE NAME?M?J'),
%21% MAKERR ( 'TMD TOO MANY DEVICES SPECIFIED?M?J'),
%22% MAKERR ( 'VOR VALUE OUT OF RANGE ('),
%23% MAKERR ( 'VTB VALUE TOO BIG?M?J'),
%24% MAKERR ( 'VRQ VALUE REQUIRED?M?J'),
%25% MAKERR ( 'TIC TYPE ILLEGAL IN THIS CONTEXT?M?J'),
%26% MAKERR ( 'TNY THIS TYPE NOT YET IMPLEMENTED?M?J'),
%27% MAKERR ( 'NAE NODE ALREADY EXISTS?M?J'),
%28% MAKERR ( 'HFC HYPHEN ILLEGAL AS FIRST CHARACTER OF NODE NAME?M?J'),
%29% MAKERR ( 'NBN NODE NAME CANNOT BE NULL?M?J'),
%30% MAKERR ( 'NEH NODE NAME CANNOT END WITH A HYPEN?M?J'),
%31% MAKERR ( 'ICN ILLEGAL CHARACTER IN NODE NAME?M?J'),
%32% MAKERR ( 'NNR NODE NAME REQUIRED?M?J'),
%33% MAKERR ( 'UKN UNKNOWN NODE?M?J'),
%34% MAKERR ( 'NTS NO TREE SPECIFIED?M?J'),
%35% MAKERR ( 'TSD TRCODE SIZE MUST BE DEFINED BEFORE MAKING TREE OR NODE?M?J'),
%36% MAKERR ( 'NTE NO TERMINALS SPECIFIED?M?J'),
%37% MAKERR ( 'NPD NO PORTS DEFINED?M?J'),
%38% MAKERR ( 'TUD TREE UNDEFINED?M?J'),
%39% MAKERR ( 'SMG SYSTEM NAME MUST BE GIVEN?M?J'),
%40% MAKERR ( 'TAE TREE ALREADY EXISTS?M?J'),
%41% MAKERR ( 'TRS TRCODE MUST BE SPECIFIED?M?J'),
%42% MAKERR ( 'PNU PARENT NODE UNKNOWN?M?J'),
%43% MAKERR ( 'UTN UNKNOWN TERMINAL NAME?M?J'),
%44% MAKERR ( 'DTN DUPLICATE TERMINAL NAME?M?J'),
%45% MAKERR ( 'TCP TERMINAL NAME CANNOT CONTAIN PERIODS?M?J'),
%46% MAKERR ( 'BSN BAD SEPARATOR IN NODE LIST?M?J'),
%47% MAKERR ( 'PTD PORT ' ),
%48% MAKERR ( 'PNT PORT '),
%49% MAKERR ( 'MTD MPP '),
%50% MAKERR ( 'UEM UNUSED ERROR MESSAGE ***?M?J'),
%51% MAKERR ( 'DNA DEVICE '),
%52% MAKERR ( 'EFP ENTER FAILED FOR PRINT?M?J'),
%53% MAKERR ( 'RFK RENAME FAILED IN KILLFILE?M?J'),
%54% MAKERR ( 'EFR ENTER FAILED FOR WRITE CORE FILE?M?J' ),
%55% MAKERR ( 'LFK LOOKUP FAILED IN KILLFILE?M?J'),
%56% MAKERR ( 'EFC ENTER FAILED FOR WRITE COMPILE FILE?M?J'),
%57% MAKERR ( 'RSR READ FILE SPEC REQUIRED?M?J'),
%58% MAKERR ( 'RSW READ SWITCH REQUIRED?M?J'),
%59% MAKERR ( 'URS UNKNOWN READ SWITCH?M?J'),
%60% MAKERR ( 'DAE DEFINITION ALREADY EXISTS?M?J'),
%61% MAKERR ( 'MRT ALL LOCAL MPPS REQUIRE TRANSACTION CODES?M?J'),
%62% MAKERR ( 'LFR LOOKUP FAILED FOR READ CORE FILE?M?J'),
%63% MAKERR ( 'CUF CORE UUO FAILED ON READ?M?J'),
%64% MAKERR ( 'TTD TERMINAL '),
%65% MAKERR ( 'TNP TERMINAL '),
%66% MAKERR ( 'NTD NODE '),
%67% MAKERR ( 'MIU MISCELLANEOUS INFORMATION UNDEFINED?M?J'),
%68% MAKERR ( 'TMT TREE EMPTY?M?J'),
%69% MAKERR ( 'BAT BAD ANSWER. TRY ('),
%70% MAKERR ( 'UKS UNKNOWN SIB?M?J'),
%71% MAKERR ( 'MNB MODIFIER NOT "BEFORE", "AFTER", OR NULL?M?J'),
%72% MAKERR ( 'SMS SUBTREE MUST BE SPECIFIED?M?J'),
%73% MAKERR ( 'UNL UNKNOWN NODE IN LEAF STATUS TABLE?M?J'),
%74% MAKERR ( 'MAD MISCELLANEOUS INFORMATION ALREADY DEFINED?M?J'),
%75% MAKERR ( 'BMN BAD MPPNAME?M?J'),
%76% MAKERR ( 'FSR FILE-SPEC REQUIRED?M?J'),
%77% MAKERR ( 'WFR WRITE FILE-SPEC REQUIRED?M?J'),
%78% MAKERR ( 'WSR WRITE SWITCH REQUIRED?M?J'),
%79% MAKERR ( 'IWS ILLEGAL WRITE SWITCH?M?J'),
%80% MAKERR ( 'OFC OUTPUT FAILED IN PUTC?M?J'),
%81% MAKERR ( 'OFW OUTPUT FAILED IN PUTWORD?M?J'),
%82% MAKERR ( 'IER INPUT ERROR OR EOF?M?J'),
%83% MAKERR ( 'FSC FILE-SPEC-PAIR MUST BE SPEARATED BY A COMMA?M?J'),
%84% MAKERR ( 'SNU SIB NAME NOT UNIQUE?M?J'),
%85% MAKERR ( 'TRN TRCODE NOT UNIQUE?M?J'),
%86% MAKERR ( 'BPN BAD PORT NAME?M?J'),
%87% MAKERR ( 'BTN BAD TERMINAL NAME?M?J'),
%88% MAKERR ( 'BNN BAD NODE NAME?M?J'),
%89% MAKERR ( 'PMS A PORT NAME MUST BE SPECIFIED?M?J'),
%90% MAKERR ( 'TMS A TERMINAL MUST BE SPECIFIED?M?J'),
%91% MAKERR ( 'NAH NODE ALREADY HAS MPP OR THIS MPP CONFLICTS WITH MPP ABOVE THIS NODE?M?J'),
%92% MAKERR ( 'CNV CORE IMAGE SAVE UNDER A DIFFERENT VERSION OF MCSGEN?M?J'),
%93% MAKERR ( 'ETB EXCHANGE TYPE BAD. MUST BE "NODE"), "TREE", OR NULL?M?J'),
%94% MAKERR ( 'ANA TYPES "ALL:" AND NULL MAY NOT HAVE ARGUMENTS?M?J'),
%95% MAKERR ( 'MAN TYPE "MISC:" MAY NOT HAVE ARGUMENTS?M?J'),
%96% MAKERR ( 'CHU CHILD NAME NOT UNIQUE?M?J'),
%97% MAKERR ( 'INR INDIVIDUAL NODE NAME CONTAINING NO COLONS OR PERIODS REQUIRED?M?J'),
%98% MAKERR ( 'E2N EXCHANGE REQUIRES TWO NODENAMES?M?J'),
%99% MAKERR ( 'MCF MPP TO START CONFLICTS?M?J'),
%100% MAKERR ( 'TAS TERMINAL CAN''T BE ALTERNATE OF SELF?M?J'),
%101% MAKERR ( 'NNL NODE NOT LEAF. NODE MUST BE LEAF TO USE THIS FUNCTION?M?J'),
%102% MAKERR ( 'CKR CAN''T KILL THE ROOT?M?J'),
%103% MAKERR ( 'EIL ERROR IN LINK?M?J'),
%104% MAKERR ( 'SRD SWITCH REQUIRED?M?J'),
%105% MAKERR ( 'SNS SLASH GIVEN WITHOUT SWITCHNAME?M?J'),
%106% MAKERR ( 'RUF RUN UUO ON MACRO FAILED?M?J'),
%107% MAKERR ( 'STS SPECIAL TRANSACTION LEAF HAS THE SAME NAME AS A PRIMARY NODE?M?J'),
%108% MAKERR ( 'UEM **** UNUSED ERROR MESSAGE ****?M?J'),
%109% MAKERR ( 'UEM **** UNUSED ERROR MESSAGE ****?M?J'),
%110% MAKERR ( 'PCH PORTNAME CONTAINS HYPHEN?M?J'),
%111% MAKERR ( 'AUD '),
%112% MAKERR ( 'LUD '),
%113% MAKERR ( 'ETL EXCHANGE WOULD CAUSE TOO MANY LEVELS IN THE TREE?M?J'),
%114% MAKERR ( 'CXP CANNOT EXCHANGE TREE WITH PARENT OR GRANDPARENTS?M?J'),
%115% MAKERR ( 'NOC NO SUCH COMMAND AS '),
%116% MAKERR ( 'EHF END OF HELP FILE TYPING '),
%117% MAKERR ( 'NOH CANNOT FIND MCSGEN.HLP?M?J'),
%118% MAKERR ( 'MCD MESSAGE CLASS CODE DUPLICATED?M?J'),
%119% MAKERR ( 'ICH ILLEGAL CHARACTER IN HELP LIST?M?J'),
%120% MAKERR ( 'TCH TRAILLING COMMA IN HELP CMD LIST?M?J' ),
%121% MAKERR ( 'NPB NEW PARENT IS CHILD OR GRANDCHILD OF CURRENT NODE?M?J' ),
%122% MAKERR ( 'CNC CORE FILE SPECIFIED IS NOT A MCSGEN CONFIGURATION FILE?M?J' ),
%123% MAKERR ( 'UEM **** UNUSED ERROR MESSAGE ****?M?J'),
%124% MAKERR ( 'TRD TRCODE CONTAINS TRCODE FIELD DELIMITER?M?J' ),
%125% MAKERR ( 'UEM **** UNUSED ERROR MESSAGE ****?M?J'),
%126% MAKERR ( 'FTS FAILSOFT/ROLLOUT FILE SIZE TOO SMALL?M?J'),
%127% MAKERR ( 'JFR AT LEAST ONE JOURNAL FILESPEC REQUIRED?M?J'),
%128% MAKERR ( 'LFR AT LEAST ONE LOG FILESPEC REQUIRED?M?J'),
%129% MAKERR ( 'CMP CANNOT MODIFY PORTS?M?J'),
%130% MAKERR ( 'PAC PORT ALREADY CONNECTED TO A TERMINAL?M?J'),
%131% MAKERR ( 'NMA NO MPP IS ASSOCIATED WITH THIS NODE?M?J')
);
OUTS('??MGN');
IF .EN GTR .ERRLST[-1]-1 THEN OUTS('UNK UNKNOWN ERROR CODE?M?J')
ELSE OUTSA(.ERRLST[.EN]);
ERRORFLG _ TRUE;
END;
COMMENT;
! ROUTINE WARN
! ======= =====
! THIS ROUTINE WRITES AN WARNING MESSAGE GIVEN THE APPROPRIATE WARN
! NUMBER.
GLOBAL ROUTINE WARN(EN)=
BEGIN
OWN HIST2; ! USED TO BE CRLFFLAG FOR WARN ROUTINE
MACRO MAKERR(A) = PLIT (ASCIZ A)$;
BIND WRNLST = PLIT (
%0% MAKERR ( 'TAG TRY AGAIN?M?J'),
%1% MAKERR ('NTL NODE NAME TOO LONG. TRUNCATED TO 12 CHARACTERS?M?J'),
%2% MAKERR ('IDD INCOMPLETELY DEFINED DATA BASE?M?J'),
%3% MAKERR ('PTL PORTNAME TOO LONG. TRUNCATED TO 6 CHARACTERS?M?J'),
%4% MAKERR ('TTL TERMINAL NAME TOO LONG. TRUNCATED TO 12 CHARACTERS?M?J'),
%5% MAKERR ('MTL MPPNAME TOO LONG. TRUNCATED TO 12 CHARACTERS?M?J'),
%6% MAKERR ('ITL INPUT TOO LONG. TRUNCATED?M?J'),
%7% MAKERR ('SLR STRING GIVEN LONGER THAN REQUIRED. TRUNCATED?M?J'),
%8% MAKERR ('MSN MPR OF THE SAME NAME?M?J'),
%9% MAKERR ('CNC TRCODE DELIMITER NOT CHANGED?M?J'),
%10% MAKERR ( 'UEM **** UNUSED ERROR MESSAGE ****?M?J'),
%11% MAKERR ('DAN DUPLICATE ALTERNATE NAME IGNORED?M?J'),
%12% MAKERR ('DNN DUPLICATE NODE NAME IGNORED?M?J'),
%13% MAKERR ('CIC CONFIGURATION INCOMPLETE COMPILE-FILE NOT WRITTEN?M?J'),
%14% MAKERR ('DPI DUPLICATE PASSWORD IGNORED?M?J'),
%15% MAKERR ('EIS END INDICATOR HAS SAME CODE AS PREVIOUSLY DEFINED END INDICATOR?M?J'),
%16% MAKERR ('SAS SWITCH '),
%17% MAKERR ( 'UEM **** UNUSED ERROR MESSAGE ****?M?J'),
%18% MAKERR ('NNM NODE MAY NOT HAVE AN MPP TO START?M?J' ),
%19% MAKERR ('NLS NO LEAVES MAY BE MADE?M?J' ),
%20% MAKERR ('NMS NO MPRS MAY BE SPECIFIED?M?J'),
%21% MAKERR ('DTL DEVICE NAME TOO LONG, TRUNCATED?M?J') ,
%22% MAKERR ('FTL FILE NAME TOO LONG, TRUNCATED?M?J') ,
%23% MAKERR ('ETL EXTENSION TOO LONG, TRUNCATED?M?J') ,
%24% MAKERR ('CDC CAN''T DELETE CURRENT NODE HERE?M?J' ),
%25% MAKERR ('MTD MBM TERMINAL DOESN''T HAVE AN ATTACHED PORT?M?J' ),
%26% MAKERR ('MPD MBM PORT DOESN''T HAVE AN ATTACHED TERMINAL?M?J'),
%27% MAKERR ('MEI MPP FILE-SPECIFICATION EXTENSION IS IGNORED?M?J'),
%28% MAKERR ('MNN MPP ')
);
OUTS('%MGN');
IF .EN GTR .WRNLST[-1]-1 THEN OUTS('UNK UNKNOWN WARNING CODE?M?J')
ELSE OUTSA(.WRNLST[.EN]);
END;
! END OF MGNERR.BLI