Trailing-Edge
-
PDP-10 Archives
-
TOPS-20_V6.1_DECnetSrc_7-23-85
-
mcb/tkb36/msgh.bli
There are 4 other files named msgh.bli in the archive. Click here to see a list.
!<REL4A.TKB-VNP>MSGH.BLI.10, 3-Dec-79 14:41:15, Edit by SROBINSON
MODULE MSGH ( ! PRINT MESSAGES
IDENT = 'X2.0'
) =
BEGIN
!
!
!
! COPYRIGHT (c) 1980, 1981, 1982
! DIGITAL EQUIPMENT CORPORATION
! Maynard, Massachusetts
!
! 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 transferred.
!
! 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.
!
!++
! FACILITY: TKB-20 AND VNP-20
!
! ABSTRACT:
!
!
! THIS MODULE HANDLES PRINTING OF MESSAGES
!
!
! ENVIRONMENT: TOPS-20 USER MODE
!
! AUTHOR: J. SAUTER, CREATION DATE: 14-DEC-77
!
! MODIFIED BY:
!
! Scott G. Robinson, 28-SEP-78 : VERSION X0.1-2A
! - Fix bug with base 0 conversion diagnosis in OUTNUM
!
! Scott G. Robinson, 13-JUN-79 : VERSION X0.2
! - Make all fatal errors terminate the program
!-----------------------------------------------------------------------
!
! Scott G. Robinson, 3-DEC-79 : Version X2.0
! - Ensure DECnet-10 Compatibility
!
! , : VERSION
! 01 -
!--
!<BLF/PAGE>
!
! TABLE OF CONTENTS:
!
FORWARD ROUTINE
PCRLF : NOVALUE, !PRINT CRLF (GLOBAL)
OUTSTR : NOVALUE, !PRINT STRING (GLOBAL)
OUTNUM : NOVALUE, !PRINT NUMBER
ERR_OUTSTR : NOVALUE, !PRINT STRING WITH EDITING
ERRMSG : NOVALUE; !PRINT ERROR MESSAGE
!
! INCLUDE FILES:
!
! NONE
!
! MACROS:
!
! NONE
!
!
! EQUATED SYMBOLS:
!
! NONE
!
! OWN STORAGE:
!
! NONE
!
! EXTERNAL REFERENCES:
!
EXTERNAL ROUTINE
OUTPUT : NOVALUE, !SEND CHARS TO I/O DEVICE
STOP_PROGRAM : NOVALUE; !TERMINATE PROGRAM EXECUTION
GLOBAL ROUTINE PCRLF (CHAN) : NOVALUE = ! PRINT CRLF
!++
! FUNCTIONAL DESCRIPTION:
!
! PRINT CR AND LF
!
! FORMAL PARAMETERS:
!
! CHAN - THE CHANNEL ON WHICH TO SEND CRLF
!
! IMPLICIT INPUTS:
!
! NONE
!
! IMPLICIT OUTPUTS:
!
! NONE
!
! ROUTINE VALUE:
!
! NONE
!
! SIDE EFFECTS
!
! WRITES A CRLF ON THE INDICATED I/O DEVICE
!
!--
BEGIN
OUTPUT (.CHAN, %O'15');
OUTPUT (.CHAN, %O'12');
END;
GLOBAL ROUTINE OUTSTR (CHAN, MESSAGE) : NOVALUE = !PRINT STRING
!++
! FUNCTIONAL DESCRIPTION:
!
! PRINT A STRING TERMINATED WITH A NULL
!
! FORMAL PARAMETERS:
!
! CHAN - THE CHANNEL OVER WHICH TO SEND THE STRING
! MESSAGE - POINTER TO THE STRING
!
! IMPLICIT INPUTS:
!
! NONE
!
! IMPLICIT OUTPUTS:
!
! NONE
!
! ROUTINE VALUE:
!
! NONE
!
! SIDE EFFECTS
!
! WRITES THE SPECIFIED STRING ON THE I/O DEVICE
!
!--
BEGIN
LOCAL
CHAR,
CHPTR;
!
CHPTR = CH$PTR (.MESSAGE, -1);
DO
BEGIN
CHAR = CH$A_RCHAR (CHPTR);
IF (.CHAR NEQ 0) THEN OUTPUT (.CHAN, .CHAR);
END
UNTIL (.CHAR EQL 0);
END;
GLOBAL ROUTINE OUTNUM (CHAN, VALUE, RADIX, LEN) : NOVALUE = !PRINT A NUMBER
!++
! FUNCTIONAL DESCRIPTION:
!
! PRINT A NUMBER. HANDLES NEGATIVE AND RADIX 2 TO 36.
! PADS WITH LEADING ZEROS IF NECESSARY.
!
! FORMAL PARAMETERS:
!
! CHAN - THE CHANNEL ON WHICH TO SEND THE NUMBER
! VALUE - THE NUMBER TO PRINT
! RADIX - THE PRINT RADIX, USUALLY 8 (OCTAL) OR 10 (DECIMAL).
! LEN - MINIMUM LENGTH OF THE NUMBER, OFTEN 0.
!
! IMPLICIT INPUTS:
!
! NONE
!
! IMPLICIT OUTPUTS:
!
! NONE
!
! ROUTINE VALUE:
!
! NONE
!
! SIDE EFFECTS
!
! SENDS A STRING REPRESENTING THE NUMBER TO THE I/O DEVICE
!
!--
BEGIN
LOCAL
CHAR,
LEN1,
QUOTIENT,
REMAINDER,
VAL;
IF ((.RADIX LSS 2) OR (.RADIX GTR 36))
THEN
BEGIN
OUTSTR (.CHAN, UPLIT (%ASCIZ'??????'));
RETURN;
END;
VAL = .VALUE;
LEN1 = .LEN;
IF (.VAL LSS 0)
THEN
BEGIN
OUTPUT (.CHAN, %C'-');
VAL = -.VAL;
LEN1 = .LEN1 - 1;
END;
QUOTIENT = .VAL/.RADIX;
REMAINDER = .VAL MOD .RADIX;
IF (.QUOTIENT NEQ 0)
THEN
OUTNUM (.CHAN, .QUOTIENT, .RADIX, .LEN1 - 1)
ELSE
!
! APPEND LEADING ZEROS IF NECESSARY
!
WHILE ((LEN1 = .LEN1 - 1) GTR 0) DO
OUTPUT (.CHAN, %C'0');
CHAR = .REMAINDER + %C'0';
IF (.CHAR GTR %C'9') THEN CHAR = .CHAR - %C'9' + %C'A';
OUTPUT (.CHAN, .CHAR);
END;
ROUTINE ERR_OUTSTR !PRINT EDITED STRING
(CHAN, MESSAGE, ARG1, ARG2, ARG3, ARG4, ARG5) : NOVALUE =
!++
! FUNCTIONAL DESCRIPTION:
!
! PRINT AN EDITED STRING. VALUE SUBSTITUTION IS INDICATED BY
! A % IN THE STRING, AS FOLLOWS:
!
! %NX
!
! WHERE N IS THE ARGUMENT (1 TO 5) AND X IS THE FORM.
! FORM A = ASCII, D = DECIMAL, O = OCTAL AND V = SYMBOL VALUE.
! USE %% TO PRINT A PERCENT SIGN.
!
! FORMAL PARAMETERS:
!
! CHAN - THE CHANNEL ON WHICH TO SEND THE EDITED STRING
! MESSAGE - POINTER TO THE STRING TO BE EDITED AND PRINTED
! ARG1:ARG5 - VALUES TO BE SUBSTITUTED INTO THE STRING
! AS NEEDED. ASCII ARGUMENTS ARE POINTERS TO STRINGS;
! OCTAL AND DECIMAL ARE THE VALUES THEMSELVES.
! SYMBOL VALUES ARE PRINTED IN OCTAL, WITH
! SIGN EXTENSION ON THE LOW-ORDER 16 BITS, AND THE
! NEXT HIGHER-ORDER BIT MEANING RELOCATABLE.
! UNUSED ARGUMENTS ARE SET TO ZERO.
!
! IMPLICIT INPUTS:
!
! NONE
!
! IMPLICIT OUTPUTS:
!
! NONE
!
! ROUTINE VALUE:
!
! NONE
!
! SIDE EFFECTS
!
! SENDS EDITED STRING TO I/O DEVICE
!
!--
BEGIN
LOCAL
ARG,
CHAR,
CHPTR,
TEMP_ARG;
!
CHPTR = CH$PTR (.MESSAGE, -1);
DO
BEGIN
CHAR = CH$A_RCHAR (CHPTR);
IF (.CHAR NEQ 0)
THEN
IF (.CHAR NEQ %C'%')
THEN
OUTPUT (.CHAN, .CHAR)
ELSE
BEGIN !SPECIAL REFERENCE TO A SUBSTITUTION ARG
CHAR = CH$A_RCHAR (CHPTR);
IF (.CHAR EQL %C'%')
THEN
OUTPUT (.CHAN, .CHAR)
ELSE
BEGIN
ARG = (CASE .CHAR FROM %C'1' TO %C'5' OF
SET
[%C'1'] : .ARG1;
[%C'2'] : .ARG2;
[%C'3'] : .ARG3;
[%C'4'] : .ARG4;
[%C'5'] : .ARG5;
TES);
CHAR = CH$A_RCHAR (CHPTR);
SELECTONE .CHAR OF
SET
[%C'A'] : !ASCII STRING
OUTSTR (.CHAN, .ARG);
[%C'D'] : !DECIMAL NUMBER
OUTNUM (.CHAN, .ARG, 10, 0);
[%C'O'] : !OCTAL NUMBER
OUTNUM (.CHAN, .ARG, 8, 0);
[%C'V'] : !SYMBOL VALUE
BEGIN
TEMP_ARG = (IF (.ARG<15, 1> EQL 0) THEN 0 ELSE -1); !SIGN EXTEND
TEMP_ARG<0, 15> = .ARG<0, 15>;
OUTNUM (.CHAN, .TEMP_ARG, 8, 0);
IF (.ARG<16, 1> NEQ 0) THEN OUTSTR (.CHAN, UPLIT (%ASCIZ'-R'));
END;
TES;
END; !OF NOT JUST %%
END; !OF % PROCESSING
END
UNTIL (.CHAR EQL 0);
END; !OF ROUTINE ERR_OUTSTR
GLOBAL ROUTINE ERRMSG ! ERROR MESSAGE
(CHAN, ERRNO, ARG1, ARG2, ARG3, ARG4, ARG5) : NOVALUE =
!++
! FUNCTIONAL DESCRIPTION:
!
! PRINT AN ERROR MESSAGE WITH UP TO FIVE VARIABLE ARGUMENTS.
! THE ERROR MESSAGES ARE LISTED IN THE HEAD OF THIS MODULE
! WITH THEIR NUMBERS AND THE MEANING OF EACH ARGUMENT.
! UNUSED ARGUMENTS SHOULD BE SET TO ZERO.
!
! FORMAL PARAMETERS:
!
! CHAN - THE CHANNEL ON WHICH TO SEND THE ERROR MESSAGE
! ERRNO - THE NUMBER OF THE ERROR MESSAGE TO PRINT
! ARG1:ARG5 - THE VARIABLE ARGUMENTS IN THE MESSAGE
!
! IMPLICIT INPUTS:
!
! NONE
!
! IMPLICIT OUTPUTS:
!
! NONE
!
! ROUTINE VALUE:
!
! NONE
!
! SIDE EFFECTS
!
! SENDS AN EDITED STRING TO THE I/O DEVICE.
!
!--
BEGIN
LOCAL
MESSAGE;
!
!
!
! HERE ARE THE ERROR MESSAGES, BY ERROR NUMBER.
! A PERCENT SIGN INDICATES ARGUMENT SUBSTITUTION. THE LETTER
! FOLLOWING THE ARGUMENT NUMBER SPECIFIES THE FORMAT: A = ASCII,
! D = DECIMAL, O = OCTAL, V = SYMBOL VALUE.
! %% PRINTS A PERCENT SIGN.
!
MESSAGE = (CASE .ERRNO FROM 1 TO 40 OF
SET
[1] : UPLIT (%ASCIZ'? Storage exhausted -- %1A'); !
! !ARG 1 = ROUTINE NAME
[2] : UPLIT (%ASCIZ'? Invalid file name: "%2A" -- %1A'); !
! !ARG 1 = ROUTINE NAME,
! ! 2 = FILE NAME
[3] : UPLIT (%ASCIZ'? OPEN UUO failed for %2A -- %1A'); !
! !ARG 1 = ROUTINE NAME,
! ! 2 = FILE NAME
[4] : UPLIT (%ASCIZ'? LOOKUP/ENTER UUO failed for %2A, code = %3O -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = FILE NAME
! ! 3 = ERROR CODE
[5] : UPLIT (%ASCIZ'? I/O DATA ERROR on %2A, status = %3O -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = FILE NAME
! ! 3 = STATUS
[6] : UPLIT (%ASCIZ'? Syntax error in command line: "%2A" -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = COMMAND LINE
[7] : UPLIT (%ASCIZ'? Switches must be associated with a file -- %1A'); !
! !ARG 1 = ROUTINE NAME
[8] : UPLIT (%ASCIZ'? Indirect files nested too deep: "%2A" -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = COMMAND LINE
[9] : UPLIT (%ASCIZ'? Input error or unexpected EOF -- %1A'); !
! !ARG 1 = ROUTINE NAME
[10] : UPLIT (%ASCIZ'%% Badly formatted OBJ file %2A -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = OBJ FILE NAME
[11] : UPLIT (%ASCIZ'%% Checksum error in OBJ file %2A; should be %3O, was %4O -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = OBJECT FILE NAME
! ! 3 = COMPUTED CHECKSUM
! ! 4 = CHECKSUM READ
[12] : UPLIT (%ASCIZ'%% Object file feature is unsupported -- %1A'); !
! !ARG 1 = ROUTINE NAME
[13] : UPLIT (%ASCIZ
'%% Global symbol %1A defined in module %2A with value %3V and in module %4A with value %5V');
! !
! !ARG 1 = SYMBOL NAME
! ! 2 = FIRST MODULE NAME
! ! 3 = FIRST VALUE
! ! 4 = SECOND MODULE NAME
! ! 5 = SECOND VALUE
!
[14] : UPLIT (%ASCIZ'? Complex relocation exceeded stack limit of %3D, file %2A -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = FILE NAME
! ! 3 = STACK LIMIT
!
[15] : UPLIT (%ASCIZ'%% Module %2A multiply defines P-section %3A; flags = %5O, were %4O -- %1A');
!
! !ARG 1 = ROUTINE NAME
! ! 2 = MODULE NAME
! ! 3 = PSECT NAME
! ! 4 = OLD FLAGS
! ! 5 = NEW FLAGS
!
[16] : UPLIT (%ASCIZ'%% Global symbol %1A is undefined'); !
! !ARG 1 = SYMBOL NAME
!
[17] : UPLIT (%ASCIZ'%% Divide by zero when resolving relocation in P-section %2A -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = PSECT NAME
[18] : UPLIT (%ASCIZ'%% Relocation value %3O truncated to 8 bits in P-section %2A -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = PSECT NAME
! ! 3 = VALUE TO BE TRUNCATED
!
[19] : UPLIT (%ASCIZ'? Second %3A file in command string: "%2A" -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = FILE NAME
! ! 3 = ASSUMED TYPE
!
[20] : UPLIT (%ASCIZ'%% Unspecified output file: "%2A", ignored - %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = FILE NAME
!
[21] : UPLIT (%ASCIZ'? No input files -- %1A'); !
! !ARG 1 = ROUTINE NAME
!
[22] : UPLIT (%ASCIZ'%% Partition length of %2O less than task length of %3O -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = PARTITION LENGTH
! ! 3 = TASK LENGTH
!
!
[23] : UPLIT (%ASCIZ'%% Only one module allowed in symbol table file %2A -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = FILE NAME
!
!
[24] : UPLIT (%ASCIZ'? Error in text file %2A -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = FILE NAME
!
[25] : UPLIT (%ASCIZ'? Invalid address %2O in file %3A -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = ADDRESS
! ! 3 = FILE NAME
!
[26] : UPLIT (%ASCIZ'? Cannot find %3D bytes in system pool in %2A -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = FILE NAME
! ! 3 = AMOUNT REQUESTED
!
[27] : UPLIT (%ASCIZ'? Failure freeing %3D bytes at %4O in system pool in %2A, code %5D -- %1A');
! !ARG 1 = ROUTINE NAME
! ! 2 = FILE NAME
! ! 3 = AMOUNT IN BLOCK
! ! 4 = ADDRESS OF BLOCK
! ! 5 = ERROR CODE (SEE LISTING)
!
[28] : UPLIT (%ASCIZ'? 22-bit memory management not supported in %2A -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = FILE NAME
!
[29] : UPLIT (%ASCIZ'? Symbol %2A has conflicting values in %3A and %4A -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = SYMBOL NAME
! ! 3 = SYMBOL TABLE FILE 1
! ! 4 = SYMBOL TABLE FILE 2
!
!
[30] : UPLIT (%ASCIZ'? The Communications Executive has already been loaded into %2A -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = KERNEL FILE NAME
!
[31] : UPLIT (%ASCIZ'? The top of the COMM EXEC is too high: %3O .GT. %4O in %2A -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = FILE NAME
! ! 3 = TOP OF COMM EXEC
! ! 4 = MAX EXEC SIZE
!
[32] : UPLIT (%ASCIZ'%% Global symbol %2A is not defined in %3A -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = SYMBOL NAME
! ! 3 = FILE NAME
!
[33] : UPLIT (%ASCIZ'? Program logical address space (PLAS) is not supported - %1A'); !
! !ARG 1 = ROUTINE NAME
!
[34] : UPLIT (%ASCIZ'? File %2A size of %3D bytes is larger than max of %4D - %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = FILE NAME
! ! 3 = FILE SIZE
! ! 4 = MAX SIZE
[35] : UPLIT (%ASCIZ'? Loading library file %2A overflowed network pool by %3D bytes -- $1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = LIBRARY NAME
! ! 3 = OVERFLOW AMOUNT
!
[36] : UPLIT (%ASCIZ'? DDM %2A is unknown -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = DDM NAME
!
[37] : UPLIT (%ASCIZ'? DCP %2A is unknown -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = DLC NAME
!
[38] : UPLIT (%ASCIZ'? LLC %2A is unknown -- %1A'); !
! !ARG 1 = ROUTINE NAME
! ! 2 = LLC NAME
!
[39] : UPLIT (%ASCIZ'? Invalid %2A - %3D found -- %1A'); !
! !ARG 1 = Routine Name
! !ARG 2 = Type of construct in error
! !ARG 3 = Value of construct
!
[40] : UPLIT (%ASCIZ'? Invalid %2A %3A %4A %5O -- %1A');
!
[INRANGE] : UPLIT (%ASCIZ'? Invalid error'); !ERROR MSG HAS NO TEXT
[OUTRANGE] : UPLIT (%ASCIZ'? Illegal error'); !ERROR NUMBER OUT OF RANGE
TES);
PCRLF (.CHAN);
ERR_OUTSTR (.CHAN, .MESSAGE, .ARG1, .ARG2, .ARG3, .ARG4, .ARG5);
!
! DETERMINE PROCESSING OF ERROR:
! NON-FATAL = CONTINUE PROCESSING
! FATAL = TERMINATE PROGRAM
!
CASE .ERRNO FROM 1 TO 40 OF
SET
[1 TO 9, 14, 19, 21, 24 TO 31, 33 TO 40, OUTRANGE] :
BEGIN
PCRLF (.CHAN);
OUTSTR (.CHAN, UPLIT (%ASCIZ'?Terminating - No Recovery Available for Previous Error'));
STOP_PROGRAM ();
END;
[INRANGE] :
;
TES;
END;
!
END
ELUDOM
! Local Modes:
! Comment Start:!
! Mode:Fundamental
! Auto Save Mode:2
! Comment Column:36