.TITLE	OFF_TP - Cancel TIME_PROMPT timer
	.IDENT	/X01-00/

;++
;    Copyright (C) 1990  James F. Duff
;
;    This program is free software; you can redistribute it and/or modify
;    it under the terms of the GNU General Public License as published by
;    the Free Software Foundation; either version 1, or (at your option)
;    any later version.
;
;    This program is distributed in the hope that it will be useful,
;    but WITHOUT ANY WARRANTY; without even the implied warranty of
;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;    GNU General Public License for more details.
;
;    You should have received a copy of the GNU General Public License
;    along with this program; if not, write to the Free Software
;    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;
;    The author can be contacted on the Internet at DUFF@DECUS.COM.AU.
;--

;++
;
; FACILITY:
;
;	Silly buggers
;
; ABSTRACT:
;
;	This program cancels the timer that executes code to set the
;	DCL prompt to the current time.
;
;
; ENVIRONMENT:
;
;	User and kernal modes
;
; AUTHOR:
;
;	James F. Duff,	31-Oct-1990
;
; MODIFIED BY:
;
;	X01-00		Jim Duff	31-Oct-1990
;	Original version of module
;
;--

	.LINK	"SYS$SYSTEM:SYS.STB"/SELECTIVE_SEARCH

	.PSECT	CODE	NOWRT,EXE,SHR

	.ENTRY	OFF_TP,^M<>
	$CMKRNL_S -				; Get to kernal
		ROUTIN=OFF
	BLBC	R0,10$				; Error ?
	MOVZWL	#SS$_NORMAL,R0			; Indicate normal completion
10$:	RET					; Return to caller
	
	.ENTRY	OFF,^M<>
	$CANTIM_S -				; Cancel outstanding timer
		REQIDT=#1777			; using this timer id
	MOVZWL	#SS$_NORMAL,R0			; Indicate normal completion
	RET					; Return to user mode

	.END	OFF_TP