.TITLE KillTimer	- Kill modem timer on port
	.link		"sys$system:sys.stb"/selective_search
	.library	"sys$Library:lib.mlb"
	$ccbdef
	$iodef
	$ssdef
	$ttdef
	$ttyucbdef
	$ucbdef

chan:	.blkl	1
dev:	.ascid 	"SLIP_DEVICE"
ucb:	.blkl	1
one:	.blkl	1

	.macro	check, ?l1
	blbs	r0,l1
	$exit_s	r0
l1:	.endm
	
	.entry	killtimer,^m<>
	$assign_s	devnam=dev,chan=chan
	check
	movl	chan,r0
	jsb	g^ioc$verifychan
	check
	movl	ccb$l_ucb(r1),ucb
	$cmkrnl_s	routin=killtimer_k
	check
	$dassgn_s	chan=chan
	$exit_s	#ss$_normal
	
	.entry	killtimer_k,^m<>
	movl	ucb,r0
	clrw	ucb$w_tt_ds_tim(r0)
	movl	#ss$_normal,r0
	ret
	
	.end	killtimer