;$FM	FSTMO	Set timeout period for the FMS routines
;.	22-Jan-87	J. E. Kulaga
;.
;.	This subroutine sets a timeout period for the terminal QIO
;.	issued by the FMS-11 V2.0 form driver.  The call:
;.
;.		call fstmo (nsec)
;.
;.	nsec	==  number of seconds before I/O times out;
;.		    if nsec < 0  or  nsec = 0, no timeout is performed
;.		    if nsec = 0, timeout feature is disabled
;.
	.title	FSTMO
	.ident	/ V02 /
	.globl	$TMO$

FSTMO::
	TSTB	(R5)		; check number of arguments
	BLE	1$		; if nsec not given, eliminate timeout

	TST	@2(R5)		; check for permissable value
	BLE	1$		; if < or = 0, eliminate timeout

	MOV	@2(R5),$TMO$	; set user requested timeout
	RETURN			; and return
1$:
	CLR	$TMO$		; eliminate timeout (nsec <= 0, or nsec missing)
	RETURN			; and return

	.END
