title	Module from library BASE_4 : RENAMF
	name	('RENAMF')
	maclib	baselib.lib

; Rename name of file

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

;		Version 1.0 April 1987

; ENTRY	Reg pair DE points to FCB to be renamed
;	Reg pair HL points to new name

; EXIT	File renamed on carry reset. On error carry set
;	or extended error processed

	entry	renamf

	extrn	rename,@mvnam

renamf:
	call	@mvnam		; Set name
	jp	rename		; Rename

	end