/
/ Set event flag.
/ setf(efn);
/ Returns dsw.
/
 
	.globl	setf
 
setf:	jsr	r0,__csav
	mov	12(r5),-(sp)
	mov	$33.+[2.<<8.],-(sp)
	emt	377
	mov	_dsw,r0
	jmp	__cret
