;$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