.TITLE	TTYOFF
;
;	PROGRAM TO CAUSE TTYLOG TO STOP GATHERING STATISTICS
;
	.MCALL	EXIT$S,CSRQ$S,MRKT$S,WTSE$S
;
START:
	INC	STOFL		;SET THE STOP FLAG
	MRKT$S	#5,#10,#2	;WAIT FOR 10 SECONDS SO TIMLOG STOPS
	WTSE$S	#5		;WAIT FOR IT
	CSRQ$S	#NAME		;CANCLE SCHEDULING OF THE DUMP TASK
	EXIT$S			;AND EXIT
;
NAME:	.RAD50	/TTYDUM/	;TASK NAME IN RAD50
	.EVEN
;
	.END	START