GETFLS.MAC;777/-BF=GETFLS.VGN;1
-3,3
	.IDENT	"X0216R"	; UPDATE AUDIT CONTROL-24 OCT 1980   14:41:58
; MODIFIED BY RVT 15 MAY 80
-29,29
	.MCALL	CSI$1,CSI$2,OFNB$R,OFNB$W,OFNB$A,CLOSE$,QIOW$C,OFNB$U
	.MCALL	OFID$U
-132,134
	BGE	EWOPEJ		; GO OPEN FOR EDIT READ/WRITE
	CMPB	R4,#'B-'R	; CHECK FOR "EB"
	BEQ	EBOPEJ
-140
EWOPEJ:	JMP	EWOPEN
EBOPEJ:	JMP	EBOPEN
-204,205
	BCC	65$
; DIDN'T FIND IT. IF "FILE NOT FOUND", AND DEVICE & UFD WERE LEFT
;	OFF, TRY AGAIN IN LB:[2,2]
	CMPB	F.ERR(R0),#IE.NSF
	BNE	FILERR		; NOT "FILE NOT FOUND"

	TST	DATSET+0
	BNE	FILERR		; DEVICE WAS SPECIFIED
	TST	DATSET+4
	BNE	FILERR		; UFD GIVEN

	MOV	#DFDEVL,DATSET+0
	MOV	#DFDEV,DATSET+2
	MOV	#DFUICL,DATSET+4
	MOV	#DFUIC,DATSET+6
	BR	EIOPEN

60$:	BCS	FILERR
65$:	MOV	R0,INDIR(R5)	; SET INDIRECT FILE OPEN INDICATOR
-302
	CLR	OUTFDB+F.CNTG	; *** ADDED
-306
;*** ADDED. DO AN INITIAL ALLOCATE FOR SIZE OF INPUT FILE
	MOV	INFDB+F.EFBK+2,OUTFDB+F.CNTG
	BIC	#100000,OUTFDB+F.CNTG
	NEG	OUTFDB+F.CNTG	; NON-CONTIGUOUS
;*** ADDED--END
-314,315
160$:	CMP	#1,F.FNB+N.FVER(R0)	; ** ADDED
	BNE	161$		; EW FOR VERSION 1 MEANS USE EXISTING FILE
	OFNB$U	R0
	BCC	162$
161$:	OFNB$W	R0		; OPEN THE OUTPUT FILE
162$:	MOV	(SP)+,R1	; GET BACK FILE PROTECTION
-342
;*********
DFDEV:	.ASCII	"LB:"
DFDEVL=.-DFDEV

DFUIC:	.ASCII	"[002,002]"
DFUICL=.-DFUIC
	.EVEN
-404,404
	CALL	$CBOMG		; CONVERT IN VERSION RADIX
/