title	Module from library BASE_5 : RENAMI
	name	('RENAMI')
	maclib	baselib.lib

; Rename name of file and check if new one on disk

; 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	renami

	extrn	renamc,@mvnam

renami:
	call	@mvnam		; Set name
	jp	renamc		; Rename if not on disk

	end