title	Module from library BASE_3 : PRDUFN
	name	('PRDUFN')
	maclib	baselib.lib

; Print name of drive from FCB and current user in ZCPR DU: style
; followed by name of file

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: 040/4223247

;		Version 1.0 December 1992

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

; EXIT	None

	entry	prdufn

	extrn	prdu,prfn

prdufn:
	call	prdu		; Give drive and user
	jp	prfn		; .. print file

	end