mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 09:21:47 +03:00
51 lines
1.2 KiB
NASM
51 lines
1.2 KiB
NASM
////////////////////////////////////////////////////////////////////////
|
||
; INPUT: HL - "c:\dir\filename.ext",#00 without simbols * ?
|
||
////////////////////////////////////////////////////////////////////////
|
||
DEL_FN: ;!TEST
|
||
;!TEST Current Dir ;[x] 15/10/23
|
||
PUSH HL
|
||
CALL DIR_PATH_CHECK
|
||
POP HL
|
||
RET C
|
||
;
|
||
CALL GETWORD ; â¥áâ ¤®¯ãáâ. ¨¬ï ¨ áâà. ¤¨áª
|
||
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
|
||
; ¯®¬¥â¨âì § ¯¨áì ª ª "㤠«¥ ï"
|
||
.DELETE: SET_PAGE_X DIRPAGE
|
||
LD (IX+_sFM.NAME),#E5 ; ¯à¨§ ª 㤠«¥¨ï ä ©«
|
||
LD E,(IX+_sFM.ST_CLUSTER) ; ü ¯¥à¢®£® ª« áâ¥à
|
||
LD D,(IX+_sFM.ST_CLUSTER+1)
|
||
;
|
||
OUT (SLOT3),A
|
||
LD A,E
|
||
OR D
|
||
JP Z,SAVEDIR ; á¡à®á¨âì ª¥è ª â «®£ ¤¨áª
|
||
.loop: EX DE,HL ; hl=®¬¥à ª« áâ¥à
|
||
CALL R_F_FAT ; ¯à®ç¨â âì ¨§ ª¥è FAT- ®¬¥à á«¥¤. ª« áâ¥à
|
||
PUSH DE ; ®¬¥à á«¥¤. ª« áâ¥à
|
||
PUSH AF
|
||
LD DE,#0000 ; ®¬¥à ª« áâ¥à
|
||
CALL W_T_FAT ; § ¯¨á âì ¢ ª¥è FAT- ®¬¥à ª« áâ¥à
|
||
POP AF
|
||
POP DE
|
||
JP NC,.loop
|
||
CALL WR_FAT ;!FIXIT ¬®¦¥â ¥ 㦠âãâ? ’ ¬ ¤ «ìè¥ ¡ã¤¥â
|
||
JP SAVEDIR ; á¡à®á¨âì ª¥è ª â «®£ ¤¨áª
|
||
; |