.title set_ctlc
;
; setctlc -- catch control_C interrupts.
; call in fortran as:
;
;	call setctlc(channel,routine)
;
; where:
;	channel is a channel to the terminal generating control_C's
;	routine is the name of the routine to be called on a control_C.
;	this routine must be declared external in the calling program.
;
	.entry setctlc,^M<R2>
	$qiow_s 	CHAN=@4(ap),func=#io$_setmode!io$m_ctrlcast,-
			P1=@8(ap),P3=#3
	ret


	.entry setctly,^M<R2>
	$qiow_s 	CHAN=@4(ap),func=#io$_setmode!io$m_ctrlyast,-
			P1=@8(ap),P3=#3
	ret
	.end