[PEN_CHECKING_STYLE(NONE)] MODULE PASCAL$DTK_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 DTK$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 dtk$routines ***) (**************************************************************************** *) (* * *) (* COPYRIGHT (c) 1988 BY * *) (* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *) (* ALL RIGHTS RESERVED. * *) (* * *) (* 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. * *) (* * *) (* * *) (**************************************************************************** *) (* DTK$ANSWER_PHONE *) (* *) (* Wait for Phone to Ring and Answer *) (* *) (* The Wait for Phone to Ring and Answer routine *) (* waits for the phone connected to the DECtalk device to ring *) (* and then answers it. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$answer_phone ( voice_id : UNSIGNED; number_of_rings : INTEGER := %IMMED 0; text : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; timeout : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* DTK$CHECK_HDWR_STATUS *) (* *) (* Check Hardware Status *) (* *) (* The Check Hardware Status routine checks the DECtalk hardware for hardware *) (* malfunctions. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$check_hdwr_status ( voice_id : UNSIGNED; VAR hdwr_status : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; (* DTK$DIAL_PHONE *) (* *) (* Dial the Telephone *) (* *) (* The Dial the Telephone routine dials the specified number on the telephone. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$dial_phone ( voice_id : UNSIGNED; phone_number : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; dial_mode : UNSIGNED := %IMMED 0; text : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0; timeout : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* DTK$HANGUP_PHONE *) (* *) (* Hang Up the Phone *) (* *) (* The Hang Up the Phone routine speaks an optional message and *) (* then hangs up the phone. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$hangup_phone ( voice_id : UNSIGNED; text : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; (* DTK$INITIALIZE *) (* *) (* Initialize DECtalk *) (* *) (* The Initialize DECtalk routine initializes a DECtalk device and returns the device's assigned *) (* voice identifier. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$initialize ( VAR voice_id : [VOLATILE] UNSIGNED; output_device : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; VAR device_type : [VOLATILE] INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* DTK$LOAD_DICTIONARY *) (* *) (* Load a Word into the DECtalk Dictionary *) (* *) (* The Load a Word into the DECtalk Dictionary routine *) (* loads a phonemic definition of a word into the DECtalk *) (* dictionary. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$load_dictionary ( voice_id : UNSIGNED; text : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; substitution : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR) : INTEGER; EXTERNAL; (* DTK$READ_KEYSTROKE *) (* *) (* Read a Key Entered on the Keypad *) (* *) (* The Read a Key Entered on the Keypad routine *) (* reads a key entered on the phone keypad. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$read_keystroke ( voice_id : UNSIGNED; VAR key_code : [VOLATILE] INTEGER; prompt_string : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; timeout : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* DTK$READ_STRING *) (* *) (* Read a Series of Keys Entered on the Keypad *) (* *) (* The Read a Series of Keys Entered on the Keypad routine reads a *) (* series of keys entered on the phone keypad. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$read_string ( voice_id : UNSIGNED; VAR resultant_string : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; prompt_string : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; timeout : INTEGER := %IMMED 0; VAR longword_integer_termin_code : [VOLATILE] INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* DTK$RETURN_LAST_INDEX *) (* *) (* Return Last Index Spoken *) (* *) (* The Return Last Index Spoken routine returns the last index spoken. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$return_last_index ( voice_id : UNSIGNED; VAR p_index : [VOLATILE] INTEGER) : INTEGER; EXTERNAL; (* DTK$SPELL_TEXT *) (* *) (* Spell Text *) (* *) (* The Spell Text routine causes DECtalk to pronounce each letter of *) (* the specified text. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$spell_text ( voice_id : UNSIGNED; text : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; completion_mode : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* DTK$SPEAK_FILE *) (* *) (* Speak the Text in a Specified File *) (* *) (* The Speak the Text in a Specified File routine *) (* speaks the text contained in the specified file. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$speak_file ( voice_id : UNSIGNED; filespec : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; completion_mode : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* DTK$SPEAK_PHONEMIC_TEXT *) (* *) (* Speak the Specified Phonemic Text *) (* *) (* The Speak the Specified Phonemic Text routine *) (* sends the specified phonemic text to the DECtalk device *) (* to be spoken. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$speak_phonemic_text ( voice_id : UNSIGNED; text : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; completion_mode : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* DTK$SPEAK_TEXT *) (* *) (* Speak the Specified Text *) (* *) (* The Speak the Specified Text routine *) (* sends the specified text to the DECtalk device *) (* to be spoken. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$speak_text ( voice_id : UNSIGNED; text : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; completion_mode : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* DTK$SET_INDEX *) (* *) (* Insert an Index at the Current Position *) (* *) (* The Insert an Index at the Current Position routine *) (* inserts an index into the current output stream. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$set_index ( voice_id : UNSIGNED; p_index : INTEGER) : INTEGER; EXTERNAL; (* DTK$SET_KEYPAD_MODE *) (* *) (* Turn the Phone Keypad On and Off *) (* *) (* The Turn the Phone Keypad On and Off routine turns recognition *) (* of the telephone keypad on or off. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$set_keypad_mode ( voice_id : UNSIGNED; keypad_mode : UNSIGNED) : INTEGER; EXTERNAL; (* DTK$SET_LOGGING_MODE *) (* *) (* Set the Logging Mode for the Video Terminal Connected to the DECtalk Device *) (* *) (* The Set the Logging Mode for the Video Terminal *) (* Connected to the DECtalk Device routine *) (* controls the information that is displayed on the video *) (* terminal while the DECtalk device is functioning. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$set_logging_mode ( voice_id : UNSIGNED; new_mode : UNSIGNED := %IMMED 0; VAR old_mode : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* DTK$SET_MODE *) (* *) (* Set the Mode for the DECtalk Terminal *) (* *) (* The Set the Mode for the DECtalk Terminal routine *) (* sets or resets the mode settings of the DECtalk terminal. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$set_mode ( voice_id : UNSIGNED; new_mode : UNSIGNED := %IMMED 0; VAR old_mode : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* DTK$SET_SPEECH_MODE *) (* *) (* Turn Speech Mode On and Off *) (* *) (* The Turn Speech Mode On and Off routine *) (* either starts or stops the DECtalk device's speech. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$set_speech_mode ( voice_id : UNSIGNED; new_mode : UNSIGNED; VAR old_mode : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* DTK$SET_TERMINAL_MODE *) (* *) (* Set the Mode for the Video Terminal Connected to the DECtalk Device *) (* *) (* The Set the Mode for the Video Terminal *) (* Connected to the DECtalk Device routine *) (* controls the attributes of the video terminal connected *) (* to the DECtalk device. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$set_terminal_mode ( voice_id : UNSIGNED; new_mode : UNSIGNED := %IMMED 0; VAR old_mode : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* DTK$SET_VOICE *) (* *) (* Set Voice Characteristics *) (* *) (* The Set Voice Characteristics routine *) (* changes the DECtalk voice characteristics to match those *) (* specified. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$set_voice ( voice_id : UNSIGNED; new_voice : INTEGER := %IMMED 0; speech_rate : INTEGER := %IMMED 0; comma_pause : UNSIGNED := %IMMED 0; period_pause : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* DTK$TERMINATE *) (* *) (* Terminate DECtalk *) (* *) (* The Terminate DECtalk routine terminates the use of an initialized DECtalk *) (* device. *) (* *) [ASYNCHRONOUS] FUNCTION dtk$terminate ( voice_id : UNSIGNED) : INTEGER; EXTERNAL; (* END. *) (* MODULE DTKDEF ; *) (* [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 $DTKDEF ***) (* Definitions for RTL DECtalk Management *) (* *) (* Phone keypad keys. *) (* *) CONST DTK$K_TRM_ZERO = 48; DTK$K_TRM_ONE = 49; DTK$K_TRM_TWO = 50; DTK$K_TRM_THREE = 51; DTK$K_TRM_FOUR = 52; DTK$K_TRM_FIVE = 53; DTK$K_TRM_SIX = 54; DTK$K_TRM_SEVEN = 55; DTK$K_TRM_EIGHT = 56; DTK$K_TRM_NINE = 57; DTK$K_TRM_A = 65; DTK$K_TRM_B = 66; DTK$K_TRM_C = 67; DTK$K_TRM_D = 68; DTK$K_TRM_NUMBER_SIGN = 35; DTK$K_TRM_ASTERISK = 42; (* Conditions *) CONST DTK$K_TRM_CANCELLED = 508; (* I/O cancelled *) DTK$K_TRM_TIMEOUT = 509; (* Timeout period expired *) DTK$K_TRM_BUFFER_FULL = 510; (* Buffer is full *) DTK$K_TRM_UNKNOWN = 511; (* Unknown terminator *) (* *) (* Self-test constants. *) (* *) CONST DTK$K_TEST_POWER = 1; DTK$K_TEST_HDATA = 2; DTK$K_TEST_HCONTROL = 3; DTK$K_TEST_DATA = 4; DTK$K_TEST_SPEAK = 5; (* *) (* Phone dialing constants. *) (* *) CONST DTK$K_DIAL_TONE = 0; DTK$K_DIAL_PULSE = 1; (* *) (* DECtalk types. *) (* *) CONST DTK$K_DTC_UNKNOWN = 0; DTK$K_DTC_01 = 1; DTK$K_DTC_03 = 2; (* *) (* Keypad modes. *) (* *) CONST DTK$K_KEYPAD_OFF = 0; DTK$K_KEYPAD_ON = 1; DTK$K_KEYPAD_AUTO = 2; (* *) (* Voices. *) (* *) CONST DTK$K_VOICE_MALE = 0; DTK$K_VOICE_FEMALE = 1; DTK$K_VOICE_CHILD = 2; DTK$K_VOICE_DEEP_MALE = 3; DTK$K_VOICE_DEEP_FEMALE = 4; DTK$K_VOICE_OLDER_MALE = 5; DTK$K_VOICE_LIGHT_FEMALE = 6; (* *) (* Speaking modes. *) (* *) CONST DTK$K_SPEAK = 0; DTK$K_STOP = 1; DTK$K_HALT = 2; (* *) (* Return modes. *) (* *) CONST DTK$K_IMMED = 0; (* Return immedately after sending text. *) DTK$K_WAIT = 1; (* Wait until text is completely spoken be returning. *) DTK$K_STATUS = 2; (* Wait for text to be spoken and return phone status. *) (* *) (* DEFINE BIT MASKS AND VALUES FOR MODE ATTRIBUTES *) (* *) CONST DTK$M_SQUARE = 1; DTK$M_ASCII = 2; DTK$M_MINUS = 4; DTK$M_EUROPE = 8; DTK$M_SPELL = 16; DTK$M_NORMAL = 0; (* no bits set *) DTK$K_SQUARE = 0; (* Mode square bitvector index *) DTK$K_ASCII = 1; (* asky mode *) DTK$K_MINUS = 2; (* Say dash as minus bitvector index *) DTK$K_EUROPE = 3; (* European type numbers *) DTK$K_SPELL = 4; (* Spell all words *) DTK$M_HOST = 1; DTK$M_SPEAK_ALL = 2; DTK$M_EDITED = 4; DTK$M_HARD = 8; DTK$M_SETUP = 16; DTK$M_FILTER = 32; DTK$K_HOST = 0; (* Send all chars typed to host. *) DTK$K_SPEAK_ALL = 1; (* Speak all chars typed. *) DTK$K_EDITED = 2; (* Line edit all chars typed. *) DTK$K_HARD = 3; (* Do local echo in hardcopy format. *) DTK$K_SETUP = 4; (* Speak all chars displayed in setup mode. *) DTK$K_FILTER = 5; (* Don't send DECtalk specific sequences. *) DTK$M_TEXT = 1; DTK$M_PHONEME = 2; DTK$M_RAWHOST = 4; DTK$M_INHOST = 8; DTK$M_OUTHOST = 16; DTK$M_ERROR = 32; DTK$M_TRACE = 64; DTK$M_DEBUG = 128; DTK$K_TEXT = 0; (* Log ASCII text. *) DTK$K_PHONEME = 1; (* Log phonemic text. *) DTK$K_RAWHOST = 2; (* Log all chars without inspection. *) DTK$K_INHOST = 3; (* Log text read from host. *) DTK$K_OUTHOST = 4; (* Log text sent to host. *) DTK$K_ERROR = 5; (* Log error messages. *) DTK$K_TRACE = 6; (* Log sequences symbolically *) DTK$K_DEBUG = 7; (* Reserved *) TYPE DTK$TYPE = RECORD CASE INTEGER OF (* *) (* DEFINE BITS, MASKS, AND FIELDS FOR THE CONTROL MODES. *) (* *) 1: (DTK$R_DTKMODE_BITS : [BYTE(1)] RECORD END; ); 2: (DTK$V_SQUARE : [POS(0)] $BOOL; (* Set mode square on *) DTK$V_ASCII : [POS(1)] $BOOL; (* asky mode *) DTK$V_MINUS : [POS(2)] $BOOL; (* Say dash as minus *) DTK$V_EUROPE : [POS(3)] $BOOL; (* Europe *) DTK$V_SPELL : [POS(4)] $BOOL; (* Spell all words *) ); 3: (DTK$R_DTKTERM_BITS : [BYTE(1)] RECORD END; ); 4: (DTK$V_HOST : [POS(0)] $BOOL; (* Send all chars typed to host. *) DTK$V_SPEAK_ALL : [POS(1)] $BOOL; (* Speak all chars typed. *) DTK$V_EDITED : [POS(2)] $BOOL; (* Line edit all chars typed. *) DTK$V_HARD : [POS(3)] $BOOL; (* Do local echo in hardcopy format. *) DTK$V_SETUP : [POS(4)] $BOOL; (* Speak all chars displayed in setup mode. *) DTK$V_FILTER : [POS(5)] $BOOL; (* Don't send DECtalk specific sequences. *) ); 5: (DTK$R_DTKLOG_BITS : [BYTE(1)] RECORD END; ); 6: (DTK$V_TEXT : [POS(0)] $BOOL; (* Log ASCII text. *) DTK$V_PHONEME : [POS(1)] $BOOL; (* Log phonemic text. *) DTK$V_RAWHOST : [POS(2)] $BOOL; (* Log all chars without inspection. *) DTK$V_INHOST : [POS(3)] $BOOL; (* Log text read from host. *) DTK$V_OUTHOST : [POS(4)] $BOOL; (* Log text sent to host. *) DTK$V_ERROR : [POS(5)] $BOOL; (* Log error messages. *) DTK$V_TRACE : [POS(6)] $BOOL; (* Log sequences symbolically *) DTK$V_DEBUG : [POS(7)] $BOOL; (* Reserved *) ) END; (* END. *) (* MODULE DTKMSG ; *) (* [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 $DTKMSG ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:27:58.87 *) (* *) (* FILE: DTKMSG.MSG EDIT: TS1004 *) (* *) (***************************************************************************** *) (** * *) (** COPYRIGHT (C) 1978, 1980, 1982, 1984, 1985, 1986, 1987, 1988 BY * *) (** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *) (** ALL RIGHTS RESERVED. * *) (** * *) (** 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. * *) (** * *) (** * *) (***************************************************************************** *) (* *) (* *) (* 1-004 ADD DSR STATUS MESSAGES. TS 29-AUG-1986 *) (* 1-003 ADD /MACRO=$DTKMSG FOR STARLETSD. TS 30-JUL-1986 *) (* 1-002 ADD DTK$_TLKINUSE. TS 10-APR-1986 *) (* 1-001 ORIGINAL. TS 6-AUG-1985 *) (*- *) (*+ *) (* SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: *) (* *) (* DTK$_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. *) (* *) (* MACRO-32 PROGRAMMING: *) (* *) (* THE MACROS CALL: *) (* *) (* $DTKDEF *) (* *) (* WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE. *) (* THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL; *) (* THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. *) (* *) (*- *) (* TEMPLATE FOR DOCUMENTING MESSAGES. *) (* EACH EXPLANATION FOLLOWS THE MESSAGE IT APPLIES TO AND *) (* IS FOLLOWED BY A BLANK LINE. *) (* BE SURE NOT TO USE THE SEQUENCE "++" AFTER A "!" IN REGULAR COMMENTS *) (* AS THIS SEQUENCE BEGINS A DOCUMENTATION SEQUENCE AND CAN BE *) (* SEARCHED FOR IF AND WHEN THE PROCESS OF EXTRACTING THE *) (* DOCUMENTATION BECOMES AUTOMATED. *) (*++ *) (* FACILITY: DTK *) (* EXPLANATION: X *) (* USER ACTION: Y *) (*-- *) (* ; SET LH TO 419 (DECIMAL). *) CONST DTK$_FACILITY = 419; DTK$_NORMAL = 27492353; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: NORMAL SUCCESSFUL COMPLETION. *) (* USER ACTION: NONE *) (*-- *) CONST DTK$_VOIALREXI = 27492369; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: A USER TRIED TO CREATE A NEW VOICE_ID FOR A DECTALK *) (* DEVICE, WHEN ONE ALREADY EXISTS. THIS IS NORMAL IN *) (* A MODULAR ENVIRONMENT. THE EXISTING VOICE ID *) (* IS RETURNED. *) (* USER ACTION: NONE. MAKE SURE YOU DON'T DELETE A VOICE_ID *) (* THAT YOU ACTUALLY DIDN'T CREATE. *) (*-- *) CONST DTK$_NOT_A_TRM = 27492377; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT *) (* THE OUTPUT DEVICE IS NOT A TERMINAL. *) (* USER ACTION: NONE. *) (*-- *) (*+ *) (* NOTE:: DO NOT ADD ANY ADDITIONAL SUCCESS MESSAGES HERE. *) (* ADD THEM BELOW AFTER THE REMAINING .SUCCESS MESSAGES. *) (*- *) CONST DTK$_BUSY = 27492387; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: THE ROUTINE DTK$DIAL_PHONE WAS CALLED TO DIAL A PHONE *) (* NUMBER AND THE LINE WAS BUSY. *) (* USER ACTION: TRY CALLING AGAIN. *) (*-- *) CONST DTK$_NOANSWER = 27492395; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: THE ROUTINE DTK$DIAL_PHONE WAS CALLED TO DIAL A PHONE *) (* NUMBER AND NO ONE ANSWERED THE CALL. *) (* USER ACTION: TRY CALLING AGAIN. *) (*-- *) CONST DTK$_NODIATONE = 27492403; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: THE ROUTINE DTK$DIAL_PHONE WAS CALLED TO DIAL A PHONE *) (* NUMBER AND NO DIAL TONE WAS DETECTED ON THE *) (* PHONE LINE. *) (* USER ACTION: CORRECT THE TELEPHONE LINE PROBLEM AND CALL AGAIN. *) (*-- *) CONST DTK$_OFFHOOK = 27492411; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT *) (* THE PHONE IS OFFHOOK (A CALL IS ACTIVE). *) (* USER ACTION: NONE. *) (*-- *) CONST DTK$_ONHOOK = 27492419; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT *) (* THE PHONE IS ONHOOK (NO CALL IS ACTIVE). *) (* USER ACTION: NONE. *) (*-- *) CONST DTK$_TIMEOUT = 27492427; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT *) (* THE OUTPUT DEVICE HAS TIMED OUT. *) (* USER ACTION: NONE. *) (*-- *) CONST DTK$_WINK = 27492435; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: A WINK (POSSIBLE TIMEOUT) WAS DETECTED ON THE *) (* PHONE LINE. THE CALLER MAY HAVE HUNG UP THE PHONE. *) (* USER ACTION: NONE. *) (*-- *) CONST DTK$_COMFAIL = 27492443; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: A COMMUNICATIONS MALFUNCTION HAS OCCURRED SINCE THE *) (* DECTALK UNIT WAS TURNED ON. *) (* USER ACTION: CHECK THE DECTALK HARDWARE. *) (*-- *) CONST DTK$_INPBUFOVR = 27492451; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: AN INPUT BUFFER OVERFLOW MALFUNCTION HAS OCCURRED SINCE *) (* THE DECTALK UNIT WAS TURNED ON. *) (* USER ACTION: CHECK THE DECTALK HARDWARE. *) (*-- *) CONST DTK$_NVROPRFAI = 27492459; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: A NVR OPERATION FAILURE HAS OCCURRED SINCE *) (* THE DECTALK UNIT WAS TURNED ON. *) (* USER ACTION: CHECK THE DECTALK HARDWARE. *) (*-- *) CONST DTK$_ERRPHOTRA = 27492467; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: A PHONEMIC TRANSCRIPTION MALFUNCTION HAS OCCURRED SINCE *) (* THE DECTALK UNIT WAS TURNED ON. *) (* USER ACTION: CHECK THE DECTALK HARDWARE. *) (*-- *) CONST DTK$_CONSEQERR = 27492475; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: A DECTALK PRIVATE CONTROL SEQUENCE MALFUNCTION HAS *) (* OCCURRED SINCE THE DECTALK UNIT WAS TURNED ON. *) (* USER ACTION: CHECK THE DECTALK HARDWARE. *) (*-- *) CONST DTK$_DECTSTFAI = 27492483; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: A LOCAL SELF-TEST MALFUNCTION HAS OCCURRED SINCE *) (* THE DECTALK UNIT WAS TURNED ON. *) (* USER ACTION: CHECK THE DECTALK HARDWARE. *) (*-- *) CONST DTK$_FATERRLIB = 27492868; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: AN INTERNAL ERROR HAS OCCURED WITHIN DTK. *) (* USER ACTION: SUBMIT AN SPR DESCRIBING THE PROBLEM. *) (*-- *) CONST DTK$_FILTOOLON = 27492876; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: THE LENGTH OF THE SPECIFIED STRING *) (* WAS TOO LONG. *) (* USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS A FILE *) (* NAME OF 255 CHARACTERS OR LESS. *) (*-- *) CONST DTK$_INVARG = 27492884; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: THE VALUE OF SOME ARGUMENT IS NOT IN THE CORRECT RANGE. *) (* USER ACTION: EXAMINE EACH ARGUMENT. DETERMINE WHICH ONE IS *) (* OUT OF RANGE AND CORRECT YOUR PROGRAM. *) (*-- *) CONST DTK$_INVMODE = 27492892; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: THE VALUE OF THE MODE ARGUMENT IS NOT IN THE *) (* CORRECT RANGE. *) (* USER ACTION: EXAMINE THE ARGUMENT. DETERMINE WHAT IS *) (* OUT OF RANGE AND CORRECT YOUR PROGRAM. *) (*-- *) CONST DTK$_INVVOI_ID = 27492900; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: AN INVALID VOICE-ID WAS SPECIFIED. *) (* USER ACTION: CHECK THAT YOU ARE PASSING THE VOICE ID BY REFERENCE *) (* NOT BY VALUE. ENSURE THAT THE VOICE ID WAS *) (* PREVIOUSLY SET UP BY A CALL TO DTK$INITIALIZE. *) (*-- *) CONST DTK$_NOROOM = 27492908; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: THERE IS NO ROOM LEFT IN THE DICTIONARY FOR THIS *) (* DEFINITION. *) (* USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS FEWER *) (* DICTIONARY ENTRIES OR SO THAT EACH ENTRY IS SMALLER. *) (*-- *) CONST DTK$_NOTIMP = 27492916; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: YOU TRIED TO USE A FEATURE THAT IS NOT IMPLEMENTED *) (* IN THIS VERSION OF DTK$. *) (* USER ACTION: GET THE APPROPRIATE VERSION OF DTK$. *) (*-- *) CONST DTK$_PROTOOLON = 27492924; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: THE LENGTH OF A PROMPT STRING EXCEEDED 512 CHARACTERS. *) (* USER ACTION: SHORTEN THE PROMPT TO 512 CHARACTERS OR LESS. *) (*-- *) CONST DTK$_STRTERESC = 27492932; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: AN DTK OUTPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE *) (* EMBEDDED IN THE OUTPUT STRING. *) (* USER ACTION: CHECK YOUR OUTPUT STRING TO DETERMINE WHAT ESCAPE *) (* SEQUENCE WAS BEING PASSED. IF YOU NEED THE ACTION *) (* PROVIDED BY THIS ESCAPE SEQUENCE, THERE IS MOST *) (* LIKELY A DTK ROUTINE THAT PROVIDES THAT FUNCTIONALITY. *) (*-- *) CONST DTK$_TOOLONG = 27492940; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: THE LENGTH OF THE SPECIFIED STRING WAS TOO LONG. *) (* USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS A PHONE NUMBER *) (* OR DICTIONARY SUBSTITUTION OF 255 CHARACTERS OR LESS. *) (*-- *) CONST DTK$_UNKESCSEQ = 27492948; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: A DTK INPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE *) (* THAT IT WAS UNABLE TO UNDERSTAND. *) (* USER ACTION: ???? *) (*-- *) CONST DTK$_UNKREPLY = 27492956; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: A DTK INPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE *) (* THAT IT COULD NOT PARSE CORRECTLY. *) (* USER ACTION: ???? *) (*-- *) CONST DTK$_WRONUMARG = 27492964; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: A DTK ROUTINE WAS CALLED WITH TOO FEW ARGUMENTS *) (* (LESS THAN THE NUMBER OF REQUIRED ARGUMENTS) *) (* OR TOO MANY ARGUMENTS. *) (* USER ACTION: CORRECT THE CODE TO CALL THE ROUTINE WITH *) (* THE PROPER NUMBER OF ARGUMENTS. *) (*-- *) CONST DTK$_TLKINUSE = 27492972; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: A DTK ROUTINE WAS CALLED FROM AN AST ROUTINE *) (* THAT INTERRUPTED A DTK ROUTINE WITH THE SAME *) (* VOICE_ID. *) (* USER ACTION: CORRECT THE CODE TO CALL THE ROUTINE WITH *) (* THE PROPER SYNCHRONIZATION. *) (*-- *) CONST DTK$_NOTLCLTRM = 27492980; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: THE OUTPUT DEVICE IS NOT A TERMINAL ON THE *) (* LOCAL VMS NODE. *) (* USER ACTION: SPECIFY A LOCAL TERMINAL DEVICE. *) (*-- *) CONST DTK$_NOMALFUN1 = 27494401; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT *) (* NO MALFUNCTIONS HAVE OCCURRED SINCE THE DECTALK *) (* UNIT WAS TURNED ON. THIS IS THE FIRST REPLY. *) (* USER ACTION: NONE. *) (*-- *) CONST DTK$_NOMALFUN2 = 27494409; (*++ *) (* FACILITY: DTK *) (* EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT *) (* NO MALFUNCTIONS HAVE OCCURRED SINCE THE DECTALK *) (* UNIT WAS TURNED ON. THIS IS THE SECOND OR LATER REPLY. *) (* USER ACTION: NONE. *) (*-- *) (* END. *) END.