; Reset the file name in fcb de^ from entry hl^, clear attribs.
; At entry hl points one byte below the fname field, i.e.
; to the user # entry of the file list.  At exit, the
; fcb de^ has the extent, record pointer, etc zeroed.
; The drive identifier byte is NOT altered.
; a returns the user no. in the list hl.
; This is used to scan file names from wildx lists
; a,f
.nxtfn::
	push	b
	push	d
	push	h
	mvi	b,11
nxtf1:	inx	h
	inx	d
	mov	a,m
	ani	07fh;		clear any attribute bits
	stax	d
	dcr	b
	jnz	nxtf1;		copy name/ext
	mvi	b,21
	xra	a
nxtf2:	inx	d
	stax	d
	dcr	b
	jnz	nxtf2;		zero other fields
	pop	h
	pop	d
	pop	b
	mov	a,m;		return user #
	ret