//////////////////////////////////////////////////////////////////////// ; INPUT: HL - "c:\dir\filename.ext",#00 without simbols * ? //////////////////////////////////////////////////////////////////////// DEL_FN: ; Current Dir 15/10/23 PUSH HL CALL DIR_PATH_CHECK POP HL RET C ; CALL SetPath_GetName ; тест на допуст. имя и настр. на диск RET C ; [x] 26/06/2024 {64 kb cluster} CALL CHECK_64kb_CLUSTER RET C ; CALL MASK RET C ; CALL CHECK_NAME RET Z ; CALL LOADDIR ; [ ] big dir ; !FIXIT дублирует действие из SetPath_GetName? CALL SEARCH.File RET C JP DELETE_REC_FAT ; пометить запись как "удаленная" ;