Estex-DSS/DSS/API/Rename.asm

////////////////////////////////////////////////////////////////////////
; ”ã­ªæ¨ï #10. <20>¥à¥¨¬¥­®¢ ­¨¥ ä ©« .
; ƒ«®¡ «ì­ë¥ ᨬ¢®«ë * ¨ ? ¢ ¨¬¥­ å ä ©«®¢ ­¥ ¤®¯ã᪠îâáï.
;
; ¢å®¤: HL - 㪠§ â¥«ì ­  áâ à®¥ ¨¬ï ä ©« 
;       DE - 㪠§ â¥«ì ­  ­®¢®¥ ¨¬ï ä ©« 
; ¢ë室: A - ª®¤ ®è¨¡ª¨, ¥á«¨ CF=1
;
; INPUT: HL - "old_name.ext",#00 without simbols * ?
;	 DE - "new_name.ext",#00 without simbols * ?
////////////////////////////////////////////////////////////////////////
RENAME:		; Current Dir 15/10/23
		 PUSH	HL
		 PUSH	DE
		 CALL	DIR_PATH_CHECK.forceCheck
		 POP	DE
		 POP	HL
		 RET	C
		;
		 ; !TODO ¢®âª­ãâì âãâ SetPath_GetName, ç⮡ ¬®¦­® ¡ë«® 㤠«ïâì ¯® ®â­®á¨â¥«ì­ë¬ ¯ãâï¬? 
		;
		; [x] 26/06/2024 {64 kb cluster}
		 PUSH	HL
		 CALL	CHECK_64kb_CLUSTER
		 POP	HL
		 RET	C

		;
		PUSH	DE
		CALL	MASK.name
		POP	DE
		RET	C
		;
		CALL	CHECK_NAME
		RET	Z
		;
		PUSH	DE
		CALL	LOADDIR		; [ ] big dir			; ¯à®ç¨â âì ᯨ᮪ ª â «®£ 
		LD	A,FAT_ATTR.NoSYSnoVolID
		CALL	SEARCH.Custom					; ¯®¨áª § ¯¨á¨ "old_name.ext" ¢ ᯨ᪥ ¤¨áª 
		POP	HL
		RET	C
		;LD	DE,MASKARE
		CALL	MASK.name
		RET	C
		;
		CALL	CHECK_NAME
		RET	Z
		;
		PUSH	IX
		LD	A,FAT_ATTR.NoSYSnoVolID
		CALL	SEARCH.Custom					; ¯®¨áª § ¯¨á¨ "new_name.ext" ¢ ᯨ᪥ ¤¨áª 
		POP	IX
		LD	A,DSS_Error.sys.FILE_EXISTS
		CCF 
		RET	C
		;
	SET_PAGE_X DIRPAGE
		EX	AF,AF'
		;
		LD	HL,CORE_BUFFERS.MASKARE
		LD	D,XH
		LD	E,XL
		LD	BC,11
		LDIR
		; 
		CALL	DELETE_LFN_RECORDS				; [ ] 㤠«¥­¨¥ § ¯¨á¨ LFN
		;
		EX	AF,AF'
		OUT	(SLOT3),A
		; [ ] big dir ¯¥à¥¤ ¢ âì ®âªã¤  ¨ ᪮«ìª® ¡ ©â®¢ ¨§¬¥­¨«®áì ¢ ªíè, ç⮡ ­¥ ¯¨á âì ­  ¤¨áª «¨è­¥£®
		JP	SAVEDIR
;	;	;