; [x] fat32 ;!TEST
////////////////////////////////////////////////////////////////////////
; INPUT: HL - "c:\dir\filename.ext",#00 without simbols * ?
////////////////////////////////////////////////////////////////////////
DEL_FN:		;!TEST
		;!TEST Current Dir ;[x] 15/10/23
		 ;
		 IF OLD_DSS_FOR_OLD_EXE
		 ; [ ] 10/06/24
		  LD	A,(EXE_VERSION)
		  OR	A
		  JR	Z,.old_EXE
		 ENDIF
		 ;		
		 PUSH	HL
		 CALL	DIR_PATH_CHECK
		 POP	HL
		 RET	C
		;
.old_EXE:	 CALL	GETWORD			; тест на допуст. имя и настр. на диск
		 RET	C
		 ; [ ] 26/06/2024
		  CALL	CHECK_64kb_CLUSTER
		  RET	C
		 ;
		 CALL	MASK
		 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
		CALL	LOADDIR
		CALL	SEARCH.File
		RET	C
		JP	DELETE_REC_FAT	; пометить запись как "удаленная"
;