.TITLE	OPENER2 - OPEN FILE FOR QIO WRITE (VFC)
;
	$FABDEF
	$RABDEF
FABOFF = 4
RABOFF = 8
LUNOFF = 12
;
	.ENTRY	OPENER_2,^M<R2>
;
	MOVL	FABOFF(AP),R5
	BISL	#FAB$M_UFO,FAB$L_FOP(R5) ; ALLOW QIO ACCESS
	MOVB	#FAB$C_VFC,FAB$B_RFM(R5) ; VFC
	$CREATE	FAB=@FABOFF(AP)
	BLBC	R0,10$
	MOVW	FAB$L_STV(R5),CHAN
10$:	RET
;
	.PSECT	CHANL,PIC,OVR,REL,GBL,SHR,NOEXE,RD,WRT,LONG

CHAN:	.BLKW	1

	.END