;$FM	FSDEFC	Set Default character after timeout for the FMS routines
;.	22-Jan-87	J. E. Kulaga
;.
;.	This subroutine sets a default character to be returned by the
;.	FMS-11 V2.0 form driver routines after a timeout period on the
;.	terminal QIO.  (Use routine FSTMO to set the timeout period.)
;.	The call:
;.
;.		call fsdefc (char)
;.
;.	char	==  default character to be returned
;.
	.title	FSDEFC
	.ident	/ V01 /
	.globl	$DCHR$

FSDEFC::
	TSTB	(R5)		; check number of arguments
	BGT	1$		; if char given, proceed to set it
	RETURN			; if char not given, return
1$:
	MOVB	@2(R5),$DCHR$	; set user requested default character
	RETURN			; and return

	.END
