title	Module from library BASE_2 : PRFN
	name	('PRFN')
	maclib	baselib.lib

; Print name of file from FCB

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.0 December 1992

; ENTRY	Reg pair <DE> points to FCB
;	See module COMOUT for further details

; EXIT	None

	entry	prfn

	extrn	comout

prfn:
	push	bc
	push	de
	ld	b,.nam
	call	?prfil		; Print name
	ld	a,'.'
	call	comout		; .. give delimiter
	ld	b,.ext		; .. print extension
	call	?prfil
	pop	de
	pop	bc
	ret
?prfil:				; Do the job
	inc	de
	ld	a,(de)		; Get character
	and	NoMSB
	cp	' '
	call	nz,comout	; Print non blank
	djnz	?prfil
	ret

	end