.TITLE	OPENER1 - OPEN FILE FOR QIO WRITE
;
	$FABDEF
	$RABDEF
FABOFF = 4
RABOFF = 8
LUNOFF = 12
;
	.ENTRY	OPENER_1,^M<R5>
;
	MOVL	FABOFF(AP),R5
	BISL	#FAB$M_UFO,FAB$L_FOP(R5) ; ALLOW QIO ACCESS
	$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