.TITLE	NOLOCK SET NOLOCK BIT ON FORTRAN FILES
	.IDENT	-010000-
;+
; ABSTRACT:
;
;	THIS SUBROUTINE SETS THE NOLOCK BIT FOR FORTRAN FILES.
;
; CALLING SEQUENCE:
;
;	CALL NOLOCK(LUN)
;
; ARGUMENTS:
;
; LUN	INTEGER*2
;	THE LOGICAL UNIT OF THE FILE WHICH IS TO HAVE THE
;	NOLOCK BIT SET.
;
; LIBRARIES:
;
;	REFERENCES $FCHNL AND $OTSV IN THE FORTRAN LIBRARY.
;
; FILES:
;
;	AS PASSED BY THE USER.
;
; EXTERNALS:
; ERRORS:
;
;	NO ERRORS ARE POSSIBLE.
;
; NONSTANDARD FEATURES:
;
;	THIS FUNCTION IS NOT IMPLEMENTED IN ANY DEC SOFTWARE
;	FOR FORTRAN.
;
; WRITTEN:
;
;	BRUCE C. WRIGHT
;	CLINICAL EPIDEMIOLOGY LABORATORY
;	DUKE UNIVERSITY MEDICAL CENTER
;	DURHAM, N. C. 27710
;	28-JAN-77, -1.0.0-
;
; MODIFIED:
; VERIFIED:
; REFERENCES:
;
;	MAY 1976 SOFTWARE DISPATCH, PP. 228, 234
;	I/O OPERATIONS REFERENCE MANUAL, P. 2-18, P. A-8
;-

	.GLOBL	$FCHNL,$OTSV,FA.DLK,FA.ENB,F.ACTL
;
NOLOCK::MOV	@2(R5),R2	;GET THE LUN.
	MOV	@#$OTSV,R3	;GET THE WORK AREA ADDRESS.
	JSR	PC,$FCHNL	;FIND THE FDB ADDRESS.
	ADD	#14,R0		;GET TO THE RSX FDB.
	BIS	#FA.ENB!FA.DLK,F.ACTL(R0)	;SET THE NOLOCK BIT.
	RTS	PC		;AND RETURN TO THE CALLER.
	.END