[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$CVT_ROUTINES; { © Copyright 2005 Hewlett-Packard Development Company, L.P. } { } { Confidential computer software. Valid license from HP and/or } { its subsidiaries required for possession, use, or copying. } { } { Consistent with FAR 12.211 and 12.212, Commercial Computer Software, } { Computer Software Documentation, and Technical Data for Commercial } { Items are licensed to the U.S. Government under vendor's standard } { commercial license. } { } { Neither HP nor any of its subsidiaries shall be liable for technical } { or editorial errors or omissions contained herein. The information } { in this document is provided "as is" without warranty of any kind and } { is subject to change without notice. The warranties for HP products } { are set forth in the express limited warranty statements accompanying } { such products. Nothing herein should be construed as constituting an } { additional warranty. } { } [HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END; $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP; $BOOL = [BIT(1),UNSAFE] BOOLEAN; $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511; $BIT10 = [BIT(10),UNSAFE] 0..1023; $BIT11 = [BIT(11),UNSAFE] 0..2047; $BIT12 = [BIT(12),UNSAFE] 0..4095; $BIT13 = [BIT(13),UNSAFE] 0..8191; $BIT14 = [BIT(14),UNSAFE] 0..16383; $BIT15 = [BIT(15),UNSAFE] 0..32767; $BIT16 = [BIT(16),UNSAFE] 0..65535; $BIT17 = [BIT(17),UNSAFE] 0..131071; $BIT18 = [BIT(18),UNSAFE] 0..262143; $BIT19 = [BIT(19),UNSAFE] 0..524287; $BIT20 = [BIT(20),UNSAFE] 0..1048575; $BIT21 = [BIT(21),UNSAFE] 0..2097151; $BIT22 = [BIT(22),UNSAFE] 0..4194303; $BIT23 = [BIT(23),UNSAFE] 0..8388607; $BIT24 = [BIT(24),UNSAFE] 0..16777215; $BIT25 = [BIT(25),UNSAFE] 0..33554431; $BIT26 = [BIT(26),UNSAFE] 0..67108863; $BIT27 = [BIT(27),UNSAFE] 0..134217727; $BIT28 = [BIT(28),UNSAFE] 0..268435455; $BIT29 = [BIT(29),UNSAFE] 0..536870911; $BIT30 = [BIT(30),UNSAFE] 0..1073741823; $BIT31 = [BIT(31),UNSAFE] 0..2147483647; $BIT32 = [BIT(32),UNSAFE] UNSIGNED; (* MODULE CVT$ROUTINES ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE cvt$routines ***) (*************************************************************************** *) (* *) (* Copyright (c) 1993,1994 *) (* 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 *) (* 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. *) (* *) (*************************************************************************** *) (* CVT$CONVERT_FLOAT *) (* *) (* Convert floating point data types. *) (* *) (* The CVT$CONVERT_FLOAT converts floating point data types to other *) (* supported floating point data types. *) (* *) [ASYNCHRONOUS] FUNCTION cvt$convert_float ( %REF input_value : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED input_type_code : UNSIGNED; %REF output_value : [VOLATILE,UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE; %IMMED output_type_code : UNSIGNED; %IMMED options : UNSIGNED) : INTEGER; EXTERNAL; [ASYNCHRONOUS] FUNCTION CVT$FTOF ( %REF input_value : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED input_type_code : INTEGER; %REF output_value : [VOLATILE,UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE; %IMMED output_type_code : INTEGER; %IMMED options : INTEGER) : INTEGER; EXTERNAL; (* END. *) (* MODULE CVTDEF ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $cvtdef ***) CONST CVT$K_VAX_F = 0; (* VAX F Floating point data *) CVT$K_VAX_D = 1; (* VAX D Floating point data *) CVT$K_VAX_G = 2; (* VAX G Floating point data *) CVT$K_VAX_H = 3; (* VAX H Floating point data *) CVT$K_IEEE_S = 4; (* IEEE S Floating point data *) CVT$K_IEEE_T = 5; (* IEEE T Floating point data *) CVT$K_IBM_LONG = 6; (* IBM Long Floating point data *) CVT$K_IBM_SHORT = 7; (* IBM Short Floating point data *) CVT$K_CRAY = 8; (* Cray Floating point data *) CVT$K_IEEE_X = 9; (* IEEE X Floating point data *) CVT$K_BIG_ENDIAN_IEEE_S = 10; (* IEEE S Floating point data *) CVT$K_BIG_ENDIAN_IEEE_T = 11; (* IEEE S Floating point data *) CVT$K_BIG_ENDIAN_IEEE_X = 12; (* IEEE S Floating point data *) CVT$K_CRAY_SINGLE = 8; (* *) (* Function Return Status Values: *) (* *) CONST CVT$K_NORMAL = 0; CVT$M_INVALID_INPUT_TYPE = 1; CVT$M_INVALID_OUTPUT_TYPE = 2; CVT$M_INVALID_OPTION = 4; CVT$M_RESULT_INFINITE = 8; CVT$M_RESULT_DENORMALIZED = 16; CVT$M_RESULT_OVERFLOW_RANGE = 32; CVT$M_RESULT_UNDERFLOW_RANGE = 64; CVT$M_RESULT_UNNORMALIZED = 128; CVT$M_RESULT_INVALID = 256; CVT$M_RESULT_OVERFLOW = 512; CVT$M_RESULT_UNDERFLOW = 1024; CVT$M_RESULT_INEXACT = 2048; TYPE CVT$R_RETURN_STATUS = RECORD CVT$V_INVALID_INPUT_TYPE : [POS(0)] $BOOL; CVT$V_INVALID_OUTPUT_TYPE : [POS(1)] $BOOL; CVT$V_INVALID_OPTION : [POS(2)] $BOOL; CVT$V_RESULT_INFINITE : [POS(3)] $BOOL; CVT$V_RESULT_DENORMALIZED : [POS(4)] $BOOL; CVT$V_RESULT_OVERFLOW_RANGE : [POS(5)] $BOOL; CVT$V_RESULT_UNDERFLOW_RANGE : [POS(6)] $BOOL; CVT$V_RESULT_UNNORMALIZED : [POS(7)] $BOOL; CVT$V_RESULT_INVALID : [POS(8)] $BOOL; CVT$V_RESULT_OVERFLOW : [POS(9)] $BOOL; CVT$V_RESULT_UNDERFLOW : [POS(10)] $BOOL; CVT$V_RESULT_INEXACT : [POS(11)] $BOOL; CVT$V_FILL_0_ : [POS(12)] $BIT4; END; (* *) (* Conversion Options: *) (* *) CONST CVT$M_ROUND_TO_NEAREST = 1; CVT$M_TRUNCATE = 2; CVT$M_ROUND_TO_POS = 4; CVT$M_ROUND_TO_NEG = 8; CVT$M_VAX_ROUNDING = 16; CVT$M_BIG_ENDIAN = 32; CVT$M_ERR_UNDERFLOW = 64; CVT$M_FORCE_INVALID_TO_ZERO = 128; CVT$M_FORCE_DENORM_TO_ZERO = 256; CVT$M_FORCE_INF_TO_MAX_FLOAT = 512; CVT$M_FORCE_ALL_SPECIAL_VALUES = 1024; CVT$M_ALLOW_OVRFLW_RANGE_VALUES = 2048; CVT$M_ALLOW_UDRFLW_RANGE_VALUES = 4096; CVT$M_ALLOW_UNNORMALIZED_VALUES = 8192; CVT$M_REPORT_ALL = 16384; CVT$m_spare2 = -32768; TYPE CVT$R_CONVERSION_OPTIONS = RECORD (* *) (* Rounding Mode Options: *) (* *) CVT$V_ROUND_TO_NEAREST : [POS(0)] $BOOL; CVT$V_TRUNCATE : [POS(1)] $BOOL; CVT$V_ROUND_TO_POS : [POS(2)] $BOOL; CVT$V_ROUND_TO_NEG : [POS(3)] $BOOL; CVT$V_VAX_ROUNDING : [POS(4)] $BOOL; (* *) (* Options exclusive to CVT$CONVERT_FLOAT *) (* *) CVT$V_BIG_ENDIAN : [POS(5)] $BOOL; CVT$V_ERR_UNDERFLOW : [POS(6)] $BOOL; (* *) (* Forcing Results Options: *) (* *) CVT$V_FORCE_INVALID_TO_ZERO : [POS(7)] $BOOL; CVT$V_FORCE_DENORM_TO_ZERO : [POS(8)] $BOOL; CVT$V_FORCE_INF_TO_MAX_FLOAT : [POS(9)] $BOOL; CVT$V_FORCE_ALL_SPECIAL_VALUES : [POS(10)] $BOOL; (* *) (* Allowing Special Results Options: *) (* *) CVT$V_ALLOW_OVRFLW_RANGE_VALUES : [POS(11)] $BOOL; CVT$V_ALLOW_UDRFLW_RANGE_VALUES : [POS(12)] $BOOL; CVT$V_ALLOW_UNNORMALIZED_VALUES : [POS(13)] $BOOL; (* *) (* Status Selection Options: *) (* *) CVT$V_REPORT_ALL : [POS(14)] $BOOL; (* *) (* Everything else. *) (* *) CVT$v_spare2 : [POS(15)] $BIT17; END; CONST CVT$M_ALT_ROUND_TO_NEAREST = 1; CVT$M_ROUND_TO_ZERO = 2; CVT$M_ALT_ROUND_TO_POS = 4; CVT$M_ALT_ROUND_TO_NEG = 8; CVT$M_BIASED_ROUNDING = 16; CVT$m_spare3 = -32; TYPE CVT$R_ALT_CONVERSION_OPTIONS = RECORD (* *) (* Rounding Mode Options: *) (* *) CVT$V_ALT_ROUND_TO_NEAREST : [POS(0)] $BOOL; CVT$V_ROUND_TO_ZERO : [POS(1)] $BOOL; CVT$V_ALT_ROUND_TO_POS : [POS(2)] $BOOL; CVT$V_ALT_ROUND_TO_NEG : [POS(3)] $BOOL; CVT$V_BIASED_ROUNDING : [POS(4)] $BOOL; CVT$v_spare3 : [POS(5)] $BIT27; END; (* END. *) (* MODULE CVTMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $CVTMSG ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.81 *) (* *) (* *) (***************************************************************************** *) (** * *) (** COPYRIGHT (C) 1991 * *) (** 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 * *) (** 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. * *) (** * *) (***************************************************************************** *) (*============================================================================ *) (* *) (* FILE: CVTMSG.MSG *) (* *) (* VERSION: 1-001 *) (* *) (* FACILITY: CVTRTL - VMS CONVERSION RUN TIME LIBRARY *) (* *) (* ABSTRACT: MESSAGE DEFINITIONS FOR THE CVT FACILITY. *) (* *) (* AUTHOR: JEFFREY S. YOUNG *) (* *) (* CREATION DATE: 25-JUN-1991 *) (* *) (* MODIFICATION HISTORY: *) (* -------------------------------------------------------------------------- *) (* 1-001 25-JUN-1991 JSY ORIGINAL VERSION. *) (* *) (*============================================================================ *) (*============================================================================ *) (* *) (* SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: *) (* *) (* CVT$_ABCMNOXYZ *) (* *) (* IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno", *) (* AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR *) (* MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. *) (* *) (* THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR *) (* IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. *) (* *) (*============================================================================ *) (* *) CONST CVT$_FACILITY = 1530; CVT$_NORMAL = 100302857; CVT$_INPCONERR = 100302866; CVT$_INVINPTYP = 100302874; CVT$_INVOPT = 100302882; CVT$_INVOUTTYP = 100302890; CVT$_INVVAL = 100302898; CVT$_NEGINF = 100302906; CVT$_OUTCONERR = 100302914; CVT$_OVERFLOW = 100302922; CVT$_POSINF = 100302930; CVT$_UNDERFLOW = 100302938; (* END. *) END.