mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 17:31:47 +03:00
72 lines
1.3 KiB
NASM
72 lines
1.3 KiB
NASM
////////////////////////////////////////////////////////////////////////
|
||
; ”ãªæ¨ï #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
|
||
PUSH HL
|
||
PUSH DE
|
||
CALL DIR_PATH_CHECK.forceCheck
|
||
POP DE
|
||
POP HL
|
||
RET C
|
||
;
|
||
PUSH DE
|
||
;LD DE,MASKARE
|
||
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
|
||
|
||
LD HL,MASKARE
|
||
LD D,XH
|
||
LD E,XL
|
||
LD BC,11
|
||
LDIR
|
||
OUT (SLOT3),A
|
||
JP SAVEDIR
|
||
; |