FlexNavigator 1.16.05
- в функции текстового ввода заблокирована обработка клавиши ALT, вызывало зависание при попытке сделать смену диска (ALT/Fx). - убрано удаление в режиме просмотра дерева.
This commit is contained in:
parent
ac87c5571e
commit
50a6074f16
@ -4,7 +4,7 @@
|
|||||||
if not exist tmp md tmp
|
if not exist tmp md tmp
|
||||||
if not exist fn md fn
|
if not exist fn md fn
|
||||||
if not exist fn\flx md fn\flx
|
if not exist fn\flx md fn\flx
|
||||||
set path=d:\yad\svn\pentevo\tools\asl\bin\;d:\yad\svn\pentevo\tools\mhmt\;d:\yad\svn\pentevo\tools\noice2equ\
|
call setpath_tools
|
||||||
call setpath_includes
|
call setpath_includes
|
||||||
|
|
||||||
cls
|
cls
|
||||||
|
|||||||
@ -1,4 +1,10 @@
|
|||||||
|
|
||||||
|
11.01.2026
|
||||||
|
FlexNavigator 1.16.05
|
||||||
|
- ¢ äãªæ¨¨ ⥪á⮢®£® ¢¢®¤ § ¡«®ª¨à®¢ ®¡à ¡®âª ª« ¢¨è¨
|
||||||
|
ALT, ¢ë§ë¢ «® § ¢¨á ¨¥ ¯à¨ ¯®¯ë⪥ ᤥ« âì ᬥ㠤¨áª (ALT/Fx).
|
||||||
|
- ã¡à ® 㤠«¥¨¥ ¢ ०¨¬¥ ¯à®á¬®âà ¤¥à¥¢ .
|
||||||
|
|
||||||
07.09.2025
|
07.09.2025
|
||||||
FlexNavigator 1.16.04
|
FlexNavigator 1.16.04
|
||||||
- á®àâ¨à®¢ª ¨ ª®¯¨à®¢ ¨¥ ä ©«®¢/¤¨à¥ªâ®à¨© ⥯¥àì ¥ ¨á¯®«ì§ã¥â
|
- á®àâ¨à®¢ª ¨ ª®¯¨à®¢ ¨¥ ä ©«®¢/¤¨à¥ªâ®à¨© ⥯¥àì ¥ ¨á¯®«ì§ã¥â
|
||||||
|
|||||||
@ -1,6 +1,10 @@
|
|||||||
|
|
||||||
Flex navigator TODO:
|
Flex navigator TODO:
|
||||||
|
|
||||||
|
[] ¯« £¨ CD Player ¨á¯à ¢¨âì ᬥ㠤¨áª .
|
||||||
|
[] ä ©« á à áè¨à¥¨¥¬ fln ¯® F3 ¢ë§ë¢ ¥â § ¢¨á ¨¥.
|
||||||
|
[] ¨á¯à ¢¨âì £«®¡ «ìë© ¨¤¨ª â®à ¯à®æ¥áá ª®¯¨à®®¢ ¨ï, ¯®ª ¯à¨¢¨à ¥â.
|
||||||
|
[] ¤®¡ ¢¨âì ¯®¤¤¥à¦ªã ¤¦®©á⨪ ¤«ï ¢¨£ 樨.
|
||||||
[] ¢ ª®¯¨à®¢ ¨¨ ä ©«®¢/¤¨à¥ªâ®à¨© ¤®¤¥« âì ®¡à ¡®âªã ®è¨¡®ª ¯à¨ á®§¤ ¨¨ ¤¨à¥ªâ®à¨©.
|
[] ¢ ª®¯¨à®¢ ¨¨ ä ©«®¢/¤¨à¥ªâ®à¨© ¤®¤¥« âì ®¡à ¡®âªã ®è¨¡®ª ¯à¨ á®§¤ ¨¨ ¤¨à¥ªâ®à¨©.
|
||||||
[] ¢ ¯« £¨¥ । ªâ®à ¨á¯à ¢¨âì ¥ á®åà ¥¨¥ ¢¢¥¤¥ë®© áâப¨ ¯à¨ ¦ ⨨¨ äãªæ¨® «ìëå ª« ¢¨è ¥ á¢ï§ ëå á । ªâ¨à®¢ ¨¥¬.
|
[] ¢ ¯« £¨¥ । ªâ®à ¨á¯à ¢¨âì ¥ á®åà ¥¨¥ ¢¢¥¤¥ë®© áâப¨ ¯à¨ ¦ ⨨¨ äãªæ¨® «ìëå ª« ¢¨è ¥ á¢ï§ ëå á । ªâ¨à®¢ ¨¥¬.
|
||||||
[] ¤«ï à ¡®âë ¢ ¤¥à¥¢®¬ ¤¨à¥ªâ®à¨© ã¡à âì ¯®¤¬¥ã áâà ¨æ ¢ ᯨ᪥ ¢ë¤ ëå.
|
[] ¤«ï à ¡®âë ¢ ¤¥à¥¢®¬ ¤¨à¥ªâ®à¨© ã¡à âì ¯®¤¬¥ã áâà ¨æ ¢ ᯨ᪥ ¢ë¤ ëå.
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
BIN
fn/flx/help.flx
BIN
fn/flx/help.flx
Binary file not shown.
@ -1,4 +1,10 @@
|
|||||||
|
|
||||||
|
10.01.2026
|
||||||
|
FlexNavigator 1.16.05
|
||||||
|
- ¢ äãªæ¨¨ ⥪á⮢®£® ¢¢®¤ § ¡«®ª¨à®¢ ®¡à ¡®âª ª« ¢¨è¨
|
||||||
|
ALT, ¢ë§ë¢ «® § ¢¨á ¨¥ ¯à¨ ¯®¯ë⪥ ᤥ« âì ᬥ㠤¨áª (ALT/Fx).
|
||||||
|
- ã¡à ® 㤠«¥¨¥ ¢ ०¨¬¥ ¯à®á¬®âà ¤¥à¥¢ .
|
||||||
|
|
||||||
07.09.2025
|
07.09.2025
|
||||||
FlexNavigator 1.16.04
|
FlexNavigator 1.16.04
|
||||||
- á®àâ¨à®¢ª ¨ ª®¯¨à®¢ ¨¥ ä ©«®¢/¤¨à¥ªâ®à¨© ⥯¥àì ¥ ¨á¯®«ì§ã¥â
|
- á®àâ¨à®¢ª ¨ ª®¯¨à®¢ ¨¥ ä ©«®¢/¤¨à¥ªâ®à¨© ⥯¥àì ¥ ¨á¯®«ì§ã¥â
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 07.09.2025 savelij
|
; LAST UPDATE: 11.01.2026 savelij
|
||||||
|
|
||||||
NUM_FILES_PANEL EQU 17 ; ª®«¨ç¥á⢮ ä ©«®¢ ¢ á⮫¡æ¥ ¯ ¥«¨
|
NUM_FILES_PANEL EQU 17 ; ª®«¨ç¥á⢮ ä ©«®¢ ¢ á⮫¡æ¥ ¯ ¥«¨
|
||||||
NUM_PAGES_FN EQU 7 ; ª®«¨ç¥á⢮ áâà ¨æ ¯ ¬ï⨠¤«ï à ¡®âë FN
|
NUM_PAGES_FN EQU 7 ; ª®«¨ç¥á⢮ áâà ¨æ ¯ ¬ï⨠¤«ï à ¡®âë FN
|
||||||
@ -388,7 +388,7 @@ FNinternal
|
|||||||
|
|
||||||
; ®â« ¤®ç®¥, ¥ ¬¥ïâì ¯® ¨§¡¥¦ ¨¥ £«îª®¢
|
; ®â« ¤®ç®¥, ¥ ¬¥ïâì ¯® ¨§¡¥¦ ¨¥ £«îª®¢
|
||||||
PLUGS_ENABLE EQU 0 ; ¬¥î ¯« £¨®¢
|
PLUGS_ENABLE EQU 0 ; ¬¥î ¯« £¨®¢
|
||||||
MARK_DIR EQU 1 ; ¢ë¡®à ¤¨à¥ªâ®à¨¨ á ¯®¤áç¥â®¬ à §¬¥à ¢á¥å ä ©«®¢
|
MARK_DIR EQU 0 ; ¢ë¡®à ¤¨à¥ªâ®à¨¨ á ¯®¤áç¥â®¬ à §¬¥à ¢á¥å ä ©«®¢
|
||||||
TREE_DIR_ENTER EQU 0 ; ¯®ª § ᮤ¥à¦¨¬®£® ¤¨à¥ªâ®à¨¨ ¢ ¤¥à¥¢¥ ¯® ENTER
|
TREE_DIR_ENTER EQU 0 ; ¯®ª § ᮤ¥à¦¨¬®£® ¤¨à¥ªâ®à¨¨ ¢ ¤¥à¥¢¥ ¯® ENTER
|
||||||
CORR_FILENAME EQU 1 ; ¯à¥®¡à §®¢ ¨¥ ᨬ¢®«®¢ ¨¬¥¨ ä ©«
|
CORR_FILENAME EQU 1 ; ¯à¥®¡à §®¢ ¨¥ ᨬ¢®«®¢ ¨¬¥¨ ä ©«
|
||||||
|
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 07.09.2025 savelij
|
; LAST UPDATE: 10.01.2026 savelij
|
||||||
|
|
||||||
FLEX_VERS
|
FLEX_VERS
|
||||||
.NAVIGATOR EQU "1.16.04"
|
.NAVIGATOR EQU "1.16.05"
|
||||||
.EDITOR EQU "1.11"
|
.EDITOR EQU "1.11"
|
||||||
.VIEWER EQU "1.07"
|
.VIEWER EQU "1.07"
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 25.08.2025 savelij
|
; LAST UPDATE: 10.01.2026 savelij
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
InputLine LD (InpLnData),IX
|
InputLine LD (InpLnData),IX
|
||||||
@ -44,7 +44,7 @@ InputLine LD (InpLnData),IX
|
|||||||
JR Z,.InpLineLp
|
JR Z,.InpLineLp
|
||||||
RES 7,D
|
RES 7,D
|
||||||
BIT KEYBSTAT.B_ALT,B
|
BIT KEYBSTAT.B_ALT,B
|
||||||
JR NZ,.InpLineLp
|
JR NZ,.InpLineLp1;.InpLineLp ; ¢ë室, §¤¥áì ¥â ª®¬¡¨ 権 á ALT
|
||||||
LD IX,InpTable2
|
LD IX,InpTable2
|
||||||
BIT KEYBSTAT.B_CTRL,B
|
BIT KEYBSTAT.B_CTRL,B
|
||||||
JR NZ,.NextInpKeys
|
JR NZ,.NextInpKeys
|
||||||
|
|||||||
@ -3,11 +3,10 @@ Flex Navigator для компьютера Sprinter
|
|||||||
|
|
||||||
Собранные файлы забирать из папки fn
|
Собранные файлы забирать из папки fn
|
||||||
|
|
||||||
`FlexNavigator 1.16.03`
|
`FlexNavigator 1.16.05`
|
||||||
- MISC функции перенесены из 2 резидента в 3.
|
- в функции текстового ввода заблокирована обработка клавиши
|
||||||
- перераспределение TAB таблиц.
|
ALT, вызывало зависание при попытке сделать смену диска (ALT/Fx).
|
||||||
- в описание Flex Navigator API добавлено описание глобальных
|
- убрано удаление в режиме просмотра дерева.
|
||||||
переменных.
|
|
||||||
|
|
||||||
`FileViewer.flx 1.07`
|
`FileViewer.flx 1.07`
|
||||||
- мелкое исправление позиции вывода даты/времени.
|
- мелкое исправление позиции вывода даты/времени.
|
||||||
|
|||||||
112
rez2_fnfunct.a80
112
rez2_fnfunct.a80
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 07.09.2025 savelij
|
; LAST UPDATE: 11.01.2026 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
CopyFilesR LD A,(IY + PANEL.FILES_ALL)
|
CopyFilesR LD A,(IY + PANEL.FILES_ALL)
|
||||||
@ -193,11 +193,11 @@ CopyNxt LD IX,ProcessAll
|
|||||||
W_BORDER 16,56,288,12
|
W_BORDER 16,56,288,12
|
||||||
W_FILL 18,57,284,10,COLORI.WHITE
|
W_FILL 18,57,284,10,COLORI.WHITE
|
||||||
W_END
|
W_END
|
||||||
|
XOR A
|
||||||
|
LD (COPY.OverWriteFlg),A
|
||||||
LD HL,CurPath
|
LD HL,CurPath
|
||||||
LD DE,0 ; ¤à¥á ®â। ªâ¨à®¢ ®£® ¯ã⨠¯à¨¥¬¨ª
|
LD DE,0 ; ¤à¥á ®â। ªâ¨à®¢ ®£® ¯ã⨠¯à¨¥¬¨ª
|
||||||
.NEWPATH EQU $-2
|
.NEWPATH EQU $-2
|
||||||
XOR A
|
|
||||||
LD (COPY.OverWriteFlg),A
|
|
||||||
.NP1 LDI
|
.NP1 LDI
|
||||||
CP (HL)
|
CP (HL)
|
||||||
JR NZ,.NP1
|
JR NZ,.NP1
|
||||||
@ -207,12 +207,21 @@ CopyNxt LD IX,ProcessAll
|
|||||||
PUSH IY
|
PUSH IY
|
||||||
GETPORT WINSP.CPU3
|
GETPORT WINSP.CPU3
|
||||||
PUSH AF
|
PUSH AF
|
||||||
; ⥪ãéãî ¤¨à¥ªâ®à¨î £à㧨¬ ¢ ᢮¡®¤ãî áâà ¨æã
|
LD (CopyDir.CURR_PANEL),IY ; ¯à¨ ª®¯¨à®¢ ¨¨ ä ©« ¯®àâ¨âáï
|
||||||
|
IF MARK_DIR
|
||||||
|
; ⥪ãéãî ¤¨à¥ªâ®à¨î £à㧨¬ ¢ ᢮¡®¤ãî áâà ¨æã
|
||||||
LD A,(RAMPAGES.BuffPg3)
|
LD A,(RAMPAGES.BuffPg3)
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
SET PANELFLAG.B_DIRPAGE,(IY + PANEL.PANELFLAG)
|
SET PANELFLAG.B_DIRPAGE,(IY + PANEL.PANELFLAG)
|
||||||
CALL ReadDIR
|
CALL ReadDIR
|
||||||
LD (CopyDir.CURR_PANEL),IY ; ¯à¨ ª®¯¨à®¢ ¨¨ ä ©« ¯®àâ¨âáï
|
ELSE
|
||||||
|
BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
||||||
|
LD A,(RAMPAGES.LEFTPANEL)
|
||||||
|
JR Z,.L3
|
||||||
|
LD A,(RAMPAGES.RIGHTPANEL)
|
||||||
|
.L3
|
||||||
|
SETPORT WINSP.CPU3,,0
|
||||||
|
ENDIF
|
||||||
; ª®¯¨à®¢ ¨¥ ä ©«®¢/¤¨à¥ªâ®à¨©
|
; ª®¯¨à®¢ ¨¥ ä ©«®¢/¤¨à¥ªâ®à¨©
|
||||||
CopyNextFile LD IX,(COPY.PathCurrFile)
|
CopyNextFile LD IX,(COPY.PathCurrFile)
|
||||||
IF MARK_DIR
|
IF MARK_DIR
|
||||||
@ -222,6 +231,7 @@ CopyNextFile LD IX,(COPY.PathCurrFile)
|
|||||||
CALL DIRLIST.ADD_DIRNAME
|
CALL DIRLIST.ADD_DIRNAME
|
||||||
JP .NextHandle
|
JP .NextHandle
|
||||||
ENDIF
|
ENDIF
|
||||||
|
|
||||||
; ª®¯¨à®¢ ¨¥ ä ©« /¤¨à¥ªâ®à¨¨
|
; ª®¯¨à®¢ ¨¥ ä ©« /¤¨à¥ªâ®à¨¨
|
||||||
.CopyFile PUSH IX
|
.CopyFile PUSH IX
|
||||||
CALL PrintSrcDst
|
CALL PrintSrcDst
|
||||||
@ -442,12 +452,20 @@ CopyNextFile LD IX,(COPY.PathCurrFile)
|
|||||||
LD HL,(COPY.CopyFiles)
|
LD HL,(COPY.CopyFiles)
|
||||||
LD A,H
|
LD A,H
|
||||||
OR L
|
OR L
|
||||||
|
IF MARK_DIR
|
||||||
JR Z,CopyDir ; ä ©«ë ª®ç¨«¨áì?
|
JR Z,CopyDir ; ä ©«ë ª®ç¨«¨áì?
|
||||||
|
ELSE
|
||||||
|
JP Z,CopyEnd
|
||||||
|
ENDIF
|
||||||
DEC HL
|
DEC HL
|
||||||
LD (COPY.CopyFiles),HL
|
LD (COPY.CopyFiles),HL
|
||||||
LD A,H
|
LD A,H
|
||||||
OR L
|
OR L
|
||||||
|
IF MARK_DIR
|
||||||
JR Z,CopyDir ; ä ©«ë ª®ç¨«¨áì?
|
JR Z,CopyDir ; ä ©«ë ª®ç¨«¨áì?
|
||||||
|
ELSE
|
||||||
|
JP Z,CopyEnd
|
||||||
|
ENDIF
|
||||||
LD HL,(COPY.PathCurrFile)
|
LD HL,(COPY.PathCurrFile)
|
||||||
LD DE,FileHDR.SIZE
|
LD DE,FileHDR.SIZE
|
||||||
.L5 ADD HL,DE ; á«¥¤ãî騩 ®¯¨á ⥫ì
|
.L5 ADD HL,DE ; á«¥¤ãî騩 ®¯¨á ⥫ì
|
||||||
@ -875,9 +893,11 @@ CalcDirSizeR: PUSH IX
|
|||||||
POP IX
|
POP IX
|
||||||
RET
|
RET
|
||||||
|
|
||||||
|
|
||||||
; § ¢¥à襨¥ ª®¯¨à®¢ ¨ï
|
; § ¢¥à襨¥ ª®¯¨à®¢ ¨ï
|
||||||
CopyEnd CALL RestorePaths
|
CopyEnd
|
||||||
|
IF MARK_DIR
|
||||||
|
CALL RestorePaths
|
||||||
|
ENDIF
|
||||||
POP AF
|
POP AF
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
POP IY
|
POP IY
|
||||||
@ -1139,6 +1159,7 @@ ConvBytes2Pages:
|
|||||||
INC DE
|
INC DE
|
||||||
RET
|
RET
|
||||||
|
|
||||||
|
; ¯¥ç âì ¯ã⥩/ä ©«®¢ ¯à¨ ª®¯¨à®¢ ¨¨
|
||||||
PrintSrcDst LD HL,(COPY.PathSrc)
|
PrintSrcDst LD HL,(COPY.PathSrc)
|
||||||
LD DE,WorkBuffer
|
LD DE,WorkBuffer
|
||||||
SUB A
|
SUB A
|
||||||
@ -1172,13 +1193,13 @@ PrintSrcDst LD HL,(COPY.PathSrc)
|
|||||||
MAKEWINDOW WINSUBOBJ.WOBIND
|
MAKEWINDOW WINSUBOBJ.WOBIND
|
||||||
W_FILL 204,97,256,18,COLORI.HIGHGRAY
|
W_FILL 204,97,256,18,COLORI.HIGHGRAY
|
||||||
W_END
|
W_END
|
||||||
LD IX,0x0100
|
LD IX,256
|
||||||
LD HL,WorkBuffer
|
LD HL,WorkBuffer
|
||||||
LD DE,204
|
LD DE,204
|
||||||
LD BC,97
|
LD BC,97
|
||||||
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL PrintPathLeft
|
CALL PrintPathLeft
|
||||||
LD IX,0x0100
|
LD IX,256
|
||||||
LD HL,WorkBuffer + 0x100
|
LD HL,WorkBuffer + 0x100
|
||||||
LD DE,204
|
LD DE,204
|
||||||
LD BC,107
|
LD BC,107
|
||||||
@ -1537,7 +1558,7 @@ ReNameTree BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
|||||||
INC HL
|
INC HL
|
||||||
CALL FindTreeDIRR
|
CALL FindTreeDIRR
|
||||||
JP C,ReNameT
|
JP C,ReNameT
|
||||||
LD HL,0xC001 - 0x10
|
LD HL,0xC000 + 1 - 0x10
|
||||||
LD BC,0x0010
|
LD BC,0x0010
|
||||||
.L2 ADD HL,BC
|
.L2 ADD HL,BC
|
||||||
BIT 0,(HL)
|
BIT 0,(HL)
|
||||||
@ -2074,6 +2095,7 @@ DeleteFilesR LD A,(IY + PANEL.FILES_ALL)
|
|||||||
LD A,(IY + PANEL.FILES_MARK)
|
LD A,(IY + PANEL.FILES_MARK)
|
||||||
OR (IY + PANEL.FILES_MARK + 1)
|
OR (IY + PANEL.FILES_MARK + 1)
|
||||||
JR NZ,DeleteMark
|
JR NZ,DeleteMark
|
||||||
|
; 㤠«¥¨¥ ¯®¤ ªãàá®à®¬ ä ©« /¤¨à¥ªâ®à¨¨
|
||||||
GETPORT WINSP.CPU3
|
GETPORT WINSP.CPU3
|
||||||
PUSH AF
|
PUSH AF
|
||||||
BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
||||||
@ -2114,12 +2136,13 @@ DelFil1 INC HL
|
|||||||
POP AF
|
POP AF
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
LD A,E
|
LD A,E
|
||||||
CP '.'
|
CP '.' ; ¢ ¨¬¥¨ ä ©« ¢ ®¯¨á ⥫¥? áâà ï ¯à®¢¥àª
|
||||||
RET Z
|
RET Z
|
||||||
CP '\\'
|
CP '\\' ; ¢ ¨¬¥¨ ä ©« ¢ ®¯¨á ⥫¥? ¥é¥ áâà ¥©
|
||||||
RET Z
|
RET Z
|
||||||
JR DelNext
|
JR DelNext
|
||||||
|
|
||||||
|
; 㤠«¥¨¥ ¬ ન஢ ëå ä ©«®¢/¤¨à¥ªâ®à¨©
|
||||||
DeleteMark
|
DeleteMark
|
||||||
GETPORT WINSP.CPU3
|
GETPORT WINSP.CPU3
|
||||||
PUSH AF
|
PUSH AF
|
||||||
@ -2176,7 +2199,7 @@ DeleteMain
|
|||||||
JR NZ,.L1
|
JR NZ,.L1
|
||||||
LD (DE),A
|
LD (DE),A
|
||||||
BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
||||||
JR NZ,DelLp0
|
JR NZ,.DelLp0
|
||||||
DEC HL
|
DEC HL
|
||||||
LD A,'\\'
|
LD A,'\\'
|
||||||
CP (HL)
|
CP (HL)
|
||||||
@ -2184,7 +2207,7 @@ DeleteMain
|
|||||||
LD (DE),A
|
LD (DE),A
|
||||||
INC DE
|
INC DE
|
||||||
.L2 CALL MakeDELname
|
.L2 CALL MakeDELname
|
||||||
DelLp0 LD IX,0x00F8
|
.DelLp0 LD IX,248
|
||||||
LD HL,WorkBuffer
|
LD HL,WorkBuffer
|
||||||
LD DE,320
|
LD DE,320
|
||||||
LD BC,106
|
LD BC,106
|
||||||
@ -2199,24 +2222,24 @@ DelLoop LD IX,REZ2TAB.DeleteTab
|
|||||||
JR NZ,DelLoop
|
JR NZ,DelLoop
|
||||||
LD A,E
|
LD A,E
|
||||||
CP 0x1B
|
CP 0x1B
|
||||||
LD HL,DelExit
|
LD HL,DeleteExit
|
||||||
JR Z,DelJump
|
JR Z,DelJump
|
||||||
CP 0x0D
|
CP 0x0D
|
||||||
LD HL,DelDelete
|
LD HL,DeleteOne
|
||||||
JR Z,DelJump
|
JR Z,DelJump
|
||||||
RES 5,A
|
RES 5,A
|
||||||
CP 'D'
|
CP 'D'
|
||||||
LD HL,DelDelete
|
LD HL,DeleteOne
|
||||||
JR Z,DelJump
|
JR Z,DelJump
|
||||||
CP 'A'
|
CP 'A'
|
||||||
LD HL,DelAll
|
LD HL,DeleteAll
|
||||||
JR Z,DelJump
|
JR Z,DelJump
|
||||||
CP 'S'
|
CP 'S'
|
||||||
LD HL,DelSkip
|
LD HL,DeleteSkip
|
||||||
JR Z,DelJump
|
JR Z,DelJump
|
||||||
CP 'C'
|
CP 'C'
|
||||||
JR NZ,DelLoop
|
JR NZ,DelLoop
|
||||||
LD HL,DelExit
|
LD HL,DeleteExit
|
||||||
DelJump
|
DelJump
|
||||||
WINDOWCLOSE
|
WINDOWCLOSE
|
||||||
JP (HL)
|
JP (HL)
|
||||||
@ -2237,11 +2260,12 @@ MakeDELname LD HL,(AdrDelFile)
|
|||||||
RET
|
RET
|
||||||
|
|
||||||
;--------------------------------------------------------------
|
;--------------------------------------------------------------
|
||||||
DelSkip LD C,(IY + PANEL.FILES_MARK)
|
; ¯à®¯ã᪠㤠«¥¨ï
|
||||||
|
DeleteSkip LD C,(IY + PANEL.FILES_MARK)
|
||||||
LD B,(IY + PANEL.FILES_MARK + 1)
|
LD B,(IY + PANEL.FILES_MARK + 1)
|
||||||
LD A,B
|
LD A,B
|
||||||
OR C
|
OR C
|
||||||
JP Z,DelExit
|
JP Z,DeleteExit
|
||||||
LD IX,(AdrDelFile)
|
LD IX,(AdrDelFile)
|
||||||
RES 0,(IX + 0x00)
|
RES 0,(IX + 0x00)
|
||||||
LD L,(IY + PANEL.BYTES_MARK)
|
LD L,(IY + PANEL.BYTES_MARK)
|
||||||
@ -2269,7 +2293,7 @@ DelSkip LD C,(IY + PANEL.FILES_MARK)
|
|||||||
LD (IY + PANEL.FILES_MARK + 1),B
|
LD (IY + PANEL.FILES_MARK + 1),B
|
||||||
LD A,B
|
LD A,B
|
||||||
OR C
|
OR C
|
||||||
JP Z,DelExit
|
JP Z,DeleteExit
|
||||||
LD HL,(AdrDelFile)
|
LD HL,(AdrDelFile)
|
||||||
LD DE,FileHDR.SIZE
|
LD DE,FileHDR.SIZE
|
||||||
.L1 ADD HL,DE
|
.L1 ADD HL,DE
|
||||||
@ -2279,7 +2303,8 @@ DelSkip LD C,(IY + PANEL.FILES_MARK)
|
|||||||
CALL PrintDIR
|
CALL PrintDIR
|
||||||
JP DeleteMain
|
JP DeleteMain
|
||||||
|
|
||||||
DelDelete CALL PointerMouseClock
|
; 㤠«¥¨¥ ®¤®£® ä ©« /¤¨àë
|
||||||
|
DeleteOne CALL PointerMouseClock
|
||||||
BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
||||||
JR Z,DelDel0
|
JR Z,DelDel0
|
||||||
PUSH IY
|
PUSH IY
|
||||||
@ -2306,7 +2331,7 @@ DelDelete CALL PointerMouseClock
|
|||||||
PUSH AF
|
PUSH AF
|
||||||
CALL C,DOSError
|
CALL C,DOSError
|
||||||
POP AF
|
POP AF
|
||||||
JP C,DelExit
|
JP C,DeleteExit
|
||||||
DelDel0 LD IX,(AdrDelFile)
|
DelDel0 LD IX,(AdrDelFile)
|
||||||
LD DE,WorkBuffer
|
LD DE,WorkBuffer
|
||||||
PUSH DE
|
PUSH DE
|
||||||
@ -2326,14 +2351,15 @@ DelDel1 PUSH IY
|
|||||||
CALL DOSError
|
CALL DOSError
|
||||||
OR A
|
OR A
|
||||||
CALL NZ,BegDIRECTORY
|
CALL NZ,BegDIRECTORY
|
||||||
JP DelExit
|
JP DeleteExit
|
||||||
|
|
||||||
DelDel2 LD A,0x01
|
DelDel2 LD A,0x01
|
||||||
LD (DeleteFlag),A
|
LD (DeleteFlag),A
|
||||||
CALL PointerMousePointer
|
CALL PointerMousePointer
|
||||||
JP DelSkip
|
JP DeleteSkip
|
||||||
|
|
||||||
DelAll BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
DeleteAll BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
||||||
JR NZ,DelDelete
|
JR NZ,DeleteOne
|
||||||
LD A,0x01
|
LD A,0x01
|
||||||
LD (DeleteFlag),A
|
LD (DeleteFlag),A
|
||||||
CALL PointerMouseClock
|
CALL PointerMouseClock
|
||||||
@ -2380,7 +2406,7 @@ DelFrom EQU $-2
|
|||||||
MAKEWINDOW WINSUBOBJ.WOBIND
|
MAKEWINDOW WINSUBOBJ.WOBIND
|
||||||
W_FILL 208,104,256,8,COLORI.HIGHGRAY
|
W_FILL 208,104,256,8,COLORI.HIGHGRAY
|
||||||
W_END
|
W_END
|
||||||
LD IX,0x0100
|
LD IX,256
|
||||||
LD HL,WorkBuffer
|
LD HL,WorkBuffer
|
||||||
LD DE,208
|
LD DE,208
|
||||||
LD BC,104
|
LD BC,104
|
||||||
@ -2390,7 +2416,7 @@ DelFrom EQU $-2
|
|||||||
LD HL,SC.ESC << 8 | 0x1B
|
LD HL,SC.ESC << 8 | 0x1B
|
||||||
OR A
|
OR A
|
||||||
SBC HL,DE
|
SBC HL,DE
|
||||||
JP Z,DelAllExit
|
JP Z,DeleteAllExit
|
||||||
LD IX,(AdrDelFile)
|
LD IX,(AdrDelFile)
|
||||||
LD DE,WorkBuffer
|
LD DE,WorkBuffer
|
||||||
PUSH DE
|
PUSH DE
|
||||||
@ -2398,9 +2424,9 @@ DelFrom EQU $-2
|
|||||||
POP HL
|
POP HL
|
||||||
LD A,(IX + FileHDR.Attr)
|
LD A,(IX + FileHDR.Attr)
|
||||||
BIT DIR.B_Dir,A
|
BIT DIR.B_Dir,A
|
||||||
LD C,DSSF.DELETE
|
LD C,DSSF.DELETE ; 㤠«¥¨¥ ä ©«
|
||||||
JR Z,.L3
|
JR Z,.L3
|
||||||
LD C,DSSF.RMDIR
|
LD C,DSSF.RMDIR ; 㤠«¥¨¥ ¤¨à¥ªâ®à¨¨
|
||||||
.L3 PUSH IY
|
.L3 PUSH IY
|
||||||
SPDSS
|
SPDSS
|
||||||
POP IY
|
POP IY
|
||||||
@ -2408,7 +2434,7 @@ DelFrom EQU $-2
|
|||||||
CALL DOSError
|
CALL DOSError
|
||||||
OR A
|
OR A
|
||||||
CALL NZ,BegDIRECTORY
|
CALL NZ,BegDIRECTORY
|
||||||
JP DelAllExit
|
JP DeleteAllExit
|
||||||
|
|
||||||
DelA1 LD IX,ProcessDel
|
DelA1 LD IX,ProcessDel
|
||||||
LD L,(IX + PROGRESSBAR.CURR_PAGE)
|
LD L,(IX + PROGRESSBAR.CURR_PAGE)
|
||||||
@ -2421,7 +2447,7 @@ DelA1 LD IX,ProcessDel
|
|||||||
LD B,(IY + PANEL.FILES_MARK + 1)
|
LD B,(IY + PANEL.FILES_MARK + 1)
|
||||||
LD A,B
|
LD A,B
|
||||||
OR C
|
OR C
|
||||||
JP Z,DelAllExit
|
JP Z,DeleteAllExit
|
||||||
LD IX,(AdrDelFile)
|
LD IX,(AdrDelFile)
|
||||||
RES FileHDR.B_MARK,(IX + FileHDR.Flag)
|
RES FileHDR.B_MARK,(IX + FileHDR.Flag)
|
||||||
LD L,(IY + PANEL.BYTES_MARK)
|
LD L,(IY + PANEL.BYTES_MARK)
|
||||||
@ -2449,7 +2475,7 @@ DelA1 LD IX,ProcessDel
|
|||||||
LD (IY + PANEL.FILES_MARK + 1),B
|
LD (IY + PANEL.FILES_MARK + 1),B
|
||||||
LD A,B
|
LD A,B
|
||||||
OR C
|
OR C
|
||||||
JP Z,DelAllExit
|
JP Z,DeleteAllExit
|
||||||
LD HL,(AdrDelFile)
|
LD HL,(AdrDelFile)
|
||||||
LD DE,FileHDR.SIZE
|
LD DE,FileHDR.SIZE
|
||||||
.L1 ADD HL,DE
|
.L1 ADD HL,DE
|
||||||
@ -2458,20 +2484,12 @@ DelA1 LD IX,ProcessDel
|
|||||||
LD (AdrDelFile),HL
|
LD (AdrDelFile),HL
|
||||||
JP DeleteAllLp
|
JP DeleteAllLp
|
||||||
|
|
||||||
ProcessDel DW 178
|
ProcessDel DW 178,117,284,0,0,0,0,0,0
|
||||||
DW 117
|
|
||||||
DW 284
|
|
||||||
DW 0
|
|
||||||
DW 0
|
|
||||||
DW 0
|
|
||||||
DW 0
|
|
||||||
DW 0
|
|
||||||
DW 0
|
|
||||||
DB COLORP.BLUE + COLORI.WHITE
|
DB COLORP.BLUE + COLORI.WHITE
|
||||||
|
|
||||||
DelAllExit HALT
|
DeleteAllExit HALT
|
||||||
WINDOWCLOSE
|
WINDOWCLOSE
|
||||||
DelExit BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
DeleteExit BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
||||||
JR NZ,DelTreeDIR1
|
JR NZ,DelTreeDIR1
|
||||||
LD IX,(AdrDelFile)
|
LD IX,(AdrDelFile)
|
||||||
BIT DIR.B_Dir,(IX + FileHDR.Attr)
|
BIT DIR.B_Dir,(IX + FileHDR.Attr)
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 15.08.2025 savelij
|
; LAST UPDATE: 12.09.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
; ”®à¬ â â ¡«¨æë
|
; ”®à¬ â â ¡«¨æë
|
||||||
@ -92,14 +92,14 @@ REZ2TAB
|
|||||||
DW 0x8000
|
DW 0x8000
|
||||||
|
|
||||||
;[]===============================================================[]
|
;[]===============================================================[]
|
||||||
.DeleteTab: DW 196,252,118,132,%0000000100100001,0,DelDelete,0
|
.DeleteTab: DW 196,252,118,132,%0000000100100001,0,DeleteOne,0
|
||||||
DW 260,316,118,132,%0000000100100001,0,DelAll,0
|
DW 260,316,118,132,%0000000100100001,0,DeleteAll,0
|
||||||
DW 324,380,118,132,%0000000100100001,0,DelSkip,0
|
DW 324,380,118,132,%0000000100100001,0,DeleteSkip,0
|
||||||
DW 388,444,118,132,%0000000100100001,0,DelExit,0
|
DW 388,444,118,132,%0000000100100001,0,DeleteExit,0
|
||||||
DW 0,180, 0,256,%0000000100100000,0,DelExit,0
|
DW 0,180, 0,256,%0000000100100000,0,DeleteExit,0
|
||||||
DW 460,640, 0,256,%0000000100100000,0,DelExit,0
|
DW 460,640, 0,256,%0000000100100000,0,DeleteExit,0
|
||||||
DW 0,640, 0, 80,%0000000100100000,0,DelExit,0
|
DW 0,640, 0, 80,%0000000100100000,0,DeleteExit,0
|
||||||
DW 0,640,136,256,%0000000100100000,0,DelExit,0
|
DW 0,640,136,256,%0000000100100000,0,DeleteExit,0
|
||||||
DW 0x8000
|
DW 0x8000
|
||||||
|
|
||||||
.EmptyTab: DW 0,640, 0,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
.EmptyTab: DW 0,640, 0,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
|
|||||||
2
setpath_tools.bat
Normal file
2
setpath_tools.bat
Normal file
@ -0,0 +1,2 @@
|
|||||||
|
|
||||||
|
set path=d:\yad\svn\pentevo\tools\asl\bin\;d:\yad\svn\pentevo\tools\mhmt\;d:\yad\svn\pentevo\tools\noice2equ\
|
||||||
Loading…
Reference in New Issue
Block a user