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:		;!TEST Current Dir ;[x] 15/10/23
		 ; [ ] 10/06/24
		 IF OLD_DSS_FOR_OLD_EXE
		  LD	A,(EXE_VERSION)
		  OR	A
		  JR	Z,.old_EXE	
		 ENDIF
		 ; 
		 PUSH	HL
		 PUSH	DE
		 CALL	DIR_PATH_CHECK.forceCheck
		 POP	DE
		 POP	HL
		 RET	C
		;
.old_EXE:	;
		 ; !TODO ¢®âª­ãâì âãâ GETWORD, ç⮡ ¬®¦­® ¡ë«® 㤠«ïâì ¯® ®â­®á¨â¥«ì­ë¬ ¯ãâï¬? 
		;
		; [ ] 26/06/2024
		 PUSH	HL
		 CALL	CHECK_64kb_CLUSTER
		 POP	HL
		 RET	C

		;
		PUSH	DE
		CALL	MASK.name
		POP	DE
		RET	C
		;!TEST optimization
		 ;LD	HL,MASKARE
		 ;LD	BC,11
		 ;LD	A,"?"
		 ;CPIR 
		 ;LD	A,DSS_Error.sys.INVALID_NAME
		 ;SCF 
		 CALL	CHECK_NAME
		;
		RET	Z
		PUSH	DE
		CALL	LOADDIR				; ¯à®ç¨â âì ᯨ᮪ ª â «®£ 
		;LD	A,#33
		LD	A,FAT_ATTR.NoSYSnoVolID
		CALL	SEARCH.Custom			; ¯®¨áª § ¯¨á¨ ¢ ᯨ᪥ ¤¨áª 
		POP	HL
		RET	C
		;LD	DE,MASKARE
		CALL	MASK.name
		RET	C
		;!TEST optimization
		 ;LD	HL,MASKARE
		 ;LD	BC,11
		 ;LD	A,"?"
		 ;CPIR 
		 ;LD	A,DSS_Error.sys.INVALID_NAME
		 ;SCF 
		 CALL	CHECK_NAME
		;
		RET	Z
		PUSH	IX
		LD	A,FAT_ATTR.NoSYSnoVolID
		CALL	SEARCH.Custom			; ¯®¨áª § ¯¨á¨ ¢ ᯨ᪥ ¤¨áª 
		POP	IX
		LD	A,DSS_Error.sys.FILE_EXISTS
		CCF 
		RET	C

	SET_PAGE_X DIRPAGE
		EX	AF,AF'
		;
		LD	HL,MASKARE
		LD	D,XH
		LD	E,XL
		LD	BC,11
		LDIR
		; 
		CALL	DELETE_LFN_RECORDS					; [ ] 㤠«¥­¨¥ § ¯¨á¨ LFN
		;
		EX	AF,AF'
		OUT	(SLOT3),A
		JP	SAVEDIR
;	;	;