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

; Print name of drive and file from FCB

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

;		Version 1.0 June 1987

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

; EXIT	None

	entry	fildrv

	extrn	drvnam,filnam

fildrv:
	call	drvnam		; Print drive
	inc	de
	call	filnam		; And file
	dec	de
	ret

	end