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

; Rename file

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

;		Version 1.1 April 1987

; ENTRY	Reg pair <DE> points to FCB
;	FCB+00		holds drive
;	FCB+01 .. FCB+11 holds OLD file name and type
;	FCB+17 .. FCB+27 holds NEW file name and type

; EXIT	On normal return carry is reset
;	On error carry will be set or extended error
;	will be processed

	entry	rename

	extrn	@filcl,@error

rename:
	ld	a,.rename	; Set function
	call	@filcl
	jp	@error		; Process error

	end