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

; Print name of drive 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	drvnam

	extrn	comout,curdrv

drvnam:
	ld	a,(de)		; Get drive
	dec	a
	call	m,curdrv	; Get name if default
	add	a,'A'		; Add offset
	call	comout		; Print it
	ld	a,':'		; Set delimiter
	jp	comout

	end