rename.asm
bitfixer_bitfixer/dg/z88dk/libsrc/fcntl/spectrum/plus3/rename.asm

;
;	z88dk - Spectrum +3 stdio Library
;
;	djm 10/4/2000
;
;	int rename(char *source, char *dest)
;
;	$Id: rename.asm,v 1.4 2015/01/21 08:09:27 stefano Exp $


		PUBLIC	rename
		EXTERN	dodos

		INCLUDE "p3dos.def"


.rename
	pop	bc
	pop	de	;new filename
	pop	hl	;old
	push	hl
	push	de
	push	bc
	ld	iy,DOS_RENAME
	call	dodos
	ld	hl,0
	ret	c	;OK
	dec	hl
	ret
