.TITLE IMOPEN
	.MCALL FDOF$L
	FDOF$L
IMOPEN::MOV	@2(R5),R2	;GET LUN
	MOV	@#$OTSV,R3	;YOU HAVE TO DO THIS FOR SOME REASON.
	MOV	R5,-(SP)	;SAV R5 ON THE STACK
	JSR	PC,$FCHNL	;PICK UP FORTRAN FDB
	ADD	#14,R0		;GET TO FORTRAN FDB
	MOV	(SP)+,R5	;RESTORE R5
	BITB	#1,F.FACC(R0)	;TEST FOR OPEN FOR READ 
	BEQ	NEXT		;IF EQ THEN CHECK FOR WRITE
YES:	MOV	#-1,R0		;TELL HIM IM'OPEN
	RTS	PC
;
NEXT:	BITB	#2,F.FACC(R0)	;TEST FOR WRITE
	BEQ	NOPE
	BR	YES
;
NOPE:	MOV	#0,R0		;WE ARE NOT OPEN
	RTS	PC
	.END