extrn	.getusr, .setusr, .drvlock, .freset, .dos
;
@open	equ	15
;
; Open file de^ on user (a) for read.  User number is absolute
; Lock default to current drive.  Carry if file not found.
; a,f
.fopnr::
	push	h
	mov	h,a
	call	.getusr
	mov	l,a
	mov	a,h
	call	.setusr
 	call	.drvlock;	lock default to current drive
	call	.freset;	reset current rcd, extent
	mvi	a,@open
	call	.dos
	inr	a
	push	psw
	mov	a,l;		entry user
	call	.setusr
	pop	psw
	pop	h
	rnz;			open ok
	stc;			open failure
	ret