extrn	.couta, .tadzs
;
; output filename for fcb de^, user a, to console
; a,f
.tfnam::
	ani	01fh
	push	psw
	jnz	tfnam1;		user is non-zero
	ldax	d
	ora a	! jz tfnam2
tfnam1:	ldax d	! adi '@'
	call	.couta
	pop psw	! push psw
	cnz	.tadzs
	mvi	a,':'
	call	.couta
tfnam2:	pop	psw
	push h	! push b ! push d
	mvi	b,8
tfnam3:	inx d	! ldax d ! ani 07fh;	delete attribs
	cpi	' '
	cnz	.couta
	dcr b	! jnz tfnam3
	mvi	a,'.'
	call	.couta
	pop	d
	lxi h,8	! dad d
	mvi	b,3
tfnam5:	inx h	! mov a,m ! ani 07fh;	delete attribs
	cpi	' '
	cnz	.couta
	dcr b	! jnz tfnam5
	pop b	! pop h
	ret