xdef	_CtrlF

_CtrlF	move.l	a6,(a7)+
	moveq	#0,d0
	moveq	#0,d1
	movea.l	$4.w,a6
	jsr	-306(a6)		; SetSignal()
	btst	#15,d0
	beq.s	.no
	moveq	#0,d0
	move.l	#32768,d1
	jsr	-306(a6)		; SetSignal()
.yes	moveq	#-1,d0
	move.l	(a7)+,a6
	rts
.no	moveq	#0,d0
	move.l	(a7)+,a6
	rts