!*** MODULE $DTKDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 !  Definitions for RTL DECtalk Management
 ! 
 ! 	Phone keypad keys.
 ! 
	PARAMETER DTK$K_TRM_ZERO = '00000030'X
	PARAMETER DTK$K_TRM_ONE = '00000031'X
	PARAMETER DTK$K_TRM_TWO = '00000032'X
	PARAMETER DTK$K_TRM_THREE = '00000033'X
	PARAMETER DTK$K_TRM_FOUR = '00000034'X
	PARAMETER DTK$K_TRM_FIVE = '00000035'X
	PARAMETER DTK$K_TRM_SIX = '00000036'X
	PARAMETER DTK$K_TRM_SEVEN = '00000037'X
	PARAMETER DTK$K_TRM_EIGHT = '00000038'X
	PARAMETER DTK$K_TRM_NINE = '00000039'X
	PARAMETER DTK$K_TRM_A = '00000041'X
	PARAMETER DTK$K_TRM_B = '00000042'X
	PARAMETER DTK$K_TRM_C = '00000043'X
	PARAMETER DTK$K_TRM_D = '00000044'X
	PARAMETER DTK$K_TRM_NUMBER_SIGN = '00000023'X
	PARAMETER DTK$K_TRM_ASTERISK = '0000002A'X
 !  Conditions
	PARAMETER DTK$K_TRM_CANCELLED = '000001FC'X  !  I/O cancelled 
	PARAMETER DTK$K_TRM_TIMEOUT = '000001FD'X  !  Timeout period expired
	PARAMETER DTK$K_TRM_BUFFER_FULL = '000001FE'X  !  Buffer is full
	PARAMETER DTK$K_TRM_UNKNOWN = '000001FF'X  !  Unknown terminator
 ! 
 ! 	Self-test constants.
 ! 
	PARAMETER DTK$K_TEST_POWER = '00000001'X
	PARAMETER DTK$K_TEST_HDATA = '00000002'X
	PARAMETER DTK$K_TEST_HCONTROL = '00000003'X
	PARAMETER DTK$K_TEST_DATA = '00000004'X
	PARAMETER DTK$K_TEST_SPEAK = '00000005'X
 ! 
 ! 	Phone dialing constants.
 ! 
	PARAMETER DTK$K_DIAL_TONE = '00000000'X
	PARAMETER DTK$K_DIAL_PULSE = '00000001'X
 ! 
 ! 	DECtalk types.
 ! 
	PARAMETER DTK$K_DTC_UNKNOWN = '00000000'X
	PARAMETER DTK$K_DTC_01 = '00000001'X
	PARAMETER DTK$K_DTC_03 = '00000002'X
 ! 
 ! 	Keypad modes.
 ! 
	PARAMETER DTK$K_KEYPAD_OFF = '00000000'X
	PARAMETER DTK$K_KEYPAD_ON = '00000001'X
	PARAMETER DTK$K_KEYPAD_AUTO = '00000002'X
 ! 
 ! 	Voices.
 ! 
	PARAMETER DTK$K_VOICE_MALE = '00000000'X
	PARAMETER DTK$K_VOICE_FEMALE = '00000001'X
	PARAMETER DTK$K_VOICE_CHILD = '00000002'X
	PARAMETER DTK$K_VOICE_DEEP_MALE = '00000003'X
	PARAMETER DTK$K_VOICE_DEEP_FEMALE = '00000004'X
	PARAMETER DTK$K_VOICE_OLDER_MALE = '00000005'X
	PARAMETER DTK$K_VOICE_LIGHT_FEMALE = '00000006'X
 ! 
 ! 	Speaking modes.
 ! 
	PARAMETER DTK$K_SPEAK = '00000000'X
	PARAMETER DTK$K_STOP = '00000001'X
	PARAMETER DTK$K_HALT = '00000002'X
 ! 
 ! 	Return modes.
 ! 
	PARAMETER DTK$K_IMMED = '00000000'X	 !  Return immedately after sending text.
	PARAMETER DTK$K_WAIT = '00000001'X	 !  Wait until text is completely spoken be returning.
	PARAMETER DTK$K_STATUS = '00000002'X	 !  Wait for text to be spoken and return phone status.
 ! 
 !         DEFINE BIT MASKS AND VALUES FOR MODE ATTRIBUTES
 ! 
	PARAMETER DTK$M_SQUARE = '00000001'X
	PARAMETER DTK$M_ASCII = '00000002'X
	PARAMETER DTK$M_MINUS = '00000004'X
	PARAMETER DTK$M_EUROPE = '00000008'X
	PARAMETER DTK$M_SPELL = '00000010'X
	PARAMETER DTK$M_NORMAL = '00000000'X	 !  no bits set 
	PARAMETER DTK$K_SQUARE = '00000000'X	 !  Mode square bitvector index
	PARAMETER DTK$K_ASCII = '00000001'X	 !  asky mode
	PARAMETER DTK$K_MINUS = '00000002'X	 !  Say dash as minus bitvector index
	PARAMETER DTK$K_EUROPE = '00000003'X	 !  European type numbers
	PARAMETER DTK$K_SPELL = '00000004'X	 !  Spell all words
	PARAMETER DTK$M_HOST = '00000001'X
	PARAMETER DTK$M_SPEAK_ALL = '00000002'X
	PARAMETER DTK$M_EDITED = '00000004'X
	PARAMETER DTK$M_HARD = '00000008'X
	PARAMETER DTK$M_SETUP = '00000010'X
	PARAMETER DTK$M_FILTER = '00000020'X
	PARAMETER DTK$K_HOST = '00000000'X	 !  Send all chars typed to host.
	PARAMETER DTK$K_SPEAK_ALL = '00000001'X	 !  Speak all chars typed.
	PARAMETER DTK$K_EDITED = '00000002'X	 !  Line edit all chars typed.
	PARAMETER DTK$K_HARD = '00000003'X	 !  Do local echo in hardcopy format.
	PARAMETER DTK$K_SETUP = '00000004'X	 !  Speak all chars displayed in setup mode.
	PARAMETER DTK$K_FILTER = '00000005'X	 !  Don't send DECtalk specific sequences.
	PARAMETER DTK$M_TEXT = '00000001'X
	PARAMETER DTK$M_PHONEME = '00000002'X
	PARAMETER DTK$M_RAWHOST = '00000004'X
	PARAMETER DTK$M_INHOST = '00000008'X
	PARAMETER DTK$M_OUTHOST = '00000010'X
	PARAMETER DTK$M_ERROR = '00000020'X
	PARAMETER DTK$M_TRACE = '00000040'X
	PARAMETER DTK$M_DEBUG = '00000080'X
	PARAMETER DTK$K_TEXT = '00000000'X	 !  Log ASCII text.
	PARAMETER DTK$K_PHONEME = '00000001'X	 !  Log phonemic text.
	PARAMETER DTK$K_RAWHOST = '00000002'X	 !  Log all chars without inspection.
	PARAMETER DTK$K_INHOST = '00000003'X	 !  Log text read from host.
	PARAMETER DTK$K_OUTHOST = '00000004'X	 !  Log text sent to host.
	PARAMETER DTK$K_ERROR = '00000005'X	 !  Log error messages.
	PARAMETER DTK$K_TRACE = '00000006'X	 !  Log sequences symbolically
	PARAMETER DTK$K_DEBUG = '00000007'X	 !  Reserved
	STRUCTURE /DTKDEF/
	UNION
 ! 
 ! 	DEFINE BITS, MASKS, AND FIELDS FOR THE CONTROL MODES.
 ! 
	    MAP
	        PARAMETER DTK$S_SQUARE = 1
	        PARAMETER DTK$V_SQUARE = 0		 !  Set mode square on
	        PARAMETER DTK$S_ASCII = 1
	        PARAMETER DTK$V_ASCII = 1		 !  asky mode
	        PARAMETER DTK$S_MINUS = 1
	        PARAMETER DTK$V_MINUS = 2		 !  Say dash as minus
	        PARAMETER DTK$S_EUROPE = 1
	        PARAMETER DTK$V_EUROPE = 3		 !  Europe 
	        PARAMETER DTK$S_SPELL = 1
	        PARAMETER DTK$V_SPELL = 4		 !  Spell all words
	    BYTE %FILL (1)
	    END MAP
	    MAP
	        PARAMETER DTK$S_HOST = 1
	        PARAMETER DTK$V_HOST = 0		 !  Send all chars typed to host.
	        PARAMETER DTK$S_SPEAK_ALL = 1
	        PARAMETER DTK$V_SPEAK_ALL = 1		 !  Speak all chars typed.
	        PARAMETER DTK$S_EDITED = 1
	        PARAMETER DTK$V_EDITED = 2		 !  Line edit all chars typed.
	        PARAMETER DTK$S_HARD = 1
	        PARAMETER DTK$V_HARD = 3		 !  Do local echo in hardcopy format.
	        PARAMETER DTK$S_SETUP = 1
	        PARAMETER DTK$V_SETUP = 4		 !  Speak all chars displayed in setup mode.
	        PARAMETER DTK$S_FILTER = 1
	        PARAMETER DTK$V_FILTER = 5		 !  Don't send DECtalk specific sequences.
	    BYTE %FILL (1)
	    END MAP
	    MAP
	        PARAMETER DTK$S_TEXT = 1
	        PARAMETER DTK$V_TEXT = 0		 !  Log ASCII text.
	        PARAMETER DTK$S_PHONEME = 1
	        PARAMETER DTK$V_PHONEME = 1		 !  Log phonemic text.
	        PARAMETER DTK$S_RAWHOST = 1
	        PARAMETER DTK$V_RAWHOST = 2		 !  Log all chars without inspection.
	        PARAMETER DTK$S_INHOST = 1
	        PARAMETER DTK$V_INHOST = 3		 !  Log text read from host.
	        PARAMETER DTK$S_OUTHOST = 1
	        PARAMETER DTK$V_OUTHOST = 4		 !  Log text sent to host.
	        PARAMETER DTK$S_ERROR = 1
	        PARAMETER DTK$V_ERROR = 5		 !  Log error messages.
	        PARAMETER DTK$S_TRACE = 1
	        PARAMETER DTK$V_TRACE = 6		 !  Log sequences symbolically
	        PARAMETER DTK$S_DEBUG = 1
	        PARAMETER DTK$V_DEBUG = 7
	        BYTE %FILL (1)				 !  Reserved
	    END MAP
	END UNION
	END STRUCTURE	! DTKDEF
!DEC$ END OPTIONS