Compare commits
4 Commits
ec227157b0
...
50a6074f16
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
50a6074f16 | ||
|
|
ac87c5571e | ||
| 7940810ffd | |||
|
|
e4977b4a6f |
@ -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
|
||||||
@ -18,9 +18,9 @@ asl -U -L -C -x -olist tmp\fnexeboot.lst -i %includes% -D NO_EDIT,NO_VIEW,NO_HEL
|
|||||||
p2bin fn_exe_boot.p tmp\fn.exe -r $-$ -k
|
p2bin fn_exe_boot.p tmp\fn.exe -r $-$ -k
|
||||||
|
|
||||||
rem Flex Navigator Plugins
|
rem Flex Navigator Plugins
|
||||||
rem cd plugins
|
cd plugins
|
||||||
rem call build_all
|
call build_all
|
||||||
rem cd ..
|
cd ..
|
||||||
|
|
||||||
copy /Y /B tmp\fn.exe fn\fn.exe
|
copy /Y /B tmp\fn.exe fn\fn.exe
|
||||||
copy /Y /B plugins\*.flx fn\flx
|
copy /Y /B plugins\*.flx fn\flx
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
[]========================================================================[]
|
[]========================================================================[]
|
||||||
* *
|
* *
|
||||||
* ޝ¨á ¨¥ Flex Navigator API v1.xx ¤«ï à §à ¡®â稪®¢ Flx-Plugins *
|
* ޝ¨á ¨¥ Flex Navigator API v1.xx ¤«ï à §à ¡®â稪®¢ Flx-Plugins *
|
||||||
* doc v0.5 ®â 26.07.2025 (¢ ¯à®æ¥áá¥) *
|
* doc v0.5 ®â 07.09.2025 *
|
||||||
* *
|
* *
|
||||||
[]========================================================================[]
|
[]========================================================================[]
|
||||||
|
|
||||||
@ -137,7 +137,8 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.InvertRectan - ¯à®æ¥¤ãà § ¬¥ë 梥⠯àאַ㣮«ì®© ¯«®áª®áâ¨
|
JUMPS.ReplaceColorRectan - ¯à®æ¥¤ãà § ¬¥ë 梥⠯àאַ㣮«ì®©
|
||||||
|
¯«®áª®áâ¨
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
HL - x ª®®à¤¨ â
|
HL - x ª®®à¤¨ â
|
||||||
@ -156,7 +157,7 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.PrnTxtLnIFF - ¯à®æ¥¤ãà ¢ë¢®¤ ⥪á⮢ëå áâப £à ä¨ç¥áª¨©
|
JUMPS.PrintTxtLine_IFF - ¯à®æ¥¤ãà ¢ë¢®¤ ⥪á⮢ëå áâப £à ä¨ç¥áª¨©
|
||||||
íªà 640x256 ¢ ०¨¬¥ à §¬¥à®£® ¯® X èà¨äâ
|
íªà 640x256 ¢ ०¨¬¥ à §¬¥à®£® ¯® X èà¨äâ
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
@ -170,7 +171,7 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.PrnTxtLnNorm - ¯à®æ¥¤ãà ¢ë¢®¤ ⥪á⮢ëå áâப £à ä¨ç¥áª¨©
|
JUMPS.PrintTxtLine - ¯à®æ¥¤ãà ¢ë¢®¤ ⥪á⮢ëå áâப £à ä¨ç¥áª¨©
|
||||||
íªà 640x256
|
íªà 640x256
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
@ -184,8 +185,8 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.PrnTxtLnNormC - ¯à®æ¥¤ãà ¢ë¢®¤ ⥪á⮢ëå áâப £à ä¨ç¥áª¨©
|
JUMPS.PrintTxtLineNumsChar - ¯à®æ¥¤ãà ¢ë¢®¤ ⥪á⮢ëå áâப
|
||||||
íªà 640x256 á ¨§¢¥áâë¬ ç¨á«®¬ ᨬ¢®«®¢
|
£à ä¨ç¥áª¨© íªà 640x256 á ¨§¢¥áâë¬ ç¨á«®¬ ᨬ¢®«®¢
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
HL - ¤à¥á ⥪á⮢®© áâப¨
|
HL - ¤à¥á ⥪á⮢®© áâப¨
|
||||||
@ -199,7 +200,7 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.PrnRangPathL - ¯à®æ¥¤ãà ¢ë¢®¤ ¤®á®¢áª¨å ¯ã⥩ £à ä¨ç¥áª¨©
|
JUMPS.PrintPathLeft - ¯à®æ¥¤ãà ¢ë¢®¤ ¤®á®¢áª¨å ¯ã⥩ £à ä¨ç¥áª¨©
|
||||||
íªà 640x256 ¢ ०¨¬¥ à §¬¥à®£® ¯® X èà¨äâ , ¯à¨¦ âëå ª
|
íªà 640x256 ¢ ०¨¬¥ à §¬¥à®£® ¯® X èà¨äâ , ¯à¨¦ âëå ª
|
||||||
«¥¢®¬ã ªà î ( |-> )
|
«¥¢®¬ã ªà î ( |-> )
|
||||||
|
|
||||||
@ -218,7 +219,7 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.PrnRangPathR - ¯à®æ¥¤ãà ¢ë¢®¤ ¤®á®¢áª¨å ¯ã⥩ £à ä¨ç¥áª¨©
|
JUMPS.PrintPathRight - ¯à®æ¥¤ãà ¢ë¢®¤ ¤®á®¢áª¨å ¯ã⥩ £à ä¨ç¥áª¨©
|
||||||
íªà 640x256 ¢ ०¨¬¥ à §¬¥à®£® ¯® X èà¨äâ , ¯à¨¦ âëå ª
|
íªà 640x256 ¢ ०¨¬¥ à §¬¥à®£® ¯® X èà¨äâ , ¯à¨¦ âëå ª
|
||||||
¯à ¢®¬ã ªà î ( <-| )
|
¯à ¢®¬ã ªà î ( <-| )
|
||||||
|
|
||||||
@ -237,7 +238,7 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.PrnRangPathC - ¯à®æ¥¤ãà ¢ë¢®¤ ¤®á®¢áª¨å ¯ã⥩ £à ä¨ç¥áª¨©
|
JUMPS.PrintPathCentr - ¯à®æ¥¤ãà ¢ë¢®¤ ¤®á®¢áª¨å ¯ã⥩ £à ä¨ç¥áª¨©
|
||||||
íªà 640x256 ¢ ०¨¬¥ à §¬¥à®£® ¯® X èà¨äâ , ®âæ¥âà¨à®¢ ëå
|
íªà 640x256 ¢ ०¨¬¥ à §¬¥à®£® ¯® X èà¨äâ , ®âæ¥âà¨à®¢ ëå
|
||||||
®â®á¨â¥«ì® ªà ñ¢ ( <-|-> )
|
®â®á¨â¥«ì® ªà ñ¢ ( <-|-> )
|
||||||
|
|
||||||
@ -278,8 +279,8 @@
|
|||||||
+0C ... á ¬ áâப
|
+0C ... á ¬ áâப
|
||||||
|
|
||||||
¯à®æ¥¤ãàë ¤«ï â ¡«¨æë í«¥¬¥â®¢ íªà :
|
¯à®æ¥¤ãàë ¤«ï â ¡«¨æë í«¥¬¥â®¢ íªà :
|
||||||
JUMPS.InpLnExtN - ¯à®æ¥¤ãà ®à¬ «ì®£® ¢ë室 ¨§ । ªæ¨¨
|
JUMPS.InputLineExitOk - ¯à®æ¥¤ãà ®à¬ «ì®£® ¢ë室 ¨§ । ªæ¨¨
|
||||||
JUMPS.InpLnExtC - ¯à®æ¥¤ãà ¢ë室 ¨§ । ªæ¨¨ ¯® cancel
|
JUMPS.InputLineExitCancel - ¯à®æ¥¤ãà ¢ë室 ¨§ । ªæ¨¨ ¯® cancel
|
||||||
(¢®ááâ ¢«¨¢ ¥â ¨§ ç «ìãî áâபã)
|
(¢®ááâ ¢«¨¢ ¥â ¨§ ç «ìãî áâபã)
|
||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
@ -317,7 +318,7 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.PrnHScrBar - ¯à®æ¥¤ãà ¯¥ç ⨠£®à¨§®â «ì®£® áªà®««¡ à
|
JUMPS.DrawHScrollBar - ¯à®æ¥¤ãà ¢ë¢®¤ £®à¨§®â «ì®£® áªà®««¡ à
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
IX - ¤à¥á ®¯¨á ⥫ï áªà®««¡ à (á¬. ¢ëè¥)
|
IX - ¤à¥á ®¯¨á ⥫ï áªà®««¡ à (á¬. ¢ëè¥)
|
||||||
@ -326,7 +327,7 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.PrnVScrBar - ¯à®æ¥¤ãà ¯¥ç ⨠¢¥à⨪ «ì®£® áªà®««¡ à
|
JUMPS.DrawVScrollBar - ¯à®æ¥¤ãà ¯¥ç ⨠¢¥à⨪ «ì®£® áªà®««¡ à
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
IX - ¤à¥á ®¯¨á ⥫ï áªà®««¡ à (á¬. ¢ëè¥)
|
IX - ¤à¥á ®¯¨á ⥫ï áªà®««¡ à (á¬. ¢ëè¥)
|
||||||
@ -335,7 +336,7 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.InitProcess - ¯à®æ¥¤ãà ¨¨æ¨ «¨§ 樨 ®¯¨á â¥«ï ¯à®æ¥áá¡ à
|
JUMPS.InitProgressBar - ¯à®æ¥¤ãà ¨¨æ¨ «¨§ 樨 ®¯¨á â¥«ï ¯à®£à¥áá¡ à
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
IX - ¤à¥á ®¯¨á â¥«ï ¯à®æ¥áá¡ à
|
IX - ¤à¥á ®¯¨á â¥«ï ¯à®æ¥áá¡ à
|
||||||
@ -346,16 +347,17 @@
|
|||||||
+00 (2) X ¯®§¨æ¨ï ¯à®æ¥áá¡ à (0-639)
|
+00 (2) X ¯®§¨æ¨ï ¯à®æ¥áá¡ à (0-639)
|
||||||
+02 (2) Y ¯®§¨æ¨ï ¯à®æ¥áá¡ à (0-255)
|
+02 (2) Y ¯®§¨æ¨ï ¯à®æ¥áá¡ à (0-255)
|
||||||
+04 (2) ¤«¨ ¯à®æ¥áá¡ à
|
+04 (2) ¤«¨ ¯à®æ¥áá¡ à
|
||||||
+06 (2) ª®íä䍿¨¥â ¤«ï ¯à®æ¥áá (¨¨æ¨ «¨§¨àã¥âáï ¢ InitProcess)
|
+06 (2) ª®íä䍿¨¥â ¤«ï ¯à®æ¥áá (¨¨æ¨ «¨§¨àã¥âáï ¢
|
||||||
+08 (2) ª®à४æ¨ï ª®í䍿¨¥â (¨¨æ¨ «¨§¨àã¥âáï ¢ InitProcess)
|
InitProgressBar)
|
||||||
+10 (4) ¬ ªá¨¬ã¬ (¨¨æ¨ «¨§¨àã¥âáï ¢ InitProcess)
|
+08 (2) ª®à४æ¨ï ª®í䍿¨¥â (¨¨æ¨ «¨§¨àã¥âáï ¢ InitProgressBar)
|
||||||
+14 (4) ⥪ã饥 (¨¨æ¨ «¨§¨àã¥âáï ¢ InitProcess)
|
+10 (4) ¬ ªá¨¬ã¬ (¨¨æ¨ «¨§¨àã¥âáï ¢ InitProgressBar)
|
||||||
|
+14 (4) ⥪ã饥 (¨¨æ¨ «¨§¨àã¥âáï ¢ InitProgressBar)
|
||||||
+18 (1) æ¢¥â ¯à®æ¥áá¡ à
|
+18 (1) æ¢¥â ¯à®æ¥áá¡ à
|
||||||
(d7-d4 梥â background, d3-d0 梥â foreground)
|
(d7-d4 梥â background, d3-d0 梥â foreground)
|
||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.PrnProcess - ¯à®æ¥¤ãà ¯¥ç ⨠¯à®æ¥áá¡ à
|
JUMPS.DrawProgressBar - ¯à®æ¥¤ãà ¯¥ç ⨠¯à®£à¥áá¡ à
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
IX - ¤à¥á ®¯¨á â¥«ï ¯à®æ¥áá¡ à (á¬. ¢ëè¥)
|
IX - ¤à¥á ®¯¨á â¥«ï ¯à®æ¥áá¡ à (á¬. ¢ëè¥)
|
||||||
@ -364,13 +366,13 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
5 ª®¬ ¤ ¯¥à¥å®¤ (12 ¡ ©â) § १¥à¢¨à®¢ ë ¨ § ¯®«¥ë
|
5 ª®¬ ¤ ¯¥à¥å®¤ (15 ¡ ©â) § १¥à¢¨à®¢ ë ¨ § ¯®«¥ë
|
||||||
ª®¬ ¤®© RET (12 ¡ ©â 0xC9)
|
ª®¬ ¤®© RET (15 ¡ ©â 0xC9)
|
||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.ResFire - ¯à®æ¥¤ãà ®¦¨¤ ¨ï, ¯®ª ¢á¥ ª®¯ª¨ ¬ëè¨ ¥ ¡ã¤ãâ
|
JUMPS.WaitUnpressMouse - ¯à®æ¥¤ãà ®¦¨¤ ¨ï, ¯®ª ¢á¥ ª®¯ª¨ ¬ëè¨ ¥
|
||||||
®â¯ãé¥ë
|
¡ã¤ãâ ®â¯ãé¥ë
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
-
|
-
|
||||||
@ -379,7 +381,7 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.TestCoords - ¯à®æ¥¤ãà ¯à®¢¥àª¨ ª®®à¤¨ â ¬ëè¨ ¯® â ¡«¨æ¥
|
JUMPS.CheckCoordsMouse - ¯à®æ¥¤ãà ¯à®¢¥àª¨ ª®®à¤¨ â ¬ëè¨ ¯® â ¡«¨æ¥
|
||||||
í«¥¬¥â®¢ íªà
|
í«¥¬¥â®¢ íªà
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
@ -388,10 +390,10 @@
|
|||||||
-
|
-
|
||||||
|
|
||||||
â ¡«¨æ í«¥¬¥â®¢ §ªà :
|
â ¡«¨æ í«¥¬¥â®¢ §ªà :
|
||||||
+00 (2) «¥¢ ï x ª®®à¤¨ â í«¥¬¥â
|
+00 (2) «¥¢ ï X ª®®à¤¨ â í«¥¬¥â
|
||||||
+02 (2) ¯à ¢ ï x ª®®à¤¨ â í«¥¬¥â
|
+02 (2) ¯à ¢ ï X ª®®à¤¨ â í«¥¬¥â
|
||||||
+04 (2) ¢¥àåïï y ª®®à¤¨ â í«¥¬¥â
|
+04 (2) ¢¥àåïï Y ª®®à¤¨ â í«¥¬¥â
|
||||||
+06 (2) ¨¦ïï y ª®®à¤¨ â í«¥¬¥â
|
+06 (2) ¨¦ïï Y ª®®à¤¨ â í«¥¬¥â
|
||||||
+08 (2) ä« £¨ í«¥¬¥â
|
+08 (2) ä« £¨ í«¥¬¥â
|
||||||
+10 (2) ¤à¥á ®¡à ¡®â稪 ¯à¨ ¥ ¦ ⮬ ®£¥
|
+10 (2) ¤à¥á ®¡à ¡®â稪 ¯à¨ ¥ ¦ ⮬ ®£¥
|
||||||
+12 (2) ¤à¥á ®¡à ¡®â稪 ¯à¨ ¦ ⮬ ®£¥ («¥¢ ï ª®¯ª )
|
+12 (2) ¤à¥á ®¡à ¡®â稪 ¯à¨ ¦ ⮬ ®£¥ («¥¢ ï ª®¯ª )
|
||||||
@ -434,24 +436,30 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.SetCMOSPrint - ¯à®æ¥¤ãà ¢ª«îç¥¨ï ¯¥ç ⨠¤ âë/¢à¥¬ï ¨§ CMOS
|
JUMPS.CMOSPrintDateTime - ¯à®æ¥¤ãà ¯¥ç ⨠íªà ¥ ¤ âë/¢à¥¬ï ¨§ CMOS
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
- ¡ã¤¥â ®¯¨á ® ¯®§¤¥¥
|
HL - X ¯®§¨æ¨ï ¢ë¢®¤ ¢à¥¬¥¨
|
||||||
¢ë室:
|
DE - Y ¯®§¨æ¨ï ¢ë¢®¤ ¢à¥¬¥¨
|
||||||
-
|
B - 梥⠢뢮¤ ¢à¥¬¥¨
|
||||||
[]------------------------------------------------------------------------[]
|
HL' - X ¯®§¨æ¨ï ¢ë¢®¤ ¤ âë
|
||||||
|
DE' - Y ¯®§¨æ¨ï ¢ë¢®¤ ¤ âë
|
||||||
JUMPS.ResCMOSPrint - ¯à®æ¥¤ãà ¢ëª«îç¥¨ï ¯¥ç ⨠¤ âë/¢à¥¬ï ¨§ CMOS
|
B' - 梥⠢뢮¤ ¤ âë
|
||||||
|
A - ä®à¬ ⠢뢮¤ ¬¥áïæ ¢ ¤ â¥
|
||||||
¢å®¤:
|
1 - ¬¥áïæ ¢ë¢®¤¨âáï ç¨á«®¬
|
||||||
- ¡ã¤¥â ®¯¨á ® ¯®§¤¥¥
|
2 - ¬¥áïæ ¢ë¢®¤¨âáï ⥪á⮬,
|
||||||
|
ç¨á«® ¢ë¢®¤¨âáï ¡¥§ ¢¥¤ã饣® ã«ï
|
||||||
¢ë室:
|
¢ë室:
|
||||||
-
|
-
|
||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.SetClock - ¯à®æ¥¤ãà ãáâ ®¢ª¨ ªãàá®à ¬ëè¨ ¢ ç áë
|
1 ª®¬ ¤ ¯¥à¥å®¤ (3 ¡ ©â ) § १¥à¢¨à®¢ ë ¨ § ¯®«¥ë
|
||||||
|
ª®¬ ¤®© RET (3 ¡ ©â 0xC9)
|
||||||
|
|
||||||
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
|
JUMPS.PointerMouseClock - ¯à®æ¥¤ãà ãáâ ®¢ª¨ ªãàá®à ¬ëè¨ ¢ ç áë
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
-
|
-
|
||||||
@ -460,7 +468,8 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.SetMouse - ¯à®æ¥¤ãà ãáâ ®¢ª¨ ªãàá®à ¬ëè¨ ¢ ®à¬ «ìë© ªãàá®à
|
JUMPS.PointerMousePointer - ¯à®æ¥¤ãà ãáâ ®¢ª¨ ªãàá®à ¬ëè¨ ¢
|
||||||
|
®à¬ «ìë© ªãàá®à
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
-
|
-
|
||||||
@ -474,8 +483,8 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.ConvNumTxt40 - ¯à®æ¥¤ãà ª®¢¥àâ æ¨¨ ¡¥§§ ª®¢®£® ç¨á«
|
JUMPS.ConvertNumbers_40b - ¯à®æ¥¤ãà ª®¢¥àâ æ¨¨ ¡¥§§ ª®¢®£® ç¨á«
|
||||||
40 bit ¢ ⥪áâ
|
40 bit ¢ ⥪áâ á 㤠«¥¨¥¬ ¢¥¤ãé¨å ã«¥©.
|
||||||
|
|
||||||
¢å®¤¥:
|
¢å®¤¥:
|
||||||
ABCHL - ç¨á«®
|
ABCHL - ç¨á«®
|
||||||
@ -484,7 +493,7 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.MoveBytes - ¯à®æ¥¤ãà ¡ëáâண® ª®¯¨à®¢ ¨ï ¯ ¬ïâ¨ á ¯®¬®éìî
|
JUMPS.MoveBytesInc - ¯à®æ¥¤ãà ¡ëáâண® ª®¯¨à®¢ ¨ï ¯ ¬ïâ¨ á ¯®¬®éìî
|
||||||
ªá¥««¥à â®à á 㢥«¨ç¥¨¥¬ ¤à¥á®¢
|
ªá¥««¥à â®à á 㢥«¨ç¥¨¥¬ ¤à¥á®¢
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
@ -497,7 +506,7 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.MoveBytesUp - ¯à®æ¥¤ãà ¡ëáâண® ª®¯¨à®¢ ¨ï ¯ ¬ïâ¨ á ¯®¬®éìî
|
JUMPS.MoveBytesDec - ¯à®æ¥¤ãà ¡ëáâண® ª®¯¨à®¢ ¨ï ¯ ¬ïâ¨ á ¯®¬®éìî
|
||||||
ªá¥««¥à â®à á 㬥ì襨¥¬ ¤à¥á®¢
|
ªá¥««¥à â®à á 㬥ì襨¥¬ ¤à¥á®¢
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
@ -510,7 +519,7 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.Mult8 - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® 㬮¦¥¨ï
|
JUMPS.Mul_8X8_16b - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® 㬮¦¥¨ï
|
||||||
8 * 8 bit = 16 bit
|
8 * 8 bit = 16 bit
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
@ -520,7 +529,7 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.Mult16X8 - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® 㬮¦¥¨ï
|
JUMPS.Mul_16X8_24b - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® 㬮¦¥¨ï
|
||||||
16 * 8 bit = 24 bit
|
16 * 8 bit = 24 bit
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
@ -530,7 +539,7 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.Mult16 - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® 㬮¦¥¨ï
|
JUMPS.Mul_16X16_16b - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® 㬮¦¥¨ï
|
||||||
16 * 16 bit = 16 bit
|
16 * 16 bit = 16 bit
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
@ -540,27 +549,27 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.Mult16X16 - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® 㬮¦¥¨ï
|
JUMPS.Mul_16X16_32b - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® 㬮¦¥¨ï
|
||||||
16 * 16 bit = 32 bit
|
16 * 16 bit = 32 bit
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
DE * BC
|
DE * BC
|
||||||
¢ë室:
|
¢ë室:
|
||||||
HL, DE - १ã«ìâ â
|
HLDE - १ã«ìâ â
|
||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.Mult32 - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® 㬮¦¥¨ï
|
JUMPS.Mul_32X16_32b - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® 㬮¦¥¨ï
|
||||||
32 * 16 bit = 32 bit
|
32 * 16 bit = 32 bit
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
HL, DE * BC
|
HLDE * BC
|
||||||
¢ë室:
|
¢ë室:
|
||||||
HL, DE - १ã«ìâ â
|
HLDE - १ã«ìâ â
|
||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.Divis16X16 - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® ¤¥«¥¨ï
|
JUMPS.Div_16X16_16b_16b - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® ¤¥«¥¨ï
|
||||||
16 / 16 bit = 16.16 bit
|
16 / 16 bit = 16.16 bit
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
@ -571,52 +580,52 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.Divis24X16 - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® ¤¥«¥¨ï
|
JUMPS.Div_24X16_8b_16b - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® ¤¥«¥¨ï
|
||||||
24 / 16 bit = 8.16 bit
|
24 / 16 bit = 8.16 bit
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
HL, C / DE
|
HLC / DE
|
||||||
¢ë室:
|
¢ë室:
|
||||||
A - १ã«ìâ â
|
A - १ã«ìâ â
|
||||||
HL - ®áâ ⮪
|
HL - ®áâ ⮪
|
||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.Divis32X16 - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® ¤¥«¥¨ï
|
JUMPS.Div_32X16_16b_16b - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® ¤¥«¥¨ï
|
||||||
32 / 16 bit = 16.16 bit
|
32 / 16 bit = 16.16 bit
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
HL, DE / BC
|
HLDE / BC
|
||||||
¢ë室:
|
¢ë室:
|
||||||
DE - १ã«ìâ â
|
DE - १ã«ìâ â
|
||||||
HL - ®áâ ⮪
|
HL - ®áâ ⮪
|
||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.Divis32 - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® ¤¥«¥¨ï
|
JUMPS.Div_32X16_32b_16b - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® ¤¥«¥¨ï
|
||||||
32 / 16 bit = 32.16 bit
|
32 / 16 bit = 32.16 bit
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
HL, DE / BC
|
HLDE / BC
|
||||||
¢ë室:
|
¢ë室:
|
||||||
HL, DE - १ã«ìâ â
|
HL, DE - १ã«ìâ â
|
||||||
BC - ®áâ ⮪
|
BC - ®áâ ⮪
|
||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.ConvNumTxt32 - ¯à®æ¥¤ãà ª®¢¥àâ æ¨¨ ¡¥§§ ª®¢®£® ç¨á«
|
JUMPS.ConvertNumbers_32b - ¯à®æ¥¤ãà ª®¢¥àâ æ¨¨ ¡¥§§ ª®¢®£® ç¨á«
|
||||||
32 bit ¢ ⥪áâ
|
32 bit ¢ ⥪áâ á 㤠«¥¨¥¬ ¢¥¤ãé¨å ã«¥©.
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
BC, HL - ç¨á«® 32 bit
|
BCHL - ç¨á«® 32 bit
|
||||||
DE - ¤à¥á ¡ãä¥à
|
DE - ¤à¥á ¡ãä¥à
|
||||||
¢ë室:
|
¢ë室:
|
||||||
DE - ¤à¥á á«¥¤ãî饣® ¡ ©â § ç¨á«®¬
|
DE - ¤à¥á á«¥¤ãî饣® ¡ ©â § ç¨á«®¬
|
||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.ConvNumTxt16 - ¯à®æ¥¤ãà ª®¢¥àâ æ¨¨ ¡¥§§ ª®¢®£® ç¨á«
|
JUMPS.ConvertNumbers_16b - ¯à®æ¥¤ãà ª®¢¥àâ æ¨¨ ¡¥§§ ª®¢®£® ç¨á«
|
||||||
16 bit ¢ ⥪áâ
|
16 bit ¢ ⥪áâ á 㤠«¥¨¥¬ ¢¥¤ãé¨å ã«¥©.
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
HL - ç¨á«® 16 bit
|
HL - ç¨á«® 16 bit
|
||||||
@ -626,8 +635,8 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.ConvNumTxt8 - ¯à®æ¥¤ãà ª®¢¥àâ æ¨¨ ¡¥§§ ª®¢®£® ç¨á«
|
JUMPS.ConvertNumbers_8b- ¯à®æ¥¤ãà ª®¢¥àâ æ¨¨ ¡¥§§ ª®¢®£® ç¨á«
|
||||||
8 bit ¢ ⥪áâ
|
8 bit ¢ ⥪áâ á 㤠«¥¨¥¬ ¢¥¤ãé¨å ã«¥©.
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
A - ç¨á«® 8 bit
|
A - ç¨á«® 8 bit
|
||||||
@ -637,18 +646,18 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.ConvTxtNum32 - ¯à®æ¥¤ãà ª®¢¥àâ æ¨¨ ⥪áâ ¢ ¡¥§§ ª®¢®¥
|
JUMPS.atoi_32b - ¯à®æ¥¤ãà ª®¢¥àâ æ¨¨ ⥪áâ ¢ ¡¥§§ ª®¢®¥
|
||||||
ç¨á«® 32 bit
|
ç¨á«® 32 bit
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
DE - ¤à¥á ⥪áâ (ª®¥æ áâப¨ - 0)
|
DE - ¤à¥á ⥪áâ (ª®¥æ áâப¨ - 0)
|
||||||
¢ë室:
|
¢ë室:
|
||||||
HL, IX - ç¨á«®
|
HLIX - ç¨á«®
|
||||||
C flag - ®è¨¡ª
|
C flag - ®è¨¡ª
|
||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.ConvTxtNum16 - ¯à®æ¥¤ãà ª®¢¥àâ æ¨¨ ⥪áâ ¢ ¡¥§§ ª®¢®¥
|
JUMPS.atoi_16b - ¯à®æ¥¤ãà ª®¢¥àâ æ¨¨ ⥪áâ ¢ ¡¥§§ ª®¢®¥
|
||||||
ç¨á«® 16 bit
|
ç¨á«® 16 bit
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
@ -670,3 +679,35 @@
|
|||||||
áâ ண® § ç¥¨ï ®¬¥à áâà ¨æë ¤«ï ¢®ááâ ®¢«¥¨ï)
|
áâ ண® § ç¥¨ï ®¬¥à áâà ¨æë ¤«ï ¢®ááâ ®¢«¥¨ï)
|
||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
|
„® ᬥ饨ï 0xC0 ª®¬ ¤ë ¯¥à¥å®¤ § १¥à¢¨à®¢ ë ¨ § ¯®«¥ë
|
||||||
|
ª®¬ ¤®© RET (¡ ©âë 0xC9).
|
||||||
|
|
||||||
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
|
ޡ鍥 ¯¥à¥¬¥ë¥ ᮠᬥ饨¥ 0xC0 ®â ç « â ¡«¨æë ¯¥à¥å®¤®¢:
|
||||||
|
|
||||||
|
NUM_DEVICES 1 Š®«¨ç¥á⢮ ãáâனáâ¢
|
||||||
|
TreeFlag 1 ”« £ ¤¥à¥¢ ¤¨à¥ªâ®à¨©
|
||||||
|
CMOSFlag 1 ”« £ CMOS: 0 - ¥â
|
||||||
|
1 - ¥áâì
|
||||||
|
MouseFlag 1 ”« £ ¬ëè¨: 0 - ¥â
|
||||||
|
1 - ¥áâì
|
||||||
|
CMOSPrint 1 ”« £ à §à¥è¥¨ï ¯¥ç ⨠¤ âë ¢à¥¬¥¨
|
||||||
|
1 - § ¯à¥é¥®, 0 - à §à¥è¥®
|
||||||
|
RAMPAGES
|
||||||
|
.FNPAGESID 1 ˆ¤¥â¨ä¨ª â®à ¯ ¬ï⨠£¤¥ FN
|
||||||
|
.FNREZ2 1 ‘âà ¨æ á äãªæ¨ï¬¨ FN
|
||||||
|
.FNFONT 1 ‘âà ¨æ èà¨ä⮢
|
||||||
|
.FNREZ3 1 ‘âà ¨æ ¥é¥ ¥¬®£® äãªæ¨© FN
|
||||||
|
.BufferID 1 ˆ¤¥â¨ä¨ª â®à ¯ ¬ï⨠¯®¤ ¡ãä¥à
|
||||||
|
.FLX 1 ‘âà ¨æ ¤«ï § £à㧪¨ FLX ¯« £¨®¢
|
||||||
|
.LEFTPANEL 1 ‘âà ¨æ ª â «®£ ‹¥¢®© ¯ ¥«¨
|
||||||
|
.RIGHTPANEL 1 ‘âà ¨æ ª â «®£ <20>à ¢®© ¯ ¥«¨
|
||||||
|
.BuffPg1 1
|
||||||
|
.BuffPg2 1
|
||||||
|
.BuffPg3 1 ¨á¯®«ì§ã¥âáï ª®¯¨à®¢é¨ª®¬ ä ©«®¢/¤¨à¥ªâ®à¨©
|
||||||
|
.BuffPg4 1 ¨á¯®«ì§ã¥âáï á®àâ¨à®¢ª®©, à ¡®â á ¤¥à¥¢®¬ ¤¨à¥ªâ®à¨©
|
||||||
|
.BuffPgEnd 1 ¡ ©â 0xFF ¬ àª¥à ª®æ ᯨ᪠áâà ¨æ
|
||||||
|
.FILES_COUNT 2 ª®«¨ç¥á⢮ ¯®¬¥ç¥ëå ä ©«®¢
|
||||||
|
.FILES_BYTES 5 à §¬¥à ¯®¬¥ç¥ëå ä ©«®¢ ¢ ¡ ©â å
|
||||||
|
|||||||
@ -1,4 +1,41 @@
|
|||||||
|
|
||||||
|
11.01.2026
|
||||||
|
FlexNavigator 1.16.05
|
||||||
|
- ¢ äãªæ¨¨ ⥪á⮢®£® ¢¢®¤ § ¡«®ª¨à®¢ ®¡à ¡®âª ª« ¢¨è¨
|
||||||
|
ALT, ¢ë§ë¢ «® § ¢¨á ¨¥ ¯à¨ ¯®¯ë⪥ ᤥ« âì ᬥ㠤¨áª (ALT/Fx).
|
||||||
|
- ã¡à ® 㤠«¥¨¥ ¢ ०¨¬¥ ¯à®á¬®âà ¤¥à¥¢ .
|
||||||
|
|
||||||
|
07.09.2025
|
||||||
|
FlexNavigator 1.16.04
|
||||||
|
- á®àâ¨à®¢ª ¨ ª®¯¨à®¢ ¨¥ ä ©«®¢/¤¨à¥ªâ®à¨© ⥯¥àì ¥ ¨á¯®«ì§ã¥â
|
||||||
|
áâà ¨æë ¯ ¥«¥©.
|
||||||
|
- ã¡à ® ¯¥à¥áâ ¢«¥¨¥ áâà ¨æ ¢ ᯨ᪥ ¢ë¤¥«¥ëå ¯à¨ á®àâ¨à®¢ª¥.
|
||||||
|
- ¤®¤¥« ® ª®¯¨à®¢ ¨¥ ¤¨à¥ªâ®à¨©, ¯®ª ⮫쪮 ⮩ çâ® ¯®¤ ªãàá®à®¬.
|
||||||
|
- ᤥ« ®/¯¥à¥¤¥« ® ¨§¬¥à¥¨¥ à §¬¥à ¤¨à¥ªâ®à¨¨ ¢ ¡ ©â å ¯®¤ ªãàá®à®¬.
|
||||||
|
- ¤®¡ ¢«¥® ®¯¨á ¨¥ ä®à¬ ¯®«¥© ¢¢®¤ .
|
||||||
|
- ¯¥à¥¥á¥ë ¥ª®â®àë¥ tab â ¡«¨æë.
|
||||||
|
- ¯¥à¥¥á¥ë ¡ãä¥àë ¤«ï § £à㧪¨ ini ä ©«¨ª®¢.
|
||||||
|
|
||||||
|
27.08.2025
|
||||||
|
FlexNavigator 1.16.03
|
||||||
|
- ¨á¯à ¢«¥® ä®à¬¨à®¢ ¨¥ ¯ã⨠¤® ¯ ¯ª¨ ¯« £¨®¢.
|
||||||
|
- MISC äãªæ¨¨ ¯¥à¥¥á¥ë ¨§ 2 १¨¤¥â ¢ 3.
|
||||||
|
- ¯¥à¥à á¯à¥¤¥«¥¨¥ TAB â ¡«¨æ.
|
||||||
|
- ¢ ®¯¨á ¨¥ Flex Navigator API ¤®¡ ¢«¥® ®¯¨á ¨¥ £«®¡ «ìëå
|
||||||
|
¯¥à¥¬¥ëå.
|
||||||
|
FileViewer.flx 1.07
|
||||||
|
- ¬¥«ª®¥ ¨á¯à ¢«¥¨¥ ¯®§¨æ¨¨ ¢ë¢®¤ ¤ âë/¢à¥¬¥¨.
|
||||||
|
FileEditor.flx 1.11
|
||||||
|
- ¬¥«ª®¥ ¨á¯à ¢«¥¨¥ ¯®§¨æ¨¨ ¢ë¢®¤ ¤ âë/¢à¥¬¥¨.
|
||||||
|
|
||||||
|
02.08.2025
|
||||||
|
FlexNavigator 1.16.02
|
||||||
|
- ¯¥à¥¤¥« ® ®â®¡à ¦¥¨¥ ¤ âë/¢à¥¬¥¨, ¢ ०¨¬¥ 1 (ä®à¬ â 02.08.2025)
|
||||||
|
¥¯à ¢¨«ì® ª®¢¥à⨫® £®¤.
|
||||||
|
- ®¡®¢«¥® ®¯¨á ¨¥ Flex Navigator API ¤® ¢¥àᨨ 0.5.
|
||||||
|
- 㤠«¥ ®¤¨ ¤¦ ¬¯ ¨§ â ¡«¨æë § ¥ ¤®¡®áâìî.
|
||||||
|
- ¡®«ì讥 ¯¥à¨¬¥®¢ ¨¥ ¬¥â®ª, ¯¥à¥á¡®àª ¢á¥£® ¤«ï ¯à®¢¥àª¨.
|
||||||
|
|
||||||
29.07.2025
|
29.07.2025
|
||||||
FileEditor.flx 1.10
|
FileEditor.flx 1.10
|
||||||
- γαβΰ ₯<E282AF> ―₯ΰ₯―γβ λ₯ ͺ<CDBA>―ͺ¨ €«ο ¦ ⨩ ¬λθμξ €«ο F7 ¨ F9.
|
- γαβΰ ₯<E282AF> ―₯ΰ₯―γβ λ₯ ͺ<CDBA>―ͺ¨ €«ο ¦ ⨩ ¬λθμξ €«ο F7 ¨ F9.
|
||||||
|
|||||||
@ -1,8 +1,15 @@
|
|||||||
|
|
||||||
Flex navigator TODO:
|
Flex navigator TODO:
|
||||||
|
|
||||||
|
[] ¯« £¨ CD Player ¨á¯à ¢¨âì ᬥ㠤¨áª .
|
||||||
|
[] ä ©« á à áè¨à¥¨¥¬ fln ¯® F3 ¢ë§ë¢ ¥â § ¢¨á ¨¥.
|
||||||
|
[] ¨á¯à ¢¨âì £«®¡ «ìë© ¨¤¨ª â®à ¯à®æ¥áá ª®¯¨à®®¢ ¨ï, ¯®ª ¯à¨¢¨à ¥â.
|
||||||
|
[] ¤®¡ ¢¨âì ¯®¤¤¥à¦ªã ¤¦®©á⨪ ¤«ï ¢¨£ 樨.
|
||||||
|
[] ¢ ª®¯¨à®¢ ¨¨ ä ©«®¢/¤¨à¥ªâ®à¨© ¤®¤¥« âì ®¡à ¡®âªã ®è¨¡®ª ¯à¨ á®§¤ ¨¨ ¤¨à¥ªâ®à¨©.
|
||||||
|
[] ¢ ¯« £¨¥ । ªâ®à ¨á¯à ¢¨âì ¥ á®åà ¥¨¥ ¢¢¥¤¥ë®© áâப¨ ¯à¨ ¦ ⨨¨ äãªæ¨® «ìëå ª« ¢¨è ¥ á¢ï§ ëå á । ªâ¨à®¢ ¨¥¬.
|
||||||
|
[] ¤«ï à ¡®âë ¢ ¤¥à¥¢®¬ ¤¨à¥ªâ®à¨© ã¡à âì ¯®¤¬¥ã áâà ¨æ ¢ ᯨ᪥ ¢ë¤ ëå.
|
||||||
|
[] ¤®¡ ¢¨âì áâ५ª¨ ¢«¥¢®/¢¯à ¢® ¤«ï ¢ë¡®à ¤¨áª®¢ ¥á«¨ ¡®«ìè¥ 10.
|
||||||
[] ¤®¡ ¢¨âì ¢ áâனª¨ ¢â®¯®ª § ¨«¨ ¯® ENTER ¯à¨ ¯¥à¥¬¥é¥¨¨ ¯® ¤¥à¥¢ã ª â «®£®¢
|
[] ¤®¡ ¢¨âì ¢ áâனª¨ ¢â®¯®ª § ¨«¨ ¯® ENTER ¯à¨ ¯¥à¥¬¥é¥¨¨ ¯® ¤¥à¥¢ã ª â «®£®¢
|
||||||
[] ¤®¡ ¢¨âì ¢ áâனª¨ ¢ë¡®à ¬¥ïâì «¨ ªâ¨¢ãî ¯ ¥«ì ¯à¨ ᬥ¥ ¤¨áª ¥ ªâ¨¢®© ¯ ¥«¨
|
|
||||||
[] ¯à¨ ¢ë¢®¤¥ ¤¥à¥¢ ª â «®£®¢ ᤥ« âì áªà®«« ¢«¥¢®/¢¯à ¢® ¥á«¨ ¤¥à¥¢® ¥ ¢«¥§ ¥â ¯® £®à¨§®â «¨
|
[] ¯à¨ ¢ë¢®¤¥ ¤¥à¥¢ ª â «®£®¢ ᤥ« âì áªà®«« ¢«¥¢®/¢¯à ¢® ¥á«¨ ¤¥à¥¢® ¥ ¢«¥§ ¥â ¯® £®à¨§®â «¨
|
||||||
[] ¯® ª®¯ª¥ F6 ⮫쪮 ¯¥à¥¨¬¥®¢ ¨¥, ¤®«¦® ¡ëâì ¯¥à¥¨¬¥®¢ ¨¥/¯¥à¥¬¥é¥¨¥ ä ©« ¥á«¨ ¯ ¥«ïå à §ë¥ ¯ãâ¨
|
[] ¯® ª®¯ª¥ F6 ⮫쪮 ¯¥à¥¨¬¥®¢ ¨¥, ¤®«¦® ¡ëâì ¯¥à¥¨¬¥®¢ ¨¥/¯¥à¥¬¥é¥¨¥ ä ©« ¥á«¨ ¯ ¥«ïå à §ë¥ ¯ãâ¨
|
||||||
[] ¯¥à¥¤¥« âì § å®à¤ª®¦¥ë¥ ª®®à¤¨ âë, ¯¥à¥¤¥« âì ¯à¨¢ï§ªã ª ª®®à¤¨ â ¬ ®ª
|
[] ¯¥à¥¤¥« âì § å®à¤ª®¦¥ë¥ ª®®à¤¨ âë, ¯¥à¥¤¥« âì ¯à¨¢ï§ªã ª ª®®à¤¨ â ¬ ®ª
|
||||||
@ -11,6 +18,7 @@ Flex navigator TODO:
|
|||||||
[] ¯« £¨ ¤«ï á®§¤ ¨ï ä®à¬ ®ª®
|
[] ¯« £¨ ¤«ï á®§¤ ¨ï ä®à¬ ®ª®
|
||||||
[?] ¢ë§®¢ ¨ ¢§ ¨¬®¤¥©á⢨¥ ¯« £¨ á ¯« £¨®¬
|
[?] ¢ë§®¢ ¨ ¢§ ¨¬®¤¥©á⢨¥ ¯« £¨ á ¯« £¨®¬
|
||||||
|
|
||||||
|
[x] (¥áâì ¨§ ç «ì®) ¤®¡ ¢¨âì ¢ áâனª¨ ¢ë¡®à ¬¥ïâì «¨ ªâ¨¢ãî ¯ ¥«ì ¯à¨ ᬥ¥ ¤¨áª ¥ ªâ¨¢®© ¯ ¥«¨
|
||||||
[x] § £à㧪 FLX ¯« £¨ ¯® ¨¬¥¨ ¡¥§ § ¯ãáª
|
[x] § £à㧪 FLX ¯« £¨ ¯® ¨¬¥¨ ¡¥§ § ¯ãáª
|
||||||
[x] ¢¢®¤ ¢ ª®¬ ¤ãî áâப㠨 ¦ ⨥ ALT+F1/F2 (¢ë¡®à ¤à ©¢ ) ¯®¤¢¨á ¥â
|
[x] ¢¢®¤ ¢ ª®¬ ¤ãî áâப㠨 ¦ ⨥ ALT+F1/F2 (¢ë¡®à ¤à ©¢ ) ¯®¤¢¨á ¥â
|
||||||
[x] á®àâ¨à®¢é¨ª á®àâ¨àã¥â "..", ¥ ¤®«¦¥
|
[x] á®àâ¨à®¢é¨ª á®àâ¨àã¥â "..", ¥ ¤®«¦¥
|
||||||
|
|||||||
BIN
fn/flx/calc.flx
BIN
fn/flx/calc.flx
Binary file not shown.
BIN
fn/flx/date.flx
BIN
fn/flx/date.flx
Binary file not shown.
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,41 @@
|
|||||||
|
|
||||||
|
10.01.2026
|
||||||
|
FlexNavigator 1.16.05
|
||||||
|
- ¢ äãªæ¨¨ ⥪á⮢®£® ¢¢®¤ § ¡«®ª¨à®¢ ®¡à ¡®âª ª« ¢¨è¨
|
||||||
|
ALT, ¢ë§ë¢ «® § ¢¨á ¨¥ ¯à¨ ¯®¯ë⪥ ᤥ« âì ᬥ㠤¨áª (ALT/Fx).
|
||||||
|
- ã¡à ® 㤠«¥¨¥ ¢ ०¨¬¥ ¯à®á¬®âà ¤¥à¥¢ .
|
||||||
|
|
||||||
|
07.09.2025
|
||||||
|
FlexNavigator 1.16.04
|
||||||
|
- á®àâ¨à®¢ª ¨ ª®¯¨à®¢ ¨¥ ä ©«®¢/¤¨à¥ªâ®à¨© ⥯¥àì ¥ ¨á¯®«ì§ã¥â
|
||||||
|
áâà ¨æë ¯ ¥«¥©.
|
||||||
|
- ã¡à ® ¯¥à¥áâ ¢«¥¨¥ áâà ¨æ ¢ ᯨ᪥ ¢ë¤¥«¥ëå ¯à¨ á®àâ¨à®¢ª¥.
|
||||||
|
- ¤®¤¥« ® ª®¯¨à®¢ ¨¥ ¤¨à¥ªâ®à¨©, ¯®ª ⮫쪮 ⮩ çâ® ¯®¤ ªãàá®à®¬.
|
||||||
|
- ᤥ« ®/¯¥à¥¤¥« ® ¨§¬¥à¥¨¥ à §¬¥à ¤¨à¥ªâ®à¨¨ ¢ ¡ ©â å ¯®¤ ªãàá®à®¬.
|
||||||
|
- ¤®¡ ¢«¥® ®¯¨á ¨¥ ä®à¬ ¯®«¥© ¢¢®¤ .
|
||||||
|
- ¯¥à¥¥á¥ë ¥ª®â®àë¥ tab â ¡«¨æë.
|
||||||
|
- ¯¥à¥¥á¥ë ¡ãä¥àë ¤«ï § £à㧪¨ ini ä ©«¨ª®¢.
|
||||||
|
|
||||||
|
27.08.2025
|
||||||
|
FlexNavigator 1.16.03
|
||||||
|
- ¨á¯à ¢«¥® ä®à¬¨à®¢ ¨¥ ¯ã⨠¤® ¯ ¯ª¨ ¯« £¨®¢.
|
||||||
|
- MISC äãªæ¨¨ ¯¥à¥¥á¥ë ¨§ 2 १¨¤¥â ¢ 3.
|
||||||
|
- ¯¥à¥à á¯à¥¤¥«¥¨¥ TAB â ¡«¨æ.
|
||||||
|
- ¢ ®¯¨á ¨¥ Flex Navigator API ¤®¡ ¢«¥® ®¯¨á ¨¥ £«®¡ «ìëå
|
||||||
|
¯¥à¥¬¥ëå.
|
||||||
|
FileViewer.flx 1.07
|
||||||
|
- ¬¥«ª®¥ ¨á¯à ¢«¥¨¥ ¯®§¨æ¨¨ ¢ë¢®¤ ¤ âë/¢à¥¬¥¨.
|
||||||
|
FileEditor.flx 1.11
|
||||||
|
- ¬¥«ª®¥ ¨á¯à ¢«¥¨¥ ¯®§¨æ¨¨ ¢ë¢®¤ ¤ âë/¢à¥¬¥¨.
|
||||||
|
|
||||||
|
02.08.2025
|
||||||
|
FlexNavigator 1.16.02
|
||||||
|
- ¯¥à¥¤¥« ® ®â®¡à ¦¥¨¥ ¤ âë/¢à¥¬¥¨, ¢ ०¨¬¥ 1 (ä®à¬ â 02.08.2025)
|
||||||
|
¥¯à ¢¨«ì® ª®¢¥à⨫® £®¤.
|
||||||
|
- ®¡®¢«¥® ®¯¨á ¨¥ Flex Navigator API ¤® ¢¥àᨨ 0.5.
|
||||||
|
- 㤠«¥ ®¤¨ ¤¦ ¬¯ ¨§ â ¡«¨æë § ¥ ¤®¡®áâìî.
|
||||||
|
- ¡®«ì讥 ¯¥à¨¬¥®¢ ¨¥ ¬¥â®ª, ¯¥à¥á¡®àª ¢á¥£® ¤«ï ¯à®¢¥àª¨.
|
||||||
|
|
||||||
29.07.2025
|
29.07.2025
|
||||||
FileEditor.flx 1.10
|
FileEditor.flx 1.10
|
||||||
- γαβΰ ₯<E282AF> ―₯ΰ₯―γβ λ₯ ͺ<CDBA>―ͺ¨ €«ο ¦ ⨩ ¬λθμξ €«ο F7 ¨ F9.
|
- γαβΰ ₯<E282AF> ―₯ΰ₯―γβ λ₯ ͺ<CDBA>―ͺ¨ €«ο ¦ ⨩ ¬λθμξ €«ο F7 ¨ F9.
|
||||||
|
|||||||
144
fn_const.a80
144
fn_const.a80
@ -1,5 +1,11 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 26.07.2025 savelij
|
; LAST UPDATE: 11.01.2026 savelij
|
||||||
|
|
||||||
|
NUM_FILES_PANEL EQU 17 ; ª®«¨ç¥á⢮ ä ©«®¢ ¢ á⮫¡æ¥ ¯ ¥«¨
|
||||||
|
NUM_PAGES_FN EQU 7 ; ª®«¨ç¥á⢮ áâà ¨æ ¯ ¬ï⨠¤«ï à ¡®âë FN
|
||||||
|
DateMonthFormat ; ä®à¬ ⠢뢮¤ ¬¥áïæ ¢ ¤ â¥
|
||||||
|
.Digit EQU 1 ; ¬¥áïæ æ¨äன 02.08.2025
|
||||||
|
.Text EQU 2 ; ¬¥áïæ â¥ªá⮬ 2 Aug 2025
|
||||||
|
|
||||||
INIT_VAR 0x8000
|
INIT_VAR 0x8000
|
||||||
SETVAR WorkBuffer, 0x400 ; à ¡®ç¨© ¡ãä¥à
|
SETVAR WorkBuffer, 0x400 ; à ¡®ç¨© ¡ãä¥à
|
||||||
@ -30,7 +36,6 @@ FLXMODES
|
|||||||
; 1 - ¤à¥á ª®¬¯¨«ï樨 ¨ à ¡®âë ¢ ¤à¥á å 0x4000-0x7FFF
|
; 1 - ¤à¥á ª®¬¯¨«ï樨 ¨ à ¡®âë ¢ ¤à¥á å 0x4000-0x7FFF
|
||||||
|
|
||||||
|
|
||||||
LenInpData EQU 12 ; ª ª®¥-⮠ᬥ饨¥ ¤«ï ¬¥âª¨ SearchStr
|
|
||||||
CursTimer EQU 6 ; "ç áâ®â " ¬®à£ ¨ï ⥪á⮢®£® ªãàá®à
|
CursTimer EQU 6 ; "ç áâ®â " ¬®à£ ¨ï ⥪á⮢®£® ªãàá®à
|
||||||
Step EQU 8 ; è¨à¨ ᨬ¢®« ¤«ï ¯¥à¥¬¥é¥¨ï ªãàá®à ¯à¨ ¢¢®¤¥ ⥪áâ
|
Step EQU 8 ; è¨à¨ ᨬ¢®« ¤«ï ¯¥à¥¬¥é¥¨ï ªãàá®à ¯à¨ ¢¢®¤¥ ⥪áâ
|
||||||
MainPullMenu EQU 6 ; ª®«¨ç¥á⢮ ¯ãªâ®¢ ¢ £« ¢®¬ ¬¥î
|
MainPullMenu EQU 6 ; ª®«¨ç¥á⢮ ¯ãªâ®¢ ¢ £« ¢®¬ ¬¥î
|
||||||
@ -117,6 +122,7 @@ WINSUBOBJ
|
|||||||
PANEL
|
PANEL
|
||||||
_INIT_VAR
|
_INIT_VAR
|
||||||
_SETVAR .PANELFLAG, BYTE ; ”« £ ¯ ¥«¨ ¡¨â 7 - ¡¨â ¢ë¤¥«¥®áâ¨
|
_SETVAR .PANELFLAG, BYTE ; ”« £ ¯ ¥«¨ ¡¨â 7 - ¡¨â ¢ë¤¥«¥®áâ¨
|
||||||
|
; ¡¨â 1 - áâà ¨æ ¤«ï á®àâ¨à®¢ª¨
|
||||||
; ¡¨â 0 - ®¬¥à ¯ ¥«¨
|
; ¡¨â 0 - ®¬¥à ¯ ¥«¨
|
||||||
_SETVAR .VIEWFLAG, BYTE ; ”« £ ¢¨¤ ¯ ¥«¨ 0 - ªà âª ï ¯ ¥«ì
|
_SETVAR .VIEWFLAG, BYTE ; ”« £ ¢¨¤ ¯ ¥«¨ 0 - ªà âª ï ¯ ¥«ì
|
||||||
; ¡¨â 0 - ¯®¤à®¡ ï ¯ ¥«ì
|
; ¡¨â 0 - ¯®¤à®¡ ï ¯ ¥«ì
|
||||||
@ -148,6 +154,7 @@ PANEL
|
|||||||
|
|
||||||
PANELFLAG
|
PANELFLAG
|
||||||
_BITMASK PRNDOSPATH, 7 ; =1-¯¥ç â âì ¯ãâì DOS
|
_BITMASK PRNDOSPATH, 7 ; =1-¯¥ç â âì ¯ãâì DOS
|
||||||
|
_BITMASK DIRPAGE, 1 ; =1-A-®¬¥à áâà ¨æë, =0-áâà ¨æë ¯ ¥«¥©
|
||||||
_BITMASK SIDE, 0 ; =1-¯à ¢ ï ¯ ¥«ì, =0-«¥¢ ï ¯ ¥«ì
|
_BITMASK SIDE, 0 ; =1-¯à ¢ ï ¯ ¥«ì, =0-«¥¢ ï ¯ ¥«ì
|
||||||
|
|
||||||
VIEWFLAG
|
VIEWFLAG
|
||||||
@ -170,7 +177,8 @@ SORTFLAG
|
|||||||
.MASKEXECFILTER EQU .M_FILTER | .M_EXEC
|
.MASKEXECFILTER EQU .M_FILTER | .M_EXEC
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
BAR
|
; ‘ªà®«« ¡ à
|
||||||
|
SCROLLBAR
|
||||||
_INIT_VAR
|
_INIT_VAR
|
||||||
_SETVAR .X, WORD
|
_SETVAR .X, WORD
|
||||||
_SETVAR .Y, WORD
|
_SETVAR .Y, WORD
|
||||||
@ -186,7 +194,7 @@ BAR
|
|||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
; <20>ணà¥áá ¡ à
|
; <20>ணà¥áá ¡ à
|
||||||
PROC
|
PROGRESSBAR
|
||||||
_INIT_VAR
|
_INIT_VAR
|
||||||
_SETVAR .X, WORD
|
_SETVAR .X, WORD
|
||||||
_SETVAR .Y, WORD
|
_SETVAR .Y, WORD
|
||||||
@ -252,81 +260,96 @@ FORMTABL
|
|||||||
_BITMASK CLOSEWIN, 0 ; ¢ë§¢ âì äãªæ¨î § ªàëâ¨ï ®ª ¯¥à¥¤ § ¯ã᪮¬ ¯à®£à ¬¬ë ¯® «¥¢®© ª®¯ª¥
|
_BITMASK CLOSEWIN, 0 ; ¢ë§¢ âì äãªæ¨î § ªàëâ¨ï ®ª ¯¥à¥¤ § ¯ã᪮¬ ¯à®£à ¬¬ë ¯® «¥¢®© ª®¯ª¥
|
||||||
_BITMASK ENDTABL, 7 ; ¡¨â ¢ .XMINH 㪠§ â¥«ì ª®¥æ ᯨáª
|
_BITMASK ENDTABL, 7 ; ¡¨â ¢ .XMINH 㪠§ â¥«ì ª®¥æ ᯨáª
|
||||||
|
|
||||||
|
;[]----------------------------------------------------------[]
|
||||||
|
INPUTFORM
|
||||||
|
_INIT_VAR
|
||||||
|
_SETVAR .MAXLEN, BYTE ; +00 Œ ªá¨¬ «ì ï ¤«¨ áâப¨
|
||||||
|
_SETVAR .FLAG, BYTE ; +01 ”« £ £®â®¢®áâ¨
|
||||||
|
_SETVAR .CURR_X, BYTE ; +02 ⥪ãé ï X ¯®§¨æ¨ï ªãàá®à
|
||||||
|
_SETVAR .CURRADD_X, BYTE ; +03 ⥪ãé ï AddX
|
||||||
|
_SETVAR .CURR_SYMBOLS, BYTE ; +04 ª®«¨ç¥á⢮ ¢¢¥¤¥ëå ᨬ¢®«®¢
|
||||||
|
_SETVAR .SCR_POS_X, WORD ; +05 X ¯®§¨æ¨ï áâப¨ íªà ¥
|
||||||
|
_SETVAR .SCR_POS_Y, WORD ; +07 Y ¯®§¨æ¨ï áâப¨ íªà ¥
|
||||||
|
_SETVAR .SCR_LEN_X, WORD ; +09 X ¤«¨ áâப¨ íªà ¥
|
||||||
|
_SETVAR .COLOR, BYTE ; +0B –¢¥â áâப¨
|
||||||
|
_SETVAR .BUFLINE, 0 ; +0C ...á ¬ áâப
|
||||||
|
|
||||||
; ¡ § â ¡«¨æë ¯¥à¥å®¤®¢ ¤«ï ¢ë§®¢ ¨§ ¯« £¨®¢
|
; ¡ § â ¡«¨æë ¯¥à¥å®¤®¢ ¤«ï ¢ë§®¢ ¨§ ¯« £¨®¢
|
||||||
JUMPS
|
JUMPS
|
||||||
.JUMPSIZE EQU 3
|
.JUMPSIZE EQU 3
|
||||||
; â ¡«¨æ ¯¥à¥å®¤®¢ äãªæ¨¨ ¤«ï ¯« £¨®¢
|
; â ¡«¨æ ¯¥à¥å®¤®¢ äãªæ¨¨ ¤«ï ¯« £¨®¢
|
||||||
_INIT_VAR BASE_ADDR + .JUMPSIZE ; ¯à®¯ã᪠¯¥à¥å®¤ ®á®¢®© ¢å®¤
|
_INIT_VAR BASE_ADDR
|
||||||
|
_SETVAR .MainStartFN, .JUMPSIZE
|
||||||
_SETVAR .ClearScreen, .JUMPSIZE
|
_SETVAR .ClearScreen, .JUMPSIZE
|
||||||
_SETVAR .MakeWindow, .JUMPSIZE
|
_SETVAR .MakeWindow, .JUMPSIZE
|
||||||
_SETVAR .InvertRectan, .JUMPSIZE
|
_SETVAR .ReplaceColorRectan, .JUMPSIZE
|
||||||
_SETVAR .PrnTxtLnIFF, .JUMPSIZE
|
_SETVAR .PrintTxtLine_IFF, .JUMPSIZE
|
||||||
_SETVAR .PrnTxtLnNorm, .JUMPSIZE
|
_SETVAR .PrintTxtLine, .JUMPSIZE
|
||||||
_SETVAR .PrnTxtLnNormC, .JUMPSIZE
|
_SETVAR .PrintTxtLineNumsChar, .JUMPSIZE
|
||||||
_SETVAR .PrnRangPathL, .JUMPSIZE
|
_SETVAR .PrintPathLeft, .JUMPSIZE
|
||||||
_SETVAR .PrnRangPathR, .JUMPSIZE
|
_SETVAR .PrintPathRight, .JUMPSIZE
|
||||||
_SETVAR .PrnRangPathC, .JUMPSIZE
|
_SETVAR .PrintPathCentr, .JUMPSIZE
|
||||||
_SETVAR .InputLine, .JUMPSIZE
|
_SETVAR .InputLine, .JUMPSIZE
|
||||||
_SETVAR .InpLnExtN, .JUMPSIZE
|
_SETVAR .InputLineExitOk, .JUMPSIZE
|
||||||
_SETVAR .InpLnExtC, .JUMPSIZE
|
_SETVAR .InputLineExitCancel, .JUMPSIZE
|
||||||
_SETVAR .DOSError, .JUMPSIZE
|
_SETVAR .DOSError, .JUMPSIZE
|
||||||
_SETVAR .InitScrollBar, .JUMPSIZE
|
_SETVAR .InitScrollBar, .JUMPSIZE
|
||||||
_SETVAR .PrnHScrBar, .JUMPSIZE
|
_SETVAR .DrawHScrollBar, .JUMPSIZE
|
||||||
_SETVAR .PrnVScrBar, .JUMPSIZE
|
_SETVAR .DrawVScrollBar, .JUMPSIZE
|
||||||
_SETVAR .InitProcess, .JUMPSIZE
|
_SETVAR .InitProgressBar, .JUMPSIZE
|
||||||
_SETVAR .PrnProcess, .JUMPSIZE
|
_SETVAR .DrawProgressBar, .JUMPSIZE
|
||||||
_ADDVAR .JUMPSIZE * 5 ; DUPL 15,0xC9
|
_ADDVAR .JUMPSIZE * 5 ; RESERVED 15 BYTE 0xC9
|
||||||
_SETVAR .ResFire, .JUMPSIZE
|
_SETVAR .WaitUnpressMouse, .JUMPSIZE
|
||||||
_SETVAR .TestCoords, .JUMPSIZE
|
_SETVAR .CheckCoordsMouse, .JUMPSIZE
|
||||||
_SETVAR .SetCMOSPrint, .JUMPSIZE
|
_SETVAR .CMOSPrintDateTime, .JUMPSIZE
|
||||||
_SETVAR .ResCMOSPrint, .JUMPSIZE
|
_ADDVAR .JUMPSIZE * 1 ; RESERVED 3 BYTE 0xC9
|
||||||
_SETVAR .SetClock, .JUMPSIZE
|
_SETVAR .PointerMouseClock, .JUMPSIZE
|
||||||
_SETVAR .SetMouse, .JUMPSIZE
|
_SETVAR .PointerMousePointer, .JUMPSIZE
|
||||||
_ADDVAR .JUMPSIZE * 4 ; DUPL 12,0xC9
|
_ADDVAR .JUMPSIZE * 4 ; RESERVED 12 BYTE 0xC9
|
||||||
_SETVAR .ConvNumTxt40, .JUMPSIZE
|
_SETVAR .ConvertNumbers_40b, .JUMPSIZE
|
||||||
_SETVAR .MoveBytes, .JUMPSIZE
|
_SETVAR .MoveBytesInc, .JUMPSIZE
|
||||||
_SETVAR .MoveBytesUp, .JUMPSIZE
|
_SETVAR .MoveBytesDec, .JUMPSIZE
|
||||||
_SETVAR .Mult8, .JUMPSIZE
|
_SETVAR .Mul_8X8_16b, .JUMPSIZE
|
||||||
_SETVAR .Mult16X8, .JUMPSIZE
|
_SETVAR .Mul_16X8_24b, .JUMPSIZE
|
||||||
_SETVAR .Mult16, .JUMPSIZE
|
_SETVAR .Mul_16X16_16b, .JUMPSIZE
|
||||||
_SETVAR .Mult16X16, .JUMPSIZE
|
_SETVAR .Mul_16X16_32b, .JUMPSIZE
|
||||||
_SETVAR .Mult32, .JUMPSIZE
|
_SETVAR .Mul_32X16_32b, .JUMPSIZE
|
||||||
_SETVAR .Divis16X16, .JUMPSIZE
|
_SETVAR .Div_16X16_16b_16b, .JUMPSIZE
|
||||||
_SETVAR .Divis24X16, .JUMPSIZE
|
_SETVAR .Div_24X16_8b_16b, .JUMPSIZE
|
||||||
_SETVAR .Divis32X16, .JUMPSIZE
|
_SETVAR .Div_32X16_16b_16b, .JUMPSIZE
|
||||||
_SETVAR .Divis32, .JUMPSIZE
|
_SETVAR .Div_32X16_32b_16b, .JUMPSIZE
|
||||||
_SETVAR .ConvNumTxt32, .JUMPSIZE
|
_SETVAR .ConvertNumbers_32b, .JUMPSIZE
|
||||||
_SETVAR .ConvNumTxt16, .JUMPSIZE
|
_SETVAR .ConvertNumbers_16b, .JUMPSIZE
|
||||||
_SETVAR .ConvNumTxt8, .JUMPSIZE
|
_SETVAR .ConvertNumbers_8b, .JUMPSIZE
|
||||||
_SETVAR .ConvTxtNum32, .JUMPSIZE
|
_SETVAR .atoi_32b, .JUMPSIZE
|
||||||
_SETVAR .ConvTxtNum16, .JUMPSIZE
|
_SETVAR .atoi_16b, .JUMPSIZE
|
||||||
_SETVAR .Resident, .JUMPSIZE
|
_SETVAR .Resident, .JUMPSIZE
|
||||||
_ADDVAR (BASE_ADDR + 0xC0) - .CURRVAR; - .JUMPSIZE; * 4 ; DUPL 12,0xC9
|
; १¥à¢¨à®¢ ¨¥ ¤® ᬥ饨ï 0xC0
|
||||||
; ¯¥à¥¬¥ë¥ ¤«ï ¤®áâ㯠¨§ ¯« £¨®¢
|
_ADDVAR (BASE_ADDR + 0xC0) - .CURRVAR ; RESERVED UNTIL OFFSET 0xC0 BYTE 0xC9
|
||||||
|
; £«®¡ «ìë¥ ¯¥à¥¬¥ë¥ ¤«ï ¤®áâ㯠¨§ ¯« £¨®¢
|
||||||
_SETVAR .NUM_DEVICES, BYTE ; Š®«-¢® ãáâனáâ¢
|
_SETVAR .NUM_DEVICES, BYTE ; Š®«-¢® ãáâனáâ¢
|
||||||
_SETVAR .TreeFlag, BYTE ; ”« £ ¤¥à¥¢
|
_SETVAR .TreeFlag, BYTE ; ”« £ ¤¥à¥¢
|
||||||
_SETVAR .CMOSFlag, BYTE ; ”« £ CMOS 0 - ¥â
|
_SETVAR .CMOSFlag, BYTE ; ”« £ CMOS 0 - ¥â
|
||||||
; 1 - ¥áâì
|
; 1 - ¥áâì
|
||||||
_SETVAR .MouseFlag, BYTE ; ”« £ ¬ëè¨ 0 - ¥â
|
_SETVAR .MouseFlag, BYTE ; ”« £ ¬ëè¨ 0 - ¥â
|
||||||
; 1 - ¥áâì
|
; 1 - ¥áâì
|
||||||
_SETVAR .CMOSPrint, BYTE
|
_SETVAR .CMOSPrint, BYTE ; ”« £ à §à¥è¥¨ï ¯¥ç ⨠¤ âë ¢à¥¬¥¨
|
||||||
_SETVAR .FNPAGESID, BYTE ; ˆ¤¥ä.¯ ¬ï⨠£¤¥ FN
|
; 1 - § ¯à¥é¥®, 0 - à §à¥è¥®
|
||||||
|
_SETVAR .FNPAGESID, BYTE ; ˆ¤¥â¨ä¨ª â®à ¯ ¬ï⨠FN
|
||||||
_SETVAR .FNREZ2, BYTE ; ‘âà ¨æ á äãªæ¨ï¬¨ FN
|
_SETVAR .FNREZ2, BYTE ; ‘âà ¨æ á äãªæ¨ï¬¨ FN
|
||||||
_SETVAR .FNFONT, BYTE ; ‘âà ¨æ èà¨ä⮢
|
_SETVAR .FNFONT, BYTE ; ‘âà ¨æ èà¨ä⮢
|
||||||
_SETVAR .FNREZ3, BYTE ; ‘âà ¨æ FN HELP
|
_SETVAR .FNREZ3, BYTE ; ‘âà ¨æ FN HELP
|
||||||
IFDEF ENABLE.VIEW
|
; <20>ãä¥àë¥ áâà ¨æë ¯®¤ ¨â¥à䥩á
|
||||||
_SETVAR .FNVIEW, BYTE ; ‘âà ¨æ á FileViewer
|
|
||||||
ENDIF
|
|
||||||
IFDEF ENABLE.EDIT
|
|
||||||
_SETVAR .FNEDIT, BYTE ; ‘âà ¨æ á FileEditor
|
|
||||||
ENDIF
|
|
||||||
_SETVAR .BufferID, BYTE ; ˆ¤¥â¨ä¨ª â®à ¯ ¬ï⨠¯®¤ ¡ãä¥à
|
_SETVAR .BufferID, BYTE ; ˆ¤¥â¨ä¨ª â®à ¯ ¬ï⨠¯®¤ ¡ãä¥à
|
||||||
_SETVAR .FLX, BYTE ; ‘âà ¨æ ¤«ï ¯®¤£à㧪¨ FLX ¯à®á¬®âà. FLX ã⨫¨â
|
_SETVAR .FLX, BYTE ; ‘âà ¨æ ¤«ï § £à㧪¨ FLX ¯« £¨®¢
|
||||||
_SETVAR .LEFTPANEL, BYTE ; ‘âà ¨æ ª â «®£ ‹¥¢®© ¯ ¥«¨
|
_SETVAR .LEFTPANEL, BYTE ; ‘âà ¨æ ª â «®£ ‹¥¢®© ¯ ¥«¨
|
||||||
_SETVAR .RIGHTPANEL, BYTE ; ‘âà ¨æ ª â «®£ <20>à ¢®© ¯ ¥«¨
|
_SETVAR .RIGHTPANEL, BYTE ; ‘âà ¨æ ª â «®£ <20>à ¢®© ¯ ¥«¨
|
||||||
; <20>ãä¥àë¥ áâà ¨æë ¯®¤ ¨â¥à䥩á
|
_SETVAR .BuffPg1, BYTE
|
||||||
_SETVAR .BuffPg1, WORD
|
_SETVAR .BuffPg2, BYTE
|
||||||
_SETVAR .BuffPg3, 3
|
_SETVAR .BuffPg3, BYTE ; ¨á¯®«ì§ã¥âáï ª®¯¨à®¢é¨ª®¬ ä ©«®¢/¤¨à¥ªâ®à¨©
|
||||||
|
_SETVAR .BuffPg4, BYTE + BYTE ; ¨á¯®«ì§ã¥âáï á®àâ¨à®¢ª®©, à ¡®â á ¤¥à¥¢®¬ ¤¨à¥ªâ®à¨©
|
||||||
|
_SETVAR .FILES_COUNT, WORD
|
||||||
|
_SETVAR .FILES_BYTES, DWORD + 1
|
||||||
|
|
||||||
FileHDR
|
FileHDR
|
||||||
_INIT_VAR
|
_INIT_VAR
|
||||||
@ -343,6 +366,7 @@ FileHDR
|
|||||||
_SETVAR .Hours, BYTE ; +#16
|
_SETVAR .Hours, BYTE ; +#16
|
||||||
_SETVAR .Minutes, BYTE ; +#17
|
_SETVAR .Minutes, BYTE ; +#17
|
||||||
_SETVAR .SIZE, 0
|
_SETVAR .SIZE, 0
|
||||||
|
|
||||||
_BITMASK MARK, 0 ; 1-ä ©« ¯®¬¥ç¥
|
_BITMASK MARK, 0 ; 1-ä ©« ¯®¬¥ç¥
|
||||||
|
|
||||||
; ¨¬¥ ä ©«®¢
|
; ¨¬¥ ä ©«®¢
|
||||||
@ -357,13 +381,17 @@ FILENAME
|
|||||||
.EDIT_FLX EQU "FNEDITOR.FLX"
|
.EDIT_FLX EQU "FNEDITOR.FLX"
|
||||||
.VIEW_FLX EQU "FNVIEWER.FLX"
|
.VIEW_FLX EQU "FNVIEWER.FLX"
|
||||||
|
|
||||||
|
; ¢ãâ२¥ ®è¨¡ª¨
|
||||||
FNinternal
|
FNinternal
|
||||||
_INIT_VAR 0xF0
|
_INIT_VAR 0xF0
|
||||||
_SETVAR .PlugNotFound
|
_SETVAR .PlugNotFound
|
||||||
|
|
||||||
; ®â« ¤®ç®¥, ¥ ¬¥ïâì ¯® ¨§¡¥¦ ¨¥ £«îª®¢
|
; ®â« ¤®ç®¥, ¥ ¬¥ïâì ¯® ¨§¡¥¦ ¨¥ £«îª®¢
|
||||||
PLUGS_ENABLE EQU 0 ; ¬¥î ¯« £¨®¢
|
PLUGS_ENABLE EQU 0 ; ¬¥î ¯« £¨®¢
|
||||||
TREE_REZID EQU 0
|
|
||||||
MARK_DIR EQU 0 ; ¢ë¡®à ¤¨à¥ªâ®à¨¨ á ¯®¤áç¥â®¬ à §¬¥à ¢á¥å ä ©«®¢
|
MARK_DIR EQU 0 ; ¢ë¡®à ¤¨à¥ªâ®à¨¨ á ¯®¤áç¥â®¬ à §¬¥à ¢á¥å ä ©«®¢
|
||||||
TREE_DIR_ENTER EQU 0 ; ¯®ª § ᮤ¥à¦¨¬®£® ¤¨à¥ªâ®à¨¨ ¢ ¤¥à¥¢¥ ¯® ENTER
|
TREE_DIR_ENTER EQU 0 ; ¯®ª § ᮤ¥à¦¨¬®£® ¤¨à¥ªâ®à¨¨ ¢ ¤¥à¥¢¥ ¯® ENTER
|
||||||
CORR_FILENAME EQU 1 ; ¯à¥®¡à §®¢ ¨¥ ᨬ¢®«®¢ ¨¬¥¨ ä ©«
|
CORR_FILENAME EQU 1 ; ¯à¥®¡à §®¢ ¨¥ ᨬ¢®«®¢ ¨¬¥¨ ä ©«
|
||||||
|
|
||||||
|
; § ¯à¥é¥ë¥ ᨬ¢®«ë ¢ ª®à®âª¨å ¨¬¥ å FAT
|
||||||
|
; 22 2A 2B 2C 2E 2F 3A 3B 3C 3D 3E 3F 5B 5C 5D 7C
|
||||||
|
; \" * + , . / : ; < = > ? [ \\ ] |
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 19.07.2025 savelij
|
; LAST UPDATE: 22.08.2025 savelij
|
||||||
|
|
||||||
include macros.a80
|
include macros.a80
|
||||||
|
|
||||||
@ -14,19 +14,8 @@
|
|||||||
include fat_dir_sp.a80
|
include fat_dir_sp.a80
|
||||||
include fn_version.a80
|
include fn_version.a80
|
||||||
|
|
||||||
ENABLE
|
|
||||||
;.EDIT
|
|
||||||
;.VIEW
|
|
||||||
;.HELP
|
|
||||||
|
|
||||||
PAGES_MEM := 4
|
PAGES_MEM := 4
|
||||||
|
|
||||||
IFDEF ENABLE.VIEW
|
|
||||||
PAGES_MEM := PAGES_MEM + 1
|
|
||||||
ENDIF
|
|
||||||
IFDEF ENABLE.EDIT
|
|
||||||
PAGES_MEM := PAGES_MEM + 1
|
|
||||||
ENDIF
|
|
||||||
INIT_VAR 0xC000
|
INIT_VAR 0xC000
|
||||||
SETVAR FONT_RAW, 6888;IFFFONT_RAW_PACK - FONT_RAW_PACK
|
SETVAR FONT_RAW, 6888;IFFFONT_RAW_PACK - FONT_RAW_PACK
|
||||||
SETVAR_ALIGN
|
SETVAR_ALIGN
|
||||||
@ -63,7 +52,7 @@ EntryExec: DI
|
|||||||
LD A,(MAIN.FNMAIN) ; set pages from 0xC000
|
LD A,(MAIN.FNMAIN) ; set pages from 0xC000
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
LD HL,BASE_ADDR ; FNMAIN
|
LD HL,BASE_ADDR ; FNMAIN
|
||||||
LD DE,END_BLOCK_1 - START_BLOCK_1
|
LD DE,BLOCK1_SIZE
|
||||||
LD A,(MAIN.hFile)
|
LD A,(MAIN.hFile)
|
||||||
SPDSS DSSF.READ
|
SPDSS DSSF.READ
|
||||||
JP C,disk_error
|
JP C,disk_error
|
||||||
@ -71,7 +60,7 @@ EntryExec: DI
|
|||||||
LD A,(MAIN.FNREZ2)
|
LD A,(MAIN.FNREZ2)
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
LD HL,0xC000 ; FNREZ2
|
LD HL,0xC000 ; FNREZ2
|
||||||
LD DE,END_BLOCK_2 - START_BLOCK_2
|
LD DE,BLOCK2_SIZE
|
||||||
LD A,(MAIN.hFile)
|
LD A,(MAIN.hFile)
|
||||||
SPDSS DSSF.READ
|
SPDSS DSSF.READ
|
||||||
JP C,disk_error
|
JP C,disk_error
|
||||||
@ -98,32 +87,11 @@ EntryExec: DI
|
|||||||
; § £à㧪 奫¯
|
; § £à㧪 奫¯
|
||||||
LD A,(MAIN.FNREZ3) ; FNREZ3
|
LD A,(MAIN.FNREZ3) ; FNREZ3
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
; SETPORT WINSP.CPU1,,0 ; ????
|
|
||||||
LD HL,0xC000
|
LD HL,0xC000
|
||||||
LD DE,END_BLOCK_3 - START_BLOCK_3
|
LD DE,BLOCK3_SIZE
|
||||||
LD A,(MAIN.hFile)
|
LD A,(MAIN.hFile)
|
||||||
SPDSS DSSF.READ
|
SPDSS DSSF.READ
|
||||||
JP C,disk_error
|
JP C,disk_error
|
||||||
IFDEF ENABLE.VIEW
|
|
||||||
; § £à㧪 ¢ìà
|
|
||||||
LD A,(MAIN.FNVIEW) ; FNVIEW
|
|
||||||
SETPORT WINSP.CPU3,,0
|
|
||||||
LD HL,0xC000
|
|
||||||
LD DE,END_BLOCK_VIEWER - START_BLOCK_VIEWER
|
|
||||||
LD A,(MAIN.hFile)
|
|
||||||
SPDSS DSSF.READ
|
|
||||||
JP C,disk_error
|
|
||||||
ENDIF
|
|
||||||
IFDEF ENABLE.EDIT
|
|
||||||
; § £à㧪 । ªâ®à
|
|
||||||
LD A,(MAIN.FNEDIT) ; FNEDIT
|
|
||||||
SETPORT WINSP.CPU3,,0
|
|
||||||
LD HL,0xC000
|
|
||||||
LD DE,END_BLOCK_EDITOR - START_BLOCK_EDITOR
|
|
||||||
LD A,(MAIN.hFile)
|
|
||||||
SPDSS DSSF.READ
|
|
||||||
JP C,disk_error
|
|
||||||
ENDIF
|
|
||||||
LD A,(MAIN.hFile)
|
LD A,(MAIN.hFile)
|
||||||
SPDSS DSSF.CLOSE ; close file
|
SPDSS DSSF.CLOSE ; close file
|
||||||
;!TEST ; !HARDCODE SYS_PAGE
|
;!TEST ; !HARDCODE SYS_PAGE
|
||||||
@ -205,12 +173,6 @@ MAIN
|
|||||||
.FNREZ2 db 0x00 ; 00
|
.FNREZ2 db 0x00 ; 00
|
||||||
.FNFONT db 0x00 ; 01
|
.FNFONT db 0x00 ; 01
|
||||||
.FNREZ3 db 0x00 ; 02
|
.FNREZ3 db 0x00 ; 02
|
||||||
IFDEF ENABLE.VIEW
|
|
||||||
.FNVIEW db 0x00 ; 03
|
|
||||||
ENDIF
|
|
||||||
IFDEF ENABLE.EDIT
|
|
||||||
.FNEDIT db 0x00 ; 04
|
|
||||||
ENDIF
|
|
||||||
DB 0xFF
|
DB 0xFF
|
||||||
|
|
||||||
.copyright_str: DZ "\r\nThe Flex Navigator, ver.\{FLEX_VERS.NAVIGATOR}\r\n"
|
.copyright_str: DZ "\r\nThe Flex Navigator, ver.\{FLEX_VERS.NAVIGATOR}\r\n"
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 29.07.2025 savelij
|
; LAST UPDATE: 10.01.2026 savelij
|
||||||
|
|
||||||
FLEX_VERS
|
FLEX_VERS
|
||||||
.NAVIGATOR EQU "1.16.01"
|
.NAVIGATOR EQU "1.16.05"
|
||||||
.EDITOR EQU "1.10"
|
.EDITOR EQU "1.11"
|
||||||
.VIEWER EQU "1.06"
|
.VIEWER EQU "1.07"
|
||||||
|
|||||||
236
fnbar.a80
236
fnbar.a80
@ -1,13 +1,13 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 25.07.2025 savelij
|
; LAST UPDATE: 01.08.2025 savelij
|
||||||
|
|
||||||
;[]-----------------------------------------------------------[]
|
;[]-----------------------------------------------------------[]
|
||||||
InitScrollBar LD C,(IX + BAR.PAGE_FILES)
|
InitScrollBar LD C,(IX + SCROLLBAR.PAGE_FILES)
|
||||||
LD B,(IX + BAR.PAGE_FILES + 1) ; Š®«-¢® í«¥¬. áâà.
|
LD B,(IX + SCROLLBAR.PAGE_FILES + 1) ; Š®«-¢® í«¥¬. áâà.
|
||||||
LD L,C
|
LD L,C
|
||||||
LD H,B
|
LD H,B
|
||||||
LD E,(IX + BAR.MAX_FILES)
|
LD E,(IX + SCROLLBAR.MAX_FILES)
|
||||||
LD D,(IX + BAR.MAX_FILES + 1) ; ¬ ªá.í«¥¬¥â®¢
|
LD D,(IX + SCROLLBAR.MAX_FILES + 1) ; ¬ ªá.í«¥¬¥â®¢
|
||||||
LD A,D
|
LD A,D
|
||||||
OR E
|
OR E
|
||||||
JR NZ,.L1
|
JR NZ,.L1
|
||||||
@ -18,11 +18,11 @@ InitScrollBar LD C,(IX + BAR.PAGE_FILES)
|
|||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
.L2 PUSH DE
|
.L2 PUSH DE
|
||||||
LD E,(IX + BAR.MAX_LEN)
|
LD E,(IX + SCROLLBAR.MAX_LEN)
|
||||||
LD D,(IX + BAR.MAX_LEN + 1) ; Š®«-¢® ¢¨¤. í«¥¬. * à §¬¥à ¡ à
|
LD D,(IX + SCROLLBAR.MAX_LEN + 1) ; Š®«-¢® ¢¨¤. í«¥¬. * à §¬¥à ¡ à
|
||||||
CALL Mult16X16 ; DE * BC = HL + DE
|
CALL Mul_16X16_32b ; DE * BC = HL + DE
|
||||||
POP BC ; /¬ ªá.í«¥¬¥â®¢
|
POP BC ; /¬ ªá.í«¥¬¥â®¢
|
||||||
CALL Divis32X16 ; HL + DE / BC = DE (HL-®áâ)
|
CALL Div_32X16_16b_16b ; HL + DE / BC = DE (HL-®áâ)
|
||||||
LD A,H
|
LD A,H
|
||||||
OR L
|
OR L
|
||||||
JR Z,.L3
|
JR Z,.L3
|
||||||
@ -31,21 +31,21 @@ InitScrollBar LD C,(IX + BAR.PAGE_FILES)
|
|||||||
SBC HL,DE
|
SBC HL,DE
|
||||||
JR C,.L4
|
JR C,.L4
|
||||||
LD DE,0x0003
|
LD DE,0x0003
|
||||||
.L4 LD (IX + BAR.LEN_FILES),E ; = ¤«¨ ¡ à
|
.L4 LD (IX + SCROLLBAR.LEN_FILES),E ; = ¤«¨ ¡ à
|
||||||
LD (IX + BAR.LEN_FILES + 1),D ; = ¤«¨ ¡ à
|
LD (IX + SCROLLBAR.LEN_FILES + 1),D ; = ¤«¨ ¡ à
|
||||||
RET
|
RET
|
||||||
|
|
||||||
PrnHScrBar PUSH IY
|
DrawHScrollBar: PUSH IY
|
||||||
GETPORT WINSP.Y_PORT
|
GETPORT WINSP.Y_PORT
|
||||||
PUSH AF
|
PUSH AF
|
||||||
GETPORT WINSP.CPU1
|
GETPORT WINSP.CPU1
|
||||||
LD IYL,A
|
LD IYL,A
|
||||||
LD L,(IX + BAR.FIRST_FILE) ; FirstFile
|
LD L,(IX + SCROLLBAR.FIRST_FILE) ; FirstFile
|
||||||
LD H,(IX + BAR.FIRST_FILE + 1)
|
LD H,(IX + SCROLLBAR.FIRST_FILE + 1)
|
||||||
LD E,(IX + BAR.PAGE_FILES)
|
LD E,(IX + SCROLLBAR.PAGE_FILES)
|
||||||
LD D,(IX + BAR.PAGE_FILES + 1)
|
LD D,(IX + SCROLLBAR.PAGE_FILES + 1)
|
||||||
LD C,(IX + BAR.MAX_FILES) ; EquipFiles
|
LD C,(IX + SCROLLBAR.MAX_FILES) ; EquipFiles
|
||||||
LD B,(IX + BAR.MAX_FILES + 1)
|
LD B,(IX + SCROLLBAR.MAX_FILES + 1)
|
||||||
LD A,B
|
LD A,B
|
||||||
OR C
|
OR C
|
||||||
JR NZ,.L1
|
JR NZ,.L1
|
||||||
@ -63,11 +63,11 @@ PrnHScrBar PUSH IY
|
|||||||
JR NC,.L2
|
JR NC,.L2
|
||||||
LD HL,0x0000
|
LD HL,0x0000
|
||||||
.L2 EX DE,HL
|
.L2 EX DE,HL
|
||||||
LD C,(IX + BAR.MAX_LEN)
|
LD C,(IX + SCROLLBAR.MAX_LEN)
|
||||||
LD B,(IX + BAR.MAX_LEN + 1)
|
LD B,(IX + SCROLLBAR.MAX_LEN + 1)
|
||||||
CALL Mult16X16
|
CALL Mul_16X16_32b
|
||||||
POP BC
|
POP BC
|
||||||
CALL Divis32X16
|
CALL Div_32X16_16b_16b
|
||||||
LD A,D
|
LD A,D
|
||||||
OR E
|
OR E
|
||||||
JR Z,.L3
|
JR Z,.L3
|
||||||
@ -76,12 +76,12 @@ PrnHScrBar PUSH IY
|
|||||||
RR E
|
RR E
|
||||||
JR NC,.L4
|
JR NC,.L4
|
||||||
INC DE
|
INC DE
|
||||||
.L4 LD L,(IX + BAR.X)
|
.L4 LD L,(IX + SCROLLBAR.X)
|
||||||
LD H,(IX + BAR.X + 1)
|
LD H,(IX + SCROLLBAR.X + 1)
|
||||||
SRL H
|
SRL H
|
||||||
RR L
|
RR L
|
||||||
SET 6,H
|
SET 6,H
|
||||||
LD A,(IX + BAR.Y)
|
LD A,(IX + SCROLLBAR.Y)
|
||||||
LD C,A
|
LD C,A
|
||||||
LD B,COLORP.HIGHGRAY + COLORI.HIGHGRAY;0x88
|
LD B,COLORP.HIGHGRAY + COLORI.HIGHGRAY;0x88
|
||||||
SETPORT WINSP.CPU1,0x50
|
SETPORT WINSP.CPU1,0x50
|
||||||
@ -104,11 +104,11 @@ PrnHScrBar PUSH IY
|
|||||||
EI
|
EI
|
||||||
POP DE
|
POP DE
|
||||||
.L3 PUSH DE
|
.L3 PUSH DE
|
||||||
LD L,(IX + BAR.X)
|
LD L,(IX + SCROLLBAR.X)
|
||||||
LD H,(IX + BAR.X + 1)
|
LD H,(IX + SCROLLBAR.X + 1)
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,(IX + BAR.LEFT_FILES)
|
LD E,(IX + SCROLLBAR.LEFT_FILES)
|
||||||
LD D,(IX + BAR.LEFT_FILES + 1)
|
LD D,(IX + SCROLLBAR.LEFT_FILES + 1)
|
||||||
LD A,D
|
LD A,D
|
||||||
OR E
|
OR E
|
||||||
JR Z,.L6
|
JR Z,.L6
|
||||||
@ -122,10 +122,10 @@ PrnHScrBar PUSH IY
|
|||||||
SRL H
|
SRL H
|
||||||
RR L
|
RR L
|
||||||
SET 6,H
|
SET 6,H
|
||||||
LD A,(IX + BAR.Y)
|
LD A,(IX + SCROLLBAR.Y)
|
||||||
LD C,A
|
LD C,A
|
||||||
LD E,(IX + BAR.LEN_FILES)
|
LD E,(IX + SCROLLBAR.LEN_FILES)
|
||||||
LD D,(IX + BAR.LEN_FILES + 1)
|
LD D,(IX + SCROLLBAR.LEN_FILES + 1)
|
||||||
LD A,D
|
LD A,D
|
||||||
OR A
|
OR A
|
||||||
JR NZ,.L7
|
JR NZ,.L7
|
||||||
@ -185,12 +185,12 @@ PrnHScrBar PUSH IY
|
|||||||
SETPORT WINSP.CPU1,,0
|
SETPORT WINSP.CPU1,,0
|
||||||
EI
|
EI
|
||||||
POP HL
|
POP HL
|
||||||
LD C,(IX + BAR.LEN_FILES)
|
LD C,(IX + SCROLLBAR.LEN_FILES)
|
||||||
LD B,(IX + BAR.LEN_FILES + 1)
|
LD B,(IX + SCROLLBAR.LEN_FILES + 1)
|
||||||
PUSH BC
|
PUSH BC
|
||||||
ADD HL,BC
|
ADD HL,BC
|
||||||
LD C,(IX + BAR.RIGHT_FILES)
|
LD C,(IX + SCROLLBAR.RIGHT_FILES)
|
||||||
LD B,(IX + BAR.RIGHT_FILES + 1)
|
LD B,(IX + SCROLLBAR.RIGHT_FILES + 1)
|
||||||
LD A,B
|
LD A,B
|
||||||
OR C
|
OR C
|
||||||
JR Z,.L10
|
JR Z,.L10
|
||||||
@ -201,8 +201,8 @@ PrnHScrBar PUSH IY
|
|||||||
LD A,H
|
LD A,H
|
||||||
LD (BC),A
|
LD (BC),A
|
||||||
.L10 POP BC
|
.L10 POP BC
|
||||||
LD L,(IX + BAR.MAX_LEN)
|
LD L,(IX + SCROLLBAR.MAX_LEN)
|
||||||
LD H,(IX + BAR.MAX_LEN + 1)
|
LD H,(IX + SCROLLBAR.MAX_LEN + 1)
|
||||||
OR A
|
OR A
|
||||||
SBC HL,BC
|
SBC HL,BC
|
||||||
POP BC
|
POP BC
|
||||||
@ -216,7 +216,7 @@ PrnHScrBar PUSH IY
|
|||||||
SRL D
|
SRL D
|
||||||
RR E
|
RR E
|
||||||
JR Z,.L11
|
JR Z,.L11
|
||||||
LD A,(IX + BAR.Y)
|
LD A,(IX + SCROLLBAR.Y)
|
||||||
LD C,A
|
LD C,A
|
||||||
LD B,COLORP.HIGHGRAY + COLORI.HIGHGRAY;0x88
|
LD B,COLORP.HIGHGRAY + COLORI.HIGHGRAY;0x88
|
||||||
SETPORT WINSP.CPU1,0x50
|
SETPORT WINSP.CPU1,0x50
|
||||||
@ -242,17 +242,17 @@ PrnHScrBar PUSH IY
|
|||||||
POP IY
|
POP IY
|
||||||
RET
|
RET
|
||||||
|
|
||||||
PrnVScrBar PUSH IY
|
DrawVScrollBar: PUSH IY
|
||||||
GETPORT WINSP.Y_PORT
|
GETPORT WINSP.Y_PORT
|
||||||
PUSH AF
|
PUSH AF
|
||||||
GETPORT WINSP.CPU1
|
GETPORT WINSP.CPU1
|
||||||
LD IYH,A
|
LD IYH,A
|
||||||
LD L,(IX + BAR.FIRST_FILE) ; FirstFile
|
LD L,(IX + SCROLLBAR.FIRST_FILE) ; FirstFile
|
||||||
LD H,(IX + BAR.FIRST_FILE + 1)
|
LD H,(IX + SCROLLBAR.FIRST_FILE + 1)
|
||||||
LD E,(IX + BAR.PAGE_FILES)
|
LD E,(IX + SCROLLBAR.PAGE_FILES)
|
||||||
LD D,(IX + BAR.PAGE_FILES + 1)
|
LD D,(IX + SCROLLBAR.PAGE_FILES + 1)
|
||||||
LD C,(IX + BAR.MAX_FILES) ; EquipFiles
|
LD C,(IX + SCROLLBAR.MAX_FILES) ; EquipFiles
|
||||||
LD B,(IX + BAR.MAX_FILES + 1)
|
LD B,(IX + SCROLLBAR.MAX_FILES + 1)
|
||||||
LD A,B
|
LD A,B
|
||||||
OR C
|
OR C
|
||||||
JR NZ,.L1
|
JR NZ,.L1
|
||||||
@ -270,12 +270,12 @@ PrnVScrBar PUSH IY
|
|||||||
JR NC,.L2
|
JR NC,.L2
|
||||||
LD HL,0x0000
|
LD HL,0x0000
|
||||||
.L2 EX DE,HL
|
.L2 EX DE,HL
|
||||||
LD C,(IX + BAR.MAX_LEN)
|
LD C,(IX + SCROLLBAR.MAX_LEN)
|
||||||
LD B,(IX + BAR.MAX_LEN + 1)
|
LD B,(IX + SCROLLBAR.MAX_LEN + 1)
|
||||||
CALL Mult16X16
|
CALL Mul_16X16_32b
|
||||||
POP BC
|
POP BC
|
||||||
CALL Divis32X16
|
CALL Div_32X16_16b_16b
|
||||||
LD A,(IX + BAR.Y)
|
LD A,(IX + SCROLLBAR.Y)
|
||||||
LD IYL,A
|
LD IYL,A
|
||||||
LD A,D
|
LD A,D
|
||||||
OR E
|
OR E
|
||||||
@ -283,8 +283,8 @@ PrnVScrBar PUSH IY
|
|||||||
PUSH DE
|
PUSH DE
|
||||||
LD A,E
|
LD A,E
|
||||||
LD (.L4),A
|
LD (.L4),A
|
||||||
LD L,(IX + BAR.X)
|
LD L,(IX + SCROLLBAR.X)
|
||||||
LD H,(IX + BAR.X + 1)
|
LD H,(IX + SCROLLBAR.X + 1)
|
||||||
SRL H
|
SRL H
|
||||||
RR L
|
RR L
|
||||||
SET 6,H
|
SET 6,H
|
||||||
@ -311,11 +311,11 @@ PrnVScrBar PUSH IY
|
|||||||
EI
|
EI
|
||||||
POP DE
|
POP DE
|
||||||
.L3 PUSH DE
|
.L3 PUSH DE
|
||||||
LD L,(IX + BAR.Y)
|
LD L,(IX + SCROLLBAR.Y)
|
||||||
LD H,(IX + BAR.Y + 1)
|
LD H,(IX + SCROLLBAR.Y + 1)
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,(IX + BAR.LEFT_FILES)
|
LD E,(IX + SCROLLBAR.LEFT_FILES)
|
||||||
LD D,(IX + BAR.LEFT_FILES + 1)
|
LD D,(IX + SCROLLBAR.LEFT_FILES + 1)
|
||||||
LD A,D
|
LD A,D
|
||||||
OR E
|
OR E
|
||||||
JR Z,.L6
|
JR Z,.L6
|
||||||
@ -326,12 +326,12 @@ PrnVScrBar PUSH IY
|
|||||||
LD (HL),D
|
LD (HL),D
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
.L6 PUSH HL
|
.L6 PUSH HL
|
||||||
LD L,(IX + BAR.X)
|
LD L,(IX + SCROLLBAR.X)
|
||||||
LD H,(IX + BAR.X + 1)
|
LD H,(IX + SCROLLBAR.X + 1)
|
||||||
SRL H
|
SRL H
|
||||||
RR L
|
RR L
|
||||||
SET 6,H
|
SET 6,H
|
||||||
LD A,(IX + BAR.LEN_FILES)
|
LD A,(IX + SCROLLBAR.LEN_FILES)
|
||||||
LD C,A
|
LD C,A
|
||||||
SUB 0x02
|
SUB 0x02
|
||||||
LD (.L7),A
|
LD (.L7),A
|
||||||
@ -382,12 +382,12 @@ PrnVScrBar PUSH IY
|
|||||||
SETPORT WINSP.CPU1,,0
|
SETPORT WINSP.CPU1,,0
|
||||||
EI
|
EI
|
||||||
POP HL
|
POP HL
|
||||||
LD C,(IX + BAR.LEN_FILES)
|
LD C,(IX + SCROLLBAR.LEN_FILES)
|
||||||
LD B,(IX + BAR.LEN_FILES + 1)
|
LD B,(IX + SCROLLBAR.LEN_FILES + 1)
|
||||||
PUSH BC
|
PUSH BC
|
||||||
ADD HL,BC
|
ADD HL,BC
|
||||||
LD C,(IX + BAR.RIGHT_FILES)
|
LD C,(IX + SCROLLBAR.RIGHT_FILES)
|
||||||
LD B,(IX + BAR.RIGHT_FILES + 1)
|
LD B,(IX + SCROLLBAR.RIGHT_FILES + 1)
|
||||||
LD A,B
|
LD A,B
|
||||||
OR C
|
OR C
|
||||||
JR Z,.L9
|
JR Z,.L9
|
||||||
@ -398,8 +398,8 @@ PrnVScrBar PUSH IY
|
|||||||
LD A,H
|
LD A,H
|
||||||
LD (BC),A
|
LD (BC),A
|
||||||
.L9 POP BC
|
.L9 POP BC
|
||||||
LD L,(IX + BAR.MAX_LEN)
|
LD L,(IX + SCROLLBAR.MAX_LEN)
|
||||||
LD H,(IX + BAR.MAX_LEN + 1)
|
LD H,(IX + SCROLLBAR.MAX_LEN + 1)
|
||||||
OR A
|
OR A
|
||||||
SBC HL,BC
|
SBC HL,BC
|
||||||
POP BC
|
POP BC
|
||||||
@ -411,8 +411,8 @@ PrnVScrBar PUSH IY
|
|||||||
JR C,.L10
|
JR C,.L10
|
||||||
LD A,L
|
LD A,L
|
||||||
LD (.L11),A
|
LD (.L11),A
|
||||||
LD L,(IX + BAR.X)
|
LD L,(IX + SCROLLBAR.X)
|
||||||
LD H,(IX + BAR.X + 1)
|
LD H,(IX + SCROLLBAR.X + 1)
|
||||||
SRL H
|
SRL H
|
||||||
RR L
|
RR L
|
||||||
SET 6,H
|
SET 6,H
|
||||||
@ -440,20 +440,21 @@ PrnVScrBar PUSH IY
|
|||||||
RET
|
RET
|
||||||
|
|
||||||
;[]-----------------------------------------------------------[]
|
;[]-----------------------------------------------------------[]
|
||||||
InitProcess SUB A
|
; ¨¨æ¨ «¨§ æ¨ï ¨¤¨ªâ®à ¯à®æ¥áá
|
||||||
LD (IX + PROC.CURR_PAGE),A
|
InitProgressBar SUB A
|
||||||
LD (IX + PROC.CURR_PAGE + 1),A
|
LD (IX + PROGRESSBAR.CURR_PAGE),A
|
||||||
LD (IX + PROC.CURR_PAGE + 2),A
|
LD (IX + PROGRESSBAR.CURR_PAGE + 1),A
|
||||||
LD (IX + PROC.CURR_PAGE + 3),A
|
LD (IX + PROGRESSBAR.CURR_PAGE + 2),A
|
||||||
LD (IX + PROC.CORR_INDEX),A
|
LD (IX + PROGRESSBAR.CURR_PAGE + 3),A
|
||||||
LD (IX + PROC.CORR_INDEX + 1),A
|
LD (IX + PROGRESSBAR.CORR_INDEX),A
|
||||||
LD C,(IX + PROC.MAX_LEN) ; Œ ªá/¬ ªá.¤«¨ã ¯à®æ¥á
|
LD (IX + PROGRESSBAR.CORR_INDEX + 1),A
|
||||||
LD B,(IX + PROC.MAX_LEN + 1)
|
LD C,(IX + PROGRESSBAR.MAX_LEN) ; Œ ªá/¬ ªá.¤«¨ã ¯à®æ¥á
|
||||||
LD E,(IX + PROC.MAX_PAGES)
|
LD B,(IX + PROGRESSBAR.MAX_LEN + 1)
|
||||||
LD D,(IX + PROC.MAX_PAGES + 1)
|
LD E,(IX + PROGRESSBAR.MAX_PAGES)
|
||||||
LD L,(IX + PROC.MAX_PAGES + 2)
|
LD D,(IX + PROGRESSBAR.MAX_PAGES + 1)
|
||||||
LD H,(IX + PROC.MAX_PAGES + 3)
|
LD L,(IX + PROGRESSBAR.MAX_PAGES + 2)
|
||||||
CALL Divis32X16 ; HL + DE / BC = DE (HL-®áâ)
|
LD H,(IX + PROGRESSBAR.MAX_PAGES + 3)
|
||||||
|
CALL Div_32X16_16b_16b ; HLDE / BC = DE, (HL-®áâ ⮪)
|
||||||
LD A,H
|
LD A,H
|
||||||
OR L
|
OR L
|
||||||
JR Z,.L2
|
JR Z,.L2
|
||||||
@ -462,42 +463,43 @@ InitProcess SUB A
|
|||||||
OR A
|
OR A
|
||||||
SBC HL,DE
|
SBC HL,DE
|
||||||
JR C,.L1
|
JR C,.L1
|
||||||
LD A,(IX + PROC.MAX_PAGES + 2)
|
LD A,(IX + PROGRESSBAR.MAX_PAGES + 2)
|
||||||
OR (IX + PROC.MAX_PAGES + 3)
|
OR (IX + PROGRESSBAR.MAX_PAGES + 3)
|
||||||
JR NZ,.L1
|
JR NZ,.L1
|
||||||
LD E,(IX + PROC.MAX_PAGES)
|
LD E,(IX + PROGRESSBAR.MAX_PAGES)
|
||||||
LD D,(IX + PROC.MAX_PAGES + 1)
|
LD D,(IX + PROGRESSBAR.MAX_PAGES + 1)
|
||||||
LD BC,1000
|
LD BC,1000
|
||||||
LD (IX + PROC.CORR_INDEX),C
|
LD (IX + PROGRESSBAR.CORR_INDEX),C
|
||||||
LD (IX + PROC.CORR_INDEX + 1),B
|
LD (IX + PROGRESSBAR.CORR_INDEX + 1),B
|
||||||
CALL Mult16X16
|
CALL Mul_16X16_32b
|
||||||
LD C,(IX + PROC.MAX_LEN) ; Œ ªá/¬ ªá.¤«¨ã ¯à®æ¥á
|
LD C,(IX + PROGRESSBAR.MAX_LEN) ; Œ ªá/¬ ªá.¤«¨ã ¯à®æ¥á
|
||||||
LD B,(IX + PROC.MAX_LEN + 1)
|
LD B,(IX + PROGRESSBAR.MAX_LEN + 1)
|
||||||
CALL Divis32X16 ; HL + DE / BC = DE (HL-®áâ)
|
CALL Div_32X16_16b_16b ; HLDE / BC = DE, (HL-®áâ ⮪)
|
||||||
.L1 LD (IX + PROC.INDEX),E
|
.L1 LD (IX + PROGRESSBAR.INDEX),E
|
||||||
LD (IX + PROC.INDEX + 1),D
|
LD (IX + PROGRESSBAR.INDEX + 1),D
|
||||||
RET
|
RET
|
||||||
|
|
||||||
PrnProcess PUSH IY
|
DrawProgressBar:
|
||||||
|
PUSH IY
|
||||||
GETPORT WINSP.Y_PORT
|
GETPORT WINSP.Y_PORT
|
||||||
PUSH AF
|
PUSH AF
|
||||||
GETPORT WINSP.CPU1
|
GETPORT WINSP.CPU1
|
||||||
LD IYL,A
|
LD IYL,A
|
||||||
LD E,(IX + PROC.CURR_PAGE)
|
LD E,(IX + PROGRESSBAR.CURR_PAGE)
|
||||||
LD D,(IX + PROC.CURR_PAGE + 1)
|
LD D,(IX + PROGRESSBAR.CURR_PAGE + 1)
|
||||||
LD L,(IX + PROC.CURR_PAGE + 2)
|
LD L,(IX + PROGRESSBAR.CURR_PAGE + 2)
|
||||||
LD H,(IX + PROC.CURR_PAGE + 3)
|
LD H,(IX + PROGRESSBAR.CURR_PAGE + 3)
|
||||||
LD A,(IX + PROC.CORR_INDEX)
|
LD A,(IX + PROGRESSBAR.CORR_INDEX)
|
||||||
OR (IX + PROC.CORR_INDEX + 1)
|
OR (IX + PROGRESSBAR.CORR_INDEX + 1)
|
||||||
JR Z,.L1
|
JR Z,.L1
|
||||||
LD C,(IX + PROC.CORR_INDEX)
|
LD C,(IX + PROGRESSBAR.CORR_INDEX)
|
||||||
LD B,(IX + PROC.CORR_INDEX + 1)
|
LD B,(IX + PROGRESSBAR.CORR_INDEX + 1)
|
||||||
CALL Mult16X16
|
CALL Mul_16X16_32b
|
||||||
.L1 LD C,(IX + PROC.INDEX)
|
.L1 LD C,(IX + PROGRESSBAR.INDEX)
|
||||||
LD B,(IX + PROC.INDEX + 1)
|
LD B,(IX + PROGRESSBAR.INDEX + 1)
|
||||||
CALL Divis32X16
|
CALL Div_32X16_16b_16b
|
||||||
LD L,(IX + PROC.X)
|
LD L,(IX + PROGRESSBAR.X)
|
||||||
LD H,(IX + PROC.X + 1)
|
LD H,(IX + PROGRESSBAR.X + 1)
|
||||||
SRL H
|
SRL H
|
||||||
RR L
|
RR L
|
||||||
SET 6,H
|
SET 6,H
|
||||||
@ -506,8 +508,8 @@ PrnProcess PUSH IY
|
|||||||
JR Z,.L2
|
JR Z,.L2
|
||||||
PUSH DE
|
PUSH DE
|
||||||
PUSH HL
|
PUSH HL
|
||||||
LD L,(IX + PROC.MAX_LEN)
|
LD L,(IX + PROGRESSBAR.MAX_LEN)
|
||||||
LD H,(IX + PROC.MAX_LEN + 1)
|
LD H,(IX + PROGRESSBAR.MAX_LEN + 1)
|
||||||
OR A
|
OR A
|
||||||
SBC HL,DE
|
SBC HL,DE
|
||||||
JR NC,.L3
|
JR NC,.L3
|
||||||
@ -518,9 +520,9 @@ PrnProcess PUSH IY
|
|||||||
RR E
|
RR E
|
||||||
JR NC,.L4
|
JR NC,.L4
|
||||||
INC DE
|
INC DE
|
||||||
.L4 LD A,(IX + PROC.Y)
|
.L4 LD A,(IX + PROGRESSBAR.Y)
|
||||||
LD C,A
|
LD C,A
|
||||||
LD A,(IX + PROC.COLOR)
|
LD A,(IX + PROGRESSBAR.COLOR)
|
||||||
AND 0xF0
|
AND 0xF0
|
||||||
LD B,A
|
LD B,A
|
||||||
RRCA
|
RRCA
|
||||||
@ -549,8 +551,8 @@ PrnProcess PUSH IY
|
|||||||
EI
|
EI
|
||||||
POP DE
|
POP DE
|
||||||
.L2 PUSH HL
|
.L2 PUSH HL
|
||||||
LD L,(IX + PROC.MAX_LEN)
|
LD L,(IX + PROGRESSBAR.MAX_LEN)
|
||||||
LD H,(IX + PROC.MAX_LEN + 1)
|
LD H,(IX + PROGRESSBAR.MAX_LEN + 1)
|
||||||
OR A
|
OR A
|
||||||
SBC HL,DE
|
SBC HL,DE
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
@ -561,9 +563,9 @@ PrnProcess PUSH IY
|
|||||||
RR E
|
RR E
|
||||||
JR NC,.L7
|
JR NC,.L7
|
||||||
INC DE
|
INC DE
|
||||||
.L7 LD A,(IX + PROC.Y)
|
.L7 LD A,(IX + PROGRESSBAR.Y)
|
||||||
LD C,A
|
LD C,A
|
||||||
LD A,(IX + PROC.COLOR)
|
LD A,(IX + PROGRESSBAR.COLOR)
|
||||||
AND 0x0F
|
AND 0x0F
|
||||||
LD B,A
|
LD B,A
|
||||||
RLCA
|
RLCA
|
||||||
|
|||||||
23
fndos.a80
23
fndos.a80
@ -1,12 +1,12 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 27.04.2025 savelij
|
; LAST UPDATE: 07.09.2025 savelij
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
BegDIRECTORY LD HL,BegDIR
|
BegDIRECTORY LD HL,BegDIR
|
||||||
NewDIRECTORY PUSH HL
|
NewDIRECTORY PUSH HL
|
||||||
CALL ResInvert
|
CALL ResInvert
|
||||||
POP HL
|
POP HL
|
||||||
CALL SetClock
|
CALL PointerMouseClock
|
||||||
PUSH IY
|
PUSH IY
|
||||||
SPDSS DSSF.CHDIR
|
SPDSS DSSF.CHDIR
|
||||||
POP IY
|
POP IY
|
||||||
@ -67,10 +67,10 @@ NewDIRECT1 BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
|||||||
LD A,(IY + PANEL.VIEWFLAG)
|
LD A,(IY + PANEL.VIEWFLAG)
|
||||||
AND VIEWFLAG.MASK
|
AND VIEWFLAG.MASK
|
||||||
PUSH AF
|
PUSH AF
|
||||||
CALL Z,PrnHScrBar
|
CALL Z,DrawHScrollBar
|
||||||
POP AF
|
POP AF
|
||||||
CALL NZ,PrnVScrBar
|
CALL NZ,DrawVScrollBar
|
||||||
JP SetMouse
|
JP PointerMousePointer
|
||||||
|
|
||||||
NewDIRTree PUSH IY
|
NewDIRTree PUSH IY
|
||||||
POP HL
|
POP HL
|
||||||
@ -78,13 +78,8 @@ NewDIRTree PUSH IY
|
|||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
INC HL
|
INC HL
|
||||||
INC HL
|
INC HL
|
||||||
IF TREE_REZID
|
|
||||||
CALL RESIDENT.FindTreeDIR
|
|
||||||
CALL RESIDENT.MakeTreePath
|
|
||||||
ELSE
|
|
||||||
CALL FindTreeDIRR
|
CALL FindTreeDIRR
|
||||||
CALL MakeTreePathR
|
CALL MakeTreePathR
|
||||||
ENDIF
|
|
||||||
PUSH IY
|
PUSH IY
|
||||||
BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
||||||
LD IY,RightPanel
|
LD IY,RightPanel
|
||||||
@ -108,9 +103,9 @@ RefreshDIR BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
|||||||
LD A,(IY + PANEL.VIEWFLAG)
|
LD A,(IY + PANEL.VIEWFLAG)
|
||||||
AND VIEWFLAG.MASK
|
AND VIEWFLAG.MASK
|
||||||
PUSH AF
|
PUSH AF
|
||||||
CALL Z,PrnHScrBar
|
CALL Z,DrawHScrollBar
|
||||||
POP AF
|
POP AF
|
||||||
CALL NZ,PrnVScrBar
|
CALL NZ,DrawVScrollBar
|
||||||
RfDIRn1 LD HL,LeftPanel + PANEL.CURR_PATH
|
RfDIRn1 LD HL,LeftPanel + PANEL.CURR_PATH
|
||||||
LD DE,RightPanel + PANEL.CURR_PATH
|
LD DE,RightPanel + PANEL.CURR_PATH
|
||||||
RefrDIR LD A,(DE)
|
RefrDIR LD A,(DE)
|
||||||
@ -142,9 +137,9 @@ RefrDIR LD A,(DE)
|
|||||||
LD A,(IY + PANEL.VIEWFLAG)
|
LD A,(IY + PANEL.VIEWFLAG)
|
||||||
AND VIEWFLAG.MASK
|
AND VIEWFLAG.MASK
|
||||||
PUSH AF
|
PUSH AF
|
||||||
CALL Z,PrnHScrBar
|
CALL Z,DrawHScrollBar
|
||||||
POP AF
|
POP AF
|
||||||
CALL NZ,PrnVScrBar
|
CALL NZ,DrawVScrollBar
|
||||||
RefrDex POP IY
|
RefrDex POP IY
|
||||||
RET
|
RET
|
||||||
|
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 25.07.2025 savelij
|
; LAST UPDATE: 07.09.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
DOSline SUB A
|
DOSline SUB A
|
||||||
@ -59,7 +59,7 @@ DOSlnEx
|
|||||||
DOSloop SUB A
|
DOSloop SUB A
|
||||||
LD (HistCurrent),A
|
LD (HistCurrent),A
|
||||||
LD IX,DOSstr
|
LD IX,DOSstr
|
||||||
LD HL,DOSTab
|
LD HL,MAINTAB.DOSTab
|
||||||
CALL DOSInputLine
|
CALL DOSInputLine
|
||||||
RET C
|
RET C
|
||||||
JR Z,RunDOSline
|
JR Z,RunDOSline
|
||||||
@ -153,18 +153,14 @@ RunDLine DEC HL
|
|||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
INC HL
|
INC HL
|
||||||
INC HL
|
INC HL
|
||||||
IF TREE_REZID
|
|
||||||
CALL RESIDENT.FindTreeDIR
|
|
||||||
ELSE
|
|
||||||
CALL FindTreeDIRR
|
CALL FindTreeDIRR
|
||||||
ENDIF
|
|
||||||
CALL PrintDIR
|
CALL PrintDIR
|
||||||
CALL PrnFileInfo
|
CALL PrnFileInfo
|
||||||
PUSH IY
|
PUSH IY
|
||||||
POP IX
|
POP IX
|
||||||
LD DE,PANEL.BAR_X
|
LD DE,PANEL.BAR_X
|
||||||
ADD IX,DE
|
ADD IX,DE
|
||||||
CALL PrnVScrBar
|
CALL DrawVScrollBar
|
||||||
POP IY
|
POP IY
|
||||||
RET
|
RET
|
||||||
|
|
||||||
@ -249,7 +245,7 @@ RunDOSexe1 ld hl,WorkBuffer
|
|||||||
SUB A
|
SUB A
|
||||||
CALL ClearScreen
|
CALL ClearScreen
|
||||||
CALL ResVideoMode
|
CALL ResVideoMode
|
||||||
LD HL,ReStartPoint
|
LD HL,ReStartFN
|
||||||
EX (SP),HL
|
EX (SP),HL
|
||||||
LD HL,WorkBuffer + 0x0100
|
LD HL,WorkBuffer + 0x0100
|
||||||
SPDSS DSSF.EXEC,0
|
SPDSS DSSF.EXEC,0
|
||||||
@ -348,7 +344,7 @@ SaveDOSline
|
|||||||
PUSH BC
|
PUSH BC
|
||||||
CALL FindHistory
|
CALL FindHistory
|
||||||
POP BC
|
POP BC
|
||||||
LD DE,DOShistory + DOShistory_Size
|
LD DE,REZ3_BUFFERS.DOShistory + REZ3_BUFFERS.DOShistory_Size
|
||||||
OR A
|
OR A
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
SBC HL,DE
|
SBC HL,DE
|
||||||
@ -365,7 +361,7 @@ SaveDOSline
|
|||||||
INC HL
|
INC HL
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
PUSH HL
|
PUSH HL
|
||||||
LD BC,DOShistory
|
LD BC,REZ3_BUFFERS.DOShistory
|
||||||
OR A
|
OR A
|
||||||
SBC HL,BC
|
SBC HL,BC
|
||||||
LD C,L
|
LD C,L
|
||||||
@ -379,7 +375,7 @@ SaveDOSline
|
|||||||
LDDR
|
LDDR
|
||||||
.L2 POP BC
|
.L2 POP BC
|
||||||
LD HL,DOSinp
|
LD HL,DOSinp
|
||||||
LD DE,DOShistory
|
LD DE,REZ3_BUFFERS.DOShistory
|
||||||
LD A,C
|
LD A,C
|
||||||
INC A
|
INC A
|
||||||
LD (DE),A
|
LD (DE),A
|
||||||
@ -427,7 +423,7 @@ GetDOShistory LD IX,DOSstr
|
|||||||
SETPORT WINSP.CPU1,,0
|
SETPORT WINSP.CPU1,,0
|
||||||
RET
|
RET
|
||||||
|
|
||||||
FindHistory LD HL,DOShistory
|
FindHistory LD HL,REZ3_BUFFERS.DOShistory
|
||||||
OR A
|
OR A
|
||||||
RET Z
|
RET Z
|
||||||
LD B,A
|
LD B,A
|
||||||
@ -448,7 +444,7 @@ DOSInputLine LD (InpLnData),IX
|
|||||||
.L1 CALL InsInpLnCol
|
.L1 CALL InsInpLnCol
|
||||||
PUSH IX
|
PUSH IX
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,LenInpData
|
LD DE,INPUTFORM.BUFLINE
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,(IX + 0x04)
|
LD E,(IX + 0x04)
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
@ -457,7 +453,7 @@ DOSInputLine LD (InpLnData),IX
|
|||||||
DOSLineLp HALT
|
DOSLineLp HALT
|
||||||
CALL ChCursor
|
CALL ChCursor
|
||||||
LD IX,(InputLine.InpMous)
|
LD IX,(InputLine.InpMous)
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
SPDSS DSSF.TESTKEY
|
SPDSS DSSF.TESTKEY
|
||||||
JR Z,DOSLineLp
|
JR Z,DOSLineLp
|
||||||
RES 7,D
|
RES 7,D
|
||||||
@ -534,8 +530,8 @@ DOSLnExtC POP HL
|
|||||||
SCF
|
SCF
|
||||||
RET
|
RET
|
||||||
|
|
||||||
DOSTable1 DW SC.ESC << 8 | 0x1B, InputLine.InpLnExtC ; 0x011B,InpLnExtC
|
DOSTable1 DW SC.ESC << 8 | 0x1B, InputLine.InputLineExitCancel ; 0x011B,InpLnExtC
|
||||||
DW SC.ENTER << 8 | 0x0D,InputLine.InpLnExtN ; 0x280D,InpLnExtN
|
DW SC.ENTER << 8 | 0x0D,InputLine.InputLineExitOk ; 0x280D,InpLnExtN
|
||||||
DW SC.X4 << 8, ILleft ; 0x5400,ILleft
|
DW SC.X4 << 8, ILleft ; 0x5400,ILleft
|
||||||
DW SC.X6 << 8, ILright ; 0x5600,ILright
|
DW SC.X6 << 8, ILright ; 0x5600,ILright
|
||||||
DW SC.BKSP << 8 | 8, ILdelet ; 0x0E08,ILdelet
|
DW SC.BKSP << 8 | 8, ILdelet ; 0x0E08,ILdelet
|
||||||
@ -652,7 +648,7 @@ InsertWord LD A,(IX + 0x04) ;InpytSymb
|
|||||||
; ‚¢®¤ ¢ á¥à¥¤¨ã ⥪áâ
|
; ‚¢®¤ ¢ á¥à¥¤¨ã ⥪áâ
|
||||||
PUSH IX
|
PUSH IX
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,LenInpData
|
LD DE,INPUTFORM.BUFLINE
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,(IX + 0x04)
|
LD E,(IX + 0x04)
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
@ -669,7 +665,7 @@ InsertWord LD A,(IX + 0x04) ;InpytSymb
|
|||||||
POP BC
|
POP BC
|
||||||
NotInsWord PUSH IX
|
NotInsWord PUSH IX
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,LenInpData
|
LD DE,INPUTFORM.BUFLINE
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,(IX + 0x02)
|
LD E,(IX + 0x02)
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
@ -695,13 +691,13 @@ ShellFile: db "X:\\SYSTEM.EXE /C ",0 ; 襫
|
|||||||
BATExtension: db ".BAT",0
|
BATExtension: db ".BAT",0
|
||||||
EXEExtension: db ".EXE"
|
EXEExtension: db ".EXE"
|
||||||
EndOfString: db 0
|
EndOfString: db 0
|
||||||
|
|
||||||
DOSstr DB 0x80,0x00
|
DOSstr DB 0x80,0x00
|
||||||
.posX DB 0x00
|
.posX DB 0x00
|
||||||
.addX DB 0x00
|
.addX DB 0x00
|
||||||
.slen DB 0x00
|
.slen DB 0x00
|
||||||
DW 256,231,376
|
DW 256,231,376
|
||||||
DB COLORP.PANEL + COLORI.FILES
|
DB COLORP.PANEL + COLORI.FILES
|
||||||
|
|
||||||
DOSinp DB 0x81 DUP 0
|
DOSinp DB 0x81 DUP 0
|
||||||
|
|
||||||
HistSpace DEFW 0x200
|
HistSpace DEFW 0x200
|
||||||
|
|||||||
91
fninit.a80
91
fninit.a80
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 24.07.2025 savelij
|
; LAST UPDATE: 27.08.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
InitVideoMode
|
InitVideoMode
|
||||||
@ -58,22 +58,23 @@ InitDrivers SUB A
|
|||||||
LD (CMOSFlag),A
|
LD (CMOSFlag),A
|
||||||
LD L,A
|
LD L,A
|
||||||
LD H,A
|
LD H,A
|
||||||
LD (TestCoords.PrvTabl),HL
|
LD (CheckCoordsMouse.PrvTabl),HL
|
||||||
LD (TestCoords.PrMousX),HL
|
LD (CheckCoordsMouse.PrMousX),HL
|
||||||
LD (TestCoords.PrMousY),HL
|
LD (CheckCoordsMouse.PrMousY),HL
|
||||||
SPDSS DSSF.GETMEM,7
|
SPDSS DSSF.GETMEM,NUM_PAGES_FN
|
||||||
JR NC,InitDrv
|
JR NC,.InitDrv
|
||||||
CALL ResVideoMode
|
CALL ResVideoMode
|
||||||
LD HL,NoEnMemory
|
LD HL,.NoEnMemory
|
||||||
SPDSS DSSF.PCHARS
|
SPDSS DSSF.PCHARS
|
||||||
LD A,(RAMPAGES.FNPAGESID)
|
LD A,(RAMPAGES.FNPAGESID)
|
||||||
SPDSS DSSF.FREEMEM
|
SPDSS DSSF.FREEMEM
|
||||||
SPDSS DSSF.EXIT,0x1E
|
SPDSS DSSF.EXIT,ERR_DSS.NOT_ENOUGH_MEMORY
|
||||||
|
|
||||||
NoEnMemory DZ "Not enough memory to run program.\r\n"
|
.NoEnMemory DZ "Not enough memory to run program.\r\n"
|
||||||
|
|
||||||
InitDrv LD (RAMPAGES.BufferID),A
|
.InitDrv LD HL,RAMPAGES.BufferID
|
||||||
LD HL,RAMPAGES.FLX
|
LD (HL),A
|
||||||
|
INC HL
|
||||||
SPBIOS BIOSF.GETMEMBLKPAGES
|
SPBIOS BIOSF.GETMEMBLKPAGES
|
||||||
.skip:
|
.skip:
|
||||||
SPDSS DSSF.CURDISK
|
SPDSS DSSF.CURDISK
|
||||||
@ -135,7 +136,7 @@ InitFlg EQU $-1
|
|||||||
FirstInit
|
FirstInit
|
||||||
SPDSS DSSF.BOOTDSK,0
|
SPDSS DSSF.BOOTDSK,0
|
||||||
ADD A,'A'
|
ADD A,'A'
|
||||||
LD (ShellFile),a ; fndosln.z80
|
LD (ShellFile),a
|
||||||
SPDSS DSSF.CURDISK
|
SPDSS DSSF.CURDISK
|
||||||
LD HL,LeftPanel + PANEL.CURR_PATH
|
LD HL,LeftPanel + PANEL.CURR_PATH
|
||||||
PUSH HL
|
PUSH HL
|
||||||
@ -159,15 +160,19 @@ FirstInit
|
|||||||
; á®§¤ ¨¥ ¯ã⨠¤«ï § ¯ã᪠FLX ¯« £¨®¢ á ¯à¨¢ï§ª®© ª ¯ã⨠FN
|
; á®§¤ ¨¥ ¯ã⨠¤«ï § ¯ã᪠FLX ¯« £¨®¢ á ¯à¨¢ï§ª®© ª ¯ã⨠FN
|
||||||
LD HL,BUF_REZ2.FlexDIRECTORY
|
LD HL,BUF_REZ2.FlexDIRECTORY
|
||||||
LD DE,BUF_REZ2.FLXdir
|
LD DE,BUF_REZ2.FLXdir
|
||||||
.L6 LD A,(HL)
|
XOR A
|
||||||
AND A
|
.L6 CP (HL)
|
||||||
JR Z,.L7
|
JR Z,.L7
|
||||||
LDI
|
LDI
|
||||||
JR .L6
|
JR .L6
|
||||||
|
|
||||||
.L7 LD HL,.DIRFLX
|
.L7 LD HL,.DIRFLX
|
||||||
LD BC,.EDIRFLX - .DIRFLX
|
.L9 CP (HL)
|
||||||
LDIR
|
JR Z,.L8
|
||||||
|
LDI
|
||||||
|
JR .L9
|
||||||
|
|
||||||
|
.L8 LD (DE),A
|
||||||
LD (LOADFLX4RUN.NAMEFLX),DE
|
LD (LOADFLX4RUN.NAMEFLX),DE
|
||||||
LD HL,BUF_REZ2.FlexDIRECTORY
|
LD HL,BUF_REZ2.FlexDIRECTORY
|
||||||
SPDSS DSSF.CHDIR
|
SPDSS DSSF.CHDIR
|
||||||
@ -257,12 +262,12 @@ FirstInit
|
|||||||
LD (InitFlg),A
|
LD (InitFlg),A
|
||||||
RET
|
RET
|
||||||
|
|
||||||
.DIRFLX DB "FLX\\"
|
.DIRFLX DZ "FLX\\"
|
||||||
.EDIRFLX
|
.EDIRFLX
|
||||||
|
|
||||||
; ®¡®¢«¥¨¥ ¢ â ¡«¨æ¥ ¢ë¡®à ¤¨áª®¢ ¯ ¥«¨
|
; ®¡®¢«¥¨¥ ¢ â ¡«¨æ¥ ¢ë¡®à ¤¨áª®¢ ¯ ¥«¨
|
||||||
SETUP_DISKS LD HL,BgDISKl ; ¤¨áª¨ «¥¢®© ¯ ¥«¨
|
SETUP_DISKS LD HL,MAINTAB.BgDISKl ; ¤¨áª¨ «¥¢®© ¯ ¥«¨
|
||||||
LD DE,BgDISKr ; ¤¨áª¨ ¯à ¢®© ¯ ¥«¨
|
LD DE,MAINTAB.BgDISKr ; ¤¨áª¨ ¯à ¢®© ¯ ¥«¨
|
||||||
LD BC,FORMTABL.SIZE * 2
|
LD BC,FORMTABL.SIZE * 2
|
||||||
LD A,(NUM_DEVICES)
|
LD A,(NUM_DEVICES)
|
||||||
.L1 ADD HL,BC
|
.L1 ADD HL,BC
|
||||||
@ -336,38 +341,38 @@ InitScreen
|
|||||||
OR A
|
OR A
|
||||||
RET Z
|
RET Z
|
||||||
MAKEWINDOW WINSUBOBJ.WOBIND
|
MAKEWINDOW WINSUBOBJ.WOBIND
|
||||||
W_BORDER 500,15,136,12
|
W_BORDER 510,15,126,12
|
||||||
W_END
|
W_END
|
||||||
LD HL,0x01FC
|
LD HL,520
|
||||||
LD DE,0x0012
|
LD DE,17
|
||||||
LD B,0x80
|
LD B,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
EXX
|
EXX
|
||||||
LD HL,0x022E
|
LD HL,568
|
||||||
LD DE,0x0012
|
LD DE,17
|
||||||
LD B,0x80
|
LD B,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
EXX
|
EXX
|
||||||
LD A,0x02
|
LD A,DateMonthFormat.Digit
|
||||||
JP SetCMOSPrint
|
JP CMOSPrintDateTime
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
InitPanels LD (InitPanFlg),A
|
InitPanels LD (InitPanFlg),A
|
||||||
LD HL,LeftPanel+PANEL.VIEWFLAG
|
LD HL,LeftPanel + PANEL.VIEWFLAG
|
||||||
LD A,(RightPanel+PANEL.VIEWFLAG)
|
LD A,(RightPanel + PANEL.VIEWFLAG)
|
||||||
OR (HL)
|
OR (HL)
|
||||||
AND 0x02
|
AND VIEWFLAG.M_TREE;0x02
|
||||||
JR NZ,InitPanTree
|
JR NZ,.InitPanTree
|
||||||
LD IY,LeftPanel
|
LD IY,LeftPanel
|
||||||
CALL InitPanelE
|
CALL InitPanelE
|
||||||
LD IY,RightPanel
|
LD IY,RightPanel
|
||||||
CALL InitPanelE
|
CALL InitPanelE
|
||||||
JR InitPanExit
|
JR .InitPanExit
|
||||||
|
|
||||||
InitPanTree LD IY,LeftPanel
|
.InitPanTree LD IY,LeftPanel
|
||||||
BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
||||||
JR NZ,.L1
|
JR NZ,.L1
|
||||||
LD IY,RightPanel
|
LD IY,RightPanel
|
||||||
.L1 CALL InitPanelE
|
.L1 CALL InitPanelE
|
||||||
InitPanExit LD HL,LeftPanel
|
.InitPanExit LD HL,LeftPanel
|
||||||
LD DE,PANEL.CURR_PATH
|
LD DE,PANEL.CURR_PATH
|
||||||
BIT 7,(HL)
|
BIT 7,(HL)
|
||||||
JR NZ,.L2
|
JR NZ,.L2
|
||||||
@ -382,7 +387,7 @@ InitPanel SUB A
|
|||||||
InitPanel1 LD (InitPanFlg),A
|
InitPanel1 LD (InitPanFlg),A
|
||||||
InitPanelE LD A,(InitPanFlg)
|
InitPanelE LD A,(InitPanFlg)
|
||||||
BIT 0,A
|
BIT 0,A
|
||||||
CALL Z,SetClock
|
CALL Z,PointerMouseClock
|
||||||
CALL PrintDisks
|
CALL PrintDisks
|
||||||
CALL PrintPath
|
CALL PrintPath
|
||||||
BIT PANELFLAG.B_PRNDOSPATH,(IY+PANEL.PANELFLAG)
|
BIT PANELFLAG.B_PRNDOSPATH,(IY+PANEL.PANELFLAG)
|
||||||
@ -439,10 +444,10 @@ PanelN6 EQU $+1
|
|||||||
W_END
|
W_END
|
||||||
|
|
||||||
LD HL,NormMouse
|
LD HL,NormMouse
|
||||||
LD DE,PanelPlaceL
|
LD DE,MAINTAB.PanelPlaceL
|
||||||
BIT PANELFLAG.B_SIDE,(IY+PANEL.PANELFLAG)
|
BIT PANELFLAG.B_SIDE,(IY+PANEL.PANELFLAG)
|
||||||
JR Z,.L1
|
JR Z,.L1
|
||||||
LD DE,PanelPlaceR
|
LD DE,MAINTAB.PanelPlaceR
|
||||||
.L1 PUSH DE
|
.L1 PUSH DE
|
||||||
LD BC,0x0050
|
LD BC,0x0050
|
||||||
LDIR
|
LDIR
|
||||||
@ -513,10 +518,10 @@ PanelP6 EQU $+1
|
|||||||
W_END
|
W_END
|
||||||
|
|
||||||
LD HL,PodrMouse
|
LD HL,PodrMouse
|
||||||
LD DE,PanelPlaceL
|
LD DE,MAINTAB.PanelPlaceL
|
||||||
BIT PANELFLAG.B_SIDE,(IY+PANEL.PANELFLAG)
|
BIT PANELFLAG.B_SIDE,(IY+PANEL.PANELFLAG)
|
||||||
JR Z,.L1
|
JR Z,.L1
|
||||||
LD DE,PanelPlaceR
|
LD DE,MAINTAB.PanelPlaceR
|
||||||
.L1 PUSH DE
|
.L1 PUSH DE
|
||||||
LD BC,0x0050
|
LD BC,0x0050
|
||||||
LDIR
|
LDIR
|
||||||
@ -582,10 +587,10 @@ InitPanEx LD A,(InitPanFlg)
|
|||||||
LD A,(IY+PANEL.VIEWFLAG)
|
LD A,(IY+PANEL.VIEWFLAG)
|
||||||
AND VIEWFLAG.MASK
|
AND VIEWFLAG.MASK
|
||||||
PUSH AF
|
PUSH AF
|
||||||
CALL Z,PrnHScrBar
|
CALL Z,DrawHScrollBar
|
||||||
POP AF
|
POP AF
|
||||||
CALL NZ,PrnVScrBar
|
CALL NZ,DrawVScrollBar
|
||||||
CALL SetMouse
|
CALL PointerMousePointer
|
||||||
LD A,(InitPanFlg)
|
LD A,(InitPanFlg)
|
||||||
BIT 0,A
|
BIT 0,A
|
||||||
RET NZ
|
RET NZ
|
||||||
|
|||||||
269
fninput.a80
269
fninput.a80
@ -1,32 +1,32 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 20.03.2025 savelij
|
; LAST UPDATE: 10.01.2026 savelij
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
InputLine LD (InpLnData),IX
|
InputLine LD (InpLnData),IX
|
||||||
LD (.InpMous),HL
|
LD (.InpMous),HL
|
||||||
SET 7,(IX+0x01)
|
SET 7,(IX + INPUTFORM.FLAG)
|
||||||
SUB A
|
SUB A
|
||||||
LD (IX+0x02),A
|
LD (IX + INPUTFORM.CURR_X),A
|
||||||
LD (IX+0x03),A
|
LD (IX + INPUTFORM.CURRADD_X),A
|
||||||
CALL InsInpLnCol
|
CALL InsInpLnCol
|
||||||
PUSH IX
|
PUSH IX
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,LenInpData
|
LD DE,INPUTFORM.BUFLINE
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
PUSH HL
|
PUSH HL
|
||||||
LD E,(IX+0x04)
|
LD E,(IX + INPUTFORM.CURR_SYMBOLS)
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD (HL),D
|
LD (HL),D
|
||||||
LD (IX+0x02),E
|
LD (IX + INPUTFORM.CURR_X),E
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,WorkBuffer
|
LD DE,WorkBuffer
|
||||||
LD A,(IX+0x02)
|
LD A,(IX + INPUTFORM.CURR_X)
|
||||||
LD (DE),A
|
LD (DE),A
|
||||||
INC DE
|
INC DE
|
||||||
LD A,(IX+0x03)
|
LD A,(IX + INPUTFORM.CURRADD_X)
|
||||||
LD (DE),A
|
LD (DE),A
|
||||||
INC DE
|
INC DE
|
||||||
LD A,(IX+0x04)
|
LD A,(IX + INPUTFORM.CURR_SYMBOLS)
|
||||||
LD (DE),A
|
LD (DE),A
|
||||||
INC DE
|
INC DE
|
||||||
LD C,A
|
LD C,A
|
||||||
@ -39,26 +39,26 @@ InputLine LD (InpLnData),IX
|
|||||||
CALL ChCursor
|
CALL ChCursor
|
||||||
LD IX,0x0000
|
LD IX,0x0000
|
||||||
.InpMous EQU $-2
|
.InpMous EQU $-2
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
SPDSS DSSF.TESTKEY
|
SPDSS DSSF.TESTKEY
|
||||||
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
|
||||||
LD IX,InpTable1
|
LD IX,InpTable1
|
||||||
.NextInpKeys LD L,(IX+0x00)
|
.NextInpKeys LD L,(IX + 0)
|
||||||
INC L
|
INC L
|
||||||
JR Z,.InpLineLp1
|
JR Z,.InpLineLp1
|
||||||
INC IX
|
INC IX
|
||||||
DEC L
|
DEC L
|
||||||
LD H,(IX+0x00)
|
LD H,(IX + 0)
|
||||||
INC IX
|
INC IX
|
||||||
LD C,(IX+0x00)
|
LD C,(IX + 0)
|
||||||
INC IX
|
INC IX
|
||||||
LD B,(IX+0x00)
|
LD B,(IX + 0)
|
||||||
INC IX
|
INC IX
|
||||||
OR A
|
OR A
|
||||||
SBC HL,DE
|
SBC HL,DE
|
||||||
@ -81,34 +81,37 @@ InputLine LD (InpLnData),IX
|
|||||||
LD A,E
|
LD A,E
|
||||||
JR InsertSymbol
|
JR InsertSymbol
|
||||||
|
|
||||||
.InpLnExtN POP HL
|
.InputLineExitOk:
|
||||||
|
POP HL
|
||||||
LD IX,(InpLnData)
|
LD IX,(InpLnData)
|
||||||
CALL ResCursor
|
CALL ResCursor
|
||||||
XOR A
|
XOR A
|
||||||
RET
|
RET
|
||||||
|
|
||||||
.InpLnExtC POP HL
|
.InputLineExitCancel:
|
||||||
|
POP HL
|
||||||
LD IX,(InpLnData)
|
LD IX,(InpLnData)
|
||||||
CALL ResCursor
|
CALL ResCursor
|
||||||
PUSH IX
|
PUSH IX
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,LenInpData
|
LD DE,INPUTFORM.BUFLINE
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
LD HL,WorkBuffer
|
LD HL,WorkBuffer
|
||||||
LD A,(HL)
|
LD A,(HL)
|
||||||
INC HL
|
INC HL
|
||||||
LD (IX+0x02),A
|
LD (IX + INPUTFORM.CURR_X),A
|
||||||
LD A,(HL)
|
LD A,(HL)
|
||||||
INC HL
|
INC HL
|
||||||
LD (IX+0x03),A
|
LD (IX + INPUTFORM.CURRADD_X),A
|
||||||
LD A,(HL)
|
LD A,(HL)
|
||||||
INC HL
|
INC HL
|
||||||
LD (IX+0x04),A
|
LD (IX + INPUTFORM.CURR_SYMBOLS),A
|
||||||
LD C,A
|
LD C,A
|
||||||
LD B,0x00
|
LD B,0x00
|
||||||
LD A,B
|
; LD A,B
|
||||||
OR C
|
; OR C
|
||||||
|
AND A
|
||||||
SCF
|
SCF
|
||||||
RET Z
|
RET Z
|
||||||
LDIR
|
LDIR
|
||||||
@ -126,9 +129,9 @@ InpLnData DEFW 0x0000 ;
|
|||||||
; +0B –¢¥â áâப¨
|
; +0B –¢¥â áâப¨
|
||||||
; +0C ...á ¬ áâப
|
; +0C ...á ¬ áâப
|
||||||
|
|
||||||
InpTable1 DW SC.ESC << 8 | 0x1B, InputLine.InpLnExtC
|
InpTable1 DW SC.ESC << 8 | 0x1B, InputLine.InputLineExitCancel
|
||||||
DW SC.ENTER << 8 | 0x0D, InputLine.InpLnExtN
|
DW SC.ENTER << 8 | 0x0D, InputLine.InputLineExitOk
|
||||||
DW SC.XENTER << 8 | 0x0D, InputLine.InpLnExtN
|
DW SC.XENTER << 8 | 0x0D, InputLine.InputLineExitOk
|
||||||
DW SC.X4 << 8, ILleft
|
DW SC.X4 << 8, ILleft
|
||||||
DW SC.X6 << 8, ILright
|
DW SC.X6 << 8, ILright
|
||||||
DW SC.BKSP << 8 | 0x08, ILdelet
|
DW SC.BKSP << 8 | 0x08, ILdelet
|
||||||
@ -145,22 +148,22 @@ InpTable2 DW SC.X4 << 8, ILwordL
|
|||||||
InsertSymbol CP ' '
|
InsertSymbol CP ' '
|
||||||
RET C
|
RET C
|
||||||
EX AF,AF'
|
EX AF,AF'
|
||||||
BIT 7,(IX+0x01) ; ready
|
BIT 7,(IX + INPUTFORM.FLAG) ; ready
|
||||||
CALL NZ,ClearInpLn
|
CALL NZ,ClearInpLn
|
||||||
LD A,(IX+0x04) ; InpytSymb
|
LD A,(IX + INPUTFORM.CURR_SYMBOLS) ; InpytSymb
|
||||||
SUB (IX+0x00) ; Max len
|
SUB (IX + INPUTFORM.MAXLEN) ; Max len
|
||||||
RET NC
|
RET NC
|
||||||
LD A,(IX+0x04)
|
LD A,(IX + INPUTFORM.CURR_SYMBOLS)
|
||||||
SUB (IX+0x02)
|
SUB (IX + INPUTFORM.CURR_X)
|
||||||
JR Z,NotInsert
|
JR Z,NotInsert
|
||||||
; ‚¢®¤ ¢ á¥à¥¤¨ã ⥪áâ
|
; ‚¢®¤ ¢ á¥à¥¤¨ã ⥪áâ
|
||||||
LD C,A
|
LD C,A
|
||||||
LD B,0x00
|
LD B,0x00
|
||||||
PUSH IX
|
PUSH IX
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,LenInpData
|
LD DE,INPUTFORM.BUFLINE
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,(IX+0x04)
|
LD E,(IX + INPUTFORM.CURR_SYMBOLS)
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,L
|
LD E,L
|
||||||
LD D,H
|
LD D,H
|
||||||
@ -168,127 +171,129 @@ InsertSymbol CP ' '
|
|||||||
LDDR
|
LDDR
|
||||||
NotInsert PUSH IX
|
NotInsert PUSH IX
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,LenInpData
|
LD DE,INPUTFORM.BUFLINE
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,(IX+0x02)
|
LD E,(IX + INPUTFORM.CURR_X)
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
EX AF,AF'
|
EX AF,AF'
|
||||||
LD (HL),A
|
LD (HL),A
|
||||||
INC (IX+0x04)
|
INC (IX + INPUTFORM.CURR_SYMBOLS)
|
||||||
INC (IX+0x02)
|
INC (IX + INPUTFORM.CURR_X)
|
||||||
JP PrintInpLn
|
JP PrintInpLn
|
||||||
|
|
||||||
; Clear Buffer
|
; Clear Buffer
|
||||||
ClearInpLn RES 7,(IX+0x01)
|
ClearInpLn RES 7,(IX + INPUTFORM.FLAG)
|
||||||
PUSH IX
|
PUSH IX
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,LenInpData
|
LD DE,INPUTFORM.BUFLINE
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD B,(IX+0x00)
|
LD B,(IX + INPUTFORM.MAXLEN)
|
||||||
SUB A
|
SUB A
|
||||||
.L1 LD (HL),A
|
.L1 LD (HL),A
|
||||||
INC HL
|
INC HL
|
||||||
DJNZ .L1
|
DJNZ .L1
|
||||||
LD (IX+0x02),A
|
LD (IX + INPUTFORM.CURR_X),A
|
||||||
LD (IX+0x03),A
|
LD (IX + INPUTFORM.CURRADD_X),A
|
||||||
LD (IX+0x04),A
|
LD (IX + INPUTFORM.CURR_SYMBOLS),A
|
||||||
JP PrintInpLn
|
JP PrintInpLn
|
||||||
|
|
||||||
; Šãàá®à ¢«¥¢® ®¤® ¬¥áâ®
|
; Šãàá®à ¢«¥¢® ®¤® ¬¥áâ®
|
||||||
ILleft RES 7,(IX+0x01)
|
ILleft RES 7,(IX + INPUTFORM.FLAG)
|
||||||
LD A,(IX+0x02)
|
LD A,(IX + INPUTFORM.CURR_X)
|
||||||
DEC A
|
DEC A
|
||||||
RET M
|
RET M
|
||||||
LD (IX+0x02),A
|
LD (IX + INPUTFORM.CURR_X),A
|
||||||
JP PrintInpLn
|
JP PrintInpLn
|
||||||
|
|
||||||
; Šãàá®à ¢¯à ¢® ®¤® ¬¥áâ®
|
; Šãàá®à ¢¯à ¢® ®¤® ¬¥áâ®
|
||||||
ILright RES 7,(IX+0x01)
|
ILright RES 7,(IX + INPUTFORM.FLAG)
|
||||||
LD A,(IX+0x02)
|
LD A,(IX + INPUTFORM.CURR_X)
|
||||||
CP (IX+0x04)
|
CP (IX + INPUTFORM.CURR_SYMBOLS)
|
||||||
RET Z
|
RET Z
|
||||||
INC (IX+0x02)
|
INC (IX + INPUTFORM.CURR_X)
|
||||||
JP PrintInpLn
|
JP PrintInpLn
|
||||||
|
|
||||||
; delete
|
; delete
|
||||||
ILdelet BIT 7,(IX+0x01) ; ready
|
ILdelet BIT 7,(IX + INPUTFORM.FLAG) ; ready
|
||||||
CALL NZ,ClearInpLn
|
CALL NZ,ClearInpLn
|
||||||
LD A,(IX+0x02)
|
LD A,(IX + INPUTFORM.CURR_X)
|
||||||
OR A
|
OR A
|
||||||
RET Z
|
RET Z
|
||||||
PUSH IX
|
PUSH IX
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,LenInpData
|
LD DE,INPUTFORM.BUFLINE
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,(IX+0x02)
|
LD E,(IX + INPUTFORM.CURR_X)
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,L
|
LD E,L
|
||||||
LD D,H
|
LD D,H
|
||||||
DEC DE
|
DEC DE
|
||||||
LD A,(IX+0x04)
|
LD A,(IX + INPUTFORM.CURR_SYMBOLS)
|
||||||
SUB (IX+0x02)
|
SUB (IX + INPUTFORM.CURR_X)
|
||||||
JR Z,ILDel1
|
JR Z,ILDel1
|
||||||
LD C,A
|
LD C,A
|
||||||
LD B,0x00
|
XOR A
|
||||||
|
LD B,A
|
||||||
LDIR
|
LDIR
|
||||||
SUB A
|
; SUB A
|
||||||
ILDel1 LD (DE),A
|
ILDel1 LD (DE),A
|
||||||
DEC (IX+0x02)
|
DEC (IX + INPUTFORM.CURR_X)
|
||||||
DEC (IX+0x04)
|
DEC (IX + INPUTFORM.CURR_SYMBOLS)
|
||||||
JP PrintInpLn
|
JP PrintInpLn
|
||||||
|
|
||||||
; Delete Char in Current Position
|
; Delete Char in Current Position
|
||||||
IL_del_ BIT 7,(IX+0x01) ; ready
|
IL_del_ BIT 7,(IX + INPUTFORM.FLAG) ; ready
|
||||||
CALL NZ,ClearInpLn
|
CALL NZ,ClearInpLn
|
||||||
PUSH IX
|
PUSH IX
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,LenInpData
|
LD DE,INPUTFORM.BUFLINE
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,(IX+0x02)
|
LD E,(IX + INPUTFORM.CURR_X)
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
INC HL
|
INC HL
|
||||||
LD E,L
|
LD E,L
|
||||||
LD D,H
|
LD D,H
|
||||||
DEC DE
|
DEC DE
|
||||||
LD A,(IX+0x04)
|
LD A,(IX + INPUTFORM.CURR_SYMBOLS)
|
||||||
SUB (IX+0x02)
|
SUB (IX + INPUTFORM.CURR_X)
|
||||||
RET Z
|
RET Z
|
||||||
LD C,A
|
LD C,A
|
||||||
LD B,0x00
|
XOR A
|
||||||
|
LD B,A
|
||||||
LDIR
|
LDIR
|
||||||
SUB A
|
; SUB A
|
||||||
LD (DE),A
|
LD (DE),A
|
||||||
DEC (IX+0x04)
|
DEC (IX + INPUTFORM.CURR_SYMBOLS)
|
||||||
JP PrintInpLn
|
JP PrintInpLn
|
||||||
|
|
||||||
; Home
|
; Home
|
||||||
ILhome RES 7,(IX+0x01)
|
ILhome RES 7,(IX + INPUTFORM.FLAG)
|
||||||
LD A,(IX+0x02)
|
LD A,(IX + INPUTFORM.CURR_X)
|
||||||
OR A
|
OR A
|
||||||
RET Z
|
RET Z
|
||||||
SUB A
|
SUB A
|
||||||
LD (IX+0x02),A
|
LD (IX + INPUTFORM.CURR_X),A
|
||||||
JP PrintInpLn
|
JP PrintInpLn
|
||||||
|
|
||||||
; End string
|
; End string
|
||||||
ILend RES 7,(IX+0x01)
|
ILend RES 7,(IX + INPUTFORM.FLAG)
|
||||||
LD A,(IX+0x04)
|
LD A,(IX + INPUTFORM.CURR_SYMBOLS)
|
||||||
CP (IX+0x02)
|
CP (IX + INPUTFORM.CURR_X)
|
||||||
RET Z
|
RET Z
|
||||||
LD (IX+0x02),A
|
LD (IX + INPUTFORM.CURR_X),A
|
||||||
JP PrintInpLn
|
JP PrintInpLn
|
||||||
|
|
||||||
; Word right
|
; Word right
|
||||||
ILwordR RES 7,(IX+0x01)
|
ILwordR RES 7,(IX + INPUTFORM.FLAG)
|
||||||
LD A,(IX+0x04)
|
LD A,(IX + INPUTFORM.CURR_SYMBOLS)
|
||||||
SUB (IX+0x02)
|
SUB (IX + INPUTFORM.CURR_X)
|
||||||
RET Z
|
RET Z
|
||||||
LD B,A
|
LD B,A
|
||||||
PUSH IX
|
PUSH IX
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,LenInpData
|
LD DE,INPUTFORM.BUFLINE
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,(IX+0x02)
|
LD E,(IX + INPUTFORM.CURR_X)
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD C,E
|
LD C,E
|
||||||
.L2 LD A,(HL)
|
.L2 LD A,(HL)
|
||||||
@ -317,19 +322,19 @@ ILwordR RES 7,(IX+0x01)
|
|||||||
.L1 INC HL
|
.L1 INC HL
|
||||||
INC C
|
INC C
|
||||||
DJNZ .L3
|
DJNZ .L3
|
||||||
.L4 LD (IX+0x02),C
|
.L4 LD (IX + INPUTFORM.CURR_X),C
|
||||||
JP PrintInpLn
|
JP PrintInpLn
|
||||||
|
|
||||||
; Word left
|
; Word left
|
||||||
ILwordL RES 7,(IX+0x01)
|
ILwordL RES 7,(IX + INPUTFORM.FLAG)
|
||||||
LD A,(IX+0x02)
|
LD A,(IX + INPUTFORM.CURR_X)
|
||||||
OR A
|
OR A
|
||||||
RET Z
|
RET Z
|
||||||
LD B,A
|
LD B,A
|
||||||
LD C,B
|
LD C,B
|
||||||
PUSH IX
|
PUSH IX
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,LenInpData
|
LD DE,INPUTFORM.BUFLINE
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,C
|
LD E,C
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
@ -342,7 +347,7 @@ ILwordL RES 7,(IX+0x01)
|
|||||||
JR Z,.L2
|
JR Z,.L2
|
||||||
CP '.'
|
CP '.'
|
||||||
JR Z,.L2
|
JR Z,.L2
|
||||||
CP 0x5C
|
CP '\\'
|
||||||
JR Z,.L2
|
JR Z,.L2
|
||||||
DJNZ .L3
|
DJNZ .L3
|
||||||
JR .L5
|
JR .L5
|
||||||
@ -360,23 +365,23 @@ ILwordL RES 7,(IX+0x01)
|
|||||||
DEC C
|
DEC C
|
||||||
DJNZ .L2
|
DJNZ .L2
|
||||||
.L4 INC C
|
.L4 INC C
|
||||||
.L5 LD (IX+0x02),C
|
.L5 LD (IX + INPUTFORM.CURR_X),C
|
||||||
JP PrintInpLn
|
JP PrintInpLn
|
||||||
|
|
||||||
; Delete word
|
; Delete word
|
||||||
ILdelWR RES 7,(IX+0x01)
|
ILdelWR RES 7,(IX + INPUTFORM.FLAG)
|
||||||
LD A,(IX+0x02)
|
LD A,(IX + INPUTFORM.CURR_X)
|
||||||
OR A
|
OR A
|
||||||
RET Z
|
RET Z
|
||||||
LD B,A
|
LD B,A
|
||||||
LD C,B
|
LD C,B
|
||||||
PUSH IX
|
PUSH IX
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,LenInpData
|
LD DE,INPUTFORM.BUFLINE
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,C
|
LD E,C
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD A,(IX+0x04)
|
LD A,(IX + INPUTFORM.CURR_SYMBOLS)
|
||||||
SUB B
|
SUB B
|
||||||
LD E,A
|
LD E,A
|
||||||
PUSH HL
|
PUSH HL
|
||||||
@ -421,14 +426,14 @@ ILdelWR RES 7,(IX+0x01)
|
|||||||
DJNZ .L4
|
DJNZ .L4
|
||||||
.L2 INC HL
|
.L2 INC HL
|
||||||
INC C
|
INC C
|
||||||
.L6 LD A,(IX+0x02)
|
.L6 LD A,(IX + INPUTFORM.CURR_X)
|
||||||
LD (IX+0x02),C
|
LD (IX + INPUTFORM.CURR_X),C
|
||||||
SUB C
|
SUB C
|
||||||
LD C,A
|
LD C,A
|
||||||
EX AF,AF'
|
EX AF,AF'
|
||||||
LD A,(IX+0x04)
|
LD A,(IX + INPUTFORM.CURR_SYMBOLS)
|
||||||
SUB C
|
SUB C
|
||||||
LD (IX+0x04),A
|
LD (IX + INPUTFORM.CURR_SYMBOLS),A
|
||||||
LD C,E
|
LD C,E
|
||||||
LD B,0x00
|
LD B,0x00
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
@ -447,10 +452,10 @@ ILdelWR RES 7,(IX+0x01)
|
|||||||
JP PrintInpLn
|
JP PrintInpLn
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
InsInpLnCol LD L,(IX+0x07)
|
InsInpLnCol LD L,(IX + INPUTFORM.SCR_POS_Y)
|
||||||
LD H,(IX+0x08)
|
LD H,(IX + INPUTFORM.SCR_POS_Y + 1)
|
||||||
LD (FillILy),HL
|
LD (FillILy),HL
|
||||||
LD A,(IX+0x0B)
|
LD A,(IX + INPUTFORM.COLOR)
|
||||||
AND 0x0F ; INK
|
AND 0x0F ; INK
|
||||||
LD C,A
|
LD C,A
|
||||||
RLCA
|
RLCA
|
||||||
@ -465,7 +470,7 @@ InsInpLnCol LD L,(IX+0x07)
|
|||||||
INC HL
|
INC HL
|
||||||
DJNZ .L1
|
DJNZ .L1
|
||||||
LD B,A
|
LD B,A
|
||||||
LD A,(IX+0x0B)
|
LD A,(IX + INPUTFORM.COLOR)
|
||||||
AND 0xF0 ; PAPER
|
AND 0xF0 ; PAPER
|
||||||
LD C,A
|
LD C,A
|
||||||
RRCA
|
RRCA
|
||||||
@ -483,42 +488,42 @@ InsInpLnCol LD L,(IX+0x07)
|
|||||||
RET
|
RET
|
||||||
|
|
||||||
PrintInpLn CALL ResCursor
|
PrintInpLn CALL ResCursor
|
||||||
.L1 LD A,(IX+0x02)
|
.L1 LD A,(IX + INPUTFORM.CURR_X)
|
||||||
SUB (IX+0x03)
|
SUB (IX + INPUTFORM.CURRADD_X)
|
||||||
JR NC,PrnInpLn1
|
JR NC,PrnInpLn1
|
||||||
LD A,(IX+0x03)
|
LD A,(IX + INPUTFORM.CURRADD_X)
|
||||||
SUB Step
|
SUB Step
|
||||||
LD (IX+0x03),A
|
LD (IX + INPUTFORM.CURRADD_X),A
|
||||||
JR PrintInpLn.L1
|
JR PrintInpLn.L1
|
||||||
|
|
||||||
PrnInpLn1 PUSH IX
|
PrnInpLn1 PUSH IX
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,LenInpData
|
LD DE,INPUTFORM.BUFLINE
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,(IX+0x03)
|
LD E,(IX + INPUTFORM.CURRADD_X)
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
OR A
|
OR A
|
||||||
CALL NZ,TstInpLnLen ; <20> ¢å®¤: HL- ç «® ¢ë¢®¤
|
CALL NZ,TstInpLnLen ; <20> ¢å®¤: HL- ç «® ¢ë¢®¤
|
||||||
; € -ª®«.ᨬ¢.¤® ªãàá®à
|
; € -ª®«.ᨬ¢.¤® ªãàá®à
|
||||||
PUSH IY
|
PUSH IY
|
||||||
PUSH IX
|
PUSH IX
|
||||||
LD A,(IX+0x07)
|
LD A,(IX + INPUTFORM.SCR_POS_Y)
|
||||||
LD IYL,A ; Y ª®®à¤¨ â
|
LD IYL,A ; Y ª®®à¤¨ â
|
||||||
LD A,(IX+0x04)
|
LD A,(IX + INPUTFORM.CURR_SYMBOLS)
|
||||||
LD IYH,A
|
LD IYH,A
|
||||||
GETPORT WINSP.Y_PORT ; ‘®åà 塞 Y ¯®àâ
|
GETPORT WINSP.Y_PORT ; ‘®åà 塞 Y ¯®àâ
|
||||||
PUSH AF
|
PUSH AF
|
||||||
EXX
|
EXX
|
||||||
LD HL,PrnPAPl
|
LD HL,PrnPAPl
|
||||||
LD DE,PrnINKl
|
LD DE,PrnINKl
|
||||||
LD C,(IX+0x05)
|
LD C,(IX + INPUTFORM.SCR_POS_X)
|
||||||
LD B,(IX+0x06)
|
LD B,(IX + INPUTFORM.SCR_POS_X + 1)
|
||||||
SRL B
|
SRL B
|
||||||
RR C
|
RR C
|
||||||
SET 6,B
|
SET 6,B
|
||||||
EXX
|
EXX
|
||||||
LD C,(IX+0x09)
|
LD C,(IX + INPUTFORM.SCR_LEN_X)
|
||||||
LD B,(IX+0x0A)
|
LD B,(IX + INPUTFORM.SCR_LEN_X + 1)
|
||||||
SRL B
|
SRL B
|
||||||
RR C
|
RR C
|
||||||
LD IXL,C
|
LD IXL,C
|
||||||
@ -540,7 +545,7 @@ PrnInpLn1 PUSH IX
|
|||||||
LD A,(BC)
|
LD A,(BC)
|
||||||
INC BC
|
INC BC
|
||||||
PInpLnP LD L,A
|
PInpLnP LD L,A
|
||||||
LD H,HIGH (FONT_RAW)-0xC0
|
LD H,HIGH (FONT_RAW) - 0xC0
|
||||||
PUSH BC
|
PUSH BC
|
||||||
LD B,(HL) ; ¤«¨ ᨬ¢®«
|
LD B,(HL) ; ¤«¨ ᨬ¢®«
|
||||||
INC H
|
INC H
|
||||||
@ -625,10 +630,10 @@ TstInpLnLen PUSH IY
|
|||||||
PUSH AF
|
PUSH AF
|
||||||
LD A,(RAMPAGES.FNFONT)
|
LD A,(RAMPAGES.FNFONT)
|
||||||
SETPORT WINSP.CPU0,,0
|
SETPORT WINSP.CPU0,,0
|
||||||
LD D,HIGH (FONT_RAW)-0xC0
|
LD D,HIGH (FONT_RAW) - 0xC0
|
||||||
TstInpLn PUSH HL
|
.TstInpLn PUSH HL
|
||||||
LD BC,0x0000
|
LD BC,0x0000
|
||||||
TstInpL LD E,(HL)
|
.TstInpL LD E,(HL)
|
||||||
INC HL
|
INC HL
|
||||||
LD A,(DE)
|
LD A,(DE)
|
||||||
ADD A,A
|
ADD A,A
|
||||||
@ -638,23 +643,23 @@ TstInpL LD E,(HL)
|
|||||||
ADC A,0x00
|
ADC A,0x00
|
||||||
LD B,A
|
LD B,A
|
||||||
DEC IYL
|
DEC IYL
|
||||||
JR NZ,TstInpL
|
JR NZ,.TstInpL
|
||||||
LD L,(IX+0x09)
|
LD L,(IX + INPUTFORM.SCR_LEN_X)
|
||||||
LD H,(IX+0x0A)
|
LD H,(IX + INPUTFORM.SCR_LEN_X + 1)
|
||||||
OR A
|
OR A
|
||||||
SBC HL,BC
|
SBC HL,BC
|
||||||
JR NC,TstInpE
|
JR NC,TstInpE
|
||||||
POP HL
|
POP HL
|
||||||
LD BC,Step
|
LD BC,Step
|
||||||
ADD HL,BC
|
ADD HL,BC
|
||||||
LD A,(IX+0x03)
|
LD A,(IX + INPUTFORM.CURRADD_X)
|
||||||
ADD A,C
|
ADD A,C
|
||||||
LD (IX+0x03),A
|
LD (IX + INPUTFORM.CURRADD_X),A
|
||||||
LD A,IYH
|
LD A,IYH
|
||||||
SUB C
|
SUB C
|
||||||
LD IYH,A
|
LD IYH,A
|
||||||
LD IYL,A
|
LD IYL,A
|
||||||
JR TstInpLn
|
JR .TstInpLn
|
||||||
|
|
||||||
TstInpE POP HL
|
TstInpE POP HL
|
||||||
POP AF
|
POP AF
|
||||||
@ -665,12 +670,12 @@ TstInpE POP HL
|
|||||||
|
|
||||||
SetCursor PUSH IX
|
SetCursor PUSH IX
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,LenInpData
|
LD DE,INPUTFORM.BUFLINE
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,(IX+0x03)
|
LD E,(IX + INPUTFORM.CURRADD_X)
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD BC,0x0000
|
LD BC,0x0000
|
||||||
LD A,(IX+0x02)
|
LD A,(IX + INPUTFORM.CURR_X)
|
||||||
SUB E
|
SUB E
|
||||||
JR Z,StCurs1
|
JR Z,StCurs1
|
||||||
EX AF,AF'
|
EX AF,AF'
|
||||||
@ -679,7 +684,7 @@ SetCursor PUSH IX
|
|||||||
PUSH AF
|
PUSH AF
|
||||||
LD A,(RAMPAGES.FNFONT)
|
LD A,(RAMPAGES.FNFONT)
|
||||||
SETPORT WINSP.CPU0,,0
|
SETPORT WINSP.CPU0,,0
|
||||||
LD D,HIGH (FONT_RAW)-0xC0
|
LD D,HIGH (FONT_RAW) - 0xC0
|
||||||
EX AF,AF'
|
EX AF,AF'
|
||||||
StCurs0 EX AF,AF'
|
StCurs0 EX AF,AF'
|
||||||
LD E,(HL)
|
LD E,(HL)
|
||||||
@ -702,8 +707,8 @@ StCurs1 LD (CurShiftX),BC
|
|||||||
LD (CurCursor),A
|
LD (CurCursor),A
|
||||||
LD A,CursTimer
|
LD A,CursTimer
|
||||||
LD (CrTimer),A
|
LD (CrTimer),A
|
||||||
SetCr LD L,(IX+0x05)
|
SetCr LD L,(IX + INPUTFORM.SCR_POS_X)
|
||||||
LD H,(IX+0x06)
|
LD H,(IX + INPUTFORM.SCR_POS_X + 1)
|
||||||
LD BC,(CurShiftX)
|
LD BC,(CurShiftX)
|
||||||
ADD HL,BC
|
ADD HL,BC
|
||||||
SRL H
|
SRL H
|
||||||
@ -715,9 +720,9 @@ SetCr LD L,(IX+0x05)
|
|||||||
LD B,A
|
LD B,A
|
||||||
PUSH BC
|
PUSH BC
|
||||||
LD DE,CursBuffer
|
LD DE,CursBuffer
|
||||||
LD C,(IX+0x07)
|
LD C,(IX + INPUTFORM.SCR_POS_Y)
|
||||||
DEC C
|
DEC C
|
||||||
LD A,(IX+0x0B)
|
LD A,(IX + INPUTFORM.COLOR)
|
||||||
AND 0x0F
|
AND 0x0F
|
||||||
LD B,A
|
LD B,A
|
||||||
RLCA
|
RLCA
|
||||||
@ -750,8 +755,8 @@ SetCr LD L,(IX+0x05)
|
|||||||
SETPORT WINSP.CPU1,,0
|
SETPORT WINSP.CPU1,,0
|
||||||
RET
|
RET
|
||||||
|
|
||||||
ResCursor LD L,(IX+0x05)
|
ResCursor LD L,(IX + INPUTFORM.SCR_POS_X)
|
||||||
LD H,(IX+0x06)
|
LD H,(IX + INPUTFORM.SCR_POS_X + 1)
|
||||||
LD BC,(CurShiftX)
|
LD BC,(CurShiftX)
|
||||||
ADD HL,BC
|
ADD HL,BC
|
||||||
SRL H
|
SRL H
|
||||||
@ -763,7 +768,7 @@ ResCursor LD L,(IX+0x05)
|
|||||||
LD B,A
|
LD B,A
|
||||||
PUSH BC
|
PUSH BC
|
||||||
LD DE,CursBuffer
|
LD DE,CursBuffer
|
||||||
LD B,(IX+0x07)
|
LD B,(IX + INPUTFORM.SCR_POS_Y)
|
||||||
DEC B
|
DEC B
|
||||||
LD C,WINSP.Y_PORT
|
LD C,WINSP.Y_PORT
|
||||||
SETPORT WINSP.CPU1,0x50
|
SETPORT WINSP.CPU1,0x50
|
||||||
|
|||||||
725
fnmain.a80
725
fnmain.a80
@ -1,127 +1,96 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 25.07.2025 savelij
|
; LAST UPDATE: 07.09.2025 savelij
|
||||||
|
|
||||||
;[]=======================================================================[]
|
|
||||||
; FLEX NAVIGATOR ;
|
|
||||||
; v1.11 ;
|
|
||||||
; Last edition: 03/02/2000 ;
|
|
||||||
;[]=======================================================================[]
|
|
||||||
|
|
||||||
; flex navigator equs
|
|
||||||
include fn_const.a80
|
include fn_const.a80
|
||||||
include fn_macros.a80
|
include fn_macros.a80
|
||||||
|
|
||||||
;[]-----------------------------------------------------------------------[]
|
|
||||||
; org BASE_ADDR ;0x8000
|
|
||||||
; section .bss
|
|
||||||
|
|
||||||
;WorkBuffer: EQU 0x8000
|
|
||||||
;resb 0x400 ; work buffer for func/procs
|
|
||||||
|
|
||||||
;[]-----------------------------------------------------------------------[]
|
|
||||||
; ; org 0x8400
|
|
||||||
; section .bss
|
|
||||||
|
|
||||||
;PagesList: EQU 0x8400
|
|
||||||
;resb 0x100 ; buffer for memory pages
|
|
||||||
;[]-----------------------------------------------------------------------[]
|
|
||||||
; ; org 0x8500
|
|
||||||
; section .text
|
|
||||||
PHASE BASE_ADDR
|
PHASE BASE_ADDR
|
||||||
START_BLOCK_1
|
START_BLOCK_1
|
||||||
|
JP MainStartFN ; entry point
|
||||||
|
|
||||||
;[]=======================================================================[]
|
JP ClearScreen
|
||||||
; section .text
|
JP MakeWindow
|
||||||
|
JP ReplaceColorRectan
|
||||||
;EntryPoint:
|
JP PrintTxtLine_IFF
|
||||||
JP StartPoint ; entry point
|
JP PrintTxtLine
|
||||||
|
JP PrintTxtLineNumsChar
|
||||||
JP ClearScreen ; 8603->86BB
|
JP PrintPathLeft
|
||||||
JP MakeWindow ; 8606->86F0
|
JP PrintPathRight
|
||||||
JP InvertRectan ; 8609->8DA0
|
JP PrintPathCentr
|
||||||
JP PrnTxtLnIFF ; 860C->8FB0
|
JP InputLine
|
||||||
JP PrnTxtLnNorm ; 860F->9024
|
JP InputLine.InputLineExitOk
|
||||||
JP PrnTxtLnNormC ; 8612->909B
|
JP InputLine.InputLineExitCancel
|
||||||
JP PrnRangPathL ; 8615->8E48
|
JP DOSError
|
||||||
JP PrnRangPathR ; 8618->8EB2
|
JP InitScrollBar
|
||||||
JP PrnRangPathC ; 861B->8F36
|
JP DrawHScrollBar
|
||||||
JP InputLine ; 861E->915F
|
JP DrawVScrollBar
|
||||||
JP InputLine.InpLnExtN ; 8621->9205
|
JP InitProgressBar
|
||||||
JP InputLine.InpLnExtC ; 8624->920F
|
JP DrawProgressBar
|
||||||
JP DOSError ; 8627->86A8
|
|
||||||
JP InitScrollBar ; 862A->96EB
|
|
||||||
JP PrnHScrBar ; 862D->9729
|
|
||||||
JP PrnVScrBar ; 8630->9882
|
|
||||||
JP InitProcess ; 8633->99DA
|
|
||||||
JP PrnProcess ; 8636->9A39
|
|
||||||
|
|
||||||
DB JUMPS.JUMPSIZE * 5 DUP 0xC9
|
DB JUMPS.JUMPSIZE * 5 DUP 0xC9
|
||||||
|
|
||||||
JP ResFire ; 8648->9B01
|
JP WaitUnpressMouse
|
||||||
JP TestCoords ; 864B->9B10
|
JP CheckCoordsMouse
|
||||||
JP SetCMOSPrint ; 864E->9EA9
|
JP CMOSPrintDateTime
|
||||||
JP ResCMOSPrint ; 8651->9EF3
|
|
||||||
JP SetClock ; 8654->A08E
|
DB JUMPS.JUMPSIZE * 1 DUP 0xC9
|
||||||
JP SetMouse ; 8657->A0BB
|
|
||||||
|
JP PointerMouseClock
|
||||||
|
JP PointerMousePointer
|
||||||
|
|
||||||
DB JUMPS.JUMPSIZE * 4 DUP 0xC9
|
DB JUMPS.JUMPSIZE * 4 DUP 0xC9
|
||||||
|
|
||||||
JP ConvNumTxt40 ; 8666->A1F7
|
JP ConvertNumbers_40b
|
||||||
JP MoveBytes ; 8669->A3B6
|
JP MoveBytesInc
|
||||||
JP MoveBytesUp ; 866C->A3E3
|
JP MoveBytesDec
|
||||||
JP Mult8 ; 866F->A0E8
|
JP Mul_8X8_16b
|
||||||
JP Mult16X8 ; 8672->A124
|
JP Mul_16X8_24b
|
||||||
JP Mult16 ; 8675->A110
|
JP Mul_16X16_16b
|
||||||
JP Mult16X16 ; 8678->A124
|
JP Mul_16X16_32b
|
||||||
JP Mult32 ; 867B->A149
|
JP Mul_32X16_32b
|
||||||
JP Divis16X16 ; 867E->A16B
|
JP Div_16X16_16b_16b
|
||||||
JP Divis24X16 ; 8681->A195
|
JP Div_24X16_8b_16b
|
||||||
JP Divis32X16 ; 8684->A1B8
|
JP Div_32X16_16b_16b
|
||||||
JP Divis32 ; 8687->A1CD
|
JP Div_32X16_32b_16b
|
||||||
JP ConvNumTxt32 ; 868A->A236
|
JP ConvertNumbers_32b
|
||||||
JP ConvNumTxt16 ; 868D->A2AA
|
JP ConvertNumbers_16b
|
||||||
JP ConvNumTxt8 ; 8690->A2DE
|
JP ConvertNumbers_8b
|
||||||
JP ConvTxtNum32 ; 8693->A35D
|
JP atoi_32b
|
||||||
JP ConvTxtNum16 ; 8696->A395
|
JP atoi_16b
|
||||||
JP Resident ; 8699->A40B
|
JP Resident
|
||||||
|
|
||||||
DB 0xC0 - LOW ($) DUP 0xC9
|
DB 0xC0 - LOW ($) DUP 0xC9
|
||||||
|
|
||||||
;[]-----------------------------------------------------------------------[]
|
NUM_DEVICES DB 0 ; Š®«¨ç¥á⢮ ãáâனáâ¢
|
||||||
; flex navigator settings
|
|
||||||
NUM_DEVICES DB 0 ; Š®«-¢® ãáâனáâ¢
|
|
||||||
TreeFlag DB 0 ; ”« £ ¤¥à¥¢
|
TreeFlag DB 0 ; ”« £ ¤¥à¥¢
|
||||||
CMOSFlag DB 0 ; ”« £ CMOS 0 - ¥â
|
CMOSFlag DB 0 ; ”« £ CMOS 0 - ¥â
|
||||||
; 1 - ¥áâì
|
; 1 - ¥áâì
|
||||||
MouseFlag DB 1 ; ”« £ ¬ëè¨ 0 - ¥â
|
MouseFlag DB 1 ; ”« £ ¬ëè¨ 0 - ¥â
|
||||||
; 1 - ¥áâì
|
; 1 - ¥áâì
|
||||||
CMOSPrint: DB 1
|
CMOSPrint: DB 1 ; ”« £ à §à¥è¥¨ï ¯¥ç ⨠¤ âë ¢à¥¬¥¨
|
||||||
|
; 1 - § ¯à¥é¥®, 0 - à §à¥è¥®
|
||||||
RAMPAGES
|
RAMPAGES
|
||||||
.FNPAGESID DB 0 ; ˆ¤¥ä.¯ ¬ï⨠£¤¥ FN
|
.FNPAGESID DB 0 ; ˆ¤¥â¨ä¨ª â®à ¯ ¬ï⨠£¤¥ FN
|
||||||
.FNREZ2 DB 0 ; ‘âà ¨æ á äãªæ¨ï¬¨ FN
|
.FNREZ2 DB 0 ; 0 ‘âà ¨æ á äãªæ¨ï¬¨ FN
|
||||||
.FNFONT DB 0 ; ‘âà ¨æ èà¨ä⮢
|
.FNFONT DB 0 ; 1 ‘âà ¨æ èà¨ä⮢
|
||||||
.FNREZ3 DB 0 ; ‘âà ¨æ ¥é¥ ¥¬®£® äãªæ¨© FN
|
.FNREZ3 DB 0 ; 2 ‘âà ¨æ ¥é¥ ¥¬®£® äãªæ¨© FN
|
||||||
IFDEF ENABLE.VIEW
|
|
||||||
.FNVIEW DB 0 ; ‘âà ¨æ á FileViewer
|
|
||||||
ENDIF
|
|
||||||
IFDEF ENABLE.EDIT
|
|
||||||
.FNEDIT DB 0 ; ‘âà ¨æ á FileEditor
|
|
||||||
ENDIF
|
|
||||||
.BufferID DB 0 ; ˆ¤¥â¨ä¨ª â®à ¯ ¬ï⨠¯®¤ ¡ãä¥à
|
|
||||||
.FLX DB 0 ; ‘âà ¨æ ¤«ï ¯®¤£à㧪¨ FLX ¯à®á¬®âà. FLX ã⨫¨â
|
|
||||||
.LEFTPANEL DB 0 ; ‘âà ¨æ ª â «®£ ‹¥¢®© ¯ ¥«¨
|
|
||||||
.RIGHTPANEL DB 0 ; ‘âà ¨æ ª â «®£ <20>à ¢®© ¯ ¥«¨
|
|
||||||
; <20>ãä¥àë¥ áâà ¨æë ¯®¤ ¨â¥à䥩á
|
; <20>ãä¥àë¥ áâà ¨æë ¯®¤ ¨â¥à䥩á
|
||||||
.BuffPg1 DB 0
|
.BufferID DB 0 ; ˆ¤¥â¨ä¨ª â®à ¯ ¬ï⨠¯®¤ ¡ãä¥à
|
||||||
DB 0
|
.FLX DB 0 ; 0 ‘âà ¨æ ¤«ï § £à㧪¨ FLX ¯« £¨®¢
|
||||||
.BuffPg3 DB 0
|
.LEFTPANEL DB 0 ; 1 ‘âà ¨æ ª â «®£ ‹¥¢®© ¯ ¥«¨
|
||||||
DB 0
|
.RIGHTPANEL DB 0 ; 2 ‘âà ¨æ ª â «®£ <20>à ¢®© ¯ ¥«¨
|
||||||
DB 0
|
.BuffPg1 DB 0 ; 3
|
||||||
|
.BuffPg2 DB 0 ; 4
|
||||||
|
.BuffPg3 DB 0 ; 5 ¨á¯®«ì§ã¥âáï ª®¯¨à®¢é¨ª®¬ ä ©«®¢/¤¨à¥ªâ®à¨©
|
||||||
|
.BuffPg4 DB 0 ; 6 ¨á¯®«ì§ã¥âáï á®àâ¨à®¢ª®©, à ¡®â á ¤¥à¥¢®¬ ¤¨à¥ªâ®à¨©
|
||||||
|
.BuffPgEnd DB 0xFF ; ¬ àª¥à ª®æ ᯨ᪠áâà ¨æ
|
||||||
|
.FILES_COUNT DW 0 ; ª®«¨ç¥á⢮ ¯®¬¥ç¥ëå ä ©«®¢
|
||||||
|
.FILES_BYTES DB 5 DUP 0 ; à §¬¥à ¯®¬¥ç¥ëå ä ©«®¢ ¢ ¡ ©â å
|
||||||
|
|
||||||
DB LOW (-$) DUP 0
|
DB LOW (-$) DUP 0
|
||||||
|
|
||||||
;UI palette & stack memory
|
; UI palette & stack memory
|
||||||
;PALETTE: B G R
|
; PALETTE: B G R
|
||||||
DB 0x00,0x00,0x00,0x00 ; Black 00 00
|
DB 0x00,0x00,0x00,0x00 ; Black 00 00
|
||||||
DB 0x00,0x00,0xFF,0x00 ; B.Red 01
|
DB 0x00,0x00,0xFF,0x00 ; B.Red 01
|
||||||
DB 0x00,0x80,0x00,0x00 ; Green 02 08
|
DB 0x00,0x80,0x00,0x00 ; Green 02 08
|
||||||
@ -139,168 +108,6 @@ RAMPAGES
|
|||||||
DB 0xFF,0xFF,0xFF,0x00 ; White 0E 38
|
DB 0xFF,0xFF,0xFF,0x00 ; White 0E 38
|
||||||
DB 0xFF,0xFF,0xFF,0x00 ; White 0F
|
DB 0xFF,0xFF,0xFF,0x00 ; White 0F
|
||||||
|
|
||||||
DOSError EX AF,AF'
|
|
||||||
GETPORT WINSP.CPU1
|
|
||||||
PUSH AF
|
|
||||||
LD A,(RAMPAGES.FNREZ2)
|
|
||||||
SETPORT WINSP.CPU1,,0
|
|
||||||
EX AF,AF'
|
|
||||||
CALL DOSErrorR
|
|
||||||
EX AF,AF'
|
|
||||||
POP AF
|
|
||||||
SETPORT WINSP.CPU1,,0
|
|
||||||
EX AF,AF'
|
|
||||||
RET
|
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
|
||||||
Resident LD (.ResCall),DE
|
|
||||||
IN B,(C)
|
|
||||||
PUSH BC
|
|
||||||
OUT (C),A
|
|
||||||
CALL 0x0000
|
|
||||||
.ResCall EQU $-2
|
|
||||||
POP BC
|
|
||||||
OUT (C),B
|
|
||||||
RET
|
|
||||||
|
|
||||||
include fnwin.a80
|
|
||||||
include fnprint.a80
|
|
||||||
include fninput.a80
|
|
||||||
include fnbar.a80
|
|
||||||
include fnmouse.a80
|
|
||||||
include fnsys.a80
|
|
||||||
|
|
||||||
;[]=======================================================================[]
|
|
||||||
;‘â àâ
|
|
||||||
StartPoint: DI
|
|
||||||
LD SP,STACK
|
|
||||||
ReStartPoint:
|
|
||||||
SETPORT BORDER,0
|
|
||||||
SETPORT WINSP.Y_PORT,0xC0
|
|
||||||
CALL InitVideoMode
|
|
||||||
CALL InitDrivers
|
|
||||||
CALL InitScreen
|
|
||||||
CALL ClearDOSline
|
|
||||||
SUB A
|
|
||||||
CALL InitPanels
|
|
||||||
CALL ResFire
|
|
||||||
MainLoop: LD IX,FilePanelLeft
|
|
||||||
BIT PANELFLAG.B_SIDE,(IY+PANEL.PANELFLAG)
|
|
||||||
JR Z,.L1
|
|
||||||
LD IX,FilePanelRight
|
|
||||||
.L1 CALL TestCoords
|
|
||||||
CALL TestKeys
|
|
||||||
CALL C,DOSline
|
|
||||||
LD A,(TreeFlag)
|
|
||||||
OR A
|
|
||||||
IF TREE_REZID
|
|
||||||
CALL NZ,RESIDENT.TestTree
|
|
||||||
ELSE
|
|
||||||
CALL NZ,TestTreeR
|
|
||||||
ENDIF
|
|
||||||
JR MainLoop
|
|
||||||
|
|
||||||
;[]-----------------------------------------------------------------------[]
|
|
||||||
TestKeys
|
|
||||||
SPDSS DSSF.TESTKEY
|
|
||||||
JR Z,KeyExit
|
|
||||||
RES 7,D
|
|
||||||
LD A,B
|
|
||||||
AND KEYBSTAT.M_ALT | KEYBSTAT.M_CTRL
|
|
||||||
CP KEYBSTAT.M_ALT | KEYBSTAT.M_CTRL
|
|
||||||
RET Z
|
|
||||||
LD IX,HOTKEYS.SHIFTKeys
|
|
||||||
LD A,B
|
|
||||||
AND KEYBSTAT.M_LEFTSHIFT | KEYBSTAT.M_RIGHTSHIFT
|
|
||||||
JR NZ,.L1
|
|
||||||
LD IX,HOTKEYS.CTRLKeys
|
|
||||||
BIT KEYBSTAT.B_CTRL,B
|
|
||||||
JR NZ,.L1
|
|
||||||
LD IX,HOTKEYS.ALTKeys
|
|
||||||
BIT KEYBSTAT.B_ALT,B
|
|
||||||
JR NZ,.L1
|
|
||||||
LD IX,HOTKEYS.ASCIIKeys
|
|
||||||
.L1 LD L,(IX+0x00) ; ᪠ª®¤
|
|
||||||
INC IX
|
|
||||||
INC L
|
|
||||||
SCF
|
|
||||||
RET Z
|
|
||||||
DEC L
|
|
||||||
LD H,(IX+0x00) ; ASCII ª®¤
|
|
||||||
INC IX
|
|
||||||
LD C,(IX+0x00) ; LOW ¤à¥á ¢ë§®¢
|
|
||||||
INC IX
|
|
||||||
LD B,(IX+0x00) ; HIGH ¤à¥á ¢ë§®¢
|
|
||||||
INC IX
|
|
||||||
OR A
|
|
||||||
SBC HL,DE
|
|
||||||
JR NZ,.L1
|
|
||||||
LD (KeyCALL),BC
|
|
||||||
SPDSS DSSF.SCANKEY
|
|
||||||
CALL 0x0000
|
|
||||||
KeyCALL EQU $-2
|
|
||||||
KeyExit XOR A
|
|
||||||
RET
|
|
||||||
|
|
||||||
;[]-----------------------------------------------------------------------[]
|
|
||||||
MouseOnOff LD A,(MouseFlag)
|
|
||||||
XOR 0x01
|
|
||||||
LD (MouseFlag),A
|
|
||||||
LD C,MOUSEF.INIT
|
|
||||||
JR NZ,.L1
|
|
||||||
LD C,MOUSEF.HIDE
|
|
||||||
.L1
|
|
||||||
SPMOUSE
|
|
||||||
RET
|
|
||||||
|
|
||||||
;[]-----------------------------------------------------------------------[]
|
|
||||||
ComExit CALL ResDrivers
|
|
||||||
CALL ResVideoMode
|
|
||||||
LD HL,thanks
|
|
||||||
SPDSS DSSF.PCHARS
|
|
||||||
LD A,(RAMPAGES.FNPAGESID)
|
|
||||||
SPDSS DSSF.FREEMEM
|
|
||||||
SPDSS DSSF.EXIT,0
|
|
||||||
|
|
||||||
thanks DZ "\r\nThank you for using Flex Navigator.\r\n"
|
|
||||||
|
|
||||||
; (ADR) + BCDE = BCDE
|
|
||||||
BCDEHLP: LD A,(HL)
|
|
||||||
INC HL
|
|
||||||
ADD A,E
|
|
||||||
LD E,A
|
|
||||||
LD A,(HL)
|
|
||||||
INC HL
|
|
||||||
ADC A,D
|
|
||||||
LD D,A
|
|
||||||
LD A,(HL)
|
|
||||||
INC HL
|
|
||||||
ADC A,C
|
|
||||||
LD C,A
|
|
||||||
LD A,(HL)
|
|
||||||
ADC A,B
|
|
||||||
LD B,A
|
|
||||||
RET
|
|
||||||
|
|
||||||
GET_DWORD: LD E,(HL)
|
|
||||||
INC HL
|
|
||||||
LD D,(HL)
|
|
||||||
INC HL
|
|
||||||
LD C,(HL)
|
|
||||||
INC HL
|
|
||||||
LD B,(HL)
|
|
||||||
RET
|
|
||||||
|
|
||||||
SET_DWORD: LD (HL),E
|
|
||||||
INC HL
|
|
||||||
LD (HL),D
|
|
||||||
INC HL
|
|
||||||
LD (HL),C
|
|
||||||
INC HL
|
|
||||||
LD (HL),B
|
|
||||||
RET
|
|
||||||
|
|
||||||
;[]=======================================================================[]
|
|
||||||
; discription of flex navigator file panels
|
; discription of flex navigator file panels
|
||||||
LeftPanel: DB 0x80 ; ”« £ ¯ ¥«¨ ¡¨â 7 - ¡¨â ¢ë¤¥«¥®áâ¨
|
LeftPanel: DB 0x80 ; ”« £ ¯ ¥«¨ ¡¨â 7 - ¡¨â ¢ë¤¥«¥®áâ¨
|
||||||
; ¡¨â 0 - ®¬¥à ¯ ¥«¨
|
; ¡¨â 0 - ®¬¥à ¯ ¥«¨
|
||||||
@ -364,118 +171,141 @@ RightPanel: DB 0x01 ;
|
|||||||
DB 0x0A DUP 0
|
DB 0x0A DUP 0
|
||||||
DB PANEL.CURR_PATH_Size DUP 0 ; <20>ãâì ª ⥪ã饩 ¤¨à¥ªâ®à¨¨
|
DB PANEL.CURR_PATH_Size DUP 0 ; <20>ãâì ª ⥪ã饩 ¤¨à¥ªâ®à¨¨
|
||||||
|
|
||||||
;[]=======================================================================[]
|
thanks DZ "\r\nThank you for using Flex Navigator.\r\n"
|
||||||
|
|
||||||
START_SORT
|
DOSError EX AF,AF'
|
||||||
include fnsort.a80
|
GETPORT WINSP.CPU1
|
||||||
END_SORT
|
PUSH AF
|
||||||
IF TREE_REZID = 0
|
LD A,(RAMPAGES.FNREZ2)
|
||||||
START_TREE
|
SETPORT WINSP.CPU1,,0
|
||||||
include fntree.a80
|
EX AF,AF'
|
||||||
END_TREE
|
CALL DOSErrorR
|
||||||
ENDIF
|
EX AF,AF'
|
||||||
include fnpanel.a80
|
POP AF
|
||||||
include fndos.a80
|
SETPORT WINSP.CPU1,,0
|
||||||
|
EX AF,AF'
|
||||||
|
RET
|
||||||
|
|
||||||
include fnwork.a80
|
Resident LD (.ResCall),DE
|
||||||
|
IN B,(C)
|
||||||
|
PUSH BC
|
||||||
|
OUT (C),A
|
||||||
|
CALL 0x0000
|
||||||
|
.ResCall EQU $-2
|
||||||
|
POP BC
|
||||||
|
OUT (C),B
|
||||||
|
RET
|
||||||
|
|
||||||
|
; (ADR) + BCDE = BCDE
|
||||||
|
BCDEHLP: LD A,(HL)
|
||||||
|
INC HL
|
||||||
|
ADD A,E
|
||||||
|
LD E,A
|
||||||
|
LD A,(HL)
|
||||||
|
INC HL
|
||||||
|
ADC A,D
|
||||||
|
LD D,A
|
||||||
|
LD A,(HL)
|
||||||
|
INC HL
|
||||||
|
ADC A,C
|
||||||
|
LD C,A
|
||||||
|
LD A,(HL)
|
||||||
|
ADC A,B
|
||||||
|
LD B,A
|
||||||
|
RET
|
||||||
|
|
||||||
|
; (ADR) + BCDE = (ADR)
|
||||||
|
HLPBCDE: LD A,(HL)
|
||||||
|
ADD A,E
|
||||||
|
LD (HL),A
|
||||||
|
INC HL
|
||||||
|
LD A,(HL)
|
||||||
|
ADC A,D
|
||||||
|
LD (HL),A
|
||||||
|
INC HL
|
||||||
|
LD A,(HL)
|
||||||
|
ADC A,C
|
||||||
|
LD (HL),A
|
||||||
|
INC HL
|
||||||
|
LD A,(HL)
|
||||||
|
ADC A,B
|
||||||
|
LD (HL),A
|
||||||
|
INC HL
|
||||||
|
LD A,(HL)
|
||||||
|
ADC A,0
|
||||||
|
LD (HL),A
|
||||||
|
RET
|
||||||
|
|
||||||
|
GET_DWORD: LD E,(HL)
|
||||||
|
INC HL
|
||||||
|
LD D,(HL)
|
||||||
|
INC HL
|
||||||
|
LD C,(HL)
|
||||||
|
INC HL
|
||||||
|
LD B,(HL)
|
||||||
|
RET
|
||||||
|
|
||||||
|
SET_DWORD: LD (HL),E
|
||||||
|
INC HL
|
||||||
|
LD (HL),D
|
||||||
|
INC HL
|
||||||
|
LD (HL),C
|
||||||
|
INC HL
|
||||||
|
LD (HL),B
|
||||||
|
RET
|
||||||
|
|
||||||
|
GET_HANDLE_ADR LD L,(IY+PANEL.FIRST_FILE)
|
||||||
|
LD H,(IY+PANEL.FIRST_FILE + 1)
|
||||||
|
LD E,(IY+PANEL.CURR_FILE)
|
||||||
|
LD D,(IY+PANEL.CURR_FILE + 1)
|
||||||
|
ADD HL,DE
|
||||||
|
ADD HL,HL ; *2
|
||||||
|
ADD HL,HL ; *4
|
||||||
|
ADD HL,HL ; *8
|
||||||
|
LD E,L
|
||||||
|
LD D,H
|
||||||
|
ADD HL,HL ; *16
|
||||||
|
ADD HL,DE ; *18 - FileHDR.SIZE
|
||||||
|
OR H
|
||||||
|
LD H,A
|
||||||
|
RET
|
||||||
|
|
||||||
; ¢ë§®¢ äãªæ¨¨ ¢ áâà ¨æ å
|
; ¢ë§®¢ äãªæ¨¨ ¢ áâà ¨æ å
|
||||||
RESIDENT
|
RESIDENT
|
||||||
;[]----------------------------------------------------------[]
|
; ==============resident 2==============
|
||||||
.CopyFiles: LD DE,CopyFilesR
|
.CopyFiles: LD DE,CopyFilesR
|
||||||
; resident 2
|
|
||||||
.FunctResident: LD A,(RAMPAGES.FNREZ2)
|
.FunctResident: LD A,(RAMPAGES.FNREZ2)
|
||||||
LD C,WINSP.CPU1
|
LD C,WINSP.CPU1
|
||||||
JP Resident
|
JP Resident
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
|
||||||
.ReName: LD DE,ReNameR
|
.ReName: LD DE,ReNameR
|
||||||
jr .FunctResident
|
jr .FunctResident
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
|
||||||
.MakeDIR: LD DE,MakeDIRR
|
.MakeDIR: LD DE,MakeDIRR
|
||||||
jr .FunctResident
|
jr .FunctResident
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
|
||||||
.DeleteFiles: LD DE,DeleteFilesR
|
.DeleteFiles: LD DE,DeleteFilesR
|
||||||
jr .FunctResident
|
jr .FunctResident
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
|
||||||
.Quit: CALL ResInvert
|
|
||||||
.QuitL1 LD DE,QuitConfirmWin
|
|
||||||
CALL .FunctResident
|
|
||||||
JP C,SetInvert
|
|
||||||
LD HL,ComExit
|
|
||||||
EX (SP),HL
|
|
||||||
RET
|
|
||||||
|
|
||||||
;[]==========================================================[]
|
|
||||||
.Setup: LD DE,SetupR
|
.Setup: LD DE,SetupR
|
||||||
jr .FunctResident
|
jr .FunctResident
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
|
||||||
.FileInfo: CALL ResInvert
|
|
||||||
.FileInfoL2 LD HL,SetInvert
|
|
||||||
PUSH HL
|
|
||||||
LD DE,FileInfoR
|
|
||||||
jr .FunctResident
|
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
|
||||||
.PrintFile: CALL ResInvert
|
|
||||||
.PrintFileL3 LD HL,SetInvert
|
|
||||||
PUSH HL
|
|
||||||
LD DE,PrintFileR
|
|
||||||
jr .FunctResident
|
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
|
||||||
.DiskInfo: CALL ResInvert
|
|
||||||
.DiskInfoL4: LD DE,DiskInfoR
|
|
||||||
jr .FunctResident
|
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
|
||||||
.SystemInfo: LD DE,SystemInfoR
|
|
||||||
jr .FunctResident
|
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
|
||||||
.Version: LD DE,VersionR
|
|
||||||
jr .FunctResident
|
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
|
||||||
.QSearch: LD DE,QSearchR
|
.QSearch: LD DE,QSearchR
|
||||||
jr .FunctResident
|
jr .FunctResident
|
||||||
|
|
||||||
IF TREE_REZID
|
IF MARK_DIR
|
||||||
.TestTree LD DE,TestTreeR
|
; áç¨â «ª ᮤ¥à¦¨¬®£® ¤¨à¥ªâ®à¨¨ ¢ ¡ ©â å
|
||||||
jr .FunctResident
|
.CalcDirSize LD DE,CalcDirSizeR
|
||||||
|
JR .FunctResident
|
||||||
.TestTreeBeg LD DE,TestTreeR.TestTreeBeg
|
|
||||||
jr .FunctResident
|
|
||||||
|
|
||||||
.ReadTree LD DE,ReadTreeR
|
|
||||||
jr .FunctResident
|
|
||||||
|
|
||||||
.MakeTreePath LD DE,MakeTreePathR
|
|
||||||
jr .FunctResident
|
|
||||||
|
|
||||||
.FindTreeDIR LD DE,FindTreeDIRR
|
|
||||||
jr .FunctResident
|
|
||||||
ENDIF
|
ENDIF
|
||||||
|
; ==============resident 2==============
|
||||||
|
|
||||||
;[]==========================================================[]
|
; ==============resident 3==============
|
||||||
.MarkFile: LD DE,MarkFileR
|
.MarkFile: LD DE,MarkFileR
|
||||||
; resident 3
|
|
||||||
.HelpResident: LD A,(RAMPAGES.FNREZ3)
|
.HelpResident: LD A,(RAMPAGES.FNREZ3)
|
||||||
LD C,WINSP.CPU1
|
LD C,WINSP.CPU1
|
||||||
JP Resident
|
JP Resident
|
||||||
|
|
||||||
IF MARK_DIR
|
|
||||||
.GetDirSize: LD DE,GetDirSizeR
|
|
||||||
JR .HelpResident
|
|
||||||
|
|
||||||
.MkdirsDst LD DE,MkdirsDstR
|
|
||||||
JR .HelpResident
|
|
||||||
ENDIF
|
|
||||||
|
|
||||||
.UnMarkGroup: LD DE,UnMarkGroupR
|
.UnMarkGroup: LD DE,UnMarkGroupR
|
||||||
jr .HelpResident
|
jr .HelpResident
|
||||||
|
|
||||||
@ -506,6 +336,142 @@ RESIDENT
|
|||||||
.InvertSelectN: LD DE,InvertSelectRN
|
.InvertSelectN: LD DE,InvertSelectRN
|
||||||
jr .HelpResident
|
jr .HelpResident
|
||||||
|
|
||||||
|
.PrintFile: CALL ResInvert
|
||||||
|
.PrintFileL3
|
||||||
|
LD HL,SetInvert
|
||||||
|
PUSH HL
|
||||||
|
LD DE,PrintFileR
|
||||||
|
jr .HelpResident
|
||||||
|
|
||||||
|
.FileInfo: CALL ResInvert
|
||||||
|
.FileInfoL2
|
||||||
|
LD HL,SetInvert
|
||||||
|
PUSH HL
|
||||||
|
LD DE,FileInfoR
|
||||||
|
jr .HelpResident
|
||||||
|
|
||||||
|
.Version: LD DE,VersionR
|
||||||
|
jr .HelpResident
|
||||||
|
|
||||||
|
.DiskInfo: CALL ResInvert
|
||||||
|
.DiskInfoL4:
|
||||||
|
LD DE,DiskInfoR
|
||||||
|
jr .HelpResident
|
||||||
|
|
||||||
|
.SystemInfo: LD DE,SystemInfoR
|
||||||
|
jr .HelpResident
|
||||||
|
|
||||||
|
.Quit: CALL ResInvert
|
||||||
|
.QuitL1 LD DE,QuitConfirmWin
|
||||||
|
CALL .HelpResident
|
||||||
|
JP C,SetInvert
|
||||||
|
LD HL,ComExit
|
||||||
|
EX (SP),HL
|
||||||
|
RET
|
||||||
|
; ==============resident 3==============
|
||||||
|
|
||||||
|
; ‚ë室
|
||||||
|
ComExit CALL ResDrivers
|
||||||
|
CALL ResVideoMode
|
||||||
|
LD HL,thanks
|
||||||
|
SPDSS DSSF.PCHARS
|
||||||
|
LD A,(RAMPAGES.FNPAGESID)
|
||||||
|
SPDSS DSSF.FREEMEM
|
||||||
|
SPDSS DSSF.EXIT,0
|
||||||
|
|
||||||
|
include fnwin.a80
|
||||||
|
include fnprint.a80
|
||||||
|
include fninput.a80
|
||||||
|
include fnbar.a80
|
||||||
|
include fnmouse.a80
|
||||||
|
include fnsys.a80
|
||||||
|
|
||||||
|
; ‘â àâ
|
||||||
|
MainStartFN: DI
|
||||||
|
LD SP,STACK
|
||||||
|
ReStartFN:
|
||||||
|
SETPORT BORDER,0
|
||||||
|
SETPORT WINSP.Y_PORT,0xC0
|
||||||
|
CALL InitVideoMode
|
||||||
|
CALL InitDrivers
|
||||||
|
CALL InitScreen
|
||||||
|
CALL ClearDOSline
|
||||||
|
SUB A
|
||||||
|
CALL InitPanels
|
||||||
|
CALL WaitUnpressMouse
|
||||||
|
MainLoop: LD IX,MAINTAB.FilePanelLeft
|
||||||
|
BIT PANELFLAG.B_SIDE,(IY+PANEL.PANELFLAG)
|
||||||
|
JR Z,.L1
|
||||||
|
LD IX,MAINTAB.FilePanelRight
|
||||||
|
.L1 CALL CheckCoordsMouse
|
||||||
|
CALL TestKeys
|
||||||
|
CALL C,DOSline
|
||||||
|
LD A,(TreeFlag)
|
||||||
|
OR A
|
||||||
|
CALL NZ,TestTreeR
|
||||||
|
JR MainLoop
|
||||||
|
|
||||||
|
TestKeys
|
||||||
|
SPDSS DSSF.TESTKEY
|
||||||
|
JR Z,KeyExit
|
||||||
|
RES 7,D
|
||||||
|
LD A,B
|
||||||
|
AND KEYBSTAT.M_ALT | KEYBSTAT.M_CTRL
|
||||||
|
CP KEYBSTAT.M_ALT | KEYBSTAT.M_CTRL
|
||||||
|
RET Z
|
||||||
|
LD IX,HOTKEYS.SHIFTKeys
|
||||||
|
LD A,B
|
||||||
|
AND KEYBSTAT.M_LEFTSHIFT | KEYBSTAT.M_RIGHTSHIFT
|
||||||
|
JR NZ,.L1
|
||||||
|
LD IX,HOTKEYS.CTRLKeys
|
||||||
|
BIT KEYBSTAT.B_CTRL,B
|
||||||
|
JR NZ,.L1
|
||||||
|
LD IX,HOTKEYS.ALTKeys
|
||||||
|
BIT KEYBSTAT.B_ALT,B
|
||||||
|
JR NZ,.L1
|
||||||
|
LD IX,HOTKEYS.ASCIIKeys
|
||||||
|
.L1 LD L,(IX+0x00) ; ᪠ª®¤
|
||||||
|
INC IX
|
||||||
|
INC L
|
||||||
|
SCF
|
||||||
|
RET Z
|
||||||
|
DEC L
|
||||||
|
LD H,(IX+0x00) ; ASCII ª®¤
|
||||||
|
INC IX
|
||||||
|
LD C,(IX+0x00) ; LOW ¤à¥á ¢ë§®¢
|
||||||
|
INC IX
|
||||||
|
LD B,(IX+0x00) ; HIGH ¤à¥á ¢ë§®¢
|
||||||
|
INC IX
|
||||||
|
OR A
|
||||||
|
SBC HL,DE
|
||||||
|
JR NZ,.L1
|
||||||
|
LD (KeyCALL),BC
|
||||||
|
SPDSS DSSF.SCANKEY
|
||||||
|
CALL 0x0000
|
||||||
|
KeyCALL EQU $-2
|
||||||
|
KeyExit XOR A
|
||||||
|
RET
|
||||||
|
|
||||||
|
MouseOnOff LD A,(MouseFlag)
|
||||||
|
XOR 0x01
|
||||||
|
LD (MouseFlag),A
|
||||||
|
LD C,MOUSEF.INIT
|
||||||
|
JR NZ,.L1
|
||||||
|
LD C,MOUSEF.HIDE
|
||||||
|
.L1
|
||||||
|
SPMOUSE
|
||||||
|
RET
|
||||||
|
|
||||||
|
START_SORT
|
||||||
|
include fnsort.a80
|
||||||
|
END_SORT
|
||||||
|
START_TREE
|
||||||
|
include fntree.a80
|
||||||
|
END_TREE
|
||||||
|
include fnpanel.a80
|
||||||
|
include fndos.a80
|
||||||
|
|
||||||
|
include fnwork.a80
|
||||||
include fnmenu.a80
|
include fnmenu.a80
|
||||||
include fninit.a80
|
include fninit.a80
|
||||||
include fndosline.a80
|
include fndosline.a80
|
||||||
@ -513,90 +479,63 @@ RESIDENT
|
|||||||
END_BLOCK_1:
|
END_BLOCK_1:
|
||||||
DEPHASE ; BASE_ADDR
|
DEPHASE ; BASE_ADDR
|
||||||
|
|
||||||
;[]=======================================================================[]
|
; ==============resident 2==============
|
||||||
PHASE 0x4000
|
PHASE 0x4000
|
||||||
; MAIN.FNREZ2
|
|
||||||
START_BLOCK_2
|
START_BLOCK_2
|
||||||
;FlexDIRECTORY: DB 0x100 DUP 0
|
; ¡ãä¥à çâ®¡ë ¯ ¬ïâì ¥ § ¨¬ «¨ ¢ EXE ä ©«¥
|
||||||
;FLXdir: DB 0x100 DUP 0
|
REZ2_BUFFERS
|
||||||
|
_INIT_VAR BUF_REZ2.FlexDIRECTORY
|
||||||
|
_MINUSVAR .OLDLEFTPANEL, 0x100 ; ⥪ã騩 ¯ãâì «¥¢®© ¯ ¥«¨
|
||||||
|
_MINUSVAR .OLDRIGHTPANEL, 0x100 ; ⥪ã騩 ¯ãâì ¯à ¢®© ¯ ¥«¨
|
||||||
|
_MINUSVAR .FINDCURRPATH, 0x100 ; ¢à¥¬¥®© ⥪ã騩 ¯ãâì ¨áâ®ç¨ª
|
||||||
|
_MINUSVAR .FINDBUF, 0x100 ; ¢à¥¬¥ë© ¡ãä¥à ¯®¨áª
|
||||||
|
_MINUSVAR .ENDPATHSRC, WORD ; ¤à¥á 墮áâ ¯ã⨠¨áâ®ç¨ª
|
||||||
|
_MINUSVAR .CURR_DIRNAME, WORD ; ⥪ã騩 ¤à¥á ¢ ¯ãâ¨
|
||||||
|
|
||||||
include rez2_fnfunct.a80
|
include rez2_fnfunct.a80
|
||||||
include rez2_fnmisc.a80
|
|
||||||
include rez2_fnsearch.a80
|
include rez2_fnsearch.a80
|
||||||
include rez2_fnconfig.a80
|
include rez2_fnconfig.a80
|
||||||
include rez2_fnerror.a80
|
include rez2_fnerror.a80
|
||||||
include rez2_fntab1.a80
|
include rez2_fntab.a80
|
||||||
IF TREE_REZID
|
|
||||||
include fntree.a80
|
|
||||||
ENDIF
|
|
||||||
END_BLOCK_2:
|
END_BLOCK_2:
|
||||||
DEPHASE ; 0x4000
|
DEPHASE ; 0x4000
|
||||||
|
; ==============resident 2==============
|
||||||
|
|
||||||
;[]=======================================================================[]
|
; ==============fonts==============
|
||||||
PHASE 0xC000
|
PHASE 0xC000
|
||||||
; MAIN.FNFONT
|
; MAIN.FNFONT
|
||||||
START_BLOCK_4
|
START_BLOCK_4
|
||||||
|
|
||||||
FONT_RAW_PACK binclude tmp/font_raw.pack
|
FONT_RAW_PACK binclude tmp/font_raw.pack
|
||||||
IFFFONT_RAW_PACK binclude tmp/iff_font_raw.pack
|
IFFFONT_RAW_PACK binclude tmp/iff_font_raw.pack
|
||||||
IFFFONT_RAW_END
|
IFFFONT_RAW_END
|
||||||
|
|
||||||
END_BLOCK_4:
|
END_BLOCK_4:
|
||||||
DEPHASE ; 0xC000
|
DEPHASE ; 0xC000
|
||||||
|
; ==============fonts==============
|
||||||
|
|
||||||
;[]-----------------------------------------------------------------------[]
|
; ==============resident 3==============
|
||||||
PHASE 0x4000
|
PHASE 0x4000
|
||||||
; MAIN.FNREZ3
|
; MAIN.FNREZ3
|
||||||
START_BLOCK_3
|
START_BLOCK_3
|
||||||
|
; ¡ãä¥à çâ®¡ë ¯ ¬ïâì ¥ § ¨¬ «¨ ¢ EXE ä ©«¥
|
||||||
|
REZ3_BUFFERS
|
||||||
|
_INIT_VAR 0x8000 ; á ª®æ áâà ¨æë
|
||||||
|
_MINUSVAR .DOShistory, 0x200 ;times 0x200 db 0
|
||||||
|
|
||||||
|
_MINUSVAR .fnedit_ext, WorkBuffer_Size ;times 0x400 db 0
|
||||||
|
_MINUSVAR .fnview_ext, WorkBuffer_Size ;times 0x400 db 0
|
||||||
|
_MINUSVAR .fn_ext, WorkBuffer_Size ;times 0x400 db 0
|
||||||
|
|
||||||
include rez3_fnnext.a80
|
include rez3_fnnext.a80
|
||||||
include rez3_fnmark.a80
|
include rez3_fnmark.a80
|
||||||
; ¡ãä¥à çâ®¡ë ¯ ¬ïâì ¥ § ¨¬ «¨ ¢ EXE ä ©«¥
|
include rez3_fnmisc.a80
|
||||||
INIT_VAR 0x8000 ; á ª®æ áâà ¨æë
|
include rez3_fntab.a80
|
||||||
MINUSVAR fnedit_ext, WorkBuffer_Size ;times 0x400 db 0
|
|
||||||
MINUSVAR fnview_ext, WorkBuffer_Size ;times 0x400 db 0
|
|
||||||
MINUSVAR fn_ext, WorkBuffer_Size ;times 0x400 db 0
|
|
||||||
MINUSVAR DOShistory, 0x200 ;times 0x200 db 0
|
|
||||||
|
|
||||||
IFDEF ENABLE.HELP
|
|
||||||
WINSP_CPU EQU WINSP.CPU3 ; ®ª® ¯à®¥æ¨à®¢ ¨ï
|
|
||||||
WINSP_ADR EQU 0xC000 ; ¤à¥á ®ª
|
|
||||||
|
|
||||||
include plugins/help/help.a80
|
|
||||||
HelpText: include plugins/help/help_t.a80
|
|
||||||
HelpTextEnd:
|
|
||||||
ENDIF
|
|
||||||
END_BLOCK_3:
|
END_BLOCK_3:
|
||||||
DEPHASE ; 0x4000
|
DEPHASE ; 0x4000
|
||||||
|
; ==============resident 3==============
|
||||||
|
|
||||||
;[]-----------------------------------------------------------------------[]
|
|
||||||
IFDEF ENABLE.VIEW
|
|
||||||
; MAIN.FNVIEW
|
|
||||||
START_BLOCK_VIEWER
|
|
||||||
PHASE 0xC000
|
|
||||||
include plugins/fnviewer/fviewer.a80
|
|
||||||
DEPHASE ; 0xC000
|
|
||||||
END_BLOCK_VIEWER
|
|
||||||
ENDIF
|
|
||||||
|
|
||||||
IFDEF ENABLE.EDIT
|
|
||||||
; MAIN.FNEDIT
|
|
||||||
START_BLOCK_EDITOR
|
|
||||||
PHASE 0xC000
|
|
||||||
include plugins/fneditor/feditor.a80
|
|
||||||
DEPHASE ; 0xC000
|
|
||||||
END_BLOCK_EDITOR
|
|
||||||
ENDIF
|
|
||||||
;[]-----------------------------------------------------------------------[]
|
|
||||||
|
|
||||||
; ç¨áâ® ¤«ï ®â« ¤ª¨
|
|
||||||
BLOCK1_SIZE EQU END_BLOCK_1 - START_BLOCK_1 ; ®á®¢®© ª®¤
|
BLOCK1_SIZE EQU END_BLOCK_1 - START_BLOCK_1 ; ®á®¢®© ª®¤
|
||||||
BLOCK2_SIZE EQU END_BLOCK_2 - START_BLOCK_2 ; १¨¤¥â 2
|
BLOCK2_SIZE EQU END_BLOCK_2 - START_BLOCK_2 ; १¨¤¥â 2
|
||||||
BLOCK3_SIZE EQU END_BLOCK_3 - START_BLOCK_3 ; १¨¤¥â 3
|
BLOCK3_SIZE EQU END_BLOCK_3 - START_BLOCK_3 ; १¨¤¥â 3
|
||||||
IFDEF ENABLE.EDIT
|
|
||||||
EDITOR_SIZE EQU END_BLOCK_EDITOR - START_BLOCK_EDITOR ; । ªâ®à
|
|
||||||
ENDIF
|
|
||||||
IFDEF ENABLE.VIEW
|
|
||||||
VIEWER_SIZE EQU END_BLOCK_VIEWER - START_BLOCK_VIEWER ; ¢ìà
|
|
||||||
ENDIF
|
|
||||||
SORT_SIZE EQU END_SORT - START_SORT ; á®àâ¨à®¢é¨ª
|
SORT_SIZE EQU END_SORT - START_SORT ; á®àâ¨à®¢é¨ª
|
||||||
TREE_SIZE EQU END_TREE - START_TREE ; à ¡®â á ¤¥à¥¢®¬
|
TREE_SIZE EQU END_TREE - START_TREE ; à ¡®â á ¤¥à¥¢®¬
|
||||||
|
|||||||
50
fnmenu.a80
50
fnmenu.a80
@ -1,11 +1,11 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 25.07.2025 savelij
|
; LAST UPDATE: 14.08.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
PullDown: CALL ResInvert
|
PullDown: CALL ResInvert
|
||||||
CALL SetPullInvert
|
CALL SetPullInvert
|
||||||
PullLoop: LD IX,PullTab
|
PullLoop: LD IX,MAINTAB.PullTab
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,PullLoop
|
JR Z,PullLoop
|
||||||
LD A,B
|
LD A,B
|
||||||
@ -89,7 +89,7 @@ PullInvert: LD L,A
|
|||||||
ADD HL,HL ; *4
|
ADD HL,HL ; *4
|
||||||
ADD HL,HL ; *8
|
ADD HL,HL ; *8
|
||||||
ADD HL,HL ; *16
|
ADD HL,HL ; *16
|
||||||
LD BC,PullTab
|
LD BC,MAINTAB.PullTab
|
||||||
ADD HL,BC
|
ADD HL,BC
|
||||||
PUSH HL
|
PUSH HL
|
||||||
POP IX
|
POP IX
|
||||||
@ -106,7 +106,7 @@ PullInvert: LD L,A
|
|||||||
EX AF,AF'
|
EX AF,AF'
|
||||||
SRL A
|
SRL A
|
||||||
LD IXL,A
|
LD IXL,A
|
||||||
JP InvertRectan
|
JP ReplaceColorRectan
|
||||||
|
|
||||||
MFile: CALL ResPullInvert
|
MFile: CALL ResPullInvert
|
||||||
JP MenuFile.L1
|
JP MenuFile.L1
|
||||||
@ -141,7 +141,7 @@ MenuFile: CALL ResInvert
|
|||||||
W_TEXT 16,40,COLORP.HIGHGRAY,"Exit"
|
W_TEXT 16,40,COLORP.HIGHGRAY,"Exit"
|
||||||
W_TEXT 100,40,COLORP.HIGHGRAY,"F10"
|
W_TEXT 100,40,COLORP.HIGHGRAY,"F10"
|
||||||
W_END
|
W_END
|
||||||
LD HL,FileTab
|
LD HL,MAINTAB.FileTab
|
||||||
LD BC,3
|
LD BC,3
|
||||||
JP MenuWork
|
JP MenuWork
|
||||||
|
|
||||||
@ -162,7 +162,7 @@ MenuSelect: CALL ResInvert
|
|||||||
W_TEXT 16,62,COLORP.HIGHGRAY,"Invert selection"
|
W_TEXT 16,62,COLORP.HIGHGRAY,"Invert selection"
|
||||||
W_TEXT 112,62,COLORP.HIGHGRAY,"*"
|
W_TEXT 112,62,COLORP.HIGHGRAY,"*"
|
||||||
W_END
|
W_END
|
||||||
LD HL,SelectTab
|
LD HL,MAINTAB.SelectTab
|
||||||
LD BC,1 << 8 | 5
|
LD BC,1 << 8 | 5
|
||||||
JP MenuWork
|
JP MenuWork
|
||||||
|
|
||||||
@ -186,7 +186,7 @@ MenuOption: CALL ResInvert
|
|||||||
W_TEXT 16,54,COLORP.HIGHGRAY,"Plugins..." ; 03
|
W_TEXT 16,54,COLORP.HIGHGRAY,"Plugins..." ; 03
|
||||||
ENDIF
|
ENDIF
|
||||||
W_END
|
W_END
|
||||||
LD HL,OptionTab
|
LD HL,MAINTAB.OptionTab
|
||||||
IF PLUGS_ENABLE
|
IF PLUGS_ENABLE
|
||||||
LD BC,2 << 8 | 4
|
LD BC,2 << 8 | 4
|
||||||
ELSE
|
ELSE
|
||||||
@ -326,7 +326,7 @@ MenuView: CALL ResInvert
|
|||||||
W_TEXT 110,172,COLORP.HIGHGRAY,"\xFE CTRL+F7"
|
W_TEXT 110,172,COLORP.HIGHGRAY,"\xFE CTRL+F7"
|
||||||
.sort5 EQU $ - STRLEN("v CTRL+F7v")
|
.sort5 EQU $ - STRLEN("v CTRL+F7v")
|
||||||
W_END
|
W_END
|
||||||
LD HL,ViewTab
|
LD HL,MAINTAB.ViewTab
|
||||||
LD BC,3 << 8 | 12
|
LD BC,3 << 8 | 12
|
||||||
JP MenuWork
|
JP MenuWork
|
||||||
|
|
||||||
@ -338,7 +338,7 @@ MenuConfig: CALL ResInvert
|
|||||||
W_MAIN 174,26,96,20
|
W_MAIN 174,26,96,20
|
||||||
W_TEXT 16,6,COLORP.HIGHGRAY,"Setup..."
|
W_TEXT 16,6,COLORP.HIGHGRAY,"Setup..."
|
||||||
W_END
|
W_END
|
||||||
LD HL,ConfigTab
|
LD HL,MAINTAB.ConfigTab
|
||||||
LD BC,4 << 8 | 1
|
LD BC,4 << 8 | 1
|
||||||
JP MenuWork
|
JP MenuWork
|
||||||
|
|
||||||
@ -350,7 +350,7 @@ MenuAbout: CALL ResInvert
|
|||||||
W_MAIN 222,26,112,20
|
W_MAIN 222,26,112,20
|
||||||
W_TEXT 16,6,COLORP.HIGHGRAY,"Version..."
|
W_TEXT 16,6,COLORP.HIGHGRAY,"Version..."
|
||||||
W_END
|
W_END
|
||||||
LD HL,AboutTab
|
LD HL,MAINTAB.AboutTab
|
||||||
LD BC,5 << 8 | 1
|
LD BC,5 << 8 | 1
|
||||||
; HL - ¤à¥á â ¡«¨æë ªâ¨¢ëå §®
|
; HL - ¤à¥á â ¡«¨æë ªâ¨¢ëå §®
|
||||||
; B - ⥪ã騩 ¯ãªâ ¬¥î
|
; B - ⥪ã騩 ¯ãªâ ¬¥î
|
||||||
@ -364,7 +364,7 @@ MenuWork: LD (CurWTab),HL
|
|||||||
SUB A
|
SUB A
|
||||||
LD (CurMLine),A
|
LD (CurMLine),A
|
||||||
LD IX,(CurWTab)
|
LD IX,(CurWTab)
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
CALL TestInvert
|
CALL TestInvert
|
||||||
JR NZ,MenuLoop
|
JR NZ,MenuLoop
|
||||||
LD A,0
|
LD A,0
|
||||||
@ -373,7 +373,7 @@ MKeyFlg EQU $-1
|
|||||||
CALL NZ,SetMSelect
|
CALL NZ,SetMSelect
|
||||||
MenuLoop: LD IX,0x0000
|
MenuLoop: LD IX,0x0000
|
||||||
CurWTab EQU $-2
|
CurWTab EQU $-2
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,MenuLoop
|
JR Z,MenuLoop
|
||||||
LD A,B
|
LD A,B
|
||||||
@ -804,7 +804,7 @@ NewFilter: CALL ResInvert
|
|||||||
NEG
|
NEG
|
||||||
LD (FiltLen),A
|
LD (FiltLen),A
|
||||||
LD IX,FilterStr
|
LD IX,FilterStr
|
||||||
LD HL,FilterTab
|
LD HL,MAINTAB.FilterTab
|
||||||
CALL InputLine
|
CALL InputLine
|
||||||
WINDOWCLOSE
|
WINDOWCLOSE
|
||||||
RET C
|
RET C
|
||||||
@ -855,7 +855,7 @@ LeftDrive: CALL ResInvert
|
|||||||
W_TEXT 86,3,COLORI.WHITE,"Left drive"
|
W_TEXT 86,3,COLORI.WHITE,"Left drive"
|
||||||
W_END
|
W_END
|
||||||
LD HL,LeftTab
|
LD HL,LeftTab
|
||||||
LD DE,DriveTab
|
LD DE,MAINTAB.DriveTab
|
||||||
LD BC,0x0020
|
LD BC,0x0020
|
||||||
LDIR
|
LDIR
|
||||||
LD IX,LeftPanel
|
LD IX,LeftPanel
|
||||||
@ -872,7 +872,7 @@ RightDrive: CALL ResInvert
|
|||||||
W_TEXT 86,3,COLORI.WHITE,"Right drive"
|
W_TEXT 86,3,COLORI.WHITE,"Right drive"
|
||||||
W_END
|
W_END
|
||||||
LD HL,RightTab
|
LD HL,RightTab
|
||||||
LD DE,DriveTab
|
LD DE,MAINTAB.DriveTab
|
||||||
LD BC,0x0020
|
LD BC,0x0020
|
||||||
LDIR
|
LDIR
|
||||||
LD IX,RightPanel
|
LD IX,RightPanel
|
||||||
@ -885,7 +885,7 @@ RightTab: DEFW 0x0000,0x0160,0x0000,0x0100,0x20,0x0000,DriveExit,0x0000
|
|||||||
ChangeDrv: PUSH IY
|
ChangeDrv: PUSH IY
|
||||||
PUSH IX
|
PUSH IX
|
||||||
POP IY
|
POP IY
|
||||||
LD IX,BegDrive
|
LD IX,MAINTAB.BegDrive
|
||||||
LD A,(NUM_DEVICES)
|
LD A,(NUM_DEVICES)
|
||||||
ADD A,A
|
ADD A,A
|
||||||
LD C,A
|
LD C,A
|
||||||
@ -910,8 +910,8 @@ ChangeDrv: PUSH IY
|
|||||||
PUSH HL
|
PUSH HL
|
||||||
PUSH DE
|
PUSH DE
|
||||||
PUSH BC
|
PUSH BC
|
||||||
LD A,0x80
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL PrnTxtLnIFF
|
CALL PrintTxtLine_IFF
|
||||||
POP BC
|
POP BC
|
||||||
POP DE
|
POP DE
|
||||||
POP HL
|
POP HL
|
||||||
@ -948,8 +948,8 @@ ChangeDrv: PUSH IY
|
|||||||
SUB 'A'
|
SUB 'A'
|
||||||
LD (CurDrive),A
|
LD (CurDrive),A
|
||||||
CALL SetDriveInv
|
CALL SetDriveInv
|
||||||
DriveLoop: LD IX,DriveTab
|
DriveLoop: LD IX,MAINTAB.DriveTab
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,DriveLoop
|
JR Z,DriveLoop
|
||||||
LD A,B
|
LD A,B
|
||||||
@ -1016,7 +1016,7 @@ DriveRight: LD A,(NUM_DEVICES)
|
|||||||
LD (CurDrive),A
|
LD (CurDrive),A
|
||||||
JP SetDriveInv
|
JP SetDriveInv
|
||||||
|
|
||||||
DriveMouse: LD IX,BegDrive
|
DriveMouse: LD IX,MAINTAB.BegDrive
|
||||||
LD C,(IX+0x00)
|
LD C,(IX+0x00)
|
||||||
LD B,(IX+0x01)
|
LD B,(IX+0x01)
|
||||||
OR A
|
OR A
|
||||||
@ -1074,7 +1074,7 @@ DriveInvert: LD L,A
|
|||||||
ADD HL,HL
|
ADD HL,HL
|
||||||
ADD HL,HL
|
ADD HL,HL
|
||||||
ADD HL,HL
|
ADD HL,HL
|
||||||
LD BC,BegDrive
|
LD BC,MAINTAB.BegDrive
|
||||||
ADD HL,BC
|
ADD HL,BC
|
||||||
PUSH HL
|
PUSH HL
|
||||||
POP IX
|
POP IX
|
||||||
@ -1091,7 +1091,7 @@ DriveInvert: LD L,A
|
|||||||
EX AF,AF'
|
EX AF,AF'
|
||||||
SRL A
|
SRL A
|
||||||
LD IXL,A
|
LD IXL,A
|
||||||
JP InvertRectan
|
JP ReplaceColorRectan
|
||||||
|
|
||||||
CurDrive: DEFB 0x00
|
CurDrive: DEFB 0x00
|
||||||
Drive: DEFB " ",0
|
Drive: DEFB " ",0
|
||||||
@ -1183,7 +1183,7 @@ GetPlugins: LD HL,WorkBuffer + 0x300 ;
|
|||||||
W_TEXT 50,179,COLORP.HIGHGRAY,"Cancel"
|
W_TEXT 50,179,COLORP.HIGHGRAY,"Cancel"
|
||||||
W_END
|
W_END
|
||||||
.Loop LD IX,PluginsTab
|
.Loop LD IX,PluginsTab
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,.Loop
|
JR Z,.Loop
|
||||||
LD A,B
|
LD A,B
|
||||||
|
|||||||
20
fnmouse.a80
20
fnmouse.a80
@ -1,8 +1,9 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 25.07.2025 savelij
|
; LAST UPDATE: 31.07.2025 savelij
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
ResFire: LD A,(MouseFlag)
|
WaitUnpressMouse:
|
||||||
|
LD A,(MouseFlag)
|
||||||
OR A
|
OR A
|
||||||
RET Z
|
RET Z
|
||||||
RsFire1 CALL TestCMOS
|
RsFire1 CALL TestCMOS
|
||||||
@ -15,7 +16,8 @@ RsFire1 CALL TestCMOS
|
|||||||
; <20>஢¥àª ª®®à¤¨ â ¬ëè¨ ¯® â ¡«¨æ¥
|
; <20>஢¥àª ª®®à¤¨ â ¬ëè¨ ¯® â ¡«¨æ¥
|
||||||
; <20> ¢å®¤:
|
; <20> ¢å®¤:
|
||||||
; IX - €¤à¥á â ¡«¨æë
|
; IX - €¤à¥á â ¡«¨æë
|
||||||
TestCoords: CALL TestCMOS
|
CheckCoordsMouse:
|
||||||
|
CALL TestCMOS
|
||||||
SPMOUSE MOUSEF.READ_STATE
|
SPMOUSE MOUSEF.READ_STATE
|
||||||
EX AF,AF'
|
EX AF,AF'
|
||||||
LD BC,0x0000
|
LD BC,0x0000
|
||||||
@ -28,7 +30,7 @@ TestCoords: CALL TestCMOS
|
|||||||
JR Z,.L3
|
JR Z,.L3
|
||||||
.L2 LD (.PrvTabl),IX
|
.L2 LD (.PrvTabl),IX
|
||||||
CALL ResMInvert
|
CALL ResMInvert
|
||||||
LD BC,ResFire
|
LD BC,WaitUnpressMouse
|
||||||
PUSH BC
|
PUSH BC
|
||||||
SUB A
|
SUB A
|
||||||
LD (RunFlag),A
|
LD (RunFlag),A
|
||||||
@ -219,7 +221,7 @@ SetSelect1 BIT FORMTABL.B_FIRENOINV,(IX+FORMTABL.FLAG + 1) ; 09
|
|||||||
SRL A
|
SRL A
|
||||||
LD IXL,A
|
LD IXL,A
|
||||||
LD DE,(COLORP.HIGHGRAY + COLORI.BLACK) << 8 | (COLORP.BLUE + COLORI.WHITE);0x804F
|
LD DE,(COLORP.HIGHGRAY + COLORI.BLACK) << 8 | (COLORP.BLUE + COLORI.WHITE);0x804F
|
||||||
CALL InvertRectan
|
CALL ReplaceColorRectan
|
||||||
POP IX
|
POP IX
|
||||||
PUSH IX
|
PUSH IX
|
||||||
NxCrds1 LD BC,FORMTABL.SIZE;0x0010
|
NxCrds1 LD BC,FORMTABL.SIZE;0x0010
|
||||||
@ -256,7 +258,7 @@ ResSelect1 BIT FORMTABL.B_FIRENOINV,(IX+FORMTABL.FLAG + 1) ; 09
|
|||||||
SRL A
|
SRL A
|
||||||
LD IXL,A
|
LD IXL,A
|
||||||
LD DE,(COLORP.BLUE + COLORI.WHITE) << 8 | (COLORP.HIGHGRAY + COLORI.BLACK);0x4F80
|
LD DE,(COLORP.BLUE + COLORI.WHITE) << 8 | (COLORP.HIGHGRAY + COLORI.BLACK);0x4F80
|
||||||
CALL InvertRectan
|
CALL ReplaceColorRectan
|
||||||
POP DE
|
POP DE
|
||||||
POP HL
|
POP HL
|
||||||
POP IX
|
POP IX
|
||||||
@ -283,7 +285,7 @@ SetSelect2 BIT FORMTABL.B_HZ,(IX+FORMTABL.FLAG + 1) ; 09
|
|||||||
SRL A
|
SRL A
|
||||||
LD IXL,A
|
LD IXL,A
|
||||||
LD DE,(COLORP.HIGHGRAY + COLORI.BLACK) << 8 | (COLORP.BLUE + COLORI.WHITE);0x804F
|
LD DE,(COLORP.HIGHGRAY + COLORI.BLACK) << 8 | (COLORP.BLUE + COLORI.WHITE);0x804F
|
||||||
CALL InvertRectan
|
CALL ReplaceColorRectan
|
||||||
POP AF
|
POP AF
|
||||||
POP DE
|
POP DE
|
||||||
POP HL
|
POP HL
|
||||||
@ -293,7 +295,7 @@ SetSelect2 BIT FORMTABL.B_HZ,(IX+FORMTABL.FLAG + 1) ; 09
|
|||||||
ResSelect2 PUSH HL
|
ResSelect2 PUSH HL
|
||||||
PUSH DE
|
PUSH DE
|
||||||
PUSH IX
|
PUSH IX
|
||||||
LD IX,(TestCoords.PrvTabl)
|
LD IX,(CheckCoordsMouse.PrvTabl)
|
||||||
LD BC,FORMTABL.SIZE;0x0010
|
LD BC,FORMTABL.SIZE;0x0010
|
||||||
NxCrds3 BIT FORMTABL.B_STATICINV,(IX+FORMTABL.FLAG) ; 08
|
NxCrds3 BIT FORMTABL.B_STATICINV,(IX+FORMTABL.FLAG) ; 08
|
||||||
JR NZ,ResSel22
|
JR NZ,ResSel22
|
||||||
@ -319,7 +321,7 @@ ResSel22 BIT FORMTABL.B_HZ,(IX+FORMTABL.FLAG + 1) ; 09
|
|||||||
SRL A
|
SRL A
|
||||||
LD IXL,A
|
LD IXL,A
|
||||||
LD DE,(COLORP.BLUE + COLORI.WHITE) << 8 | (COLORP.HIGHGRAY + COLORI.BLACK);0x4F80
|
LD DE,(COLORP.BLUE + COLORI.WHITE) << 8 | (COLORP.HIGHGRAY + COLORI.BLACK);0x4F80
|
||||||
CALL InvertRectan
|
CALL ReplaceColorRectan
|
||||||
ResSel2E POP IX
|
ResSel2E POP IX
|
||||||
POP DE
|
POP DE
|
||||||
POP HL
|
POP HL
|
||||||
|
|||||||
103
fnpanel.a80
103
fnpanel.a80
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 24.07.2025 savelij
|
; LAST UPDATE: 07.09.2025 savelij
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
PrintDisks LD L,(IY + PANEL.X)
|
PrintDisks LD L,(IY + PANEL.X)
|
||||||
@ -116,7 +116,7 @@ PrintPath BIT PANELFLAG.B_PRNDOSPATH,(IY + PANEL.PANELFLAG)
|
|||||||
LD C,0x30
|
LD C,0x30
|
||||||
LD A,0x00
|
LD A,0x00
|
||||||
.PathCol EQU $-1
|
.PathCol EQU $-1
|
||||||
JP PrnRangPathL
|
JP PrintPathLeft
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
PrintDOSPath PUSH IY
|
PrintDOSPath PUSH IY
|
||||||
@ -148,7 +148,7 @@ PrintDOSPath PUSH IY
|
|||||||
LD DE,250
|
LD DE,250
|
||||||
LD BC,231
|
LD BC,231
|
||||||
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
JP PrnRangPathR
|
JP PrintPathRight
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
PrnFileInfo BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
PrnFileInfo BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
||||||
@ -164,22 +164,24 @@ PrnFileInfo BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
|||||||
LD A,(RAMPAGES.RIGHTPANEL)
|
LD A,(RAMPAGES.RIGHTPANEL)
|
||||||
.L1
|
.L1
|
||||||
SETPORT WINSP.CPU1,,0
|
SETPORT WINSP.CPU1,,0
|
||||||
LD L,(IY + PANEL.FIRST_FILE)
|
; LD L,(IY + PANEL.FIRST_FILE)
|
||||||
LD H,(IY + PANEL.FIRST_FILE + 1)
|
; LD H,(IY + PANEL.FIRST_FILE + 1)
|
||||||
LD E,(IY + PANEL.CURR_FILE)
|
; LD E,(IY + PANEL.CURR_FILE)
|
||||||
LD D,(IY + PANEL.CURR_FILE + 1)
|
; LD D,(IY + PANEL.CURR_FILE + 1)
|
||||||
ADD HL,DE
|
; ADD HL,DE
|
||||||
ADD HL,HL ; *2
|
; ADD HL,HL ; *2
|
||||||
ADD HL,HL ; *4
|
; ADD HL,HL ; *4
|
||||||
ADD HL,HL ; *8
|
; ADD HL,HL ; *8
|
||||||
LD E,L
|
; LD E,L
|
||||||
LD D,H
|
; LD D,H
|
||||||
ADD HL,HL ; *10
|
; ADD HL,HL ; *10
|
||||||
ADD HL,DE ; *18
|
; ADD HL,DE ; *18
|
||||||
SET 6,H ; | 0x4000
|
; SET 6,H ; | 0x4000
|
||||||
|
LD A,HIGH (CPU1)
|
||||||
|
CALL GET_HANDLE_ADR
|
||||||
LD DE,WorkBuffer
|
LD DE,WorkBuffer
|
||||||
LD BC,FileHDR.SIZE
|
LD BC,FileHDR.SIZE
|
||||||
CALL MoveBytes
|
CALL MoveBytesInc
|
||||||
POP AF
|
POP AF
|
||||||
SETPORT WINSP.CPU1,,0
|
SETPORT WINSP.CPU1,,0
|
||||||
LD HL,WorkBuffer + FileHDR.SIZE;0x18
|
LD HL,WorkBuffer + FileHDR.SIZE;0x18
|
||||||
@ -244,7 +246,7 @@ PrntFI LD HL,WorkBuffer + FileHDR.SIZE;0x18
|
|||||||
INC DE
|
INC DE
|
||||||
LD BC,215
|
LD BC,215
|
||||||
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
JP PrnTxtLnNorm
|
JP PrintTxtLine
|
||||||
|
|
||||||
GetFileLen BIT DIR.B_Dir,(IX + FileHDR.Attr)
|
GetFileLen BIT DIR.B_Dir,(IX + FileHDR.Attr)
|
||||||
JP NZ,PDirectory
|
JP NZ,PDirectory
|
||||||
@ -314,12 +316,7 @@ Get8Bit LD B,'0' - 1
|
|||||||
INC HL
|
INC HL
|
||||||
RET
|
RET
|
||||||
|
|
||||||
PrnTreeInfo
|
PrnTreeInfo CALL MakeTreePathR
|
||||||
IF TREE_REZID
|
|
||||||
CALL RESIDENT.MakeTreePath
|
|
||||||
ELSE
|
|
||||||
CALL MakeTreePathR
|
|
||||||
ENDIF
|
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
PUSH IY
|
PUSH IY
|
||||||
POP HL
|
POP HL
|
||||||
@ -344,13 +341,13 @@ PrnSelInfo LD L,(IY+PANEL.BYTES_MARK)
|
|||||||
LD B,(IY+PANEL.BYTES_MARK + 3)
|
LD B,(IY+PANEL.BYTES_MARK + 3)
|
||||||
LD A,(IY+PANEL.BYTES_MARK_H) ; [ ] FAT32
|
LD A,(IY+PANEL.BYTES_MARK_H) ; [ ] FAT32
|
||||||
LD DE,WorkBuffer
|
LD DE,WorkBuffer
|
||||||
CALL ConvNumTxt40 ; [ ] fat32
|
CALL ConvertNumbers_40b ; [ ] fat32
|
||||||
LD HL,CrSizeT
|
LD HL,CrSizeT
|
||||||
LD BC,0x000A
|
LD BC,0x000A
|
||||||
LDIR
|
LDIR
|
||||||
LD L,(IY+PANEL.FILES_MARK)
|
LD L,(IY+PANEL.FILES_MARK)
|
||||||
LD H,(IY+PANEL.FILES_MARK + 1)
|
LD H,(IY+PANEL.FILES_MARK + 1)
|
||||||
CALL ConvNumTxt16
|
CALL ConvertNumbers_16b
|
||||||
LD HL,CrSelT
|
LD HL,CrSelT
|
||||||
LD BC,0x000F
|
LD BC,0x000F
|
||||||
LDIR
|
LDIR
|
||||||
@ -387,7 +384,7 @@ PrnSelInfo LD L,(IY+PANEL.BYTES_MARK)
|
|||||||
INC DE
|
INC DE
|
||||||
LD BC,215
|
LD BC,215
|
||||||
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
JP PrnTxtLnNorm
|
JP PrintTxtLine
|
||||||
|
|
||||||
CrSizeT DEFB " bytes in "
|
CrSizeT DEFB " bytes in "
|
||||||
CrSelT DEFB " selected files"
|
CrSelT DEFB " selected files"
|
||||||
@ -432,8 +429,8 @@ PrnDIRECT BIT VIEWFLAG.B_FULL,(IY+PANEL.VIEWFLAG)
|
|||||||
LD A,(RAMPAGES.RIGHTPANEL)
|
LD A,(RAMPAGES.RIGHTPANEL)
|
||||||
.L1
|
.L1
|
||||||
SETPORT WINSP.CPU1,,0
|
SETPORT WINSP.CPU1,,0
|
||||||
LD L,(IY+PANEL.FIRST_FILE)
|
LD L,(IY + PANEL.FIRST_FILE)
|
||||||
LD H,(IY+PANEL.FIRST_FILE + 1)
|
LD H,(IY + PANEL.FIRST_FILE + 1)
|
||||||
ADD HL,HL ; *2
|
ADD HL,HL ; *2
|
||||||
ADD HL,HL ; *4
|
ADD HL,HL ; *4
|
||||||
ADD HL,HL ; *8
|
ADD HL,HL ; *8
|
||||||
@ -444,7 +441,7 @@ PrnDIRECT BIT VIEWFLAG.B_FULL,(IY+PANEL.VIEWFLAG)
|
|||||||
SET 6,H ; | 0x4000
|
SET 6,H ; | 0x4000
|
||||||
LD DE,WorkBuffer
|
LD DE,WorkBuffer
|
||||||
LD BC,0x33 * FileHDR.SIZE;0x18
|
LD BC,0x33 * FileHDR.SIZE;0x18
|
||||||
CALL MoveBytes
|
CALL MoveBytesInc
|
||||||
POP AF
|
POP AF
|
||||||
SETPORT WINSP.CPU1,,0
|
SETPORT WINSP.CPU1,,0
|
||||||
LD B,COLORP.PANEL + COLORI.FILES
|
LD B,COLORP.PANEL + COLORI.FILES
|
||||||
@ -526,8 +523,8 @@ PrintFULL PUSH IY
|
|||||||
LD A,(RAMPAGES.RIGHTPANEL)
|
LD A,(RAMPAGES.RIGHTPANEL)
|
||||||
.L1
|
.L1
|
||||||
SETPORT WINSP.CPU1,,0
|
SETPORT WINSP.CPU1,,0
|
||||||
LD L,(IY+PANEL.FIRST_FILE)
|
LD L,(IY + PANEL.FIRST_FILE)
|
||||||
LD H,(IY+PANEL.FIRST_FILE + 1)
|
LD H,(IY + PANEL.FIRST_FILE + 1)
|
||||||
ADD HL,HL ; *2
|
ADD HL,HL ; *2
|
||||||
ADD HL,HL ; *4
|
ADD HL,HL ; *4
|
||||||
ADD HL,HL ; *8
|
ADD HL,HL ; *8
|
||||||
@ -538,7 +535,7 @@ PrintFULL PUSH IY
|
|||||||
SET 6,H ; | 0x4000
|
SET 6,H ; | 0x4000
|
||||||
LD DE,WorkBuffer
|
LD DE,WorkBuffer
|
||||||
LD BC,0x12 * FileHDR.SIZE;0x18
|
LD BC,0x12 * FileHDR.SIZE;0x18
|
||||||
CALL MoveBytes
|
CALL MoveBytesInc
|
||||||
POP AF
|
POP AF
|
||||||
SETPORT WINSP.CPU1,,0
|
SETPORT WINSP.CPU1,,0
|
||||||
LD B,COLORP.PANEL + COLORI.FILES
|
LD B,COLORP.PANEL + COLORI.FILES
|
||||||
@ -664,8 +661,8 @@ PrintTREE
|
|||||||
DJNZ .L2
|
DJNZ .L2
|
||||||
POP DE
|
POP DE
|
||||||
LD HL,0x4000
|
LD HL,0x4000
|
||||||
LD C,(IY+PANEL.FIRST_FILE)
|
LD C,(IY + PANEL.FIRST_FILE)
|
||||||
LD B,(IY+PANEL.FIRST_FILE + 1)
|
LD B,(IY + PANEL.FIRST_FILE + 1)
|
||||||
LD A,B
|
LD A,B
|
||||||
OR C
|
OR C
|
||||||
JR Z,.PrDIRb2
|
JR Z,.PrDIRb2
|
||||||
@ -684,7 +681,7 @@ PrintTREE
|
|||||||
JR NZ,.PrDIRb1
|
JR NZ,.PrDIRb1
|
||||||
.PrDIRb2 LD DE,WorkBuffer+0x100
|
.PrDIRb2 LD DE,WorkBuffer+0x100
|
||||||
LD BC,0x12*0x10
|
LD BC,0x12*0x10
|
||||||
CALL MoveBytes
|
CALL MoveBytesInc
|
||||||
POP AF
|
POP AF
|
||||||
SETPORT WINSP.CPU1,,0
|
SETPORT WINSP.CPU1,,0
|
||||||
LD B,COLORP.PANEL + COLORI.FILES
|
LD B,COLORP.PANEL + COLORI.FILES
|
||||||
@ -1083,19 +1080,21 @@ PrnInvert LD A,(IY + PANEL.FILES_ALL)
|
|||||||
LD A,(RAMPAGES.RIGHTPANEL)
|
LD A,(RAMPAGES.RIGHTPANEL)
|
||||||
.L1
|
.L1
|
||||||
SETPORT WINSP.CPU1,,0
|
SETPORT WINSP.CPU1,,0
|
||||||
LD L,(IY + PANEL.FIRST_FILE)
|
; LD L,(IY + PANEL.FIRST_FILE)
|
||||||
LD H,(IY + PANEL.FIRST_FILE + 1)
|
; LD H,(IY + PANEL.FIRST_FILE + 1)
|
||||||
LD E,(IY + PANEL.CURR_FILE)
|
; LD E,(IY + PANEL.CURR_FILE)
|
||||||
LD D,(IY + PANEL.CURR_FILE + 1)
|
; LD D,(IY + PANEL.CURR_FILE + 1)
|
||||||
ADD HL,DE
|
; ADD HL,DE
|
||||||
ADD HL,HL ; *2
|
; ADD HL,HL ; *2
|
||||||
ADD HL,HL ; *4
|
; ADD HL,HL ; *4
|
||||||
ADD HL,HL ; *8
|
; ADD HL,HL ; *8
|
||||||
LD E,L
|
; LD E,L
|
||||||
LD D,H
|
; LD D,H
|
||||||
ADD HL,HL ; *10
|
; ADD HL,HL ; *10
|
||||||
ADD HL,DE ; *18
|
; ADD HL,DE ; *18
|
||||||
SET 6,H ; | 0xC000
|
; SET 6,H ; | 0xC000
|
||||||
|
LD A,HIGH (CPU1)
|
||||||
|
CALL GET_HANDLE_ADR
|
||||||
LD E,(HL)
|
LD E,(HL)
|
||||||
POP AF
|
POP AF
|
||||||
SETPORT WINSP.CPU1,,0
|
SETPORT WINSP.CPU1,,0
|
||||||
@ -1132,7 +1131,7 @@ PrnInvert LD A,(IY + PANEL.FILES_ALL)
|
|||||||
LD IX,8 << 8 + 48
|
LD IX,8 << 8 + 48
|
||||||
DEC HL
|
DEC HL
|
||||||
DEC HL
|
DEC HL
|
||||||
JP InvertRectan
|
JP ReplaceColorRectan
|
||||||
|
|
||||||
PrnInvertP LD L,(IY + PANEL.CURR_FILE)
|
PrnInvertP LD L,(IY + PANEL.CURR_FILE)
|
||||||
LD H,(IY + PANEL.CURR_FILE + 1)
|
LD H,(IY + PANEL.CURR_FILE + 1)
|
||||||
@ -1148,7 +1147,7 @@ PrnInvertP LD L,(IY + PANEL.CURR_FILE)
|
|||||||
JR Z,.L1
|
JR Z,.L1
|
||||||
LD HL,326
|
LD HL,326
|
||||||
.L1 LD IX,8 << 8 + 146
|
.L1 LD IX,8 << 8 + 146
|
||||||
JP InvertRectan
|
JP ReplaceColorRectan
|
||||||
|
|
||||||
PrnTreeInv PUSH HL
|
PrnTreeInv PUSH HL
|
||||||
GETPORT WINSP.CPU1
|
GETPORT WINSP.CPU1
|
||||||
@ -1236,4 +1235,4 @@ PrnTreeInv PUSH HL
|
|||||||
ADD HL,BC
|
ADD HL,BC
|
||||||
.L5 POP BC
|
.L5 POP BC
|
||||||
LD IXH,0x08
|
LD IXH,0x08
|
||||||
JP InvertRectan
|
JP ReplaceColorRectan
|
||||||
|
|||||||
22
fnprint.a80
22
fnprint.a80
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 20.02.2025 savelij
|
; LAST UPDATE: 31.07.2025 savelij
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
; <20>à®æ¥¤ãà ¢ë¢®¤ ⥪á⮢ëå áâப £à ä¨ç¥áª¨© íªà 640x256
|
; <20>à®æ¥¤ãà ¢ë¢®¤ ⥪á⮢ëå áâப £à ä¨ç¥áª¨© íªà 640x256
|
||||||
@ -11,7 +11,7 @@
|
|||||||
; BC - ¯®§¨æ¨ï ¢ë¢®¤ ¯® Y
|
; BC - ¯®§¨æ¨ï ¢ë¢®¤ ¯® Y
|
||||||
; A - 梥⠯¥ç ⨠(7-4¡¨â PAPER, 3-0¡¨â INK)
|
; A - 梥⠯¥ç ⨠(7-4¡¨â PAPER, 3-0¡¨â INK)
|
||||||
; (ª®¥æ áâப¨ - 0)
|
; (ª®¥æ áâப¨ - 0)
|
||||||
PrnRangPathL PUSH DE
|
PrintPathLeft: PUSH DE
|
||||||
PUSH BC
|
PUSH BC
|
||||||
PUSH AF
|
PUSH AF
|
||||||
DI
|
DI
|
||||||
@ -86,7 +86,7 @@ PrRngLE POP AF
|
|||||||
POP AF
|
POP AF
|
||||||
POP BC
|
POP BC
|
||||||
POP DE
|
POP DE
|
||||||
JP PrnTxtLnIFF
|
JP PrintTxtLine_IFF
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
; <20>à®æ¥¤ãà ¢ë¢®¤ ⥪á⮢ëå áâப £à ä¨ç¥áª¨© íªà 640x256
|
; <20>à®æ¥¤ãà ¢ë¢®¤ ⥪á⮢ëå áâப £à ä¨ç¥áª¨© íªà 640x256
|
||||||
@ -98,7 +98,7 @@ PrRngLE POP AF
|
|||||||
; BC - ¯®§¨æ¨ï ¢ë¢®¤ ¯® Y
|
; BC - ¯®§¨æ¨ï ¢ë¢®¤ ¯® Y
|
||||||
; A - 梥⠯¥ç ⨠(7-4¡¨â PAPER, 3-0¡¨â INK)
|
; A - 梥⠯¥ç ⨠(7-4¡¨â PAPER, 3-0¡¨â INK)
|
||||||
; (ª®¥æ áâப¨ - 0)
|
; (ª®¥æ áâப¨ - 0)
|
||||||
PrnRangPathR PUSH AF
|
PrintPathRight: PUSH AF
|
||||||
PUSH BC
|
PUSH BC
|
||||||
PUSH DE
|
PUSH DE
|
||||||
DI
|
DI
|
||||||
@ -193,7 +193,7 @@ PrRngRE POP AF
|
|||||||
EX DE,HL
|
EX DE,HL
|
||||||
POP BC
|
POP BC
|
||||||
POP AF
|
POP AF
|
||||||
JP PrnTxtLnIFF
|
JP PrintTxtLine_IFF
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
; <20>à®æ¥¤ãà ¢ë¢®¤ ⥪á⮢ëå áâப £à ä¨ç¥áª¨© íªà 640x256
|
; <20>à®æ¥¤ãà ¢ë¢®¤ ⥪á⮢ëå áâப £à ä¨ç¥áª¨© íªà 640x256
|
||||||
@ -205,7 +205,7 @@ PrRngRE POP AF
|
|||||||
; BC - ¯®§¨æ¨ï ¢ë¢®¤ ¯® Y
|
; BC - ¯®§¨æ¨ï ¢ë¢®¤ ¯® Y
|
||||||
; A - 梥⠯¥ç ⨠(7-4¡¨â PAPER, 3-0¡¨â INK)
|
; A - 梥⠯¥ç ⨠(7-4¡¨â PAPER, 3-0¡¨â INK)
|
||||||
; (ª®¥æ áâப¨ - 0)
|
; (ª®¥æ áâப¨ - 0)
|
||||||
PrnRangPathC PUSH BC
|
PrintPathCentr: PUSH BC
|
||||||
PUSH AF
|
PUSH AF
|
||||||
PUSH DE
|
PUSH DE
|
||||||
DI
|
DI
|
||||||
@ -289,7 +289,7 @@ PrRngCE POP AF
|
|||||||
EX DE,HL
|
EX DE,HL
|
||||||
POP AF
|
POP AF
|
||||||
POP BC
|
POP BC
|
||||||
JP PrnTxtLnIFF
|
JP PrintTxtLine_IFF
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
; <20>à®æ¥¤ãà ¢ë¢®¤ ⥪á⮢ëå áâப £à ä¨ç¥áª¨© íªà 640x256;
|
; <20>à®æ¥¤ãà ¢ë¢®¤ ⥪á⮢ëå áâப £à ä¨ç¥áª¨© íªà 640x256;
|
||||||
@ -300,7 +300,8 @@ PrRngCE POP AF
|
|||||||
; BC - ¯®§¨æ¨ï ¢ë¢®¤ ¯® Y
|
; BC - ¯®§¨æ¨ï ¢ë¢®¤ ¯® Y
|
||||||
; A - 梥⠯¥ç ⨠(7-4¡¨â PAPER, 3-0¡¨â INK)
|
; A - 梥⠯¥ç ⨠(7-4¡¨â PAPER, 3-0¡¨â INK)
|
||||||
; (ª®¥æ áâப¨ - 0)
|
; (ª®¥æ áâப¨ - 0)
|
||||||
PrnTxtLnIFF PUSH IY
|
PrintTxtLine_IFF:
|
||||||
|
PUSH IY
|
||||||
LD IYL,C ; Y ª®®à¤¨ â
|
LD IYL,C ; Y ª®®à¤¨ â
|
||||||
LD B,A
|
LD B,A
|
||||||
GETPORT WINSP.Y_PORT ; ‘®åà 塞 Y ¯®àâ
|
GETPORT WINSP.Y_PORT ; ‘®åà 塞 Y ¯®àâ
|
||||||
@ -395,7 +396,7 @@ PrnIFFe LD L,C ;
|
|||||||
; BC - ¯®§¨æ¨ï ¢ë¢®¤ ¯® Y
|
; BC - ¯®§¨æ¨ï ¢ë¢®¤ ¯® Y
|
||||||
; A - 梥⠯¥ç ⨠(7-4¡¨â PAPER, 3-0¡¨â INK)
|
; A - 梥⠯¥ç ⨠(7-4¡¨â PAPER, 3-0¡¨â INK)
|
||||||
; (ª®¥æ áâப¨ - 0)
|
; (ª®¥æ áâப¨ - 0)
|
||||||
PrnTxtLnNorm PUSH IY
|
PrintTxtLine PUSH IY
|
||||||
LD IYL,C ; Y ª®®à¤¨ â
|
LD IYL,C ; Y ª®®à¤¨ â
|
||||||
LD B,A
|
LD B,A
|
||||||
GETPORT WINSP.Y_PORT ; ‘®åà 塞 Y ¯®àâ
|
GETPORT WINSP.Y_PORT ; ‘®åà 塞 Y ¯®àâ
|
||||||
@ -492,7 +493,8 @@ PrnNORe LD L,C ;
|
|||||||
; B - ª®«-¢® ¯¥ç â ¥¬ëå ᨬ¢®«®¢
|
; B - ª®«-¢® ¯¥ç â ¥¬ëå ᨬ¢®«®¢
|
||||||
; A - 梥⠯¥ç ⨠(7-4¡¨â PAPER, 3-0¡¨â INK)
|
; A - 梥⠯¥ç ⨠(7-4¡¨â PAPER, 3-0¡¨â INK)
|
||||||
; (ª®¥æ áâப¨ - 0)
|
; (ª®¥æ áâப¨ - 0)
|
||||||
PrnTxtLnNormC PUSH IY
|
PrintTxtLineNumsChar:
|
||||||
|
PUSH IY
|
||||||
LD IYL,C ; Y ª®®à¤¨ â
|
LD IYL,C ; Y ª®®à¤¨ â
|
||||||
LD IYH,B ; ª®«-¢® ᨬ¢
|
LD IYH,B ; ª®«-¢® ᨬ¢
|
||||||
LD B,A
|
LD B,A
|
||||||
|
|||||||
66
fnsort.a80
66
fnsort.a80
@ -1,29 +1,49 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 24.07.2025 savelij
|
; LAST UPDATE: 07.09.2025 savelij
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
ReadDIR BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
; <20> ¢å®¤¥:
|
||||||
IF TREE_REZID
|
; A - ®¬¥à áâà ¨æë ¤«ï à ¡®âë ¥á«¨ ¡¨â PANELFLAG.B_DIRPAGE ãáâ ®¢«¥
|
||||||
JP NZ,RESIDENT.ReadTree
|
; ¨ ç¥ ¥ âॡã¥âáï
|
||||||
ELSE
|
ReadDIR BIT PANELFLAG.B_DIRPAGE,(IY + PANEL.PANELFLAG)
|
||||||
|
JR NZ,.RD1
|
||||||
|
.RD2 BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
||||||
|
LD A,(RAMPAGES.LEFTPANEL)
|
||||||
|
JR Z,.RD1
|
||||||
|
LD A,(RAMPAGES.RIGHTPANEL)
|
||||||
|
.RD1 LD (.DIRPAGE),A
|
||||||
|
BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
||||||
JP NZ,ReadTreeR
|
JP NZ,ReadTreeR
|
||||||
ENDIF
|
|
||||||
GETPORT WINSP.CPU3
|
GETPORT WINSP.CPU3
|
||||||
PUSH AF
|
PUSH AF
|
||||||
BIT PANELFLAG.B_SIDE,(IY+PANEL.PANELFLAG)
|
LD A,(IY + PANEL.SORTFLAG)
|
||||||
LD A,(RAMPAGES.LEFTPANEL)
|
AND SORTFLAG.MASK
|
||||||
JR Z,.L1
|
JR Z,.L6
|
||||||
LD A,(RAMPAGES.RIGHTPANEL)
|
; á á®àâ¨à®¢ª®© £à㧨¬ ¢ ᢮¡®¤ãî ¯ £ã
|
||||||
|
LD A,(RAMPAGES.BuffPg4)
|
||||||
|
JR .L1
|
||||||
|
|
||||||
|
; ¡¥§ á®àâ¨à®¢ª¨ £à㧨¬ ¢ áâà ¨æã ¯ ¥«¨
|
||||||
|
.L6 LD A,0
|
||||||
|
.DIRPAGE EQU $-1
|
||||||
.L1
|
.L1
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
PUSH IY
|
PUSH IY
|
||||||
POP HL
|
POP HL
|
||||||
|
LD D,H
|
||||||
|
LD E,L
|
||||||
|
LD BC,PANEL.FILE_MASK
|
||||||
|
ADD HL,BC
|
||||||
|
BIT PANELFLAG.B_DIRPAGE,(IY + PANEL.PANELFLAG)
|
||||||
|
JR NZ,.L8
|
||||||
|
EX DE,HL
|
||||||
LD BC,PANEL.FILES_ALL
|
LD BC,PANEL.FILES_ALL
|
||||||
ADD HL,BC
|
ADD HL,BC
|
||||||
LD B,PANEL.FILE_MASK - PANEL.FILES_ALL
|
LD B,PANEL.FILE_MASK - PANEL.FILES_ALL
|
||||||
.L5 LD (HL),0
|
.L5 LD (HL),0
|
||||||
INC HL
|
INC HL
|
||||||
DJNZ .L5
|
DJNZ .L5
|
||||||
|
.L8 RES PANELFLAG.B_DIRPAGE,(IY + PANEL.PANELFLAG)
|
||||||
BIT SORTFLAG.B_FILTER,(IY + PANEL.SORTFLAG)
|
BIT SORTFLAG.B_FILTER,(IY + PANEL.SORTFLAG)
|
||||||
JR NZ,.L2
|
JR NZ,.L2
|
||||||
LD HL,NORMmask
|
LD HL,NORMmask
|
||||||
@ -108,8 +128,8 @@ FindFILESm LD HL,NORMmask
|
|||||||
POP IX
|
POP IX
|
||||||
POP IY
|
POP IY
|
||||||
RET C
|
RET C
|
||||||
FFILEm1 LD A,(WorkBuffer + FFIRST.Attr);+0x20)
|
FFILEm1 LD A,(WorkBuffer + FFIRST.Attr)
|
||||||
AND DIR.M_Dir;0x10
|
AND DIR.M_Dir
|
||||||
CALL NZ,InsFileInfo
|
CALL NZ,InsFileInfo
|
||||||
RET C
|
RET C
|
||||||
LD DE,WorkBuffer
|
LD DE,WorkBuffer
|
||||||
@ -160,7 +180,7 @@ InsFileInfo EX DE,HL
|
|||||||
LD (DE),A
|
LD (DE),A
|
||||||
INC DE
|
INC DE
|
||||||
PUSH HL
|
PUSH HL
|
||||||
LD BC,FFIRST.Attr;0x20
|
LD BC,FFIRST.Attr
|
||||||
ADD HL,BC
|
ADD HL,BC
|
||||||
LD B,(HL) ; FFIRST.Attr
|
LD B,(HL) ; FFIRST.Attr
|
||||||
INC HL
|
INC HL
|
||||||
@ -384,14 +404,10 @@ SortDIR
|
|||||||
GETPORT WINSP.CPU3
|
GETPORT WINSP.CPU3
|
||||||
LD B,A
|
LD B,A
|
||||||
PUSH BC
|
PUSH BC
|
||||||
BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
LD A,(ReadDIR.DIRPAGE)
|
||||||
LD A,(RAMPAGES.LEFTPANEL)
|
|
||||||
JR Z,.L1
|
|
||||||
LD A,(RAMPAGES.RIGHTPANEL)
|
|
||||||
.L1
|
|
||||||
SETPORT WINSP.CPU1,,0
|
|
||||||
LD A,(RAMPAGES.BuffPg3)
|
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
|
LD A,(RAMPAGES.BuffPg4)
|
||||||
|
SETPORT WINSP.CPU1,,0
|
||||||
LD HL,CPU3
|
LD HL,CPU3
|
||||||
LD (EndSort),HL
|
LD (EndSort),HL
|
||||||
SUB A
|
SUB A
|
||||||
@ -485,14 +501,6 @@ SortDIR
|
|||||||
.L3 LD (HL),A
|
.L3 LD (HL),A
|
||||||
INC HL
|
INC HL
|
||||||
DJNZ .L3
|
DJNZ .L3
|
||||||
GETPORT WINSP.CPU1
|
|
||||||
LD (RAMPAGES.BuffPg3),A
|
|
||||||
GETPORT WINSP.CPU3
|
|
||||||
BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
|
||||||
LD HL,RAMPAGES.LEFTPANEL
|
|
||||||
JR Z,.L2
|
|
||||||
LD HL,RAMPAGES.RIGHTPANEL
|
|
||||||
.L2 LD (HL),A
|
|
||||||
POP BC
|
POP BC
|
||||||
LD A,B
|
LD A,B
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
@ -693,7 +701,7 @@ SortDIRins DEC HL
|
|||||||
EX DE,HL
|
EX DE,HL
|
||||||
LD A,B
|
LD A,B
|
||||||
OR C
|
OR C
|
||||||
CALL NZ,MoveBytesUp
|
CALL NZ,MoveBytesDec
|
||||||
POP DE
|
POP DE
|
||||||
POP HL
|
POP HL
|
||||||
LD BC,FileHDR.SIZE
|
LD BC,FileHDR.SIZE
|
||||||
|
|||||||
319
fnsys.a80
319
fnsys.a80
@ -1,12 +1,12 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 25.07.2025 savelij
|
; LAST UPDATE: 03.08.2025 savelij
|
||||||
|
|
||||||
;[]-----------------------------------------------------------[]
|
;[]-----------------------------------------------------------[]
|
||||||
; <20>à®æ¥¤ãà 㬮¦¥¨ï (8*8bit)
|
; <20>à®æ¥¤ãà 㬮¦¥¨ï (8*8bit)
|
||||||
; <20> ¢å®¤: E * C
|
; <20> ¢å®¤: E * C
|
||||||
; <20> ¢ë室:
|
; <20> ¢ë室:
|
||||||
; HL - १ã«ìâ â
|
; HL - १ã«ìâ â
|
||||||
Mult8 SUB A
|
Mul_8X8_16b: SUB A
|
||||||
LD L,A
|
LD L,A
|
||||||
LD H,A
|
LD H,A
|
||||||
LD D,A
|
LD D,A
|
||||||
@ -26,7 +26,7 @@ Mult8 SUB A
|
|||||||
; <20> ¢å®¤: DE * C
|
; <20> ¢å®¤: DE * C
|
||||||
; <20> ¢ë室:
|
; <20> ¢ë室:
|
||||||
; AHL - १ã«ìâ â
|
; AHL - १ã«ìâ â
|
||||||
Mult16X8 SUB A
|
Mul_16X8_24b: SUB A
|
||||||
LD L,A
|
LD L,A
|
||||||
LD H,A
|
LD H,A
|
||||||
CP C
|
CP C
|
||||||
@ -48,7 +48,7 @@ Mult16X8 SUB A
|
|||||||
; <20> ¢å®¤: DE * BC
|
; <20> ¢å®¤: DE * BC
|
||||||
; <20> ¢ë室:
|
; <20> ¢ë室:
|
||||||
; HL - १ã«ìâ â
|
; HL - १ã«ìâ â
|
||||||
Mult16 LD HL,0x0000
|
Mul_16X16_16b: LD HL,0x0000
|
||||||
LD A,0x10
|
LD A,0x10
|
||||||
.L1 RR B
|
.L1 RR B
|
||||||
RR C
|
RR C
|
||||||
@ -64,7 +64,7 @@ Mult16 LD HL,0x0000
|
|||||||
; <20> ¢å®¤: DE * BC
|
; <20> ¢å®¤: DE * BC
|
||||||
; <20> ¢ë室:
|
; <20> ¢ë室:
|
||||||
; HLDE - १ã«ìâ â
|
; HLDE - १ã«ìâ â
|
||||||
Mult16X16 PUSH IX
|
Mul_16X16_32b: PUSH IX
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
LD E,0x00
|
LD E,0x00
|
||||||
LD D,E
|
LD D,E
|
||||||
@ -90,7 +90,7 @@ Mult16X16 PUSH IX
|
|||||||
; <20> ¢å®¤: HLDE * BC
|
; <20> ¢å®¤: HLDE * BC
|
||||||
; <20> ¢ë室:
|
; <20> ¢ë室:
|
||||||
; HLDE - १ã«ìâ â
|
; HLDE - १ã«ìâ â
|
||||||
Mult32 PUSH IX
|
Mul_32X16_32b: PUSH IX
|
||||||
LD IX,0x0000
|
LD IX,0x0000
|
||||||
LD A,0x20
|
LD A,0x20
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
@ -114,7 +114,8 @@ Mult32 PUSH IX
|
|||||||
; <20> ¢ë室:
|
; <20> ¢ë室:
|
||||||
; BC - १ã«ìâ â
|
; BC - १ã«ìâ â
|
||||||
; HL - ®áâ ⮪
|
; HL - ®áâ ⮪
|
||||||
Divis16X16 LD A,D
|
Div_16X16_16b_16b:
|
||||||
|
LD A,D
|
||||||
OR E
|
OR E
|
||||||
RET Z
|
RET Z
|
||||||
LD HL,0x0000
|
LD HL,0x0000
|
||||||
@ -149,7 +150,8 @@ Divis16X16 LD A,D
|
|||||||
; <20> ¢ë室:
|
; <20> ¢ë室:
|
||||||
; A -१ã«ìâ â
|
; A -१ã«ìâ â
|
||||||
; HL - ®áâ ⮪
|
; HL - ®áâ ⮪
|
||||||
Divis24X16 LD A,D
|
Div_24X16_8b_16b:
|
||||||
|
LD A,D
|
||||||
CPL
|
CPL
|
||||||
LD D,A
|
LD D,A
|
||||||
LD A,E
|
LD A,E
|
||||||
@ -184,7 +186,8 @@ Divis24X16 LD A,D
|
|||||||
; <20> ¢ë室:
|
; <20> ¢ë室:
|
||||||
; DE - १ã«ìâ â
|
; DE - १ã«ìâ â
|
||||||
; HL - ®áâ ⮪
|
; HL - ®áâ ⮪
|
||||||
Divis32X16 LD A,0x10
|
Div_32X16_16b_16b:
|
||||||
|
LD A,0x10
|
||||||
.L2 EX DE,HL
|
.L2 EX DE,HL
|
||||||
ADD HL,HL
|
ADD HL,HL
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
@ -206,7 +209,8 @@ Divis32X16 LD A,0x10
|
|||||||
; <20> ¢ë室:
|
; <20> ¢ë室:
|
||||||
; HLDE - १ã«ìâ â
|
; HLDE - १ã«ìâ â
|
||||||
; BC-®áâ ⮪
|
; BC-®áâ ⮪
|
||||||
Divis32 PUSH IX
|
Div_32X16_32b_16b:
|
||||||
|
PUSH IX
|
||||||
LD IXL,E
|
LD IXL,E
|
||||||
LD IXH,D
|
LD IXH,D
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
@ -235,7 +239,8 @@ Divis32 PUSH IX
|
|||||||
;<3B> ¢å®¤:
|
;<3B> ¢å®¤:
|
||||||
; ABCHL - ç¨á«® 40 ¡¨â
|
; ABCHL - ç¨á«® 40 ¡¨â
|
||||||
; DE - ¡ãä¥à
|
; DE - ¡ãä¥à
|
||||||
ConvNumTxt40: PUSH IX
|
ConvertNumbers_40b:
|
||||||
|
PUSH IX
|
||||||
LD IX,ConvertFlg
|
LD IX,ConvertFlg
|
||||||
RES 7,(IX+0x00)
|
RES 7,(IX+0x00)
|
||||||
PUSH BC
|
PUSH BC
|
||||||
@ -247,23 +252,23 @@ ConvNumTxt40: PUSH IX
|
|||||||
LD BC,0x4876
|
LD BC,0x4876
|
||||||
EXX
|
EXX
|
||||||
ld bc,0xE800
|
ld bc,0xE800
|
||||||
; E':BC':BC = 100,000,000,000
|
; E':BC':BC = 100,000,000,000
|
||||||
call ConNumb40
|
call ConNumb40
|
||||||
exx
|
exx
|
||||||
ld e,0x02
|
ld e,0x02
|
||||||
ld bc,0x540B
|
ld bc,0x540B
|
||||||
exx
|
exx
|
||||||
ld bc,0xE400
|
ld bc,0xE400
|
||||||
; E':BC':BC = 10,000,000,000
|
; E':BC':BC = 10,000,000,000
|
||||||
CALL ConNumb40
|
CALL ConNumb40
|
||||||
exx
|
exx
|
||||||
ld e,0x00
|
ld e,0x00
|
||||||
ld bc,0x3B9A
|
ld bc,0x3B9A
|
||||||
exx
|
exx
|
||||||
ld bc,0xCA00
|
ld bc,0xCA00
|
||||||
; E':BC':BC = 1,000,000,000
|
; E':BC':BC = 1,000,000,000
|
||||||
CALL ConNumb40
|
CALL ConNumb40
|
||||||
; E':BC':BC = 100,000,000
|
; E':BC':BC = 100,000,000
|
||||||
CALL ConvNumTxt32_Shared.skip_1
|
CALL ConvNumTxt32_Shared.skip_1
|
||||||
POP IX
|
POP IX
|
||||||
RET
|
RET
|
||||||
@ -273,7 +278,8 @@ ConvNumTxt40: PUSH IX
|
|||||||
;<3B> ¢å®¤:
|
;<3B> ¢å®¤:
|
||||||
; BCHL - ç¨á«® 32 ¡¨â
|
; BCHL - ç¨á«® 32 ¡¨â
|
||||||
; DE - ¡ãä¥à
|
; DE - ¡ãä¥à
|
||||||
ConvNumTxt32 PUSH IX
|
ConvertNumbers_32b:
|
||||||
|
PUSH IX
|
||||||
LD IX,ConvertFlg
|
LD IX,ConvertFlg
|
||||||
RES 7,(IX+0x00)
|
RES 7,(IX+0x00)
|
||||||
PUSH BC
|
PUSH BC
|
||||||
@ -333,7 +339,8 @@ ConvNumTxt32_Shared:
|
|||||||
; <20> ¢å®¤:
|
; <20> ¢å®¤:
|
||||||
; HL - ç¨á«® 16 ¡¨â
|
; HL - ç¨á«® 16 ¡¨â
|
||||||
; DE - ¡ãä¥à
|
; DE - ¡ãä¥à
|
||||||
ConvNumTxt16 PUSH IX
|
ConvertNumbers_16b:
|
||||||
|
PUSH IX
|
||||||
PUSH BC
|
PUSH BC
|
||||||
LD IX,ConNumbExit
|
LD IX,ConNumbExit
|
||||||
ld (ChooseStringFormat.address),IX
|
ld (ChooseStringFormat.address),IX
|
||||||
@ -359,7 +366,8 @@ ConvNumTxt16 PUSH IX
|
|||||||
; <20> ¢å®¤:
|
; <20> ¢å®¤:
|
||||||
; A - ç¨á«® 8 ¡¨â
|
; A - ç¨á«® 8 ¡¨â
|
||||||
; DE - ¡ãä¥à
|
; DE - ¡ãä¥à
|
||||||
ConvNumTxt8 PUSH IX
|
ConvertNumbers_8b:
|
||||||
|
PUSH IX
|
||||||
PUSH BC
|
PUSH BC
|
||||||
LD IX,ConNumbExit
|
LD IX,ConNumbExit
|
||||||
ld (ChooseStringFormat.address),IX
|
ld (ChooseStringFormat.address),IX
|
||||||
@ -452,7 +460,7 @@ ConNumbExit: CP "0"
|
|||||||
; <20> ¢ë室:
|
; <20> ¢ë室:
|
||||||
; HLIX - ç¨á«®
|
; HLIX - ç¨á«®
|
||||||
; CY - ®è¨¡ª
|
; CY - ®è¨¡ª
|
||||||
ConvTxtNum32 LD IX,0x0000
|
atoi_32b: LD IX,0x0000
|
||||||
LD HL,0x0000
|
LD HL,0x0000
|
||||||
ConvTN1 LD A,(DE)
|
ConvTN1 LD A,(DE)
|
||||||
CP 0x21
|
CP 0x21
|
||||||
@ -494,7 +502,7 @@ ConvTN1 LD A,(DE)
|
|||||||
; <20> ¢ë室:
|
; <20> ¢ë室:
|
||||||
; HL - ç¨á«®
|
; HL - ç¨á«®
|
||||||
; CY - ®è¨¡ª
|
; CY - ®è¨¡ª
|
||||||
ConvTxtNum16 LD HL,0x0000
|
atoi_16b: LD HL,0x0000
|
||||||
ConvTN2 LD A,(DE)
|
ConvTN2 LD A,(DE)
|
||||||
CP 0x21
|
CP 0x21
|
||||||
CCF
|
CCF
|
||||||
@ -522,7 +530,7 @@ ConvTN2 LD A,(DE)
|
|||||||
JR ConvTN2
|
JR ConvTN2
|
||||||
|
|
||||||
;[]-----------------------------------------------------------[]
|
;[]-----------------------------------------------------------[]
|
||||||
MoveBytes LD A,B
|
MoveBytesInc: LD A,B
|
||||||
OR A
|
OR A
|
||||||
JR Z,MvByte1
|
JR Z,MvByte1
|
||||||
DI
|
DI
|
||||||
@ -563,7 +571,7 @@ Mvlen1 EQU $-1
|
|||||||
INC H
|
INC H
|
||||||
RET
|
RET
|
||||||
|
|
||||||
MoveBytesUp LD A,B
|
MoveBytesDec: LD A,B
|
||||||
OR A
|
OR A
|
||||||
JR Z,MovUp1
|
JR Z,MovUp1
|
||||||
DI
|
DI
|
||||||
@ -675,50 +683,34 @@ SkipWord: ld b,0x20
|
|||||||
jr .skipSpace
|
jr .skipSpace
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
SetCMOSPrint: EX AF,AF'
|
; HL - X ¯®§¨æ¨ï ¢ë¢®¤ ¢à¥¬¥¨
|
||||||
LD (CMOSposXT),HL
|
; DE - Y ¯®§¨æ¨ï ¢ë¢®¤ ¢à¥¬¥¨
|
||||||
LD (CMOSposYT),DE
|
; B - 梥⠢뢮¤ ¢à¥¬¥¨
|
||||||
|
; HL' - X ¯®§¨æ¨ï ¢ë¢®¤ ¤ âë
|
||||||
|
; DE' - Y ¯®§¨æ¨ï ¢ë¢®¤ ¤ âë
|
||||||
|
; B' - 梥⠢뢮¤ ¤ âë
|
||||||
|
; A - ä®à¬ ⠢뢮¤ ¬¥áïæ ¢ ¤ â¥
|
||||||
|
; 1 - ¬¥áïæ ¢ë¢®¤¨âáï ç¨á«®¬
|
||||||
|
; 2 - ¬¥áïæ ¢ë¢®¤¨âáï ⥪á⮬,
|
||||||
|
; ç¨á«® ¢ë¢®¤¨âáï ¡¥§ ¢¥¤ã饣® ã«ï
|
||||||
|
CMOSPrintDateTime:
|
||||||
|
LD (CMOSpos.CMOSOut),A
|
||||||
|
LD (CMOSpos.posXtime),HL
|
||||||
|
LD (CMOSpos.posYtime),DE
|
||||||
LD A,B
|
LD A,B
|
||||||
LD (CMOSColorT),A
|
LD (CMOSpos.colorTime),A
|
||||||
SUB A
|
SUB A
|
||||||
LD L,A
|
LD L,A
|
||||||
LD H,A
|
LD H,A
|
||||||
LD (CMOSPrint),A
|
LD (CMOSPrint),A
|
||||||
LD (CMOSTime),HL
|
LD (CMOSpos.Time),HL
|
||||||
LD (CMOSTime+2),A
|
LD (CMOSpos.Time + 2),A
|
||||||
LD (CMOSData),HL
|
|
||||||
LD (CMOSData+2),A
|
|
||||||
LD HL,CMOSTimeT
|
|
||||||
LD DE,CMOSDataT
|
|
||||||
LD A,'0'
|
|
||||||
LD B,0x03
|
|
||||||
.L1 LD (HL),A
|
|
||||||
INC HL
|
|
||||||
LD (HL),A
|
|
||||||
INC HL
|
|
||||||
INC HL
|
|
||||||
LD (DE),A
|
|
||||||
INC DE
|
|
||||||
LD (DE),A
|
|
||||||
INC DE
|
|
||||||
INC DE
|
|
||||||
DJNZ .L1
|
|
||||||
EX AF,AF'
|
|
||||||
LD (CMOSOut),A
|
|
||||||
OR A
|
|
||||||
JR Z,TestCMOS
|
|
||||||
EXX
|
EXX
|
||||||
LD (CMOSposXD),HL
|
LD (CMOSpos.posXDate),HL
|
||||||
LD (CMOSposYD),DE
|
LD (CMOSpos.posYDate),DE
|
||||||
LD A,B
|
LD A,B
|
||||||
LD (CMOSColorD),A
|
LD (CMOSpos.colorDate),A
|
||||||
EXX
|
EXX
|
||||||
JR TestCMOS
|
|
||||||
|
|
||||||
ResCMOSPrint: LD A,0x01
|
|
||||||
LD (CMOSPrint),A
|
|
||||||
RET
|
|
||||||
|
|
||||||
TestCMOS: LD A,(CMOSFlag)
|
TestCMOS: LD A,(CMOSFlag)
|
||||||
OR A
|
OR A
|
||||||
RET Z
|
RET Z
|
||||||
@ -733,143 +725,97 @@ TestCMOS: LD A,(CMOSFlag)
|
|||||||
;!TEST
|
;!TEST
|
||||||
;EI
|
;EI
|
||||||
PUSH DE
|
PUSH DE
|
||||||
PUSH IX
|
PUSH IX ; DE,IX á®åà ¨«¨ ¤¥ì,¬¥áïæ £®¤
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
LD HL,(CMOSTime)
|
LD HL,(CMOSpos.Time)
|
||||||
OR A
|
OR A
|
||||||
SBC HL,DE
|
SBC HL,DE
|
||||||
JR NZ,PrnCMOSTime
|
JR NZ,.PrnCMOSTime
|
||||||
LD A,(CMOSTime+2)
|
LD A,(CMOSpos.Time + 2)
|
||||||
CP B
|
CP B
|
||||||
JR Z,TCMOS1
|
JR Z,.TCMOS1
|
||||||
PrnCMOSTime: EX DE,HL
|
.PrnCMOSTime: EX DE,HL
|
||||||
LD (CMOSTime),HL
|
LD (CMOSpos.Time),HL
|
||||||
LD A,B
|
LD A,B
|
||||||
LD (CMOSTime+2),A
|
LD (CMOSpos.Time + 2),A
|
||||||
LD DE,CMOSTimeT
|
LD DE,CMOSpos.TimeTXT
|
||||||
LD A,H
|
LD A,H ; ç áë
|
||||||
CALL GetCMOS
|
CALL Conv4CMOS
|
||||||
INC DE
|
INC DE
|
||||||
LD A,L
|
LD A,L ; ¬¨ãâë
|
||||||
CALL GetCMOS
|
CALL Conv4CMOS
|
||||||
INC DE
|
INC DE
|
||||||
LD A,(CMOSTime+2)
|
LD A,(CMOSpos.Time + 2) ; ᥪã¤ë
|
||||||
CALL GetCMOS
|
CALL Conv4CMOS
|
||||||
LD HL,CMOSTimeT
|
LD HL,CMOSpos.TimeTXT
|
||||||
LD DE,(CMOSposXT)
|
LD DE,(CMOSpos.posXtime)
|
||||||
LD BC,(CMOSposYT)
|
LD BC,(CMOSpos.posYtime)
|
||||||
LD A,(CMOSColorT)
|
LD A,(CMOSpos.colorTime)
|
||||||
CALL PrnTxtLnIFF
|
CALL PrintTxtLine_IFF
|
||||||
TCMOS1 POP IX
|
.TCMOS1 POP IX
|
||||||
POP DE
|
POP DE ; DE,IX ¢®ááâ ®¢¨«¨ ¤¥ì,¬¥áïæ,£®¤
|
||||||
LD A,(CMOSOut)
|
LD A,(CMOSpos.CMOSOut)
|
||||||
OR A
|
OR A
|
||||||
JP Z,TCMOSex
|
JP Z,TCMOSexit
|
||||||
PUSH IX
|
EX DE,HL
|
||||||
POP HL
|
LD (CMOSpos.Date),HL ; ¤¥ì,¬¥áïæ
|
||||||
LD BC,1900
|
LD (CMOSpos.Date + 2),IX ; £®¤
|
||||||
OR A
|
LD A,(CMOSpos.CMOSOut)
|
||||||
SBC HL,BC
|
|
||||||
LD B,L
|
|
||||||
LD HL,(CMOSData)
|
|
||||||
OR A
|
|
||||||
SBC HL,DE
|
|
||||||
JR NZ,PrnCMOSData
|
|
||||||
LD A,(CMOSData+2)
|
|
||||||
CP B
|
|
||||||
JP Z,TCMOSex
|
|
||||||
PrnCMOSData EX DE,HL
|
|
||||||
LD (CMOSData),HL
|
|
||||||
LD A,B
|
|
||||||
LD (CMOSData+2),A
|
|
||||||
LD DE,CMOSDataT
|
|
||||||
LD A,H
|
|
||||||
CALL GetCMOS
|
|
||||||
INC DE
|
|
||||||
LD A,L
|
|
||||||
CALL GetCMOS
|
|
||||||
INC DE
|
|
||||||
LD A,(CMOSData+2)
|
|
||||||
CALL GetCMOS
|
|
||||||
LD A,(CMOSOut)
|
|
||||||
DEC A
|
DEC A
|
||||||
JR NZ,TCMOS2
|
JR NZ,.TCMOS2
|
||||||
LD HL,CMOSDataT
|
; ¢ë¢®¤ ¤ âë ¢¢¨¤¥ 02.08.2025
|
||||||
LD DE,(CMOSposXD)
|
LD DE,CMOSpos.DateTXT
|
||||||
LD BC,(CMOSposYD)
|
|
||||||
LD A,(CMOSColorD)
|
|
||||||
CALL PrnTxtLnIFF
|
|
||||||
JR TCMOSex
|
|
||||||
|
|
||||||
TCMOS2 LD DE,CMOSDataT1
|
|
||||||
LD A,H
|
LD A,H
|
||||||
CALL ConvNumTxt8
|
CALL Conv4CMOS
|
||||||
|
INC DE
|
||||||
|
LD A,L
|
||||||
|
CALL Conv4CMOS
|
||||||
|
INC DE
|
||||||
|
LD HL,(CMOSpos.Date + 2)
|
||||||
|
CALL ConvertNumbers_16b
|
||||||
|
LD HL,CMOSpos.DateTXT
|
||||||
|
LD DE,(CMOSpos.posXDate)
|
||||||
|
LD BC,(CMOSpos.posYDate)
|
||||||
|
LD A,(CMOSpos.colorDate)
|
||||||
|
CALL PrintTxtLine_IFF
|
||||||
|
JR TCMOSexit
|
||||||
|
|
||||||
|
; ¢ë¢®¢ ¤ âë ¢¢¨¤¥ 2 Aug 2025
|
||||||
|
.TCMOS2 LD DE,CMOSpos.DateT1
|
||||||
|
LD A,H
|
||||||
|
CALL ConvertNumbers_8b
|
||||||
LD A,' '
|
LD A,' '
|
||||||
LD (DE),A
|
LD (DE),A
|
||||||
INC DE
|
INC DE
|
||||||
LD A,L
|
LD A,L
|
||||||
DEC A
|
DEC A
|
||||||
ADD A,A
|
ADD A,A
|
||||||
LD L,A
|
|
||||||
ADD A,A
|
ADD A,A
|
||||||
ADD A,L
|
|
||||||
LD HL,Month
|
LD HL,Month
|
||||||
ADD A,L
|
ADD A,L
|
||||||
LD L,A
|
LD L,A
|
||||||
JR NC,.L1
|
ADC A,H
|
||||||
INC H
|
SUB L
|
||||||
.L1 LD A,' '
|
LD H,A
|
||||||
|
LD A,' '
|
||||||
.L2 LDI
|
.L2 LDI
|
||||||
CP (HL)
|
CP (HL)
|
||||||
JR NZ,.L2
|
JR NZ,.L2
|
||||||
LD (DE),A
|
LDI
|
||||||
INC DE
|
LD HL,(CMOSpos.Date + 2)
|
||||||
PUSH IX
|
CALL ConvertNumbers_16b
|
||||||
POP HL
|
|
||||||
CALL ConvNumTxt16
|
|
||||||
SUB A
|
SUB A
|
||||||
LD (DE),A
|
LD (DE),A
|
||||||
LD HL,(CMOSposXD)
|
LD HL,CMOSpos.DateT1
|
||||||
LD (CMOSclX),HL
|
LD DE,(CMOSpos.posXDate)
|
||||||
LD HL,(CMOSposYD)
|
LD BC,(CMOSpos.posYDate)
|
||||||
LD (CMOSclY),HL
|
LD A,(CMOSpos.colorDate)
|
||||||
LD A,(CMOSColorD)
|
CALL PrintTxtLine_IFF
|
||||||
AND 0xF0
|
TCMOSexit POP IX
|
||||||
RRCA
|
|
||||||
RRCA
|
|
||||||
RRCA
|
|
||||||
RRCA
|
|
||||||
LD (CMOScol),A
|
|
||||||
MAKEWINDOW WINSUBOBJ.WOBIND
|
|
||||||
W_FILL 0,0,76,8,COLORI.BLACK
|
|
||||||
W_END
|
|
||||||
CMOSclX EQU $ - 10
|
|
||||||
CMOSclY EQU $ - 8
|
|
||||||
CMOScol EQU $ - 2
|
|
||||||
LD HL,CMOSDataT1
|
|
||||||
LD DE,(CMOSposXD)
|
|
||||||
LD BC,(CMOSposYD)
|
|
||||||
LD A,(CMOSColorD)
|
|
||||||
CALL PrnTxtLnIFF
|
|
||||||
TCMOSex POP IX
|
|
||||||
RET
|
RET
|
||||||
|
|
||||||
;CMOSPrint: DB 0x01
|
Conv4CMOS: EX DE,HL
|
||||||
CMOSOut: DB 0
|
LD BC,(('0' - 1) << 8) + 10
|
||||||
CMOSposXT: DW 0
|
|
||||||
CMOSposYT: DW 0
|
|
||||||
CMOSColorT: DB 0
|
|
||||||
CMOSTime: DB 3 DUP 0
|
|
||||||
CMOSTimeT: DB "00:00:00",0
|
|
||||||
CMOSposXD: DW 0
|
|
||||||
CMOSposYD: DW 0
|
|
||||||
CMOSColorD: DB 0
|
|
||||||
CMOSData: DB 3 DUP 0
|
|
||||||
CMOSDataT: DB "00/00/00",0
|
|
||||||
CMOSDataT1: DB 14 DUP ' '
|
|
||||||
|
|
||||||
GetCMOS: EX DE,HL
|
|
||||||
LD BC,(('0' - 1) << 8) | 10;0x2F0A
|
|
||||||
.L1 INC B
|
.L1 INC B
|
||||||
SUB C
|
SUB C
|
||||||
JR NC,.L1
|
JR NC,.L1
|
||||||
@ -882,21 +828,39 @@ GetCMOS: EX DE,HL
|
|||||||
EX DE,HL
|
EX DE,HL
|
||||||
RET
|
RET
|
||||||
|
|
||||||
|
CMOSpos
|
||||||
|
.CMOSOut: DB 0 ; ⨯ ¢ë¢®¤ ¤ âë:
|
||||||
|
; 0 - â¥áâ
|
||||||
|
; 1 - ¤¥ì/¬¥áïæ/£®¤
|
||||||
|
; 2 - ¤¥ì ¬¥áïæ £®¤
|
||||||
|
.posXtime: DW 0 ; ¯®§¨æ¨ï X ¤«ï ¢à¥¬¥¨
|
||||||
|
.posYtime: DW 0 ; ¯®§¨æ¨ï Y ¤«ï ¢à¥¬¥¨
|
||||||
|
.colorTime: DB 0 ; 梥⠤«ï ¢à¥¬¥¨
|
||||||
|
.Time: DB 3 DUP 0 ; ç áë,¬¨ãâë,ᥪã¤ë
|
||||||
|
.TimeTXT: DZ "00:00:00"
|
||||||
|
.posXDate: DW 0 ; ¯®§¨æ¨ï X ¤«ï ¤ âë
|
||||||
|
.posYDate: DW 0 ; ¯®§¨æ¨ï Y ¤«ï ¤ âë
|
||||||
|
.colorDate: DB 0 ; 梥⠤«ï ¤ âë
|
||||||
|
.Date: DD 0 ; ¤¥ì,¬¥áïæ,£®¤
|
||||||
|
.DateTXT: DZ "00.00.0000"
|
||||||
|
.DateT1: DB 14 DUP 0
|
||||||
|
|
||||||
Month: DB "Jan "
|
Month: DB "Jan "
|
||||||
DB "Febr "
|
DB "Feb "
|
||||||
DB "March "
|
DB "Mar "
|
||||||
DB "Apr "
|
DB "Apr "
|
||||||
DB "May "
|
DB "May "
|
||||||
DB "June "
|
DB "Jun "
|
||||||
DB "July "
|
DB "Jul "
|
||||||
DB "Aug "
|
DB "Aug "
|
||||||
DB "Sept "
|
DB "Sep "
|
||||||
DB "Oct "
|
DB "Oct "
|
||||||
DB "Nov "
|
DB "Nov "
|
||||||
DB "Dec "
|
DB "Dec "
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
SetClock: LD A,(MouseFlag)
|
PointerMouseClock:
|
||||||
|
LD A,(MouseFlag)
|
||||||
OR A
|
OR A
|
||||||
RET Z
|
RET Z
|
||||||
PUSH IY
|
PUSH IY
|
||||||
@ -908,7 +872,7 @@ SetClock: LD A,(MouseFlag)
|
|||||||
PUSH AF
|
PUSH AF
|
||||||
LD A,(RAMPAGES.FNFONT)
|
LD A,(RAMPAGES.FNFONT)
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
LD IX,CLOCK_BMP;ClockBMP
|
LD IX,CLOCK_BMP
|
||||||
LD HL,14 << 8 + 9
|
LD HL,14 << 8 + 9
|
||||||
LD DE,7 << 8 | 4
|
LD DE,7 << 8 | 4
|
||||||
SPMOUSE MOUSEF.LOAD_IMAGE
|
SPMOUSE MOUSEF.LOAD_IMAGE
|
||||||
@ -922,7 +886,8 @@ SetClock: LD A,(MouseFlag)
|
|||||||
HALT
|
HALT
|
||||||
RET
|
RET
|
||||||
|
|
||||||
SetMouse LD A,(MouseFlag)
|
PointerMousePointer:
|
||||||
|
LD A,(MouseFlag)
|
||||||
OR A
|
OR A
|
||||||
RET Z
|
RET Z
|
||||||
PUSH IY
|
PUSH IY
|
||||||
@ -934,7 +899,7 @@ SetMouse LD A,(MouseFlag)
|
|||||||
PUSH AF
|
PUSH AF
|
||||||
LD A,(RAMPAGES.FNFONT)
|
LD A,(RAMPAGES.FNFONT)
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
LD IX,MOUSE_BMP;MouseBMP
|
LD IX,MOUSE_BMP
|
||||||
LD HL,13 << 8 + 9
|
LD HL,13 << 8 + 9
|
||||||
LD DE,0
|
LD DE,0
|
||||||
SPMOUSE MOUSEF.LOAD_IMAGE
|
SPMOUSE MOUSEF.LOAD_IMAGE
|
||||||
|
|||||||
81
fntab.a80
81
fntab.a80
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 02.05.2025 savelij
|
; LAST UPDATE: 24.08.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
; ”®à¬ â â ¡«¨æë
|
; ”®à¬ â â ¡«¨æë
|
||||||
@ -29,7 +29,10 @@
|
|||||||
; +0A 2 €¤à¥á ®¡à ¡®â稪 ¯à¨ ¥ ¦ ⮬ ®£¥
|
; +0A 2 €¤à¥á ®¡à ¡®â稪 ¯à¨ ¥ ¦ ⮬ ®£¥
|
||||||
; +0C 2 €¤à¥á ®¡à ¡®â稪 ¯à¨ ¦ ⮬ ®£¥ («¥¢)
|
; +0C 2 €¤à¥á ®¡à ¡®â稪 ¯à¨ ¦ ⮬ ®£¥ («¥¢)
|
||||||
; +0E 2 €¤à¥á ®¡à ¡®â稪 ¯à¨ ¦ ⮬ ®£¥ (¯à ¢)
|
; +0E 2 €¤à¥á ®¡à ¡®â稪 ¯à¨ ¦ ⮬ ®£¥ (¯à ¢)
|
||||||
FilePanelLeft DW 6, 40, 15, 26,%0000000000000000,0,MenuFile,0
|
|
||||||
|
MAINTAB
|
||||||
|
;[]==========================================================[]
|
||||||
|
.FilePanelLeft DW 6, 40, 15, 26,%0000000000000000,0,MenuFile,0
|
||||||
DW 40, 84, 15, 26,%0000000000000000,0,MenuSelect,0
|
DW 40, 84, 15, 26,%0000000000000000,0,MenuSelect,0
|
||||||
DW 84,138, 15, 26,%0000000000000000,0,MenuOption,0
|
DW 84,138, 15, 26,%0000000000000000,0,MenuOption,0
|
||||||
DW 138,174, 15, 26,%0000000000000000,0,MenuView,0
|
DW 138,174, 15, 26,%0000000000000000,0,MenuView,0
|
||||||
@ -37,7 +40,7 @@ FilePanelLeft DW 6, 40, 15, 26,%0000000000000000,0,MenuFile,0
|
|||||||
DW 222,262, 15, 26,%0000000000000000,0,MenuAbout,0
|
DW 222,262, 15, 26,%0000000000000000,0,MenuAbout,0
|
||||||
DW 324,636, 44,225,%0000000000000000,0,ChPanel,0
|
DW 324,636, 44,225,%0000000000000000,0,ChPanel,0
|
||||||
|
|
||||||
PanelPlaceL DW 0, 0, 0, 0,%0000000000000000,0,0,0
|
.PanelPlaceL DW 0, 0, 0, 0,%0000000000000000,0,0,0
|
||||||
DW 0, 0, 0, 0,%0000000000000000,0,0,0
|
DW 0, 0, 0, 0,%0000000000000000,0,0,0
|
||||||
DW 0, 0, 0, 0,%0000000000000000,0,0,0
|
DW 0, 0, 0, 0,%0000000000000000,0,0,0
|
||||||
DW 0, 0, 0, 0,%0000000000000000,0,0,0
|
DW 0, 0, 0, 0,%0000000000000000,0,0,0
|
||||||
@ -52,7 +55,7 @@ PanelPlaceL DW 0, 0, 0, 0,%0000000000000000,0,0,0
|
|||||||
DW 480,560,242,256,%0000000000000001,0,RESIDENT.DeleteFiles,0
|
DW 480,560,242,256,%0000000000000001,0,RESIDENT.DeleteFiles,0
|
||||||
DW 560,640,242,256,%0000000000000001,0,RESIDENT.Quit,0
|
DW 560,640,242,256,%0000000000000001,0,RESIDENT.Quit,0
|
||||||
|
|
||||||
BgDISKl DW 6, 34, 30, 42,%0000000000000001,0,ChangeDriveL,0 ; A
|
.BgDISKl DW 6, 34, 30, 42,%0000000000000001,0,ChangeDriveL,0 ; A
|
||||||
DW 326,354, 30, 42,%0000000000000001,0,ChangeDriveR,0
|
DW 326,354, 30, 42,%0000000000000001,0,ChangeDriveR,0
|
||||||
DW 34, 62, 30, 42,%0000000000000001,0,ChangeDriveL,0 ; B
|
DW 34, 62, 30, 42,%0000000000000001,0,ChangeDriveL,0 ; B
|
||||||
DW 354,382, 30, 42,%0000000000000001,0,ChangeDriveR,0
|
DW 354,382, 30, 42,%0000000000000001,0,ChangeDriveR,0
|
||||||
@ -77,7 +80,7 @@ BgDISKl DW 6, 34, 30, 42,%0000000000000001,0,ChangeDriveL,0 ; A
|
|||||||
DW 0x8000
|
DW 0x8000
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
FilePanelRight DW 6, 40, 15, 26,%0000000000000000,0,MenuFile,0
|
.FilePanelRight DW 6, 40, 15, 26,%0000000000000000,0,MenuFile,0
|
||||||
DW 40, 84, 15, 26,%0000000000000000,0,MenuSelect,0
|
DW 40, 84, 15, 26,%0000000000000000,0,MenuSelect,0
|
||||||
DW 84,138, 15, 26,%0000000000000000,0,MenuOption,0
|
DW 84,138, 15, 26,%0000000000000000,0,MenuOption,0
|
||||||
DW 138,174, 15, 26,%0000000000000000,0,MenuView,0
|
DW 138,174, 15, 26,%0000000000000000,0,MenuView,0
|
||||||
@ -85,7 +88,7 @@ FilePanelRight DW 6, 40, 15, 26,%0000000000000000,0,MenuFile,0
|
|||||||
DW 222,262, 15, 26,%0000000000000000,0,MenuAbout,0
|
DW 222,262, 15, 26,%0000000000000000,0,MenuAbout,0
|
||||||
DW 4,316, 44,225,%0000000000000000,0,ChPanel,0
|
DW 4,316, 44,225,%0000000000000000,0,ChPanel,0
|
||||||
|
|
||||||
PanelPlaceR DW 0, 0, 0, 0,%0000000000000000,0,0,0
|
.PanelPlaceR DW 0, 0, 0, 0,%0000000000000000,0,0,0
|
||||||
DW 0, 0, 0, 0,%0000000000000000,0,0,0
|
DW 0, 0, 0, 0,%0000000000000000,0,0,0
|
||||||
DW 0, 0, 0, 0,%0000000000000000,0,0,0
|
DW 0, 0, 0, 0,%0000000000000000,0,0,0
|
||||||
DW 0, 0, 0, 0,%0000000000000000,0,0,0
|
DW 0, 0, 0, 0,%0000000000000000,0,0,0
|
||||||
@ -100,7 +103,7 @@ PanelPlaceR DW 0, 0, 0, 0,%0000000000000000,0,0,0
|
|||||||
DW 480,560,242,256,%0000000000000001,0,RESIDENT.DeleteFiles,0
|
DW 480,560,242,256,%0000000000000001,0,RESIDENT.DeleteFiles,0
|
||||||
DW 560,640,242,256,%0000000000000001,0,RESIDENT.Quit,0
|
DW 560,640,242,256,%0000000000000001,0,RESIDENT.Quit,0
|
||||||
|
|
||||||
BgDISKr DW 6, 34, 30, 42,%0000000000000001,0,ChangeDriveL,0 ; A
|
.BgDISKr DW 6, 34, 30, 42,%0000000000000001,0,ChangeDriveL,0 ; A
|
||||||
DW 326,354, 30, 42,%0000000000000001,0,ChangeDriveR,0
|
DW 326,354, 30, 42,%0000000000000001,0,ChangeDriveR,0
|
||||||
DW 34, 62, 30, 42,%0000000000000001,0,ChangeDriveL,0 ; B
|
DW 34, 62, 30, 42,%0000000000000001,0,ChangeDriveL,0 ; B
|
||||||
DW 354,382, 30, 42,%0000000000000001,0,ChangeDriveR,0
|
DW 354,382, 30, 42,%0000000000000001,0,ChangeDriveR,0
|
||||||
@ -125,7 +128,7 @@ BgDISKr DW 6, 34, 30, 42,%0000000000000001,0,ChangeDriveL,0 ; A
|
|||||||
DW 0x8000
|
DW 0x8000
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
FileTab DW 8,160, 29, 43,%0000000100100100,0,RESIDENT.FileInfoL2,0
|
.FileTab DW 8,160, 29, 43,%0000000100100100,0,RESIDENT.FileInfoL2,0
|
||||||
DW 8,160, 43, 57,%0000000100100100,0,RESIDENT.PrintFileL3,0
|
DW 8,160, 43, 57,%0000000100100100,0,RESIDENT.PrintFileL3,0
|
||||||
DW 8,160, 63, 77,%0000000100100100,0,RESIDENT.QuitL1,0
|
DW 8,160, 63, 77,%0000000100100100,0,RESIDENT.QuitL1,0
|
||||||
DW 6, 40, 15, 26,%0000000100101000,0,MenuExit,0
|
DW 6, 40, 15, 26,%0000000100101000,0,MenuExit,0
|
||||||
@ -140,11 +143,11 @@ FileTab DW 8,160, 29, 43,%0000000100100100,0,RESIDENT.FileInfoL2,0
|
|||||||
DW 164,640, 0,256,%0000000100100000,0,MenuExit,0
|
DW 164,640, 0,256,%0000000100100000,0,MenuExit,0
|
||||||
DW 0x8000
|
DW 0x8000
|
||||||
|
|
||||||
SelectTab DW 44,196, 29, 43,%0000000100100100,0,RESIDENT.MarkGroupN,0
|
.SelectTab DW 44,196, 29, 43,%0000000100100100,0,RESIDENT.MarkGroupN,0 ; Mark group +
|
||||||
DW 44,196, 43, 57,%0000000100100100,0,RESIDENT.UnMarkGroupN,0
|
DW 44,196, 43, 57,%0000000100100100,0,RESIDENT.UnMarkGroupN,0 ; Unmark group -
|
||||||
DW 44,196, 57, 71,%0000000100100100,0,RESIDENT.SelectAllN,0
|
DW 44,196, 57, 71,%0000000100100100,0,RESIDENT.SelectAllN,0 ; Mark all CTRL+
|
||||||
DW 44,196, 71, 85,%0000000100100100,0,RESIDENT.UnSelectAllN,0
|
DW 44,196, 71, 85,%0000000100100100,0,RESIDENT.UnSelectAllN,0 ; Unmark all CTRL-
|
||||||
DW 44,196, 85, 99,%0000000100100100,0,RESIDENT.InvertSelectN,0
|
DW 44,196, 85, 99,%0000000100100100,0,RESIDENT.InvertSelectN,0 ; Invert selection *
|
||||||
DW 6, 40, 15, 26,%0000000010010000,MenuFile.L2,0,0
|
DW 6, 40, 15, 26,%0000000010010000,MenuFile.L2,0,0
|
||||||
DW 40, 84, 15, 26,%0000000100101000,0,MenuExit,0
|
DW 40, 84, 15, 26,%0000000100101000,0,MenuExit,0
|
||||||
DW 84,138, 15, 26,%0000000010010000,MenuOption.L2,0,0
|
DW 84,138, 15, 26,%0000000010010000,MenuOption.L2,0,0
|
||||||
@ -158,7 +161,7 @@ SelectTab DW 44,196, 29, 43,%0000000100100100,0,RESIDENT.MarkGroupN,0
|
|||||||
DW 0x8000
|
DW 0x8000
|
||||||
|
|
||||||
; ¯®¤¬¥î "Options"
|
; ¯®¤¬¥î "Options"
|
||||||
OptionTab DW 88,288, 29, 43,%0000000100100100,0,RefreshTree,0 ; Options->Refresh tree
|
.OptionTab DW 88,288, 29, 43,%0000000100100100,0,RefreshTree,0 ; Options->Refresh tree
|
||||||
DW 88,288, 43, 57,%0000000100100100,0,RESIDENT.DiskInfoL4,0 ; Options->Disk info
|
DW 88,288, 43, 57,%0000000100100100,0,RESIDENT.DiskInfoL4,0 ; Options->Disk info
|
||||||
DW 88,288, 63, 77,%0000000100100100,0,RESIDENT.SystemInfo,0 ; Options->System information
|
DW 88,288, 63, 77,%0000000100100100,0,RESIDENT.SystemInfo,0 ; Options->System information
|
||||||
IF PLUGS_ENABLE
|
IF PLUGS_ENABLE
|
||||||
@ -177,7 +180,7 @@ OptionTab DW 88,288, 29, 43,%0000000100100100,0,RefreshTree,0 ; Options->Refres
|
|||||||
DW 0x8000
|
DW 0x8000
|
||||||
|
|
||||||
; ¯®¤¬¥î "View"
|
; ¯®¤¬¥î "View"
|
||||||
ViewTab DW 142,324, 29, 43,%0000000100100100,0,ChView1,0
|
.ViewTab DW 142,324, 29, 43,%0000000100100100,0,ChView1,0
|
||||||
DW 142,324, 43, 57,%0000000100100100,0,ChView2,0
|
DW 142,324, 43, 57,%0000000100100100,0,ChView2,0
|
||||||
DW 142,324, 57, 71,%0000000100100100,0,ChView3,0
|
DW 142,324, 57, 71,%0000000100100100,0,ChView3,0
|
||||||
DW 142,324, 77, 91,%0000000100100100,0,ChFilt1,0
|
DW 142,324, 77, 91,%0000000100100100,0,ChFilt1,0
|
||||||
@ -201,7 +204,7 @@ ViewTab DW 142,324, 29, 43,%0000000100100100,0,ChView1,0
|
|||||||
DW 330,640, 0,256,%0000000101100000,0,MenuExit,0
|
DW 330,640, 0,256,%0000000101100000,0,MenuExit,0
|
||||||
DW 0x8000
|
DW 0x8000
|
||||||
|
|
||||||
ConfigTab DW 178,266, 29, 43,%0000000100100100,0,RESIDENT.Setup,0
|
.ConfigTab DW 178,266, 29, 43,%0000000100100100,0,RESIDENT.Setup,0
|
||||||
DW 6, 40, 15, 26,%0000000010010000,MenuFile.L2,0,0
|
DW 6, 40, 15, 26,%0000000010010000,MenuFile.L2,0,0
|
||||||
DW 40, 84, 15, 26,%0000000010010000,MenuSelect.L2,0,0
|
DW 40, 84, 15, 26,%0000000010010000,MenuSelect.L2,0,0
|
||||||
DW 84,138, 15, 26,%0000000010010000,MenuOption.L2,0,0
|
DW 84,138, 15, 26,%0000000010010000,MenuOption.L2,0,0
|
||||||
@ -214,7 +217,7 @@ ConfigTab DW 178,266, 29, 43,%0000000100100100,0,RESIDENT.Setup,0
|
|||||||
DW 270,640, 0,256,%0000000100100000,0,MenuExit,0
|
DW 270,640, 0,256,%0000000100100000,0,MenuExit,0
|
||||||
DW 0x8000
|
DW 0x8000
|
||||||
|
|
||||||
AboutTab DW 226,330, 29, 43,%0000000100100100,0,RESIDENT.Version,0
|
.AboutTab DW 226,330, 29, 43,%0000000100100100,0,RESIDENT.Version,0
|
||||||
DW 6, 40, 15, 26,%0000000010010000,MenuFile.L2,0,0
|
DW 6, 40, 15, 26,%0000000010010000,MenuFile.L2,0,0
|
||||||
DW 40, 84, 15, 26,%0000000010010000,MenuSelect.L2,0,0
|
DW 40, 84, 15, 26,%0000000010010000,MenuSelect.L2,0,0
|
||||||
DW 84,138, 15, 26,%0000000010010000,MenuOption.L2,0,0
|
DW 84,138, 15, 26,%0000000010010000,MenuOption.L2,0,0
|
||||||
@ -227,7 +230,7 @@ AboutTab DW 226,330, 29, 43,%0000000100100100,0,RESIDENT.Version,0
|
|||||||
DW 334,640, 0,256,%0000000100100000,0,MenuExit,0
|
DW 334,640, 0,256,%0000000100100000,0,MenuExit,0
|
||||||
DW 0x8000
|
DW 0x8000
|
||||||
|
|
||||||
PullTab DW 6, 40, 15, 26,%0000000000100000,0,MFile,0
|
.PullTab DW 6, 40, 15, 26,%0000000000100000,0,MFile,0
|
||||||
DW 40, 84, 15, 26,%0000000000100000,0,MSelect,0
|
DW 40, 84, 15, 26,%0000000000100000,0,MSelect,0
|
||||||
DW 84,138, 15, 26,%0000000000100000,0,MOption,0
|
DW 84,138, 15, 26,%0000000000100000,0,MOption,0
|
||||||
DW 138,174, 15, 26,%0000000000100000,0,MView,0
|
DW 138,174, 15, 26,%0000000000100000,0,MView,0
|
||||||
@ -240,43 +243,35 @@ PullTab DW 6, 40, 15, 26,%0000000000100000,0,MFile,0
|
|||||||
DW 0x8000
|
DW 0x8000
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
FilterTab DW 240,312,123,137,%0000000000000001,0,InputLine.InpLnExtN,0
|
.FilterTab DW 240,312,123,137,%0000000000000001,0,InputLine.InputLineExitOk,0
|
||||||
DW 328,400,123,137,%0000000000000001,0,InputLine.InpLnExtC,0
|
DW 328,400,123,137,%0000000000000001,0,InputLine.InputLineExitCancel,0
|
||||||
DW 0,208, 0,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
DW 0,208, 0,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
DW 432,640, 0,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
DW 432,640, 0,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
DW 0,640, 0, 81,%0000000000000000,0,InputLine.InpLnExtC,0
|
DW 0,640, 0, 81,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
DW 0,640,143,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
DW 0,640,143,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
DW 0x8000
|
DW 0x8000
|
||||||
|
|
||||||
SMaskTab DW 240,312,123,137,%0000000000000001,0,InputLine.InpLnExtN,0
|
.DOSTab DW 0,256, 0,256,%0000000000000000,0,DOSLnExtC,0
|
||||||
DW 328,400,123,137,%0000000000000001,0,InputLine.InpLnExtC,0
|
|
||||||
DW 0,208, 0,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
|
||||||
DW 432,640, 0,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
|
||||||
DW 0,640, 0, 81,%0000000000000000,0,InputLine.InpLnExtC,0
|
|
||||||
DW 0,640,143,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
|
||||||
DW 0x8000
|
|
||||||
|
|
||||||
DOSTab DW 0,256, 0,256,%0000000000000000,0,DOSLnExtC,0
|
|
||||||
DW 636,640, 0,256,%0000000000000000,0,DOSLnExtC,0
|
DW 636,640, 0,256,%0000000000000000,0,DOSLnExtC,0
|
||||||
DW 0,640, 0,229,%0000000000000000,0,DOSLnExtC,0
|
DW 0,640, 0,229,%0000000000000000,0,DOSLnExtC,0
|
||||||
DW 0,640,239,256,%0000000000000000,0,DOSLnExtC,0
|
DW 0,640,239,256,%0000000000000000,0,DOSLnExtC,0
|
||||||
DW 0x8000
|
DW 0x8000
|
||||||
|
|
||||||
ViewEditTab DW 240,312,123,137,%0000000000000001,0,InputLine.InpLnExtN,0
|
.ViewEditTab DW 240,312,123,137,%0000000000000001,0,InputLine.InputLineExitOk,0
|
||||||
DW 328,400,123,137,%0000000000000001,0,InputLine.InpLnExtC,0
|
DW 328,400,123,137,%0000000000000001,0,InputLine.InputLineExitCancel,0
|
||||||
DW 0,200, 0,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
DW 0,200, 0,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
DW 440,640, 0,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
DW 440,640, 0,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
DW 0,640, 0, 81,%0000000000000000,0,InputLine.InpLnExtC,0
|
DW 0,640, 0, 81,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
DW 0,640,143,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
DW 0,640,143,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
DW 0x8000
|
DW 0x8000
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
DriveTab DW 0, 0, 0, 0,%0000000000100000,0,DriveExit,0
|
.DriveTab DW 0, 0, 0, 0,%0000000000100000,0,DriveExit,0
|
||||||
DW 0, 0, 0, 0,%0000000000100000,0,DriveExit,0
|
DW 0, 0, 0, 0,%0000000000100000,0,DriveExit,0
|
||||||
DW 0,640, 0, 92,%0000000000100000,0,DriveExit,0
|
DW 0,640, 0, 92,%0000000000100000,0,DriveExit,0
|
||||||
DW 0,640,128,256,%0000000000100000,0,DriveExit,0
|
DW 0,640,128,256,%0000000000100000,0,DriveExit,0
|
||||||
|
|
||||||
BegDrive DW 0, 0,110,121,%0000000000100000,0,DriveMouse,0
|
.BegDrive DW 0, 0,110,121,%0000000000100000,0,DriveMouse,0
|
||||||
DW 0, 0,110,121,%0000000000100000,0,DriveMouse,0
|
DW 0, 0,110,121,%0000000000100000,0,DriveMouse,0
|
||||||
DW 0, 0,110,121,%0000000000100000,0,DriveMouse,0
|
DW 0, 0,110,121,%0000000000100000,0,DriveMouse,0
|
||||||
DW 0, 0,110,121,%0000000000100000,0,DriveMouse,0
|
DW 0, 0,110,121,%0000000000100000,0,DriveMouse,0
|
||||||
@ -291,7 +286,7 @@ BegDrive DW 0, 0,110,121,%0000000000100000,0,DriveMouse,0
|
|||||||
|
|
||||||
IF PLUGS_ENABLE
|
IF PLUGS_ENABLE
|
||||||
; ®¡« á⨠¢ë¡®à ¢ ¬¥î ¯« £¨®¢
|
; ®¡« á⨠¢ë¡®à ¢ ¬¥î ¯« £¨®¢
|
||||||
PluginsTab: DW 4, 13,100, 10,%0000000000000000,0,SelectPlugin.NUM00,0
|
.PluginsTab: DW 4, 13,100, 10,%0000000000000000,0,SelectPlugin.NUM00,0
|
||||||
DW 4, 23,100, 10,%0000000000000000,0,SelectPlugin.NUM01,0
|
DW 4, 23,100, 10,%0000000000000000,0,SelectPlugin.NUM01,0
|
||||||
DW 4, 33,100, 10,%0000000000000000,0,SelectPlugin.NUM02,0
|
DW 4, 33,100, 10,%0000000000000000,0,SelectPlugin.NUM02,0
|
||||||
DW 4, 43,100, 10,%0000000000000000,0,SelectPlugin.NUM03,0
|
DW 4, 43,100, 10,%0000000000000000,0,SelectPlugin.NUM03,0
|
||||||
@ -307,7 +302,7 @@ PluginsTab: DW 4, 13,100, 10,%0000000000000000,0,SelectPlugin.NUM00,0
|
|||||||
ENDIF
|
ENDIF
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
;”®à¬ â â ¡«¨æë
|
; ”®à¬ â â ¡«¨æë
|
||||||
; +00 2 ASCII + SCANCOD
|
; +00 2 ASCII + SCANCOD
|
||||||
; +02 2 Execute program
|
; +02 2 Execute program
|
||||||
HOTKEYS
|
HOTKEYS
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 24.07.2025 savelij
|
; LAST UPDATE: 03.08.2025 savelij
|
||||||
|
|
||||||
MAX_LEVEL_DIR EQU 21
|
MAX_LEVEL_DIR EQU 21
|
||||||
|
|
||||||
@ -28,7 +28,7 @@ ReadTreeR PUSH IY
|
|||||||
GETPORT WINSP.CPU3
|
GETPORT WINSP.CPU3
|
||||||
LD B,A
|
LD B,A
|
||||||
PUSH BC
|
PUSH BC
|
||||||
LD A,(RAMPAGES.BuffPg3)
|
LD A,(RAMPAGES.BuffPg4)
|
||||||
SETPORT WINSP.CPU1,,0
|
SETPORT WINSP.CPU1,,0
|
||||||
BIT PANELFLAG.B_SIDE,(IY+PANEL.PANELFLAG)
|
BIT PANELFLAG.B_SIDE,(IY+PANEL.PANELFLAG)
|
||||||
LD A,(RAMPAGES.LEFTPANEL)
|
LD A,(RAMPAGES.LEFTPANEL)
|
||||||
@ -182,7 +182,7 @@ ReadTreeR PUSH IY
|
|||||||
SET VIEWFLAG.B_SHORTTREE,(IY+PANEL.VIEWFLAG)
|
SET VIEWFLAG.B_SHORTTREE,(IY+PANEL.VIEWFLAG)
|
||||||
.L4
|
.L4
|
||||||
GETPORT WINSP.CPU3
|
GETPORT WINSP.CPU3
|
||||||
LD (RAMPAGES.BuffPg3),A
|
LD (RAMPAGES.BuffPg4),A
|
||||||
GETPORT WINSP.CPU1
|
GETPORT WINSP.CPU1
|
||||||
BIT PANELFLAG.B_SIDE,(IY+PANEL.PANELFLAG)
|
BIT PANELFLAG.B_SIDE,(IY+PANEL.PANELFLAG)
|
||||||
LD HL,RAMPAGES.LEFTPANEL
|
LD HL,RAMPAGES.LEFTPANEL
|
||||||
@ -451,7 +451,7 @@ LoadItemDIRR: LD DE,(EndTree)
|
|||||||
LD DE,336 ; X pos
|
LD DE,336 ; X pos
|
||||||
LD BC,116 ; Y pos
|
LD BC,116 ; Y pos
|
||||||
LD A,COLORP.HIGHGRAY
|
LD A,COLORP.HIGHGRAY
|
||||||
JP PrnTxtLnIFF
|
JP PrintTxtLine_IFF
|
||||||
|
|
||||||
.GetN16 LD A,'0' - 1
|
.GetN16 LD A,'0' - 1
|
||||||
OR A
|
OR A
|
||||||
|
|||||||
27
fnwin.a80
27
fnwin.a80
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 17.07.2025 savelij
|
; LAST UPDATE: 01.08.2025 savelij
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
;<3B>à®æ¥¤ãà ®âç¨áª¨ 0 íªà
|
;<3B>à®æ¥¤ãà ®âç¨áª¨ 0 íªà
|
||||||
@ -200,9 +200,10 @@ StoreWindow DI
|
|||||||
LD HL,RAMPAGES.BuffPg1
|
LD HL,RAMPAGES.BuffPg1
|
||||||
ADD A,L
|
ADD A,L
|
||||||
LD L,A
|
LD L,A
|
||||||
JR NC,.L1
|
ADC A,H
|
||||||
INC H
|
SUB L
|
||||||
.L1 LD A,(HL)
|
LD H,A
|
||||||
|
LD A,(HL)
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
EXX
|
EXX
|
||||||
LD A,H
|
LD A,H
|
||||||
@ -328,9 +329,10 @@ RestoreWindow LD HL,MakeWindow.Open
|
|||||||
LD HL,RAMPAGES.BuffPg1
|
LD HL,RAMPAGES.BuffPg1
|
||||||
ADD A,L
|
ADD A,L
|
||||||
LD L,A
|
LD L,A
|
||||||
JR NC,.L2
|
ADC A,H
|
||||||
INC H
|
SUB L
|
||||||
.L2 LD A,(HL)
|
LD H,A
|
||||||
|
LD A,(HL)
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
EXX
|
EXX
|
||||||
LD A,H
|
LD A,H
|
||||||
@ -469,7 +471,7 @@ PutAdrTxtLine LD HL,(MakeWindow.PositX)
|
|||||||
LD A,H
|
LD A,H
|
||||||
OR L
|
OR L
|
||||||
LD A,IYL
|
LD A,IYL
|
||||||
CALL NZ,PrnTxtLnIFF ; ¯¥ç â âì ¥á«¨ ¤à¥á ¥ 0
|
CALL NZ,PrintTxtLine_IFF ; ŻĄç â âě Ąá«¨ ¤ŕĄá Ą 0
|
||||||
POP IY
|
POP IY
|
||||||
RET
|
RET
|
||||||
|
|
||||||
@ -495,7 +497,7 @@ PutTxtLine LD HL,(MakeWindow.PositX)
|
|||||||
INC IY
|
INC IY
|
||||||
PUSH IY
|
PUSH IY
|
||||||
POP HL
|
POP HL
|
||||||
CALL PrnTxtLnIFF
|
CALL PrintTxtLine_IFF
|
||||||
PUSH HL
|
PUSH HL
|
||||||
POP IY
|
POP IY
|
||||||
RET
|
RET
|
||||||
@ -761,7 +763,7 @@ PutButton LD HL,(MakeWindow.PositX)
|
|||||||
INC IY
|
INC IY
|
||||||
PUSH IY
|
PUSH IY
|
||||||
POP HL
|
POP HL
|
||||||
CALL PrnTxtLnIFF
|
CALL PrintTxtLine_IFF
|
||||||
PUSH HL
|
PUSH HL
|
||||||
POP IY
|
POP IY
|
||||||
RET
|
RET
|
||||||
@ -996,7 +998,7 @@ SBdown
|
|||||||
DB 0xFF,0x77,0x77,0x77,0x77,0x77,0x77,0x77 ; 7
|
DB 0xFF,0x77,0x77,0x77,0x77,0x77,0x77,0x77 ; 7
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
; <EFBFBD>à®æ¥¤ãà ¨¢¥àâ¨à®¢ ¨ï ¯àאַ㣮«ì®© ¯«®áª®áâ¨
|
; Źŕ®ćĄ¤ăŕ § ¬Ąë 梥⠢ Żŕאַ㣮«ě®© Ż«®áŞ®áâ¨
|
||||||
; <20> ¢å®¤:
|
; <20> ¢å®¤:
|
||||||
; HL - X ª®®à¤¨ â
|
; HL - X ª®®à¤¨ â
|
||||||
; BC - Y ª®®à¤¨ â
|
; BC - Y ª®®à¤¨ â
|
||||||
@ -1004,7 +1006,8 @@ SBdown
|
|||||||
; LX - ¤«¨ X
|
; LX - ¤«¨ X
|
||||||
; D - ⥪ã騩 梥â
|
; D - ⥪ã騩 梥â
|
||||||
; E - ã¦ë© 梥â
|
; E - ã¦ë© 梥â
|
||||||
InvertRectan PUSH IY
|
ReplaceColorRectan:
|
||||||
|
PUSH IY
|
||||||
GETPORT WINSP.Y_PORT ; ‘®åà 塞 Y ¯®àâ
|
GETPORT WINSP.Y_PORT ; ‘®åà 塞 Y ¯®àâ
|
||||||
PUSH AF
|
PUSH AF
|
||||||
GETPORT WINSP.CPU1
|
GETPORT WINSP.CPU1
|
||||||
|
|||||||
180
fnwork.a80
180
fnwork.a80
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 29.07.2025 savelij
|
; LAST UPDATE: 07.09.2025 savelij
|
||||||
|
|
||||||
;[]===========================================================[]
|
;[]===========================================================[]
|
||||||
CursUp LD A,(IY + PANEL.FILES_ALL)
|
CursUp LD A,(IY + PANEL.FILES_ALL)
|
||||||
@ -70,7 +70,7 @@ ScrlDn1 BIT VIEWFLAG.B_FULL,(IY + PANEL.VIEWFLAG)
|
|||||||
PUSH HL
|
PUSH HL
|
||||||
LDIR
|
LDIR
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,0x18*0x11
|
LD DE,FileHDR.SIZE * NUM_FILES_PANEL
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,IXL
|
LD E,IXL
|
||||||
LD D,IXH
|
LD D,IXH
|
||||||
@ -84,7 +84,7 @@ ScrlDn1 BIT VIEWFLAG.B_FULL,(IY + PANEL.VIEWFLAG)
|
|||||||
PUSH HL
|
PUSH HL
|
||||||
LDIR
|
LDIR
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,0x18*0x11
|
LD DE,FileHDR.SIZE * NUM_FILES_PANEL
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,IXL
|
LD E,IXL
|
||||||
LD D,IXH
|
LD D,IXH
|
||||||
@ -171,7 +171,7 @@ ScrlDn1 BIT VIEWFLAG.B_FULL,(IY + PANEL.VIEWFLAG)
|
|||||||
POP IX
|
POP IX
|
||||||
LD DE,PANEL.BAR_X
|
LD DE,PANEL.BAR_X
|
||||||
ADD IX,DE
|
ADD IX,DE
|
||||||
JP PrnHScrBar
|
JP DrawHScrollBar
|
||||||
|
|
||||||
ScrlDnP
|
ScrlDnP
|
||||||
GETPORT WINSP.CPU1
|
GETPORT WINSP.CPU1
|
||||||
@ -257,7 +257,7 @@ ScrlDnP
|
|||||||
POP IX
|
POP IX
|
||||||
LD DE,PANEL.BAR_X
|
LD DE,PANEL.BAR_X
|
||||||
ADD IX,DE
|
ADD IX,DE
|
||||||
JP PrnVScrBar
|
JP DrawVScrollBar
|
||||||
|
|
||||||
ScrlDnT
|
ScrlDnT
|
||||||
GETPORT WINSP.CPU1
|
GETPORT WINSP.CPU1
|
||||||
@ -344,7 +344,7 @@ ScrDdn2 LD DE,WorkBuffer+0x100
|
|||||||
POP IX
|
POP IX
|
||||||
LD DE,PANEL.BAR_X
|
LD DE,PANEL.BAR_X
|
||||||
ADD IX,DE
|
ADD IX,DE
|
||||||
JP PrnVScrBar
|
JP DrawVScrollBar
|
||||||
|
|
||||||
;[]===========================================================[]
|
;[]===========================================================[]
|
||||||
CursDown LD C,(IY+PANEL.FILES_ALL)
|
CursDown LD C,(IY+PANEL.FILES_ALL)
|
||||||
@ -419,14 +419,14 @@ ScrlUp1 BIT VIEWFLAG.B_FULL,(IY+PANEL.VIEWFLAG)
|
|||||||
PUSH HL
|
PUSH HL
|
||||||
LDIR
|
LDIR
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,0x18*0x11
|
LD DE,FileHDR.SIZE * NUM_FILES_PANEL
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD DE,WorkBuffer+0x10
|
LD DE,WorkBuffer+0x10
|
||||||
LD C,0x0E
|
LD C,0x0E
|
||||||
PUSH HL
|
PUSH HL
|
||||||
LDIR
|
LDIR
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,0x18*0x11
|
LD DE,FileHDR.SIZE * NUM_FILES_PANEL
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD DE,WorkBuffer+0x20
|
LD DE,WorkBuffer+0x20
|
||||||
LD C,0x0E
|
LD C,0x0E
|
||||||
@ -507,7 +507,7 @@ ScrlUp1 BIT VIEWFLAG.B_FULL,(IY+PANEL.VIEWFLAG)
|
|||||||
POP IX
|
POP IX
|
||||||
LD DE,PANEL.BAR_X
|
LD DE,PANEL.BAR_X
|
||||||
ADD IX,DE
|
ADD IX,DE
|
||||||
JP PrnHScrBar
|
JP DrawHScrollBar
|
||||||
|
|
||||||
ScrlUpP
|
ScrlUpP
|
||||||
GETPORT WINSP.CPU1
|
GETPORT WINSP.CPU1
|
||||||
@ -594,7 +594,7 @@ ScrlUpP
|
|||||||
POP IX
|
POP IX
|
||||||
LD DE,PANEL.BAR_X
|
LD DE,PANEL.BAR_X
|
||||||
ADD IX,DE
|
ADD IX,DE
|
||||||
JP PrnVScrBar
|
JP DrawVScrollBar
|
||||||
|
|
||||||
ScrlUpT
|
ScrlUpT
|
||||||
GETPORT WINSP.CPU1
|
GETPORT WINSP.CPU1
|
||||||
@ -681,7 +681,7 @@ ScrDup1 PUSH BC
|
|||||||
POP IX
|
POP IX
|
||||||
LD DE,PANEL.BAR_X
|
LD DE,PANEL.BAR_X
|
||||||
ADD IX,DE
|
ADD IX,DE
|
||||||
JP PrnVScrBar
|
JP DrawVScrollBar
|
||||||
|
|
||||||
; <20> ¢å®¤:
|
; <20> ¢å®¤:
|
||||||
; HL - X ¯®§¨æ¨ï
|
; HL - X ¯®§¨æ¨ï
|
||||||
@ -858,9 +858,9 @@ PageUDex CALL PrintDIR
|
|||||||
LD A,(IY+PANEL.VIEWFLAG)
|
LD A,(IY+PANEL.VIEWFLAG)
|
||||||
AND VIEWFLAG.MASK
|
AND VIEWFLAG.MASK
|
||||||
PUSH AF
|
PUSH AF
|
||||||
CALL Z,PrnHScrBar
|
CALL Z,DrawHScrollBar
|
||||||
POP AF
|
POP AF
|
||||||
CALL NZ,PrnVScrBar
|
CALL NZ,DrawVScrollBar
|
||||||
LD B,0x07
|
LD B,0x07
|
||||||
PgUDext PUSH BC
|
PgUDext PUSH BC
|
||||||
SPMOUSE MOUSEF.READ_STATE
|
SPMOUSE MOUSEF.READ_STATE
|
||||||
@ -1032,15 +1032,11 @@ NewFile1 LD HL,0x003F
|
|||||||
LD (IY+PANEL.CURR_FILE + 1),H
|
LD (IY+PANEL.CURR_FILE + 1),H
|
||||||
CALL SetInvert
|
CALL SetInvert
|
||||||
CALL PrnFileInfo
|
CALL PrnFileInfo
|
||||||
JP ResFire
|
JP WaitUnpressMouse
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
OpenFile BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
OpenFile BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
||||||
IF TREE_REZID
|
|
||||||
JP NZ,RESIDENT.TestTreeBeg
|
|
||||||
ELSE
|
|
||||||
JP NZ,TestTreeR.TestTreeBeg
|
JP NZ,TestTreeR.TestTreeBeg
|
||||||
ENDIF
|
|
||||||
LD A,(IY+PANEL.FILES_ALL)
|
LD A,(IY+PANEL.FILES_ALL)
|
||||||
OR (IY+PANEL.FILES_ALL + 1)
|
OR (IY+PANEL.FILES_ALL + 1)
|
||||||
RET Z
|
RET Z
|
||||||
@ -1052,19 +1048,21 @@ OpenFile BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
|||||||
LD A,(RAMPAGES.RIGHTPANEL)
|
LD A,(RAMPAGES.RIGHTPANEL)
|
||||||
.L1
|
.L1
|
||||||
SETPORT WINSP.CPU1,,0
|
SETPORT WINSP.CPU1,,0
|
||||||
LD L,(IY+PANEL.FIRST_FILE)
|
; LD L,(IY + PANEL.FIRST_FILE)
|
||||||
LD H,(IY+PANEL.FIRST_FILE + 1)
|
; LD H,(IY + PANEL.FIRST_FILE + 1)
|
||||||
LD E,(IY+PANEL.CURR_FILE)
|
; LD E,(IY + PANEL.CURR_FILE)
|
||||||
LD D,(IY+PANEL.CURR_FILE + 1)
|
; LD D,(IY + PANEL.CURR_FILE + 1)
|
||||||
ADD HL,DE
|
; ADD HL,DE
|
||||||
ADD HL,HL ; *2
|
; ADD HL,HL ; *2
|
||||||
ADD HL,HL ; *4
|
; ADD HL,HL ; *4
|
||||||
ADD HL,HL ; *8
|
; ADD HL,HL ; *8
|
||||||
LD E,L
|
; LD E,L
|
||||||
LD D,H
|
; LD D,H
|
||||||
ADD HL,HL ; *10
|
; ADD HL,HL ; *10
|
||||||
ADD HL,DE ; *18
|
; ADD HL,DE ; *18
|
||||||
SET 6,H ; | 0x4000
|
; SET 6,H ; | 0x4000
|
||||||
|
LD A,HIGH (CPU1)
|
||||||
|
CALL GET_HANDLE_ADR
|
||||||
LD DE,WorkBuffer
|
LD DE,WorkBuffer
|
||||||
LD BC,FileHDR.Attr
|
LD BC,FileHDR.Attr
|
||||||
PUSH HL
|
PUSH HL
|
||||||
@ -1080,8 +1078,9 @@ OpenFile BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
|||||||
INC HL
|
INC HL
|
||||||
JP Z,RunEXEfile
|
JP Z,RunEXEfile
|
||||||
LD A,(HL)
|
LD A,(HL)
|
||||||
CP '.'
|
CP '.' ; ¢ë室 ¨§ ¤¨à¥ªâ®à¨¨ ¢¢¥àå?
|
||||||
JR NZ,OpenF2
|
JR NZ,EnterDIR
|
||||||
|
; ¢ë室 ¨§ ¤¨à¥ªâ®à¨¨ ¢¢¥àå
|
||||||
PUSH HL
|
PUSH HL
|
||||||
PUSH IY
|
PUSH IY
|
||||||
POP HL
|
POP HL
|
||||||
@ -1094,7 +1093,7 @@ OpenFile BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
|||||||
LD A,'\\'
|
LD A,'\\'
|
||||||
DEC HL
|
DEC HL
|
||||||
CP (HL)
|
CP (HL)
|
||||||
JR Z,OpenF1
|
JR Z,.L5
|
||||||
.L3 DEC HL
|
.L3 DEC HL
|
||||||
CP (HL)
|
CP (HL)
|
||||||
JR NZ,.L3
|
JR NZ,.L3
|
||||||
@ -1106,12 +1105,13 @@ OpenFile BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
|||||||
JR NZ,.L4
|
JR NZ,.L4
|
||||||
LD (DE),A
|
LD (DE),A
|
||||||
LD A,'.'
|
LD A,'.'
|
||||||
OpenF1 POP HL
|
.L5 POP HL
|
||||||
OpenF2 PUSH AF
|
; ¢å®¤ ¢ ¤¨à¥ªâ®à¨î
|
||||||
|
EnterDIR PUSH AF
|
||||||
PUSH HL
|
PUSH HL
|
||||||
CALL ResInvert
|
CALL ResInvert
|
||||||
POP HL
|
POP HL
|
||||||
CALL SetClock
|
CALL PointerMouseClock
|
||||||
PUSH IY
|
PUSH IY
|
||||||
SPDSS DSSF.CHDIR
|
SPDSS DSSF.CHDIR
|
||||||
POP IY
|
POP IY
|
||||||
@ -1131,7 +1131,7 @@ OpenF2 PUSH AF
|
|||||||
SPDSS DSSF.CURDIR
|
SPDSS DSSF.CURDIR
|
||||||
POP IY
|
POP IY
|
||||||
CALL PrintPath
|
CALL PrintPath
|
||||||
BIT PANELFLAG.B_PRNDOSPATH,(IY+PANEL.PANELFLAG)
|
BIT PANELFLAG.B_PRNDOSPATH,(IY + PANEL.PANELFLAG)
|
||||||
CALL NZ,PrintDOSPath
|
CALL NZ,PrintDOSPath
|
||||||
POP AF
|
POP AF
|
||||||
CP '.'
|
CP '.'
|
||||||
@ -1144,18 +1144,18 @@ OpenF2 PUSH AF
|
|||||||
LD DE,PANEL.BAR_X
|
LD DE,PANEL.BAR_X
|
||||||
ADD IX,DE
|
ADD IX,DE
|
||||||
CALL InitScrollBar
|
CALL InitScrollBar
|
||||||
LD A,(IY+PANEL.VIEWFLAG)
|
LD A,(IY + PANEL.VIEWFLAG)
|
||||||
AND VIEWFLAG.MASK
|
AND VIEWFLAG.MASK
|
||||||
PUSH AF
|
PUSH AF
|
||||||
CALL Z,PrnHScrBar
|
CALL Z,DrawHScrollBar
|
||||||
POP AF
|
POP AF
|
||||||
CALL NZ,PrnVScrBar
|
CALL NZ,DrawVScrollBar
|
||||||
CALL SetMouse
|
CALL PointerMousePointer
|
||||||
LD A,(TreeFlag)
|
LD A,(TreeFlag)
|
||||||
OR A
|
OR A
|
||||||
JP Z,ResFire
|
JP Z,WaitUnpressMouse
|
||||||
PUSH IY
|
PUSH IY
|
||||||
BIT PANELFLAG.B_SIDE,(IY+PANEL.PANELFLAG)
|
BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
||||||
LD IY,LeftPanel
|
LD IY,LeftPanel
|
||||||
LD HL,RightPanel
|
LD HL,RightPanel
|
||||||
JR NZ,.L5
|
JR NZ,.L5
|
||||||
@ -1165,18 +1165,14 @@ OpenF2 PUSH AF
|
|||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
INC HL
|
INC HL
|
||||||
INC HL
|
INC HL
|
||||||
IF TREE_REZID
|
|
||||||
CALL RESIDENT.FindTreeDIR
|
|
||||||
ELSE
|
|
||||||
CALL FindTreeDIRR
|
CALL FindTreeDIRR
|
||||||
ENDIF
|
|
||||||
CALL PrintDIR
|
CALL PrintDIR
|
||||||
CALL PrnFileInfo
|
CALL PrnFileInfo
|
||||||
PUSH IY
|
PUSH IY
|
||||||
POP IX
|
POP IX
|
||||||
LD DE,PANEL.BAR_X
|
LD DE,PANEL.BAR_X
|
||||||
ADD IX,DE
|
ADD IX,DE
|
||||||
CALL PrnVScrBar
|
CALL DrawVScrollBar
|
||||||
POP IY
|
POP IY
|
||||||
RET
|
RET
|
||||||
|
|
||||||
@ -1353,10 +1349,10 @@ ShowDSlp
|
|||||||
JR Z,ShowDSlp
|
JR Z,ShowDSlp
|
||||||
ShowDSexit
|
ShowDSexit
|
||||||
SPDSS DSSF.SETVMOD,0,SETVMOD.GRF640X256
|
SPDSS DSSF.SETVMOD,0,SETVMOD.GRF640X256
|
||||||
JP ResFire
|
JP WaitUnpressMouse
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
RunEXEfile: LD IX,fn_ext
|
RunEXEfile: LD IX,REZ3_BUFFERS.fn_ext
|
||||||
LD DE,PrevFile
|
LD DE,PrevFile
|
||||||
PUSH DE
|
PUSH DE
|
||||||
SUB A
|
SUB A
|
||||||
@ -1894,7 +1890,7 @@ ViewFileSH: BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
|||||||
W_FILL 88,23,130,10,COLORI.WHITE
|
W_FILL 88,23,130,10,COLORI.WHITE
|
||||||
W_END
|
W_END
|
||||||
LD IX,ViewStr
|
LD IX,ViewStr
|
||||||
LD HL,ViewEditTab
|
LD HL,MAINTAB.ViewEditTab
|
||||||
CALL InputLine
|
CALL InputLine
|
||||||
WINDOWCLOSE
|
WINDOWCLOSE
|
||||||
RET C
|
RET C
|
||||||
@ -1938,14 +1934,12 @@ StViewFile: LD A,0x01
|
|||||||
LD A,(IY+PANEL.FILES_ALL)
|
LD A,(IY+PANEL.FILES_ALL)
|
||||||
OR (IY+PANEL.FILES_ALL + 1)
|
OR (IY+PANEL.FILES_ALL + 1)
|
||||||
RET Z
|
RET Z
|
||||||
IFNDEF ENABLE.VIEW
|
|
||||||
; ¯®¯ë⪠§ £à㧪¨ ¯« £¨
|
; ¯®¯ë⪠§ £à㧪¨ ¯« £¨
|
||||||
CALL LOADFLX4RUN
|
CALL LOADFLX4RUN
|
||||||
DZ FILENAME.VIEW_FLX
|
DZ FILENAME.VIEW_FLX
|
||||||
; ¢ë¢®¤ ®è¨¡ª¨ "<22>« £¨ ¥ ©¤¥"
|
; ¢ë¢®¤ ®è¨¡ª¨ "<22>« £¨ ¥ ©¤¥"
|
||||||
LD A,FNinternal.PlugNotFound
|
LD A,FNinternal.PlugNotFound
|
||||||
JP C,DOSError
|
JP C,DOSError
|
||||||
ENDIF
|
|
||||||
GETPORT WINSP.CPU1
|
GETPORT WINSP.CPU1
|
||||||
PUSH AF
|
PUSH AF
|
||||||
BIT PANELFLAG.B_SIDE,(IY+PANEL.PANELFLAG)
|
BIT PANELFLAG.B_SIDE,(IY+PANEL.PANELFLAG)
|
||||||
@ -1954,19 +1948,21 @@ StViewFile: LD A,0x01
|
|||||||
LD A,(RAMPAGES.RIGHTPANEL)
|
LD A,(RAMPAGES.RIGHTPANEL)
|
||||||
.L2
|
.L2
|
||||||
SETPORT WINSP.CPU1,,0
|
SETPORT WINSP.CPU1,,0
|
||||||
LD L,(IY+PANEL.FIRST_FILE)
|
; LD L,(IY+PANEL.FIRST_FILE)
|
||||||
LD H,(IY+PANEL.FIRST_FILE + 1)
|
; LD H,(IY+PANEL.FIRST_FILE + 1)
|
||||||
LD E,(IY+PANEL.CURR_FILE)
|
; LD E,(IY+PANEL.CURR_FILE)
|
||||||
LD D,(IY+PANEL.CURR_FILE + 1)
|
; LD D,(IY+PANEL.CURR_FILE + 1)
|
||||||
ADD HL,DE
|
; ADD HL,DE
|
||||||
ADD HL,HL ; *2
|
; ADD HL,HL ; *2
|
||||||
ADD HL,HL ; *4
|
; ADD HL,HL ; *4
|
||||||
ADD HL,HL ; *8
|
; ADD HL,HL ; *8
|
||||||
LD E,L
|
; LD E,L
|
||||||
LD D,H
|
; LD D,H
|
||||||
ADD HL,HL ; *10
|
; ADD HL,HL ; *10
|
||||||
ADD HL,DE ; *18
|
; ADD HL,DE ; *18
|
||||||
SET 6,H ; | 0x4000
|
; SET 6,H ; | 0x4000
|
||||||
|
LD A,HIGH (CPU1)
|
||||||
|
CALL GET_HANDLE_ADR
|
||||||
LD DE,WorkBuffer
|
LD DE,WorkBuffer
|
||||||
LD BC,FileHDR.Attr
|
LD BC,FileHDR.Attr
|
||||||
PUSH HL
|
PUSH HL
|
||||||
@ -1991,7 +1987,7 @@ StViewFile: LD A,0x01
|
|||||||
VFlag: EQU $-1
|
VFlag: EQU $-1
|
||||||
OR A
|
OR A
|
||||||
JR NZ,View1
|
JR NZ,View1
|
||||||
View: LD IX,fnview_ext
|
View: LD IX,REZ3_BUFFERS.fnview_ext
|
||||||
LD DE,PrevFile
|
LD DE,PrevFile
|
||||||
CALL TestEXT
|
CALL TestEXT
|
||||||
RET NC
|
RET NC
|
||||||
@ -2021,12 +2017,7 @@ View1: CALL ResInvert
|
|||||||
LD C,WINSP.CPU1 ; ®ª® § ¯ãáª á ¤à¥á 0x4000
|
LD C,WINSP.CPU1 ; ®ª® § ¯ãáª á ¤à¥á 0x4000
|
||||||
JR NZ,.L4
|
JR NZ,.L4
|
||||||
LD C,WINSP.CPU3 ; ®ª® § ¯ãáª á ¤à¥á 0xC000
|
LD C,WINSP.CPU3 ; ®ª® § ¯ãáª á ¤à¥á 0xC000
|
||||||
.L4
|
.L4 LD A,(RAMPAGES.FLX)
|
||||||
IFDEF ENABLE.VIEW
|
|
||||||
LD A,(RAMPAGES.FNVIEW)
|
|
||||||
ELSE
|
|
||||||
LD A,(RAMPAGES.FLX)
|
|
||||||
ENDIF
|
|
||||||
CALL Resident
|
CALL Resident
|
||||||
LD HL,0
|
LD HL,0
|
||||||
LD (RunFLX.FLXexec),HL ; ¯à¨ ¢ë室¥ ¨§ ¯« £¨ £«ã訬 ¤à¥á § £à㧪¨
|
LD (RunFLX.FLXexec),HL ; ¯à¨ ¢ë室¥ ¨§ ¯« £¨ £«ã訬 ¤à¥á § £à㧪¨
|
||||||
@ -2061,7 +2052,7 @@ EditFileSH: BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
|||||||
W_FILL 88,23,130,10,COLORI.WHITE
|
W_FILL 88,23,130,10,COLORI.WHITE
|
||||||
W_END
|
W_END
|
||||||
LD IX,EditStr
|
LD IX,EditStr
|
||||||
LD HL,ViewEditTab
|
LD HL,MAINTAB.ViewEditTab
|
||||||
CALL InputLine
|
CALL InputLine
|
||||||
WINDOWCLOSE
|
WINDOWCLOSE
|
||||||
RET C
|
RET C
|
||||||
@ -2105,14 +2096,12 @@ StEditFile: LD A,0x01
|
|||||||
LD A,(IY+PANEL.FILES_ALL)
|
LD A,(IY+PANEL.FILES_ALL)
|
||||||
OR (IY+PANEL.FILES_ALL + 1)
|
OR (IY+PANEL.FILES_ALL + 1)
|
||||||
RET Z
|
RET Z
|
||||||
IFNDEF ENABLE.VIEW
|
|
||||||
; ¯®¯ë⪠§ £à㧪¨ ¯« £¨
|
; ¯®¯ë⪠§ £à㧪¨ ¯« £¨
|
||||||
CALL LOADFLX4RUN
|
CALL LOADFLX4RUN
|
||||||
DZ FILENAME.EDIT_FLX
|
DZ FILENAME.EDIT_FLX
|
||||||
; ¢ë¢®¤ ®è¨¡ª¨ "<22>« £¨ ¥ ©¤¥"
|
; ¢ë¢®¤ ®è¨¡ª¨ "<22>« £¨ ¥ ©¤¥"
|
||||||
LD A,FNinternal.PlugNotFound
|
LD A,FNinternal.PlugNotFound
|
||||||
JP C,DOSError
|
JP C,DOSError
|
||||||
ENDIF
|
|
||||||
GETPORT WINSP.CPU1
|
GETPORT WINSP.CPU1
|
||||||
PUSH AF
|
PUSH AF
|
||||||
BIT PANELFLAG.B_SIDE,(IY+PANEL.PANELFLAG)
|
BIT PANELFLAG.B_SIDE,(IY+PANEL.PANELFLAG)
|
||||||
@ -2121,19 +2110,21 @@ StEditFile: LD A,0x01
|
|||||||
LD A,(RAMPAGES.RIGHTPANEL)
|
LD A,(RAMPAGES.RIGHTPANEL)
|
||||||
.L2
|
.L2
|
||||||
SETPORT WINSP.CPU1,,0
|
SETPORT WINSP.CPU1,,0
|
||||||
LD L,(IY+PANEL.FIRST_FILE)
|
; LD L,(IY+PANEL.FIRST_FILE)
|
||||||
LD H,(IY+PANEL.FIRST_FILE + 1)
|
; LD H,(IY+PANEL.FIRST_FILE + 1)
|
||||||
LD E,(IY+PANEL.CURR_FILE)
|
; LD E,(IY+PANEL.CURR_FILE)
|
||||||
LD D,(IY+PANEL.CURR_FILE + 1)
|
; LD D,(IY+PANEL.CURR_FILE + 1)
|
||||||
ADD HL,DE
|
; ADD HL,DE
|
||||||
ADD HL,HL ; *2
|
; ADD HL,HL ; *2
|
||||||
ADD HL,HL ; *4
|
; ADD HL,HL ; *4
|
||||||
ADD HL,HL ; *8
|
; ADD HL,HL ; *8
|
||||||
LD E,L
|
; LD E,L
|
||||||
LD D,H
|
; LD D,H
|
||||||
ADD HL,HL ; *10
|
; ADD HL,HL ; *10
|
||||||
ADD HL,DE ; *18
|
; ADD HL,DE ; *18
|
||||||
SET 6,H ; | 0x4000
|
; SET 6,H ; | 0x4000
|
||||||
|
LD A,HIGH (CPU1)
|
||||||
|
CALL GET_HANDLE_ADR
|
||||||
LD DE,WorkBuffer
|
LD DE,WorkBuffer
|
||||||
LD BC,FileHDR.Attr
|
LD BC,FileHDR.Attr
|
||||||
PUSH HL
|
PUSH HL
|
||||||
@ -2158,7 +2149,7 @@ StEditFile: LD A,0x01
|
|||||||
EFlag: EQU $-1
|
EFlag: EQU $-1
|
||||||
OR A
|
OR A
|
||||||
JR NZ,Edit1
|
JR NZ,Edit1
|
||||||
Edit: LD IX,fnedit_ext
|
Edit: LD IX,REZ3_BUFFERS.fnedit_ext
|
||||||
LD DE,PrevFile
|
LD DE,PrevFile
|
||||||
CALL TestEXT
|
CALL TestEXT
|
||||||
RET NC
|
RET NC
|
||||||
@ -2188,12 +2179,7 @@ Edit1: CALL ResInvert
|
|||||||
LD C,WINSP.CPU1 ; ®ª® § ¯ãáª á ¤à¥á 0x4000
|
LD C,WINSP.CPU1 ; ®ª® § ¯ãáª á ¤à¥á 0x4000
|
||||||
JR NZ,.L4
|
JR NZ,.L4
|
||||||
LD C,WINSP.CPU3 ; ®ª® § ¯ãáª á ¤à¥á 0xC000
|
LD C,WINSP.CPU3 ; ®ª® § ¯ãáª á ¤à¥á 0xC000
|
||||||
.L4
|
.L4 LD A,(RAMPAGES.FLX)
|
||||||
IFDEF ENABLE.VIEW
|
|
||||||
LD A,(RAMPAGES.FNEDIT)
|
|
||||||
ELSE
|
|
||||||
LD A,(RAMPAGES.FLX)
|
|
||||||
ENDIF
|
|
||||||
CALL Resident
|
CALL Resident
|
||||||
LD HL,0
|
LD HL,0
|
||||||
LD (RunFLX.FLXexec),HL ; ¯à¨ ¢ë室¥ ¨§ ¯« £¨ £«ã訬 ¤à¥á § £à㧪¨
|
LD (RunFLX.FLXexec),HL ; ¯à¨ ¢ë室¥ ¨§ ¯« £¨ £«ã訬 ¤à¥á § £à㧪¨
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
|
|
||||||
@echo off
|
@echo off
|
||||||
|
|
||||||
cls
|
rem cls
|
||||||
|
|
||||||
cd cdplayer
|
cd cdplayer
|
||||||
call build
|
call build
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 15.07.2025 savelij
|
; LAST UPDATE: 31.07.2025 savelij
|
||||||
|
|
||||||
include macros.a80
|
include macros.a80
|
||||||
include fn_const.a80
|
include fn_const.a80
|
||||||
@ -42,102 +42,102 @@ PluginEntry:
|
|||||||
ld hl, asc_C36E ; "7"
|
ld hl, asc_C36E ; "7"
|
||||||
ld de, 107h
|
ld de, 107h
|
||||||
ld bc, 75h
|
ld bc, 75h
|
||||||
ld a, 80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
ld hl, asc_C370 ; "8"
|
ld hl, asc_C370 ; "8"
|
||||||
ld de, 123h
|
ld de, 123h
|
||||||
ld bc, 75h
|
ld bc, 75h
|
||||||
ld a, 80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
sub_C103: ld hl, asc_C372 ; "9"
|
sub_C103: ld hl, asc_C372 ; "9"
|
||||||
ld de, 140h
|
ld de, 140h
|
||||||
ld bc, 75h
|
ld bc, 75h
|
||||||
ld a, 80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
ld hl, asc_C37F ; "/"
|
ld hl, asc_C37F ; "/"
|
||||||
ld de, 15Bh
|
ld de, 15Bh
|
||||||
ld bc, 75h
|
ld bc, 75h
|
||||||
ld a, 80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
ld hl, asc_C374 ; "C"
|
ld hl, asc_C374 ; "C"
|
||||||
ld de, 177h
|
ld de, 177h
|
||||||
ld bc, 75h
|
ld bc, 75h
|
||||||
ld a, 80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
ld hl, asc_C368 ; "4"
|
ld hl, asc_C368 ; "4"
|
||||||
ld de, 107h
|
ld de, 107h
|
||||||
ld bc, 84h
|
ld bc, 84h
|
||||||
ld a, 80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
ld hl, asc_C36A ; "5"
|
ld hl, asc_C36A ; "5"
|
||||||
ld de, 123h
|
ld de, 123h
|
||||||
ld bc, 84h
|
ld bc, 84h
|
||||||
ld a, 80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
ld hl, asc_C36C ; "6"
|
ld hl, asc_C36C ; "6"
|
||||||
ld de, 140h
|
ld de, 140h
|
||||||
ld bc, 84h
|
ld bc, 84h
|
||||||
ld a, 80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
ld hl, asc_C37D ; "*"
|
ld hl, asc_C37D ; "*"
|
||||||
ld de, 15Bh
|
ld de, 15Bh
|
||||||
ld bc, 84h
|
ld bc, 84h
|
||||||
ld a, 80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
ld hl, asc_C376 ; "CE"
|
ld hl, asc_C376 ; "CE"
|
||||||
ld de, 178h
|
ld de, 178h
|
||||||
ld bc, 84h
|
ld bc, 84h
|
||||||
ld a, 80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
ld hl, asc_C362 ; "1"
|
ld hl, asc_C362 ; "1"
|
||||||
ld de, 107h
|
ld de, 107h
|
||||||
ld bc, 93h
|
ld bc, 93h
|
||||||
ld a, 80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
ld hl, asc_C364 ; "2"
|
ld hl, asc_C364 ; "2"
|
||||||
ld de, 123h
|
ld de, 123h
|
||||||
ld bc, 93h
|
ld bc, 93h
|
||||||
ld a, 80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
ld hl, asc_C366 ; "3"
|
ld hl, asc_C366 ; "3"
|
||||||
ld de, 140h
|
ld de, 140h
|
||||||
ld bc, 93h
|
ld bc, 93h
|
||||||
ld a, 80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
ld hl, asc_C37B ; "-"
|
ld hl, asc_C37B ; "-"
|
||||||
ld de, 15Bh
|
ld de, 15Bh
|
||||||
ld bc, 93h
|
ld bc, 93h
|
||||||
ld a, 80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
ld hl, asc_C387 ; "="
|
ld hl, asc_C387 ; "="
|
||||||
ld de, 178h
|
ld de, 178h
|
||||||
ld bc, 9Ah
|
ld bc, 9Ah
|
||||||
ld a, 80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
ld hl, asc_C360 ; "0"
|
ld hl, asc_C360 ; "0"
|
||||||
ld de, 107h
|
ld de, 107h
|
||||||
ld bc, 0A2h
|
ld bc, 0A2h
|
||||||
ld a, 80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
ld hl, asc_C381 ; "+/-"
|
ld hl, asc_C381 ; "+/-"
|
||||||
ld de, 123h
|
ld de, 123h
|
||||||
ld bc, 0A2h
|
ld bc, 0A2h
|
||||||
ld a, 80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
ld hl, asc_C385 ; "."
|
ld hl, asc_C385 ; "."
|
||||||
ld de, 13Fh
|
ld de, 13Fh
|
||||||
ld bc, 0A2h
|
ld bc, 0A2h
|
||||||
ld a, 80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
ld hl, asc_C379 ; "+"
|
ld hl, asc_C379 ; "+"
|
||||||
ld de, 15Bh
|
ld de, 15Bh
|
||||||
ld bc, 0A2h
|
ld bc, 0A2h
|
||||||
ld a, 80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
call JUMPS.ResFire
|
call JUMPS.WaitUnpressMouse
|
||||||
loc_C1F4: call sub_C324
|
loc_C1F4: call sub_C324
|
||||||
loc_C1F7: ld ix, PluginMouseTab
|
loc_C1F7: ld ix, PluginMouseTab
|
||||||
call JUMPS.TestCoords
|
call JUMPS.CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
jp z, loc_C1F7
|
jp z, loc_C1F7
|
||||||
ld a, b
|
ld a, b
|
||||||
@ -290,9 +290,8 @@ sub_C324: ld hl, asc_C34D
|
|||||||
sub_C32D: ld ix, 48h
|
sub_C32D: ld ix, 48h
|
||||||
ld de, 183h
|
ld de, 183h
|
||||||
ld bc, 65h
|
ld bc, 65h
|
||||||
ld a, 80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathR
|
JP JUMPS.PrintPathRight
|
||||||
ret
|
|
||||||
|
|
||||||
byte_C33D: db 0
|
byte_C33D: db 0
|
||||||
byte_C33E: db 0
|
byte_C33E: db 0
|
||||||
|
|||||||
@ -6,7 +6,7 @@ set path=d:\yad\svn\pentevo\tools\asl\bin\;d:\yad\svn\pentevo\tools\mhmt\;d:\yad
|
|||||||
call ..\..\setpath_includes
|
call ..\..\setpath_includes
|
||||||
set includes=%includes%;..\..\
|
set includes=%includes%;..\..\
|
||||||
|
|
||||||
cls
|
rem cls
|
||||||
|
|
||||||
asl -U -L -C -x -olist tmp\cdplayer.lst -i %includes% cdplayer.a80 || goto error
|
asl -U -L -C -x -olist tmp\cdplayer.lst -i %includes% cdplayer.a80 || goto error
|
||||||
p2bin cdplayer.p ..\cdplayer.flx -r $-$ -k
|
p2bin cdplayer.p ..\cdplayer.flx -r $-$ -k
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 15.07.2025 savelij
|
; LAST UPDATE: 31.07.2025 savelij
|
||||||
|
|
||||||
include macros.a80
|
include macros.a80
|
||||||
include fn_const.a80
|
include fn_const.a80
|
||||||
@ -36,7 +36,7 @@ PluginEntry:
|
|||||||
W_BUTTON 442,35,36,18
|
W_BUTTON 442,35,36,18
|
||||||
W_HORIZLINE 2,56,480
|
W_HORIZLINE 2,56,480
|
||||||
W_END
|
W_END
|
||||||
call JUMPS.ResFire
|
call JUMPS.WaitUnpressMouse
|
||||||
CALL SHOW_BUTTON ; ¢ë¢®¤ ¨ª®®ª ª®¯ª¨
|
CALL SHOW_BUTTON ; ¢ë¢®¤ ¨ª®®ª ª®¯ª¨
|
||||||
IF DEBUG
|
IF DEBUG
|
||||||
CALL DEBUG_TXTKEYS ; ®â« ¤®çë© â¥ªáâ
|
CALL DEBUG_TXTKEYS ; ®â« ¤®çë© â¥ªáâ
|
||||||
@ -68,7 +68,7 @@ plugin_loop: LD HL,FLAG
|
|||||||
CALL Z,BIGDIGITSALL ; ¨«¨ ¢ë¢®¤¨¬ íªà
|
CALL Z,BIGDIGITSALL ; ¨«¨ ¢ë¢®¤¨¬ íªà
|
||||||
; ®á®¢®© 横« ®¯à®á ã¯à ¢«¥¨ï
|
; ®á®¢®© 横« ®¯à®á ã¯à ¢«¥¨ï
|
||||||
.L3 ld ix,PluginMouseTab
|
.L3 ld ix,PluginMouseTab
|
||||||
call JUMPS.TestCoords
|
call JUMPS.CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
jr z,plugin_loop
|
jr z,plugin_loop
|
||||||
ld a,b
|
ld a,b
|
||||||
@ -310,7 +310,7 @@ CDinit: LD B,0xC0 - 1
|
|||||||
LD DE,360
|
LD DE,360
|
||||||
LD BC,140
|
LD BC,140
|
||||||
LD A,COLORP.HIGHGRAY + COLORI.BLUE
|
LD A,COLORP.HIGHGRAY + COLORI.BLUE
|
||||||
CALL JUMPS.PrnTxtLnIFF
|
CALL JUMPS.PrintTxtLine_IFF
|
||||||
LD A,1
|
LD A,1
|
||||||
LD (CURRENT.TRACK),A
|
LD (CURRENT.TRACK),A
|
||||||
; ®¡®¢«¥¨¥ ⥪ã饣® ®¬¥à â४ ¨ ¢à¥¬¥¨ ¨£à ¨ï íªà ¥
|
; ®¡®¢«¥¨¥ ⥪ã饣® ®¬¥à â४ ¨ ¢à¥¬¥¨ ¨£à ¨ï íªà ¥
|
||||||
@ -363,7 +363,7 @@ noCD: ld hl,msgN
|
|||||||
ld a,COLORP.HIGHGRAY + COLORI.RED
|
ld a,COLORP.HIGHGRAY + COLORI.RED
|
||||||
CDprn: ld de,84
|
CDprn: ld de,84
|
||||||
ld bc,140
|
ld bc,140
|
||||||
JP JUMPS.PrnTxtLnIFF
|
JP JUMPS.PrintTxtLine_IFF
|
||||||
|
|
||||||
msgY DZ "CD-ROM is present"
|
msgY DZ "CD-ROM is present"
|
||||||
msgN DZ "CD-ROM is absent"
|
msgN DZ "CD-ROM is absent"
|
||||||
@ -418,7 +418,7 @@ DEBUG_TXTKEYS LD HL,DEBUGTABLKEYS
|
|||||||
INC HL
|
INC HL
|
||||||
EX (SP),HL
|
EX (SP),HL
|
||||||
LD A,COLORP.HIGHGRAY + COLORI.RED
|
LD A,COLORP.HIGHGRAY + COLORI.RED
|
||||||
CALL JUMPS.PrnTxtLnIFF
|
CALL JUMPS.PrninTxtLine_IFF
|
||||||
POP HL
|
POP HL
|
||||||
JR .L1
|
JR .L1
|
||||||
ENDIF
|
ENDIF
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 15.07.2025 savelij
|
; LAST UPDATE: 01.08.2025 savelij
|
||||||
|
|
||||||
include macros.a80
|
include macros.a80
|
||||||
include fn_const.a80
|
include fn_const.a80
|
||||||
@ -52,17 +52,17 @@ aYear: EQU $ - STRLEN("Year") - 2
|
|||||||
ld de,202
|
ld de,202
|
||||||
ld bc,149
|
ld bc,149
|
||||||
ld a,COLORP.HIGHGRAY;80h
|
ld a,COLORP.HIGHGRAY;80h
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
ld hl,aReset ; "Reset"
|
ld hl,aReset ; "Reset"
|
||||||
ld de,270
|
ld de,270
|
||||||
ld bc,149
|
ld bc,149
|
||||||
ld a,COLORP.HIGHGRAY;80h
|
ld a,COLORP.HIGHGRAY;80h
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
ld hl,aQuit ; "Quit"
|
ld hl,aQuit ; "Quit"
|
||||||
ld de,438
|
ld de,438
|
||||||
ld bc,149
|
ld bc,149
|
||||||
ld a,COLORP.HIGHGRAY;80h
|
ld a,COLORP.HIGHGRAY;80h
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
call GetSysTime
|
call GetSysTime
|
||||||
call InitDate
|
call InitDate
|
||||||
ld ix,320
|
ld ix,320
|
||||||
@ -70,13 +70,13 @@ aYear: EQU $ - STRLEN("Year") - 2
|
|||||||
ld de,320
|
ld de,320
|
||||||
ld bc,114
|
ld bc,114
|
||||||
ld a,COLORP.HIGHGRAY;80h
|
ld a,COLORP.HIGHGRAY;80h
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
call sub_C2B7
|
call sub_C2B7
|
||||||
call PrintMonth
|
call PrintMonth
|
||||||
call PrintYear
|
call PrintYear
|
||||||
call JUMPS.ResFire
|
call JUMPS.WaitUnpressMouse
|
||||||
_plugin_loop: ld ix,PluginMouseTab
|
_plugin_loop: ld ix,PluginMouseTab
|
||||||
call JUMPS.TestCoords
|
call JUMPS.CheckCoordsMouse
|
||||||
halt
|
halt
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
jr z,_plugin_loop
|
jr z,_plugin_loop
|
||||||
@ -109,9 +109,8 @@ PrintDay: ld a,(Day)
|
|||||||
ld ix,14h
|
ld ix,14h
|
||||||
ld de,0C3h
|
ld de,0C3h
|
||||||
ld bc,82h
|
ld bc,82h
|
||||||
ld a,80h
|
ld a,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
call JUMPS.PrnRangPathL
|
JP JUMPS.PrintPathLeft
|
||||||
ret
|
|
||||||
|
|
||||||
DecDay: ld a,(max_date)
|
DecDay: ld a,(max_date)
|
||||||
ld b,a
|
ld b,a
|
||||||
@ -149,8 +148,7 @@ sub_C1F3: ld ix,40h ; '@'
|
|||||||
ld de,13Ah
|
ld de,13Ah
|
||||||
ld bc,82h
|
ld bc,82h
|
||||||
ld a,80h
|
ld a,80h
|
||||||
call JUMPS.PrnRangPathC
|
JP JUMPS.PrintPathCentr
|
||||||
ret
|
|
||||||
|
|
||||||
DecMonth: ld a,(Month)
|
DecMonth: ld a,(Month)
|
||||||
cp 0Bh
|
cp 0Bh
|
||||||
@ -186,10 +184,9 @@ PrintYear: ld ix,1Ah
|
|||||||
ld de,1A7h
|
ld de,1A7h
|
||||||
ld bc,82h
|
ld bc,82h
|
||||||
ld a,80h
|
ld a,80h
|
||||||
call JUMPS.PrnRangPathC
|
call JUMPS.PrintPathCentr
|
||||||
call sub_C268
|
call sub_C268
|
||||||
call sub_C2B7
|
JP sub_C2B7
|
||||||
ret
|
|
||||||
|
|
||||||
DecYear: ld hl, a0+4 ; " "
|
DecYear: ld hl, a0+4 ; " "
|
||||||
ld c,'9'
|
ld c,'9'
|
||||||
@ -230,25 +227,25 @@ loc_C281: ld (max_date),a
|
|||||||
ret
|
ret
|
||||||
|
|
||||||
loc_C285: ld de, a0+1 ; " "
|
loc_C285: ld de, a0+1 ; " "
|
||||||
call JUMPS.ConvTxtNum16
|
call JUMPS.atoi_16b
|
||||||
push hl
|
push hl
|
||||||
pop bc
|
pop bc
|
||||||
ld de,190h
|
ld de,190h
|
||||||
push bc
|
push bc
|
||||||
call JUMPS.Divis16X16
|
call JUMPS.Div_16X16_16b_16b
|
||||||
pop bc
|
pop bc
|
||||||
ld a,h
|
ld a,h
|
||||||
or l
|
or l
|
||||||
jr z,loc_C2AF
|
jr z,loc_C2AF
|
||||||
ld de,4
|
ld de,4
|
||||||
push bc
|
push bc
|
||||||
call JUMPS.Divis16X16
|
call JUMPS.Div_16X16_16b_16b
|
||||||
pop bc
|
pop bc
|
||||||
ld a,h
|
ld a,h
|
||||||
or l
|
or l
|
||||||
jr nz,loc_C2B3
|
jr nz,loc_C2B3
|
||||||
ld de,64h ; 'd'
|
ld de,64h ; 'd'
|
||||||
call JUMPS.Divis16X16
|
call JUMPS.Div_16X16_16b_16b
|
||||||
ld a,h
|
ld a,h
|
||||||
or l
|
or l
|
||||||
jr z,loc_C2B3
|
jr z,loc_C2B3
|
||||||
@ -264,11 +261,10 @@ sub_C2B7: ld a,(Day)
|
|||||||
cp b
|
cp b
|
||||||
jr nc,loc_C2C4
|
jr nc,loc_C2C4
|
||||||
ld (Day),a
|
ld (Day),a
|
||||||
loc_C2C4: call PrintDay
|
loc_C2C4: JP PrintDay
|
||||||
ret
|
|
||||||
|
|
||||||
SetDate: ld de, a0+1 ; " "
|
SetDate: ld de, a0+1 ; " "
|
||||||
call JUMPS.ConvTxtNum16
|
call JUMPS.atoi_16b
|
||||||
push hl
|
push hl
|
||||||
SPDSS DSSF.GETTIME,0
|
SPDSS DSSF.GETTIME,0
|
||||||
ld a,(Day)
|
ld a,(Day)
|
||||||
@ -284,8 +280,7 @@ SetDate: ld de, a0+1 ; " "
|
|||||||
ReadDate: call GetSysTime
|
ReadDate: call GetSysTime
|
||||||
loc_C2E9: call PrintDay
|
loc_C2E9: call PrintDay
|
||||||
call PrintMonth
|
call PrintMonth
|
||||||
call PrintYear
|
JP PrintYear
|
||||||
ret
|
|
||||||
|
|
||||||
GetSysTime:
|
GetSysTime:
|
||||||
SPDSS DSSF.GETTIME,0
|
SPDSS DSSF.GETTIME,0
|
||||||
@ -302,7 +297,7 @@ loc_C307: ld (hl),30h ; '0'
|
|||||||
djnz loc_C307
|
djnz loc_C307
|
||||||
pop hl
|
pop hl
|
||||||
ld de, a0+1 ; " "
|
ld de, a0+1 ; " "
|
||||||
call JUMPS.ConvNumTxt16
|
call JUMPS.ConvertNumbers_16b
|
||||||
InitDate: ld hl, aToday+6 ; ""
|
InitDate: ld hl, aToday+6 ; ""
|
||||||
ld b,' '
|
ld b,' '
|
||||||
loc_C318: ld (hl),0
|
loc_C318: ld (hl),0
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 29.07.2025 savelij
|
; LAST UPDATE: 03.08.2025 savelij
|
||||||
|
|
||||||
ENABLE_CODEPAGE EQU 0
|
ENABLE_CODEPAGE EQU 0
|
||||||
|
|
||||||
@ -46,7 +46,7 @@ EditorLoop CALL FEChCursor
|
|||||||
JP NZ,HEditLoop
|
JP NZ,HEditLoop
|
||||||
; ०¨¬ । ªâ¨à®¢ ¨ï ⥪áâ
|
; ०¨¬ । ªâ¨à®¢ ¨ï ⥪áâ
|
||||||
TEditLoop LD IX,FEASCIItab
|
TEditLoop LD IX,FEASCIItab
|
||||||
CALL JUMPS.TestCoords
|
CALL JUMPS.CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY ; ަ¨¤ ¥¬ ¦ â¨ï ª« ¢¨è
|
SPDSS DSSF.SCANKEY ; ަ¨¤ ¥¬ ¦ â¨ï ª« ¢¨è
|
||||||
JR Z,EditorLoop
|
JR Z,EditorLoop
|
||||||
LD A,D
|
LD A,D
|
||||||
@ -138,7 +138,7 @@ TEditLoop LD IX,FEASCIItab
|
|||||||
|
|
||||||
; ०¨¬ । ªâ¨à®¢ ¨ï HEX
|
; ०¨¬ । ªâ¨à®¢ ¨ï HEX
|
||||||
HEditLoop LD IX,FEHEXtab
|
HEditLoop LD IX,FEHEXtab
|
||||||
CALL JUMPS.TestCoords
|
CALL JUMPS.CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY ; ަ¨¤ ¥¬ ¦ â¨ï ª« ¢¨è
|
SPDSS DSSF.SCANKEY ; ަ¨¤ ¥¬ ¦ â¨ï ª« ¢¨è
|
||||||
JP Z,EditorLoop
|
JP Z,EditorLoop
|
||||||
LD A,D
|
LD A,D
|
||||||
@ -276,7 +276,7 @@ EditorExit CALL PutString
|
|||||||
W_TEXT 150,45,COLORP.HIGHGRAY,"No"
|
W_TEXT 150,45,COLORP.HIGHGRAY,"No"
|
||||||
W_END
|
W_END
|
||||||
SureLoop LD IX,SureTab
|
SureLoop LD IX,SureTab
|
||||||
CALL JUMPS.TestCoords
|
CALL JUMPS.CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,SureLoop
|
JR Z,SureLoop
|
||||||
LD A,B
|
LD A,B
|
||||||
@ -319,7 +319,7 @@ QuitAsk: ld a,0
|
|||||||
W_TEXT 150,35,COLORP.HIGHGRAY,"No"
|
W_TEXT 150,35,COLORP.HIGHGRAY,"No"
|
||||||
W_END
|
W_END
|
||||||
FEQuitLoop: LD IX,FEQuitTab
|
FEQuitLoop: LD IX,FEQuitTab
|
||||||
CALL JUMPS.TestCoords
|
CALL JUMPS.CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,FEQuitLoop
|
JR Z,FEQuitLoop
|
||||||
LD A,B
|
LD A,B
|
||||||
@ -389,18 +389,18 @@ FEInitScreen
|
|||||||
LD HL,WorkBuffer
|
LD HL,WorkBuffer
|
||||||
LD DE,0x0030
|
LD DE,0x0030
|
||||||
LD BC,0x0011
|
LD BC,0x0011
|
||||||
LD A,0x80
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL JUMPS.PrnRangPathL
|
CALL JUMPS.PrintPathLeft
|
||||||
LD HL,0x01FC
|
LD HL,520
|
||||||
LD DE,0x0003
|
LD DE,3
|
||||||
LD B,0x08
|
LD B,COLORP.BLACK + COLORI.HIGHGRAY
|
||||||
EXX
|
EXX
|
||||||
LD HL,0x022E
|
LD HL,568
|
||||||
LD DE,0x0003
|
LD DE,3
|
||||||
LD B,0x08
|
LD B,COLORP.BLACK + COLORI.HIGHGRAY
|
||||||
EXX
|
EXX
|
||||||
LD A,0x02
|
LD A,DateMonthFormat.Digit
|
||||||
JP JUMPS.SetCMOSPrint
|
JP JUMPS.CMOSPrintDateTime
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
InitStatus
|
InitStatus
|
||||||
@ -478,7 +478,7 @@ ASCIIenc2 EQU $ - 2
|
|||||||
InitFile LD A,(EditMode)
|
InitFile LD A,(EditMode)
|
||||||
OR A
|
OR A
|
||||||
JR NZ,InitFileHex
|
JR NZ,InitFileHex
|
||||||
CALL JUMPS.SetClock
|
CALL JUMPS.PointerMouseClock
|
||||||
LD HL,0x0000
|
LD HL,0x0000
|
||||||
LD E,L
|
LD E,L
|
||||||
LD D,H
|
LD D,H
|
||||||
@ -511,7 +511,7 @@ InitAlp PUSH HL
|
|||||||
LD (CLine),HL
|
LD (CLine),HL
|
||||||
LD H,0x00
|
LD H,0x00
|
||||||
LD (CAddX),HL
|
LD (CAddX),HL
|
||||||
JP JUMPS.SetMouse
|
JP JUMPS.PointerMousePointer
|
||||||
|
|
||||||
InitFileHex LD HL,(FEFileLenght)
|
InitFileHex LD HL,(FEFileLenght)
|
||||||
LD A,L
|
LD A,L
|
||||||
@ -704,7 +704,7 @@ FEAbout CALL FEResCursor
|
|||||||
W_TEXT 154,69,COLORP.HIGHGRAY,"Ok"
|
W_TEXT 154,69,COLORP.HIGHGRAY,"Ok"
|
||||||
W_END
|
W_END
|
||||||
FEAboutLoop LD IX,FEAboutTab
|
FEAboutLoop LD IX,FEAboutTab
|
||||||
CALL JUMPS.TestCoords
|
CALL JUMPS.CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,FEAboutLoop
|
JR Z,FEAboutLoop
|
||||||
LD A,B
|
LD A,B
|
||||||
|
|||||||
@ -1,8 +1,8 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 29.07.2025 savelij
|
; LAST UPDATE: 31.07.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
FELoadFile CALL JUMPS.SetClock
|
FELoadFile CALL JUMPS.PointerMouseClock
|
||||||
LD DE,EditingFile
|
LD DE,EditingFile
|
||||||
PUSH HL
|
PUSH HL
|
||||||
SPDSS DSSF.F_FIRST,1,0x37
|
SPDSS DSSF.F_FIRST,1,0x37
|
||||||
@ -51,12 +51,12 @@ FELoadFile CALL JUMPS.SetClock
|
|||||||
AND 0xC0
|
AND 0xC0
|
||||||
RLCA
|
RLCA
|
||||||
RLCA
|
RLCA
|
||||||
LD (IX+PROC.MAX_PAGES),A
|
LD (IX+PROGRESSBAR.MAX_PAGES),A
|
||||||
SUB A
|
SUB A
|
||||||
LD (IX+PROC.MAX_PAGES + 1),A
|
LD (IX+PROGRESSBAR.MAX_PAGES + 1),A
|
||||||
LD (IX+PROC.MAX_PAGES + 2),A
|
LD (IX+PROGRESSBAR.MAX_PAGES + 2),A
|
||||||
LD (IX+PROC.MAX_PAGES + 3),A
|
LD (IX+PROGRESSBAR.MAX_PAGES + 3),A
|
||||||
CALL JUMPS.InitProcess
|
CALL JUMPS.InitProgressBar
|
||||||
MAKEWINDOW WINSUBOBJ.STORE
|
MAKEWINDOW WINSUBOBJ.STORE
|
||||||
W_MAIN 160,88,320,48
|
W_MAIN 160,88,320,48
|
||||||
W_FILL 4,2,312,10,COLORI.BLACK
|
W_FILL 4,2,312,10,COLORI.BLACK
|
||||||
@ -97,8 +97,8 @@ FELoadFile CALL JUMPS.SetClock
|
|||||||
LD HL,WorkBuffer
|
LD HL,WorkBuffer
|
||||||
LD DE,0x00D8
|
LD DE,0x00D8
|
||||||
LD BC,0x0068
|
LD BC,0x0068
|
||||||
LD A,0x80
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL JUMPS.PrnRangPathL
|
CALL JUMPS.PrintPathLeft
|
||||||
LD HL,EditingFile+33
|
LD HL,EditingFile+33
|
||||||
SPDSS DSSF.OPEN,,1
|
SPDSS DSSF.OPEN,,1
|
||||||
PUSH AF
|
PUSH AF
|
||||||
@ -162,7 +162,7 @@ FELoadExit HALT
|
|||||||
HALT
|
HALT
|
||||||
WINDOWCLOSE
|
WINDOWCLOSE
|
||||||
PUSH AF
|
PUSH AF
|
||||||
CALL JUMPS.SetMouse
|
CALL JUMPS.PointerMousePointer
|
||||||
POP AF
|
POP AF
|
||||||
RET
|
RET
|
||||||
|
|
||||||
@ -176,7 +176,7 @@ FENoRead LD A,(FEMemIndef)
|
|||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
FENewFile PUSH AF
|
FENewFile PUSH AF
|
||||||
CALL JUMPS.SetMouse
|
CALL JUMPS.PointerMousePointer
|
||||||
POP AF
|
POP AF
|
||||||
CP 0x03
|
CP 0x03
|
||||||
JR Z,.NewFile1
|
JR Z,.NewFile1
|
||||||
@ -204,10 +204,10 @@ FENewFile PUSH AF
|
|||||||
LD HL,WorkBuffer
|
LD HL,WorkBuffer
|
||||||
LD DE,0x0140
|
LD DE,0x0140
|
||||||
LD BC,0x0076
|
LD BC,0x0076
|
||||||
LD A,0x80
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL JUMPS.PrnRangPathC
|
CALL JUMPS.PrintPathCentr
|
||||||
NewFLoop LD IX,NewFileTab
|
NewFLoop LD IX,NewFileTab
|
||||||
CALL JUMPS.TestCoords
|
CALL JUMPS.CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,NewFLoop
|
JR Z,NewFLoop
|
||||||
LD A,B
|
LD A,B
|
||||||
@ -307,7 +307,7 @@ EError PUSH AF
|
|||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
SaveFile CALL PutString
|
SaveFile CALL PutString
|
||||||
CALL JUMPS.SetClock
|
CALL JUMPS.PointerMouseClock
|
||||||
LD IX,ProcessEdit
|
LD IX,ProcessEdit
|
||||||
LD HL,(FEFileLenght)
|
LD HL,(FEFileLenght)
|
||||||
LD A,H
|
LD A,H
|
||||||
@ -320,12 +320,12 @@ SaveFile CALL PutString
|
|||||||
OR L
|
OR L
|
||||||
JR Z,.L1
|
JR Z,.L1
|
||||||
INC B
|
INC B
|
||||||
.L1 LD (IX+PROC.MAX_PAGES),B
|
.L1 LD (IX+PROGRESSBAR.MAX_PAGES),B
|
||||||
SUB A
|
SUB A
|
||||||
LD (IX+PROC.MAX_PAGES + 1),A
|
LD (IX+PROGRESSBAR.MAX_PAGES + 1),A
|
||||||
LD (IX+PROC.MAX_PAGES + 2),A
|
LD (IX+PROGRESSBAR.MAX_PAGES + 2),A
|
||||||
LD (IX+PROC.MAX_PAGES + 3),A
|
LD (IX+PROGRESSBAR.MAX_PAGES + 3),A
|
||||||
CALL JUMPS.InitProcess
|
CALL JUMPS.InitProgressBar
|
||||||
MAKEWINDOW WINSUBOBJ.STORE
|
MAKEWINDOW WINSUBOBJ.STORE
|
||||||
W_MAIN 160,88,320,48
|
W_MAIN 160,88,320,48
|
||||||
W_FILL 4,2,312,10,COLORI.BLACK
|
W_FILL 4,2,312,10,COLORI.BLACK
|
||||||
@ -370,8 +370,8 @@ SaveFile CALL PutString
|
|||||||
LD HL,WorkBuffer
|
LD HL,WorkBuffer
|
||||||
LD DE,0x00D0
|
LD DE,0x00D0
|
||||||
LD BC,0x0068
|
LD BC,0x0068
|
||||||
LD A,0x80
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL JUMPS.PrnRangPathL
|
CALL JUMPS.PrintPathLeft
|
||||||
LD HL,EditingFile+33
|
LD HL,EditingFile+33
|
||||||
LD A,(EditingFile+32)
|
LD A,(EditingFile+32)
|
||||||
PUSH IY
|
PUSH IY
|
||||||
@ -438,7 +438,7 @@ SaveExit SUB A
|
|||||||
SaveExit1 HALT
|
SaveExit1 HALT
|
||||||
HALT
|
HALT
|
||||||
WINDOWCLOSE
|
WINDOWCLOSE
|
||||||
CALL JUMPS.SetMouse
|
CALL JUMPS.PointerMousePointer
|
||||||
RET
|
RET
|
||||||
|
|
||||||
SaveAbort POP HL
|
SaveAbort POP HL
|
||||||
@ -448,20 +448,20 @@ SaveAbort POP HL
|
|||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
FENextProcess LD IX,ProcessEdit
|
FENextProcess LD IX,ProcessEdit
|
||||||
LD L,(IX+PROC.CURR_PAGE)
|
LD L,(IX+PROGRESSBAR.CURR_PAGE)
|
||||||
LD H,(IX+PROC.CURR_PAGE + 1)
|
LD H,(IX+PROGRESSBAR.CURR_PAGE + 1)
|
||||||
INC HL
|
INC HL
|
||||||
LD (IX+PROC.CURR_PAGE),L
|
LD (IX+PROGRESSBAR.CURR_PAGE),L
|
||||||
LD (IX+PROC.CURR_PAGE + 1),H
|
LD (IX+PROGRESSBAR.CURR_PAGE + 1),H
|
||||||
LD A,H
|
LD A,H
|
||||||
OR L
|
OR L
|
||||||
JR NZ,.NextPr1
|
JR NZ,.NextPr1
|
||||||
LD L,(IX+PROC.CURR_PAGE + 2)
|
LD L,(IX+PROGRESSBAR.CURR_PAGE + 2)
|
||||||
LD H,(IX+PROC.CURR_PAGE + 3)
|
LD H,(IX+PROGRESSBAR.CURR_PAGE + 3)
|
||||||
INC HL
|
INC HL
|
||||||
LD (IX+PROC.CURR_PAGE + 2),L
|
LD (IX+PROGRESSBAR.CURR_PAGE + 2),L
|
||||||
LD (IX+PROC.CURR_PAGE + 3),H
|
LD (IX+PROGRESSBAR.CURR_PAGE + 3),H
|
||||||
.NextPr1 CALL JUMPS.PrnProcess
|
.NextPr1 CALL JUMPS.DrawProgressBar
|
||||||
RET
|
RET
|
||||||
|
|
||||||
ProcessEdit DW 178
|
ProcessEdit DW 178
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 26.07.2025 savelij
|
; LAST UPDATE: 01.08.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
;<3B>à®æ¥¤ãà ¯¥ç ⨠áâà ¨æë ¤ ¬¯ á ⥪.ᬥé. ®â ç « ä ©«
|
;<3B>à®æ¥¤ãà ¯¥ç ⨠áâà ¨æë ¤ ¬¯ á ⥪.ᬥé. ®â ç « ä ©«
|
||||||
@ -161,7 +161,7 @@ FEFillHex LD A,0x10 ;
|
|||||||
LD B,0x4E
|
LD B,0x4E
|
||||||
LD C,IXH
|
LD C,IXH
|
||||||
LD A,COLORP.PANEL + COLORI.FILES
|
LD A,COLORP.PANEL + COLORI.FILES
|
||||||
CALL JUMPS.PrnTxtLnNormC
|
CALL JUMPS.PrintTxtLineNumsChar
|
||||||
OR A
|
OR A
|
||||||
RET ;CY-¡ë« ¯®á«¥¤ïï áâப
|
RET ;CY-¡ë« ¯®á«¥¤ïï áâப
|
||||||
|
|
||||||
@ -222,18 +222,18 @@ PrnHEXinfo LD HL,LineH
|
|||||||
LD HL,(CurLine)
|
LD HL,(CurLine)
|
||||||
LD DE,LineH
|
LD DE,LineH
|
||||||
INC HL
|
INC HL
|
||||||
CALL JUMPS.ConvNumTxt16
|
CALL JUMPS.ConvertNumbers_16b
|
||||||
LD DE,ColH
|
LD DE,ColH
|
||||||
LD A,(IY+CursorX)
|
LD A,(IY+CursorX)
|
||||||
SRL A
|
SRL A
|
||||||
INC A
|
INC A
|
||||||
CALL JUMPS.ConvNumTxt8
|
CALL JUMPS.ConvertNumbers_8b
|
||||||
LD HL,0xC000
|
LD HL,0xC000
|
||||||
LD DE,FreeH
|
LD DE,FreeH
|
||||||
LD BC,(FEFileLenght)
|
LD BC,(FEFileLenght)
|
||||||
OR A
|
OR A
|
||||||
SBC HL,BC
|
SBC HL,BC
|
||||||
CALL JUMPS.ConvNumTxt16
|
CALL JUMPS.ConvertNumbers_16b
|
||||||
LD HL,ReadyNo
|
LD HL,ReadyNo
|
||||||
LD A,(IY+ReadyFile)
|
LD A,(IY+ReadyFile)
|
||||||
OR A
|
OR A
|
||||||
@ -241,23 +241,23 @@ PrnHEXinfo LD HL,LineH
|
|||||||
LD HL,ReadyYes
|
LD HL,ReadyYes
|
||||||
.L1 LD DE,0x017E
|
.L1 LD DE,0x017E
|
||||||
LD BC,0x0011
|
LD BC,0x0011
|
||||||
LD A,0x80
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL JUMPS.PrnTxtLnIFF
|
CALL JUMPS.PrintTxtLine_IFF
|
||||||
LD HL,LineH
|
LD HL,LineH
|
||||||
LD DE,0x01AE
|
LD DE,0x01AE
|
||||||
LD BC,0x0011
|
LD BC,0x0011
|
||||||
LD A,0x80
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL JUMPS.PrnTxtLnIFF
|
CALL JUMPS.PrintTxtLine_IFF
|
||||||
LD HL,ColH
|
LD HL,ColH
|
||||||
LD DE,0x01F8
|
LD DE,0x01F8
|
||||||
LD BC,0x0011
|
LD BC,0x0011
|
||||||
LD A,0x80
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL JUMPS.PrnTxtLnIFF
|
CALL JUMPS.PrintTxtLine_IFF
|
||||||
LD HL,FreeH
|
LD HL,FreeH
|
||||||
LD DE,0x0248
|
LD DE,0x0248
|
||||||
LD BC,0x0011
|
LD BC,0x0011
|
||||||
LD A,0x80
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL JUMPS.PrnTxtLnIFF
|
CALL JUMPS.PrintTxtLine_IFF
|
||||||
LD IX,EditVBar
|
LD IX,EditVBar
|
||||||
LD HL,(ELines)
|
LD HL,(ELines)
|
||||||
LD DE,(EquipLines)
|
LD DE,(EquipLines)
|
||||||
@ -268,7 +268,7 @@ PrnHEXinfo LD HL,LineH
|
|||||||
CALL JUMPS.InitScrollBar
|
CALL JUMPS.InitScrollBar
|
||||||
LD HL,(CurLine)
|
LD HL,(CurLine)
|
||||||
LD (CLine),HL
|
LD (CLine),HL
|
||||||
CALL JUMPS.PrnVScrBar
|
CALL JUMPS.DrawVScrollBar
|
||||||
RET
|
RET
|
||||||
|
|
||||||
TstLinH LD HL,(CLine)
|
TstLinH LD HL,(CLine)
|
||||||
@ -277,7 +277,7 @@ TstLinH LD HL,(CLine)
|
|||||||
SBC HL,DE
|
SBC HL,DE
|
||||||
RET Z
|
RET Z
|
||||||
LD (CLine),DE
|
LD (CLine),DE
|
||||||
CALL JUMPS.PrnVScrBar
|
CALL JUMPS.DrawVScrollBar
|
||||||
RET
|
RET
|
||||||
|
|
||||||
LineH DUPL 6,0
|
LineH DUPL 6,0
|
||||||
@ -448,7 +448,7 @@ HDeleteByte LD HL,(LineShift)
|
|||||||
LD C,A
|
LD C,A
|
||||||
LD B,0x06
|
LD B,0x06
|
||||||
LD A,COLORP.PANEL + COLORI.FILES
|
LD A,COLORP.PANEL + COLORI.FILES
|
||||||
CALL JUMPS.PrnTxtLnNormC
|
CALL JUMPS.PrintTxtLineNumsChar
|
||||||
HDelS1 LD (IY+ReadyFile),0x01
|
HDelS1 LD (IY+ReadyFile),0x01
|
||||||
RES 0,(IY+CursorX)
|
RES 0,(IY+CursorX)
|
||||||
LD A,0x01
|
LD A,0x01
|
||||||
@ -1076,7 +1076,7 @@ FEPrintHGT LD HL,FENewShift
|
|||||||
LD DE,0x0008
|
LD DE,0x0008
|
||||||
LD BC,0x051C
|
LD BC,0x051C
|
||||||
LD A,COLORP.PANEL + COLORI.FILES
|
LD A,COLORP.PANEL + COLORI.FILES
|
||||||
CALL JUMPS.PrnTxtLnNormC
|
CALL JUMPS.PrintTxtLineNumsChar
|
||||||
LD A,(FECursPos) ;<3B>®§¨æ¨ï ¢ë¢®¤ ªãàá®à
|
LD A,(FECursPos) ;<3B>®§¨æ¨ï ¢ë¢®¤ ªãàá®à
|
||||||
INC A
|
INC A
|
||||||
LD L,A
|
LD L,A
|
||||||
@ -1089,7 +1089,7 @@ FEPrintHGT LD HL,FENewShift
|
|||||||
LD (HL),0xAB;'<'
|
LD (HL),0xAB;'<'
|
||||||
LD BC,0x011C
|
LD BC,0x011C
|
||||||
LD A,COLORP.PANEL + COLORI.FILES
|
LD A,COLORP.PANEL + COLORI.FILES
|
||||||
CALL JUMPS.PrnTxtLnNormC
|
CALL JUMPS.PrintTxtLineNumsChar
|
||||||
LD A,0x01 ;<3B>®¬¥à ¢ë¢¥¤¥®£® ªãàá®à
|
LD A,0x01 ;<3B>®¬¥à ¢ë¢¥¤¥®£® ªãàá®à
|
||||||
LD (FECurCurs),A
|
LD (FECurCurs),A
|
||||||
LD A,0x06 ;ަ¨¤ ¨¥ ¤«ï á¬¥ë ªãàá®à
|
LD A,0x06 ;ަ¨¤ ¨¥ ¤«ï á¬¥ë ªãàá®à
|
||||||
@ -1127,7 +1127,7 @@ FECurCurs EQU $-1
|
|||||||
LD (HL),A
|
LD (HL),A
|
||||||
LD BC,0x011C
|
LD BC,0x011C
|
||||||
LD A,COLORP.PANEL + COLORI.FILES
|
LD A,COLORP.PANEL + COLORI.FILES
|
||||||
CALL JUMPS.PrnTxtLnNormC
|
CALL JUMPS.PrintTxtLineNumsChar
|
||||||
LD A,0x0C ;ަ¨¤ ¨¥ ¤«ï á¬¥ë ªãàá®à
|
LD A,0x0C ;ަ¨¤ ¨¥ ¤«ï á¬¥ë ªãàá®à
|
||||||
LD (FECurWait),A
|
LD (FECurWait),A
|
||||||
RET
|
RET
|
||||||
@ -1169,8 +1169,7 @@ FEHGTenter SUB A ;
|
|||||||
SUB A
|
SUB A
|
||||||
LD (IY+CursorX),A
|
LD (IY+CursorX),A
|
||||||
LD (IY+CursorY),A
|
LD (IY+CursorY),A
|
||||||
CALL FEPrnHEXpage ;<3B>¥ç â ¥¬ áâà ¨æã
|
JP FEPrnHEXpage ;<3B>¥ç â ¥¬ áâà ¨æã
|
||||||
RET
|
|
||||||
|
|
||||||
;<3B> ¦ â Escape
|
;<3B> ¦ â Escape
|
||||||
FEHGTescape LD HL,FENewShift ;<3B>ãä¥à áâப¨
|
FEHGTescape LD HL,FENewShift ;<3B>ãä¥à áâப¨
|
||||||
@ -1185,10 +1184,9 @@ FEHGTescape LD HL,FENewShift ;
|
|||||||
LD DE,0x0008
|
LD DE,0x0008
|
||||||
LD BC,0x051C
|
LD BC,0x051C
|
||||||
LD A,COLORP.PANEL + COLORI.FILES
|
LD A,COLORP.PANEL + COLORI.FILES
|
||||||
CALL JUMPS.PrnTxtLnNormC
|
CALL JUMPS.PrintTxtLineNumsChar
|
||||||
CALL PrHEXCr
|
CALL PrHEXCr
|
||||||
CALL JUMPS.ResFire
|
JP JUMPS.WaitUnpressMouse ;‚ë室¨¬
|
||||||
RET ;‚ë室¨¬
|
|
||||||
|
|
||||||
FENewShift DEFB " ",0
|
FENewShift DEFB " ",0
|
||||||
|
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 26.07.2025 savelij
|
; LAST UPDATE: 31.07.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
FEPrintFile CALL FEResCursor
|
FEPrintFile CALL FEResCursor
|
||||||
@ -13,7 +13,7 @@ FEPrintFile CALL FEResCursor
|
|||||||
W_TEXT 140,35,COLORP.HIGHGRAY,"Stop"
|
W_TEXT 140,35,COLORP.HIGHGRAY,"Stop"
|
||||||
W_END
|
W_END
|
||||||
LD IX,FEPrintTab
|
LD IX,FEPrintTab
|
||||||
CALL JUMPS.TestCoords
|
CALL JUMPS.CheckCoordsMouse
|
||||||
LD IX,FEProcessPrn
|
LD IX,FEProcessPrn
|
||||||
LD HL,(FEFileLenght)
|
LD HL,(FEFileLenght)
|
||||||
LD A,L
|
LD A,L
|
||||||
@ -22,11 +22,11 @@ FEPrintFile CALL FEResCursor
|
|||||||
OR A
|
OR A
|
||||||
JR Z,.InitPrn
|
JR Z,.InitPrn
|
||||||
INC HL
|
INC HL
|
||||||
.InitPrn LD (IX+PROC.MAX_PAGES),L
|
.InitPrn LD (IX+PROGRESSBAR.MAX_PAGES),L
|
||||||
LD (IX+PROC.MAX_PAGES + 1),H
|
LD (IX+PROGRESSBAR.MAX_PAGES + 1),H
|
||||||
LD (IX+PROC.MAX_PAGES + 2),0x00
|
LD (IX+PROGRESSBAR.MAX_PAGES + 2),0x00
|
||||||
LD (IX+PROC.MAX_PAGES + 3),0x00
|
LD (IX+PROGRESSBAR.MAX_PAGES + 3),0x00
|
||||||
CALL JUMPS.InitProcess
|
CALL JUMPS.InitProgressBar
|
||||||
LD A,(EditMode)
|
LD A,(EditMode)
|
||||||
OR A
|
OR A
|
||||||
JP NZ,FEPrintHEX
|
JP NZ,FEPrintHEX
|
||||||
@ -227,7 +227,7 @@ FEPrintCHAR LD IXL,A
|
|||||||
BIT 0,A
|
BIT 0,A
|
||||||
JR Z,.PrnCH1
|
JR Z,.PrnCH1
|
||||||
LD IX,FEPrintTab
|
LD IX,FEPrintTab
|
||||||
CALL JUMPS.TestCoords
|
CALL JUMPS.CheckCoordsMouse
|
||||||
JR C,.PrnCH2
|
JR C,.PrnCH2
|
||||||
.PrnCH1
|
.PrnCH1
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
@ -278,20 +278,20 @@ FENxtPrnProc LD A,E
|
|||||||
EXX
|
EXX
|
||||||
PUSH DE
|
PUSH DE
|
||||||
LD IX,FEProcessPrn
|
LD IX,FEProcessPrn
|
||||||
LD L,(IX+PROC.CURR_PAGE)
|
LD L,(IX+PROGRESSBAR.CURR_PAGE)
|
||||||
LD H,(IX+PROC.CURR_PAGE + 1)
|
LD H,(IX+PROGRESSBAR.CURR_PAGE + 1)
|
||||||
INC HL
|
INC HL
|
||||||
LD (IX+PROC.CURR_PAGE),L
|
LD (IX+PROGRESSBAR.CURR_PAGE),L
|
||||||
LD (IX+PROC.CURR_PAGE + 1),H
|
LD (IX+PROGRESSBAR.CURR_PAGE + 1),H
|
||||||
LD A,H
|
LD A,H
|
||||||
OR L
|
OR L
|
||||||
JR NZ,.NxtProc
|
JR NZ,.NxtProc
|
||||||
LD L,(IX+PROC.CURR_PAGE + 2)
|
LD L,(IX+PROGRESSBAR.CURR_PAGE + 2)
|
||||||
LD H,(IX+PROC.CURR_PAGE + 3)
|
LD H,(IX+PROGRESSBAR.CURR_PAGE + 3)
|
||||||
INC HL
|
INC HL
|
||||||
LD (IX+PROC.CURR_PAGE + 2),L
|
LD (IX+PROGRESSBAR.CURR_PAGE + 2),L
|
||||||
LD (IX+PROC.CURR_PAGE + 3),H
|
LD (IX+PROGRESSBAR.CURR_PAGE + 3),H
|
||||||
.NxtProc CALL JUMPS.PrnProcess
|
.NxtProc CALL JUMPS.DrawProgressBar
|
||||||
POP DE
|
POP DE
|
||||||
EXX
|
EXX
|
||||||
POP BC
|
POP BC
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 26.07.2025 savelij
|
; LAST UPDATE: 31.07.2025 savelij
|
||||||
|
|
||||||
FECSign: DB "FEC"
|
FECSign: DB "FEC"
|
||||||
HomeKeyFlag: DB 0
|
HomeKeyFlag: DB 0
|
||||||
@ -140,7 +140,7 @@ BracketsFlg: EQU $-2
|
|||||||
W_END
|
W_END
|
||||||
|
|
||||||
FESetupLoop: LD IX,FESetupTab
|
FESetupLoop: LD IX,FESetupTab
|
||||||
CALL JUMPS.TestCoords
|
CALL JUMPS.CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,FESetupLoop
|
JR Z,FESetupLoop
|
||||||
LD A,E
|
LD A,E
|
||||||
@ -182,9 +182,9 @@ SetupConfirmDlgInvert:
|
|||||||
LD (HL),A
|
LD (HL),A
|
||||||
LD DE,0x00DC
|
LD DE,0x00DC
|
||||||
LD BC,0x0065
|
LD BC,0x0065
|
||||||
LD A,0xF0
|
LD A,COLORP.WHITE + COLORI.BLACK
|
||||||
CALL JUMPS.PrnTxtLnIFF
|
CALL JUMPS.PrintTxtLine_IFF
|
||||||
JP JUMPS.ResFire
|
JP JUMPS.WaitUnpressMouse
|
||||||
|
|
||||||
SetupHomeKeyInvert:
|
SetupHomeKeyInvert:
|
||||||
LD HL,CheckTxt
|
LD HL,CheckTxt
|
||||||
@ -195,9 +195,9 @@ SetupHomeKeyInvert:
|
|||||||
LD (HL),A
|
LD (HL),A
|
||||||
LD DE,0x00DC
|
LD DE,0x00DC
|
||||||
LD BC,0x0075
|
LD BC,0x0075
|
||||||
LD A,0xF0
|
LD A,COLORP.WHITE + COLORI.BLACK
|
||||||
CALL JUMPS.PrnTxtLnIFF
|
CALL JUMPS.PrintTxtLine_IFF
|
||||||
JP JUMPS.ResFire
|
JP JUMPS.WaitUnpressMouse
|
||||||
|
|
||||||
SetupAutoIndentInvert:
|
SetupAutoIndentInvert:
|
||||||
LD HL,CheckTxt
|
LD HL,CheckTxt
|
||||||
@ -208,9 +208,9 @@ SetupAutoIndentInvert:
|
|||||||
LD (HL),A
|
LD (HL),A
|
||||||
LD DE,0x00DC
|
LD DE,0x00DC
|
||||||
LD BC,0x0085
|
LD BC,0x0085
|
||||||
LD A,0xF0
|
LD A,COLORP.WHITE + COLORI.BLACK
|
||||||
CALL JUMPS.PrnTxtLnIFF
|
CALL JUMPS.PrintTxtLine_IFF
|
||||||
JP JUMPS.ResFire
|
JP JUMPS.WaitUnpressMouse
|
||||||
|
|
||||||
SetupAutoBracketsInvert:
|
SetupAutoBracketsInvert:
|
||||||
LD HL,CheckTxt
|
LD HL,CheckTxt
|
||||||
@ -221,9 +221,9 @@ SetupAutoBracketsInvert:
|
|||||||
LD (HL),A
|
LD (HL),A
|
||||||
LD DE,0x00DC
|
LD DE,0x00DC
|
||||||
LD BC,0x0095
|
LD BC,0x0095
|
||||||
LD A,0xF0
|
LD A,COLORP.WHITE + COLORI.BLACK
|
||||||
CALL JUMPS.PrnTxtLnIFF
|
CALL JUMPS.PrintTxtLine_IFF
|
||||||
JP JUMPS.ResFire
|
JP JUMPS.WaitUnpressMouse
|
||||||
|
|
||||||
FESetupOkey: ld a,(ExitDlgFlag)
|
FESetupOkey: ld a,(ExitDlgFlag)
|
||||||
LD (QuitAsk.param),a
|
LD (QuitAsk.param),a
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 29.07.2025 savelij
|
; LAST UPDATE: 01.08.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
FEPrnASCIIpage LD HL,PrnASCIIinfo
|
FEPrnASCIIpage LD HL,PrnASCIIinfo
|
||||||
@ -235,7 +235,7 @@ PutLnExA LD L,(IY+CursAddX)
|
|||||||
LD B,0x4E
|
LD B,0x4E
|
||||||
LD C,IXH
|
LD C,IXH
|
||||||
LD A,COLORP.PANEL + COLORI.FILES
|
LD A,COLORP.PANEL + COLORI.FILES
|
||||||
CALL JUMPS.PrnTxtLnNormC
|
CALL JUMPS.PrintTxtLineNumsChar
|
||||||
OR A
|
OR A
|
||||||
RET
|
RET
|
||||||
|
|
||||||
@ -285,7 +285,7 @@ PrASCIIex1 CALL FEResCursor
|
|||||||
ADD A,0x1C
|
ADD A,0x1C
|
||||||
LD C,A
|
LD C,A
|
||||||
LD A,COLORP.PANEL + COLORI.FILES
|
LD A,COLORP.PANEL + COLORI.FILES
|
||||||
CALL JUMPS.PrnTxtLnNormC
|
CALL JUMPS.PrintTxtLineNumsChar
|
||||||
LD E,(IY+CursorX)
|
LD E,(IY+CursorX)
|
||||||
LD D,(IY+CursorY)
|
LD D,(IY+CursorY)
|
||||||
JP FESetCursor
|
JP FESetCursor
|
||||||
@ -770,18 +770,18 @@ PrnASCIIinfo LD HL,LineT
|
|||||||
LD HL,(CurLine)
|
LD HL,(CurLine)
|
||||||
LD DE,LineT
|
LD DE,LineT
|
||||||
INC HL
|
INC HL
|
||||||
CALL JUMPS.ConvNumTxt16
|
CALL JUMPS.ConvertNumbers_16b
|
||||||
LD DE,ColT
|
LD DE,ColT
|
||||||
LD A,(IY+CursorX)
|
LD A,(IY+CursorX)
|
||||||
ADD A,(IY+CursAddX)
|
ADD A,(IY+CursAddX)
|
||||||
INC A
|
INC A
|
||||||
CALL JUMPS.ConvNumTxt8
|
CALL JUMPS.ConvertNumbers_8b
|
||||||
LD HL,0xC000
|
LD HL,0xC000
|
||||||
LD DE,FreeT
|
LD DE,FreeT
|
||||||
LD BC,(FEFileLenght)
|
LD BC,(FEFileLenght)
|
||||||
OR A
|
OR A
|
||||||
SBC HL,BC
|
SBC HL,BC
|
||||||
CALL JUMPS.ConvNumTxt16
|
CALL JUMPS.ConvertNumbers_16b
|
||||||
LD HL,ReadyNo
|
LD HL,ReadyNo
|
||||||
LD A,(IY+ReadyFile)
|
LD A,(IY+ReadyFile)
|
||||||
OR A
|
OR A
|
||||||
@ -789,23 +789,23 @@ PrnASCIIinfo LD HL,LineT
|
|||||||
LD HL,ReadyYes
|
LD HL,ReadyYes
|
||||||
.L1 LD DE,0x017E
|
.L1 LD DE,0x017E
|
||||||
LD BC,0x0011
|
LD BC,0x0011
|
||||||
LD A,0x80
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL JUMPS.PrnTxtLnIFF
|
CALL JUMPS.PrintTxtLine_IFF
|
||||||
LD HL,LineT
|
LD HL,LineT
|
||||||
LD DE,0x01AE
|
LD DE,0x01AE
|
||||||
LD BC,0x0011
|
LD BC,0x0011
|
||||||
LD A,0x80
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL JUMPS.PrnTxtLnIFF
|
CALL JUMPS.PrintTxtLine_IFF
|
||||||
LD HL,ColT
|
LD HL,ColT
|
||||||
LD DE,0x01F8
|
LD DE,0x01F8
|
||||||
LD BC,0x0011
|
LD BC,0x0011
|
||||||
LD A,0x80
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL JUMPS.PrnTxtLnIFF
|
CALL JUMPS.PrintTxtLine_IFF
|
||||||
LD HL,FreeT
|
LD HL,FreeT
|
||||||
LD DE,0x0248
|
LD DE,0x0248
|
||||||
LD BC,0x0011
|
LD BC,0x0011
|
||||||
LD A,0x80
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL JUMPS.PrnTxtLnIFF
|
CALL JUMPS.PrintTxtLine_IFF
|
||||||
LD IX,EditVBar
|
LD IX,EditVBar
|
||||||
LD HL,(ELines)
|
LD HL,(ELines)
|
||||||
LD DE,(EquipLines)
|
LD DE,(EquipLines)
|
||||||
@ -816,7 +816,7 @@ PrnASCIIinfo LD HL,LineT
|
|||||||
CALL JUMPS.InitScrollBar
|
CALL JUMPS.InitScrollBar
|
||||||
LD HL,(CurLine)
|
LD HL,(CurLine)
|
||||||
LD (CLine),HL
|
LD (CLine),HL
|
||||||
CALL JUMPS.PrnVScrBar
|
CALL JUMPS.DrawVScrollBar
|
||||||
JR TstAddX
|
JR TstAddX
|
||||||
|
|
||||||
TstLine LD HL,(CLine)
|
TstLine LD HL,(CLine)
|
||||||
@ -825,7 +825,7 @@ TstLine LD HL,(CLine)
|
|||||||
SBC HL,DE
|
SBC HL,DE
|
||||||
JR Z,TstAddX
|
JR Z,TstAddX
|
||||||
LD (CLine),DE
|
LD (CLine),DE
|
||||||
CALL JUMPS.PrnVScrBar
|
CALL JUMPS.DrawVScrollBar
|
||||||
TstAddX LD A,(CAddX)
|
TstAddX LD A,(CAddX)
|
||||||
SUB (IY+CursorX)
|
SUB (IY+CursorX)
|
||||||
CP (IY+CursAddX)
|
CP (IY+CursAddX)
|
||||||
@ -834,7 +834,7 @@ TstAddX LD A,(CAddX)
|
|||||||
ADD A,(IY+CursAddX)
|
ADD A,(IY+CursAddX)
|
||||||
LD (CAddX),A
|
LD (CAddX),A
|
||||||
LD IX,EditHBar
|
LD IX,EditHBar
|
||||||
JP JUMPS.PrnHScrBar
|
JP JUMPS.DrawHScrollBar
|
||||||
|
|
||||||
ReadyNo DEFB 0x01,0
|
ReadyNo DEFB 0x01,0
|
||||||
ReadyYes DEFB "*",0
|
ReadyYes DEFB "*",0
|
||||||
@ -1945,7 +1945,7 @@ NewPos6 LD A,C
|
|||||||
LD D,(IY+CursorY)
|
LD D,(IY+CursorY)
|
||||||
CALL FESetCursor
|
CALL FESetCursor
|
||||||
CALL PrnASCIIinfo
|
CALL PrnASCIIinfo
|
||||||
JP JUMPS.ResFire
|
JP JUMPS.WaitUnpressMouse
|
||||||
|
|
||||||
IF ENABLE_CODEPAGE
|
IF ENABLE_CODEPAGE
|
||||||
; ¯¥à¥ª¤î票¥ ª®¤¨à®¢ª¨
|
; ¯¥à¥ª¤î票¥ ª®¤¨à®¢ª¨
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 28.07.2025 savelij
|
; LAST UPDATE: 31.07.2025 savelij
|
||||||
|
|
||||||
;--------------------------------------------------------------
|
;--------------------------------------------------------------
|
||||||
; <20>à®æ¥¤ãà ¯¥ç ⨠áâà ¨æë ¤ ¬¯ á ⥪.ᬥé. ®â ç « ä ©«
|
; <20>à®æ¥¤ãà ¯¥ç ⨠áâà ¨æë ¤ ¬¯ á ⥪.ᬥé. ®â ç « ä ©«
|
||||||
@ -153,7 +153,7 @@ FillHex LD A,0x10 ;
|
|||||||
LD B,0x50
|
LD B,0x50
|
||||||
LD C,IXH
|
LD C,IXH
|
||||||
LD A,COLORP.PANEL + COLORI.FILES
|
LD A,COLORP.PANEL + COLORI.FILES
|
||||||
CALL JUMPS.PrnTxtLnNormC
|
CALL JUMPS.PrintTxtLineNumsChar
|
||||||
OR A
|
OR A
|
||||||
RET ; CY-¡ë« ¯®á«¥¤ïï áâப
|
RET ; CY-¡ë« ¯®á«¥¤ïï áâப
|
||||||
|
|
||||||
@ -369,7 +369,7 @@ HPageDwn LD HL,(FileShift)
|
|||||||
RET
|
RET
|
||||||
|
|
||||||
; ‚ ç «® ä ©«
|
; ‚ ç «® ä ©«
|
||||||
HBegFile LD HL,JUMPS.ResFire
|
HBegFile LD HL,JUMPS.WaitUnpressMouse
|
||||||
PUSH HL
|
PUSH HL
|
||||||
LD HL,(FileShift)
|
LD HL,(FileShift)
|
||||||
LD BC,(FileShift+2)
|
LD BC,(FileShift+2)
|
||||||
@ -384,7 +384,7 @@ HBegFile LD HL,JUMPS.ResFire
|
|||||||
JP PrnHEXpage ; <20>¥ç â ¥¬ áâà ¨æã
|
JP PrnHEXpage ; <20>¥ç â ¥¬ áâà ¨æã
|
||||||
|
|
||||||
; ‚ ª®¥æ ä ©«
|
; ‚ ª®¥æ ä ©«
|
||||||
HEndFile LD HL,JUMPS.ResFire
|
HEndFile LD HL,JUMPS.WaitUnpressMouse
|
||||||
PUSH HL
|
PUSH HL
|
||||||
LD HL,(FileShift)
|
LD HL,(FileShift)
|
||||||
LD BC,(FileShift+2)
|
LD BC,(FileShift+2)
|
||||||
@ -552,7 +552,7 @@ PrintHGT LD HL,NewShift
|
|||||||
LD DE,0x0008
|
LD DE,0x0008
|
||||||
LD BC,0x081C
|
LD BC,0x081C
|
||||||
LD A,COLORP.PANEL + COLORI.FILES
|
LD A,COLORP.PANEL + COLORI.FILES
|
||||||
CALL JUMPS.PrnTxtLnNormC
|
CALL JUMPS.PrintTxtLineNumsChar
|
||||||
LD A,(CursPos+1) ; <20>®§¨æ¨ï ¢ë¢®¤ ªãàá®à
|
LD A,(CursPos+1) ; <20>®§¨æ¨ï ¢ë¢®¤ ªãàá®à
|
||||||
INC A
|
INC A
|
||||||
LD L,A
|
LD L,A
|
||||||
@ -565,7 +565,7 @@ PrintHGT LD HL,NewShift
|
|||||||
LD (HL),0xAB;"<"
|
LD (HL),0xAB;"<"
|
||||||
LD BC,0x011C
|
LD BC,0x011C
|
||||||
LD A,COLORP.PANEL + COLORI.FILES
|
LD A,COLORP.PANEL + COLORI.FILES
|
||||||
CALL JUMPS.PrnTxtLnNormC
|
CALL JUMPS.PrintTxtLineNumsChar
|
||||||
LD A,0x01 ; <20>®¬¥à ¢ë¢¥¤¥®£® ªãàá®à
|
LD A,0x01 ; <20>®¬¥à ¢ë¢¥¤¥®£® ªãàá®à
|
||||||
LD (CurCurs),A
|
LD (CurCurs),A
|
||||||
LD A,0x06 ; ަ¨¤ ¨¥ ¤«ï á¬¥ë ªãàá®à
|
LD A,0x06 ; ަ¨¤ ¨¥ ¤«ï á¬¥ë ªãàá®à
|
||||||
@ -603,7 +603,7 @@ CurCurs EQU $-1
|
|||||||
LD (HL),A
|
LD (HL),A
|
||||||
LD BC,0x011C
|
LD BC,0x011C
|
||||||
LD A,COLORP.PANEL + COLORI.FILES
|
LD A,COLORP.PANEL + COLORI.FILES
|
||||||
CALL JUMPS.PrnTxtLnNormC
|
CALL JUMPS.PrintTxtLineNumsChar
|
||||||
LD A,0x0C ; ަ¨¤ ¨¥ ¤«ï á¬¥ë ªãàá®à
|
LD A,0x0C ; ަ¨¤ ¨¥ ¤«ï á¬¥ë ªãàá®à
|
||||||
LD (CurWait),A
|
LD (CurWait),A
|
||||||
RET
|
RET
|
||||||
@ -661,8 +661,8 @@ HGTescape LD HL,NewShift ;
|
|||||||
LD DE,0x0008
|
LD DE,0x0008
|
||||||
LD BC,0x081C
|
LD BC,0x081C
|
||||||
LD A,COLORP.PANEL + COLORI.FILES
|
LD A,COLORP.PANEL + COLORI.FILES
|
||||||
CALL JUMPS.PrnTxtLnNormC
|
CALL JUMPS.PrintTxtLineNumsChar
|
||||||
JP JUMPS.ResFire ; ‚ë室¨¬
|
JP JUMPS.WaitUnpressMouse ; ‚ë室¨¬
|
||||||
|
|
||||||
NewShift DEFB " ",0
|
NewShift DEFB " ",0
|
||||||
|
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 28.07.2025 savelij
|
; LAST UPDATE: 03.08.2025 savelij
|
||||||
|
|
||||||
LineBuffer := WorkBuffer+0x300
|
LineBuffer := WorkBuffer+0x300
|
||||||
|
|
||||||
@ -29,7 +29,7 @@ ViewerLoop LD A,(ViewMode) ; ०
|
|||||||
JR NZ,HViewLoop
|
JR NZ,HViewLoop
|
||||||
; ०¨¬ ¯à®á¬®âà ⥪áâ
|
; ०¨¬ ¯à®á¬®âà ⥪áâ
|
||||||
TViewLoop LD IX,ASCIItab
|
TViewLoop LD IX,ASCIItab
|
||||||
CALL JUMPS.TestCoords
|
CALL JUMPS.CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY ; ަ¨¤ ¥¬ ¦ â¨ï ª« ¢¨è
|
SPDSS DSSF.SCANKEY ; ަ¨¤ ¥¬ ¦ â¨ï ª« ¢¨è
|
||||||
JR Z,TViewLoop
|
JR Z,TViewLoop
|
||||||
LD A,E ; …-ASCII ª®¤
|
LD A,E ; …-ASCII ª®¤
|
||||||
@ -87,7 +87,7 @@ TViewLoop LD IX,ASCIItab
|
|||||||
;--------------------------------------------------------------
|
;--------------------------------------------------------------
|
||||||
; ०¨¬ ¯à®á¬®âà HEX
|
; ०¨¬ ¯à®á¬®âà HEX
|
||||||
HViewLoop LD IX,HEXtab
|
HViewLoop LD IX,HEXtab
|
||||||
CALL JUMPS.TestCoords
|
CALL JUMPS.CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY ; ަ¨¤ ¥¬ ¦ â¨ï ª« ¢¨è
|
SPDSS DSSF.SCANKEY ; ަ¨¤ ¥¬ ¦ â¨ï ª« ¢¨è
|
||||||
JR Z,HViewLoop
|
JR Z,HViewLoop
|
||||||
LD A,E ; …-ASCII ª®¤
|
LD A,E ; …-ASCII ª®¤
|
||||||
@ -168,7 +168,7 @@ ViewerExit LD A,(FVMemIndef)
|
|||||||
RET
|
RET
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
LoadFile CALL JUMPS.SetClock
|
LoadFile CALL JUMPS.PointerMouseClock
|
||||||
LD DE,ViewingFile
|
LD DE,ViewingFile
|
||||||
SPDSS DSSF.F_FIRST,1, DIR.M_Archive + \
|
SPDSS DSSF.F_FIRST,1, DIR.M_Archive + \
|
||||||
DIR.M_Dir + \
|
DIR.M_Dir + \
|
||||||
@ -233,13 +233,13 @@ LoadFl1 LD A,D
|
|||||||
POP DE
|
POP DE
|
||||||
JP C,LoadExit
|
JP C,LoadExit
|
||||||
LD IX,ProcessView
|
LD IX,ProcessView
|
||||||
LD (IX+PROC.MAX_PAGES),E
|
LD (IX+PROGRESSBAR.MAX_PAGES),E
|
||||||
LD (IX+PROC.MAX_PAGES + 1),D
|
LD (IX+PROGRESSBAR.MAX_PAGES + 1),D
|
||||||
SUB A
|
SUB A
|
||||||
LD (IX+PROC.MAX_PAGES + 2),A
|
LD (IX+PROGRESSBAR.MAX_PAGES + 2),A
|
||||||
LD (IX+PROC.MAX_PAGES + 3),A
|
LD (IX+PROGRESSBAR.MAX_PAGES + 3),A
|
||||||
PUSH DE
|
PUSH DE
|
||||||
CALL JUMPS.InitProcess
|
CALL JUMPS.InitProgressBar
|
||||||
POP DE
|
POP DE
|
||||||
LD B,E
|
LD B,E
|
||||||
SPDSS DSSF.GETMEM
|
SPDSS DSSF.GETMEM
|
||||||
@ -286,8 +286,8 @@ LoadFl1 LD A,D
|
|||||||
LD HL,WorkBuffer
|
LD HL,WorkBuffer
|
||||||
LD DE,0x00D8
|
LD DE,0x00D8
|
||||||
LD BC,0x0068
|
LD BC,0x0068
|
||||||
LD A,0x80
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL JUMPS.PrnRangPathL
|
CALL JUMPS.PrintPathLeft
|
||||||
LD HL,ViewingFile+33
|
LD HL,ViewingFile+33
|
||||||
SPDSS DSSF.OPEN,,1
|
SPDSS DSSF.OPEN,,1
|
||||||
PUSH AF
|
PUSH AF
|
||||||
@ -358,7 +358,7 @@ LoadExit HALT
|
|||||||
HALT
|
HALT
|
||||||
WINDOWCLOSE
|
WINDOWCLOSE
|
||||||
PUSH AF
|
PUSH AF
|
||||||
CALL JUMPS.SetMouse
|
CALL JUMPS.PointerMousePointer
|
||||||
POP AF
|
POP AF
|
||||||
RET
|
RET
|
||||||
|
|
||||||
@ -371,20 +371,20 @@ NoRead LD A,(FVMemIndef)
|
|||||||
JR LoadExit
|
JR LoadExit
|
||||||
|
|
||||||
FVNextProcess LD IX,ProcessView
|
FVNextProcess LD IX,ProcessView
|
||||||
LD L,(IX+PROC.CURR_PAGE)
|
LD L,(IX+PROGRESSBAR.CURR_PAGE)
|
||||||
LD H,(IX+PROC.CURR_PAGE + 1)
|
LD H,(IX+PROGRESSBAR.CURR_PAGE + 1)
|
||||||
INC HL
|
INC HL
|
||||||
LD (IX+PROC.CURR_PAGE),L
|
LD (IX+PROGRESSBAR.CURR_PAGE),L
|
||||||
LD (IX+PROC.CURR_PAGE + 1),H
|
LD (IX+PROGRESSBAR.CURR_PAGE + 1),H
|
||||||
LD A,H
|
LD A,H
|
||||||
OR L
|
OR L
|
||||||
JR NZ,.NextPr1
|
JR NZ,.NextPr1
|
||||||
LD L,(IX+PROC.CURR_PAGE + 2)
|
LD L,(IX+PROGRESSBAR.CURR_PAGE + 2)
|
||||||
LD H,(IX+PROC.CURR_PAGE + 3)
|
LD H,(IX+PROGRESSBAR.CURR_PAGE + 3)
|
||||||
INC HL
|
INC HL
|
||||||
LD (IX+PROC.CURR_PAGE + 2),L
|
LD (IX+PROGRESSBAR.CURR_PAGE + 2),L
|
||||||
LD (IX+PROC.CURR_PAGE + 3),H
|
LD (IX+PROGRESSBAR.CURR_PAGE + 3),H
|
||||||
.NextPr1 JP JUMPS.PrnProcess
|
.NextPr1 JP JUMPS.DrawProgressBar
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
ProcessView DW 178
|
ProcessView DW 178
|
||||||
@ -434,7 +434,7 @@ InitViewScr LD HL,FVFLen
|
|||||||
LD H,(IX+29)
|
LD H,(IX+29)
|
||||||
LD C,(IX+30)
|
LD C,(IX+30)
|
||||||
LD B,(IX+31)
|
LD B,(IX+31)
|
||||||
CALL JUMPS.ConvNumTxt32
|
CALL JUMPS.ConvertNumbers_32b
|
||||||
LD A,0x20
|
LD A,0x20
|
||||||
LD (DE),A
|
LD (DE),A
|
||||||
INC DE
|
INC DE
|
||||||
@ -448,7 +448,7 @@ InitViewScr LD HL,FVFLen
|
|||||||
LD L,(IX+26)
|
LD L,(IX+26)
|
||||||
LD H,(IX+27)
|
LD H,(IX+27)
|
||||||
LD DE,FVFClast
|
LD DE,FVFClast
|
||||||
CALL JUMPS.ConvNumTxt16
|
CALL JUMPS.ConvertNumbers_16b
|
||||||
LD HL,FVFAtributs
|
LD HL,FVFAtributs
|
||||||
LD DE,FVFAttrib
|
LD DE,FVFAttrib
|
||||||
LD C,(IX+32)
|
LD C,(IX+32)
|
||||||
@ -486,10 +486,10 @@ FVFAttrib EQU $ - STRLEN(" ") - 1
|
|||||||
W_END
|
W_END
|
||||||
SPDSS DSSF.CURDISK
|
SPDSS DSSF.CURDISK
|
||||||
LD HL,WorkBuffer
|
LD HL,WorkBuffer
|
||||||
ADD A,"A"
|
ADD A,'A'
|
||||||
LD (HL),A
|
LD (HL),A
|
||||||
INC HL
|
INC HL
|
||||||
LD (HL),":"
|
LD (HL),':'
|
||||||
INC HL
|
INC HL
|
||||||
PUSH HL
|
PUSH HL
|
||||||
SPDSS DSSF.CURDIR
|
SPDSS DSSF.CURDIR
|
||||||
@ -512,22 +512,22 @@ FVFAttrib EQU $ - STRLEN(" ") - 1
|
|||||||
CP (HL)
|
CP (HL)
|
||||||
JR NZ,.L6
|
JR NZ,.L6
|
||||||
LD (DE),A
|
LD (DE),A
|
||||||
LD IX,0x0200
|
LD IX,512
|
||||||
LD HL,WorkBuffer
|
LD HL,WorkBuffer
|
||||||
LD DE,0x0034
|
LD DE,52
|
||||||
LD BC,0x0011
|
LD BC,17
|
||||||
LD A,0x80
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL JUMPS.PrnRangPathL
|
CALL JUMPS.PrintPathLeft
|
||||||
LD HL,0x01FC
|
LD HL,520
|
||||||
LD DE,0x0003
|
LD DE,3
|
||||||
LD B,0x08
|
LD B,COLORP.BLACK + COLORI.HIGHGRAY
|
||||||
EXX
|
EXX
|
||||||
LD HL,0x022E
|
LD HL,568
|
||||||
LD DE,0x0003
|
LD DE,3
|
||||||
LD B,0x08
|
LD B,COLORP.BLACK + COLORI.HIGHGRAY
|
||||||
EXX
|
EXX
|
||||||
LD A,0x02
|
LD A,DateMonthFormat.Digit
|
||||||
JP JUMPS.SetCMOSPrint
|
JP JUMPS.CMOSPrintDateTime
|
||||||
|
|
||||||
FVFAtributs DEFB "--ad-shr"
|
FVFAtributs DEFB "--ad-shr"
|
||||||
|
|
||||||
@ -667,7 +667,7 @@ About
|
|||||||
W_TEXT 154,69,COLORP.HIGHGRAY,"Ok"
|
W_TEXT 154,69,COLORP.HIGHGRAY,"Ok"
|
||||||
W_END
|
W_END
|
||||||
AboutLoop LD IX,FVAboutTab
|
AboutLoop LD IX,FVAboutTab
|
||||||
CALL JUMPS.TestCoords
|
CALL JUMPS.CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,AboutLoop
|
JR Z,AboutLoop
|
||||||
LD A,B
|
LD A,B
|
||||||
@ -821,7 +821,7 @@ InitProc PUSH HL
|
|||||||
PUSH DE
|
PUSH DE
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
LD BC,100 ; „«¨ ä ©« /100 (%)
|
LD BC,100 ; „«¨ ä ©« /100 (%)
|
||||||
CALL JUMPS.Divis32
|
CALL JUMPS.Div_32X16_32b_16b
|
||||||
LD (Coeff1+1),DE ; <20>®«ãç ¥¬ ª®«-¢® ¡ ©â
|
LD (Coeff1+1),DE ; <20>®«ãç ¥¬ ª®«-¢® ¡ ©â
|
||||||
LD (Coeff2+1),HL ; ®¤¨ ¯à®æ¥â
|
LD (Coeff2+1),HL ; ®¤¨ ¯à®æ¥â
|
||||||
LD IX,ProcentTab
|
LD IX,ProcentTab
|
||||||
@ -988,8 +988,8 @@ PutProcent LD HL,ProcText
|
|||||||
POP HL
|
POP HL
|
||||||
LD DE,0x0250
|
LD DE,0x0250
|
||||||
LD BC,0x0011
|
LD BC,0x0011
|
||||||
LD A,0x80
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
JP JUMPS.PrnTxtLnNorm
|
JP JUMPS.PrintTxtLine
|
||||||
|
|
||||||
InitCodePage: LD A,0
|
InitCodePage: LD A,0
|
||||||
CodePage EQU $-1
|
CodePage EQU $-1
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 28.07.2025 savelij
|
; LAST UPDATE: 31.07.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
FVPrintFile
|
FVPrintFile
|
||||||
@ -13,7 +13,7 @@ FVPrintFile
|
|||||||
W_TEXT 140,35,COLORP.HIGHGRAY,"Stop"
|
W_TEXT 140,35,COLORP.HIGHGRAY,"Stop"
|
||||||
W_END
|
W_END
|
||||||
LD IX,PrintTab
|
LD IX,PrintTab
|
||||||
CALL JUMPS.TestCoords
|
CALL JUMPS.CheckCoordsMouse
|
||||||
LD IX,ProcessPrn
|
LD IX,ProcessPrn
|
||||||
LD HL,(FileLenght)
|
LD HL,(FileLenght)
|
||||||
LD DE,(FileLenght+2)
|
LD DE,(FileLenght+2)
|
||||||
@ -28,11 +28,11 @@ FVPrintFile
|
|||||||
OR L
|
OR L
|
||||||
JR NZ,.InitPrn
|
JR NZ,.InitPrn
|
||||||
INC E
|
INC E
|
||||||
.InitPrn LD (IX+PROC.MAX_PAGES),L
|
.InitPrn LD (IX+PROGRESSBAR.MAX_PAGES),L
|
||||||
LD (IX+PROC.MAX_PAGES + 1),H
|
LD (IX+PROGRESSBAR.MAX_PAGES + 1),H
|
||||||
LD (IX+PROC.MAX_PAGES + 2),E
|
LD (IX+PROGRESSBAR.MAX_PAGES + 2),E
|
||||||
LD (IX+PROC.MAX_PAGES + 3),0x00
|
LD (IX+PROGRESSBAR.MAX_PAGES + 3),0x00
|
||||||
CALL JUMPS.InitProcess
|
CALL JUMPS.InitProgressBar
|
||||||
LD A,(ViewMode)
|
LD A,(ViewMode)
|
||||||
OR A
|
OR A
|
||||||
JP NZ,PrintHEX
|
JP NZ,PrintHEX
|
||||||
@ -220,7 +220,7 @@ FVPrintCHAR LD IXL,A
|
|||||||
BIT 0,A
|
BIT 0,A
|
||||||
JR Z,.PrnCH1
|
JR Z,.PrnCH1
|
||||||
LD IX,PrintTab
|
LD IX,PrintTab
|
||||||
CALL JUMPS.TestCoords
|
CALL JUMPS.CheckCoordsMouse
|
||||||
JR C,.PrnCH2
|
JR C,.PrnCH2
|
||||||
.PrnCH1
|
.PrnCH1
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
@ -271,20 +271,20 @@ FVNxtPrnProc LD A,E
|
|||||||
EXX
|
EXX
|
||||||
PUSH DE
|
PUSH DE
|
||||||
LD IX,ProcessPrn
|
LD IX,ProcessPrn
|
||||||
LD L,(IX+PROC.CURR_PAGE)
|
LD L,(IX+PROGRESSBAR.CURR_PAGE)
|
||||||
LD H,(IX+PROC.CURR_PAGE + 1)
|
LD H,(IX+PROGRESSBAR.CURR_PAGE + 1)
|
||||||
INC HL
|
INC HL
|
||||||
LD (IX+PROC.CURR_PAGE),L
|
LD (IX+PROGRESSBAR.CURR_PAGE),L
|
||||||
LD (IX+PROC.CURR_PAGE + 1),H
|
LD (IX+PROGRESSBAR.CURR_PAGE + 1),H
|
||||||
LD A,H
|
LD A,H
|
||||||
OR L
|
OR L
|
||||||
JR NZ,.NxtProc
|
JR NZ,.NxtProc
|
||||||
LD L,(IX+PROC.CURR_PAGE + 2)
|
LD L,(IX+PROGRESSBAR.CURR_PAGE + 2)
|
||||||
LD H,(IX+PROC.CURR_PAGE + 3)
|
LD H,(IX+PROGRESSBAR.CURR_PAGE + 3)
|
||||||
INC HL
|
INC HL
|
||||||
LD (IX+PROC.CURR_PAGE + 2),L
|
LD (IX+PROGRESSBAR.CURR_PAGE + 2),L
|
||||||
LD (IX+PROC.CURR_PAGE + 3),H
|
LD (IX+PROGRESSBAR.CURR_PAGE + 3),H
|
||||||
.NxtProc CALL JUMPS.PrnProcess
|
.NxtProc CALL JUMPS.DrawProgressBar
|
||||||
POP DE
|
POP DE
|
||||||
EXX
|
EXX
|
||||||
POP BC
|
POP BC
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 28.07.2025 savelij
|
; LAST UPDATE: 31.07.2025 savelij
|
||||||
|
|
||||||
;[]---------------------------------------------------------[]
|
;[]---------------------------------------------------------[]
|
||||||
PrnASCIIpage LD HL,PrintVProc
|
PrnASCIIpage LD HL,PrintVProc
|
||||||
@ -143,7 +143,7 @@ PutLine4 LD HL,LineBuffer
|
|||||||
LD B,0x50
|
LD B,0x50
|
||||||
LD C,IXH
|
LD C,IXH
|
||||||
LD A,COLORP.PANEL + COLORI.FILES
|
LD A,COLORP.PANEL + COLORI.FILES
|
||||||
CALL JUMPS.PrnTxtLnNormC
|
CALL JUMPS.PrintTxtLineNumsChar
|
||||||
OR A
|
OR A
|
||||||
RET
|
RET
|
||||||
|
|
||||||
@ -188,7 +188,7 @@ PutLnUW1 LD E,0x00
|
|||||||
LD D,0x00
|
LD D,0x00
|
||||||
LD B,0x01
|
LD B,0x01
|
||||||
LD A,COLORP.PANEL + COLORI.YELLOW ;(Yellow)
|
LD A,COLORP.PANEL + COLORI.YELLOW ;(Yellow)
|
||||||
CALL JUMPS.PrnTxtLnNormC
|
CALL JUMPS.PrintTxtLineNumsChar
|
||||||
POP BC
|
POP BC
|
||||||
POP HL
|
POP HL
|
||||||
INC L
|
INC L
|
||||||
@ -209,14 +209,14 @@ SaveUW EQU $-1
|
|||||||
LD DE,0x0278
|
LD DE,0x0278
|
||||||
LD B,0x01
|
LD B,0x01
|
||||||
LD A,COLORP.PANEL + COLORI.YELLOW ;(Yellow)
|
LD A,COLORP.PANEL + COLORI.YELLOW ;(Yellow)
|
||||||
CALL JUMPS.PrnTxtLnNormC
|
CALL JUMPS.PrintTxtLineNumsChar
|
||||||
POP BC
|
POP BC
|
||||||
POP DE
|
POP DE
|
||||||
POP HL
|
POP HL
|
||||||
DEC B
|
DEC B
|
||||||
PutLnUW3 LD D,0x00
|
PutLnUW3 LD D,0x00
|
||||||
LD A,COLORP.PANEL + COLORI.FILES ;(Yellow)
|
LD A,COLORP.PANEL + COLORI.FILES ;(Yellow)
|
||||||
CALL JUMPS.PrnTxtLnNormC
|
CALL JUMPS.PrintTxtLineNumsChar
|
||||||
OR A
|
OR A
|
||||||
RET
|
RET
|
||||||
|
|
||||||
@ -460,7 +460,7 @@ TPageDwn LD HL,(FVNextShift)
|
|||||||
RET
|
RET
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
TBegFile LD HL,JUMPS.ResFire
|
TBegFile LD HL,JUMPS.WaitUnpressMouse
|
||||||
PUSH HL
|
PUSH HL
|
||||||
LD HL,(FileShift)
|
LD HL,(FileShift)
|
||||||
LD DE,(FileShift+2)
|
LD DE,(FileShift+2)
|
||||||
@ -475,7 +475,7 @@ TBegFile LD HL,JUMPS.ResFire
|
|||||||
JP PrnASCIIpage
|
JP PrnASCIIpage
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
TEndFile LD HL,JUMPS.ResFire
|
TEndFile LD HL,JUMPS.WaitUnpressMouse
|
||||||
PUSH HL
|
PUSH HL
|
||||||
LD HL,(FVNextShift)
|
LD HL,(FVNextShift)
|
||||||
LD DE,(FVNextShift+2)
|
LD DE,(FVNextShift+2)
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 23.04.2025 savelij
|
; LAST UPDATE: 31.07.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
HelpR LD A,0x01
|
HelpR LD A,0x01
|
||||||
@ -18,9 +18,9 @@ HelpR LD A,0x01
|
|||||||
W_END
|
W_END
|
||||||
CALL InitHelpTxt
|
CALL InitHelpTxt
|
||||||
CALL PrnHelpPg
|
CALL PrnHelpPg
|
||||||
CALL JUMPS.ResFire
|
CALL JUMPS.WaitUnpressMouse
|
||||||
HelpLoop LD IX,HelpTab
|
HelpLoop LD IX,HelpTab
|
||||||
CALL JUMPS.TestCoords
|
CALL JUMPS.CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,HelpLoop
|
JR Z,HelpLoop
|
||||||
LD A,B
|
LD A,B
|
||||||
@ -101,7 +101,7 @@ PrnHPg1 PUSH BC
|
|||||||
LD A,(HL)
|
LD A,(HL)
|
||||||
INC A
|
INC A
|
||||||
LD A,240
|
LD A,240
|
||||||
CALL NZ,JUMPS.PrnTxtLnIFF
|
CALL NZ,JUMPS.PrintTxtLine_IFF
|
||||||
POP BC
|
POP BC
|
||||||
LD A,B
|
LD A,B
|
||||||
ADD A,8
|
ADD A,8
|
||||||
@ -110,7 +110,7 @@ PrnHPg1 PUSH BC
|
|||||||
JR NZ,PrnHPg1
|
JR NZ,PrnHPg1
|
||||||
LD (NextShift),HL
|
LD (NextShift),HL
|
||||||
LD IX,HelpVBar
|
LD IX,HelpVBar
|
||||||
JP JUMPS.PrnVScrBar
|
JP JUMPS.DrawVScrollBar
|
||||||
|
|
||||||
ClearHRect PUSH HL
|
ClearHRect PUSH HL
|
||||||
PUSH BC
|
PUSH BC
|
||||||
@ -230,9 +230,9 @@ HLnUp2 LD (NextShift),HL
|
|||||||
LD A,(HL)
|
LD A,(HL)
|
||||||
INC A
|
INC A
|
||||||
LD A,240
|
LD A,240
|
||||||
CALL NZ,JUMPS.PrnTxtLnIFF
|
CALL NZ,JUMPS.PrintTxtLine_IFF
|
||||||
LD IX,HelpVBar
|
LD IX,HelpVBar
|
||||||
JP JUMPS.PrnVScrBar
|
JP JUMPS.DrawVScrollBar
|
||||||
|
|
||||||
HLineDown LD HL,(NextShift)
|
HLineDown LD HL,(NextShift)
|
||||||
LD A,(HL)
|
LD A,(HL)
|
||||||
@ -274,9 +274,9 @@ HLineDown LD HL,(NextShift)
|
|||||||
LD A,(HL)
|
LD A,(HL)
|
||||||
INC A
|
INC A
|
||||||
LD A,240
|
LD A,240
|
||||||
CALL NZ,JUMPS.PrnTxtLnIFF
|
CALL NZ,JUMPS.PrintTxtLine_IFF
|
||||||
LD IX,HelpVBar
|
LD IX,HelpVBar
|
||||||
JP JUMPS.PrnVScrBar
|
JP JUMPS.DrawVScrollBar
|
||||||
|
|
||||||
;<3B> ¢å®¤:
|
;<3B> ¢å®¤:
|
||||||
; D - Y ®âªã¤
|
; D - Y ®âªã¤
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 15.07.2025 savelij
|
; LAST UPDATE: 31.07.2025 savelij
|
||||||
|
|
||||||
;// DEVICE ZXSPECTRUM128
|
;// DEVICE ZXSPECTRUM128
|
||||||
;[]=======================================================================[]
|
;[]=======================================================================[]
|
||||||
@ -38,10 +38,10 @@ PluginEntry:
|
|||||||
W_BUTTON 60,74,72,14
|
W_BUTTON 60,74,72,14
|
||||||
W_TEXT 88,77,COLORP.HIGHGRAY,"Ok"
|
W_TEXT 88,77,COLORP.HIGHGRAY,"Ok"
|
||||||
W_END
|
W_END
|
||||||
call JUMPS.ResFire
|
call JUMPS.WaitUnpressMouse
|
||||||
.plugin_loop:
|
.plugin_loop:
|
||||||
ld ix, PluginMouseTab
|
ld ix, PluginMouseTab
|
||||||
call JUMPS.TestCoords
|
call JUMPS.CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
jr z, .plugin_loop
|
jr z, .plugin_loop
|
||||||
ld a, b
|
ld a, b
|
||||||
|
|||||||
15
readme.md
15
readme.md
@ -3,12 +3,13 @@ Flex Navigator для компьютера Sprinter
|
|||||||
|
|
||||||
Собранные файлы забирать из папки fn
|
Собранные файлы забирать из папки fn
|
||||||
|
|
||||||
`FileEditor.flx 1.10:`
|
`FlexNavigator 1.16.05`
|
||||||
- устранено перепутанные кнопки для нажатий мышью для F7 и F9.
|
- в функции текстового ввода заблокирована обработка клавиши
|
||||||
|
ALT, вызывало зависание при попытке сделать смену диска (ALT/Fx).
|
||||||
|
- убрано удаление в режиме просмотра дерева.
|
||||||
|
|
||||||
`FileViewer.flx 1.06:`
|
`FileViewer.flx 1.07`
|
||||||
- добавлено переключение кодировки в режиме HEX просмотра.
|
- мелкое исправление позиции вывода даты/времени.
|
||||||
|
|
||||||
`FlexNavigaror 1.16.01:`
|
`FileEditor.flx 1.11`
|
||||||
- исправлен вылет при создании нового файла по Shift+F4 или просмотр с
|
- мелкое исправление позиции вывода даты/времени.
|
||||||
вводом имени по Shift+F3, плагин был не загружен.
|
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 24.07.2025 savelij
|
; LAST UPDATE: 14.08.2025 savelij
|
||||||
|
|
||||||
PALITRA.RESERV EQU PALETTE + 0x34
|
PALITRA.RESERV EQU PALETTE + 0x34
|
||||||
|
|
||||||
@ -84,8 +84,8 @@ SaveFlg EQU $-2
|
|||||||
LD IX,BarBlue
|
LD IX,BarBlue
|
||||||
CALL InitScrollBar
|
CALL InitScrollBar
|
||||||
CALL InitElement
|
CALL InitElement
|
||||||
SetupLoop LD IX,SetupTab
|
SetupLoop LD IX,REZ2TAB.SetupTab
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,SetupLoop
|
JR Z,SetupLoop
|
||||||
LD A,B
|
LD A,B
|
||||||
@ -164,7 +164,7 @@ SetupLoop1 LD A,E
|
|||||||
RET
|
RET
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
SaveSetup CALL SetClock
|
SaveSetup CALL PointerMouseClock
|
||||||
PUSH IY
|
PUSH IY
|
||||||
SPDSS DSSF.CURDISK
|
SPDSS DSSF.CURDISK
|
||||||
POP IY
|
POP IY
|
||||||
@ -258,7 +258,7 @@ SetupSaveEx LD HL,WorkBuffer
|
|||||||
PUSH IY
|
PUSH IY
|
||||||
SPDSS DSSF.CHDIR
|
SPDSS DSSF.CHDIR
|
||||||
POP IY
|
POP IY
|
||||||
JP SetMouse
|
JP PointerMousePointer
|
||||||
|
|
||||||
SetupHead DEFB 0xAE,"FlexSetup",0
|
SetupHead DEFB 0xAE,"FlexSetup",0
|
||||||
SetupName DZ FILENAME.FN_INI
|
SetupName DZ FILENAME.FN_INI
|
||||||
@ -344,9 +344,9 @@ RefreshSetup BIT VIEWFLAG.B_TREE,(IX+PANEL.VIEWFLAG)
|
|||||||
LD A,(IY+PANEL.VIEWFLAG)
|
LD A,(IY+PANEL.VIEWFLAG)
|
||||||
AND VIEWFLAG.MASK
|
AND VIEWFLAG.MASK
|
||||||
PUSH AF
|
PUSH AF
|
||||||
CALL Z,PrnHScrBar
|
CALL Z,DrawHScrollBar
|
||||||
POP AF
|
POP AF
|
||||||
CALL NZ,PrnVScrBar
|
CALL NZ,DrawVScrollBar
|
||||||
RefrErr POP IY
|
RefrErr POP IY
|
||||||
RET
|
RET
|
||||||
|
|
||||||
@ -404,8 +404,8 @@ ChSavePan LD HL,SavePanTxt
|
|||||||
LD DE,0x0074
|
LD DE,0x0074
|
||||||
LD BC,0x00A5
|
LD BC,0x00A5
|
||||||
LD A,0xF0
|
LD A,0xF0
|
||||||
CALL PrnTxtLnIFF
|
CALL PrintTxtLine_IFF
|
||||||
JP ResFire
|
JP WaitUnpressMouse
|
||||||
|
|
||||||
SavePanTxt DEFB 0x00,0x00
|
SavePanTxt DEFB 0x00,0x00
|
||||||
|
|
||||||
@ -420,9 +420,9 @@ AutoActivatePanelFlag EQU $-1
|
|||||||
LD (HL),A
|
LD (HL),A
|
||||||
LD DE,0x0074
|
LD DE,0x0074
|
||||||
LD BC,0x0093
|
LD BC,0x0093
|
||||||
LD A,0xF0
|
LD A,COLORP.WHITE + COLORI.BLACK
|
||||||
CALL PrnTxtLnIFF
|
CALL PrintTxtLine_IFF
|
||||||
JP ResFire
|
JP WaitUnpressMouse
|
||||||
|
|
||||||
;--------------------------------------------------------------
|
;--------------------------------------------------------------
|
||||||
DecRED LD HL,PALITRA.RESERV + 2
|
DecRED LD HL,PALITRA.RESERV + 2
|
||||||
@ -504,14 +504,14 @@ InputColor LD (ColorY),BC
|
|||||||
PUSH DE
|
PUSH DE
|
||||||
LD DE,ColText
|
LD DE,ColText
|
||||||
LD A,(HL)
|
LD A,(HL)
|
||||||
CALL ConvNumTxt8
|
CALL ConvertNumbers_8b
|
||||||
SUB A
|
SUB A
|
||||||
LD (DE),A
|
LD (DE),A
|
||||||
LD A,E
|
LD A,E
|
||||||
SUB LOW (ColText)
|
SUB LOW (ColText)
|
||||||
LD (ColLen),A
|
LD (ColLen),A
|
||||||
InpAg LD IX,ColorStr
|
InpAg LD IX,ColorStr
|
||||||
LD HL,EmptyTab
|
LD HL,REZ2TAB.EmptyTab
|
||||||
CALL InputLine
|
CALL InputLine
|
||||||
POP DE
|
POP DE
|
||||||
POP HL
|
POP HL
|
||||||
@ -519,7 +519,7 @@ InpAg LD IX,ColorStr
|
|||||||
PUSH HL
|
PUSH HL
|
||||||
PUSH DE
|
PUSH DE
|
||||||
LD DE,ColText
|
LD DE,ColText
|
||||||
CALL ConvTxtNum16
|
CALL atoi_16b
|
||||||
JR C,InpAg
|
JR C,InpAg
|
||||||
LD A,H
|
LD A,H
|
||||||
OR A
|
OR A
|
||||||
@ -597,7 +597,7 @@ SetupI1 LD IX,8 << 8 | 70 ; HIGH ->
|
|||||||
LD B,H ; Y
|
LD B,H ; Y
|
||||||
LD HL,106 ; X
|
LD HL,106 ; X
|
||||||
; TODO ¥ ãç¨âë¢ ¥âáï ¯®§¨æ¨ï ®ª , ᤥ« âì ¯à¨¢ï§ªã
|
; TODO ¥ ãç¨âë¢ ¥âáï ¯®§¨æ¨ï ®ª , ᤥ« âì ¯à¨¢ï§ªã
|
||||||
JP InvertRectan
|
JP ReplaceColorRectan
|
||||||
|
|
||||||
InitElement LD HL,ElementColor
|
InitElement LD HL,ElementColor
|
||||||
LD A,(CurElement)
|
LD A,(CurElement)
|
||||||
@ -631,7 +631,7 @@ PrintRED LD DE,WorkBuffer
|
|||||||
ADD HL,HL
|
ADD HL,HL
|
||||||
ADD HL,HL
|
ADD HL,HL
|
||||||
LD (CRed),HL
|
LD (CRed),HL
|
||||||
CALL ConvNumTxt8
|
CALL ConvertNumbers_8b
|
||||||
LD A,0x04
|
LD A,0x04
|
||||||
SUB E
|
SUB E
|
||||||
LD B,A
|
LD B,A
|
||||||
@ -645,9 +645,9 @@ InitEl1 LD (DE),A
|
|||||||
LD DE,0x01B8
|
LD DE,0x01B8
|
||||||
LD BC,0x0058
|
LD BC,0x0058
|
||||||
LD A,0x80
|
LD A,0x80
|
||||||
CALL PrnTxtLnIFF
|
CALL PrintTxtLine_IFF
|
||||||
LD IX,BarRed
|
LD IX,BarRed
|
||||||
JP PrnHScrBar
|
JP DrawHScrollBar
|
||||||
|
|
||||||
PrintGREEN LD DE,WorkBuffer
|
PrintGREEN LD DE,WorkBuffer
|
||||||
LD A,(PALITRA.RESERV + 1)
|
LD A,(PALITRA.RESERV + 1)
|
||||||
@ -658,7 +658,7 @@ PrintGREEN LD DE,WorkBuffer
|
|||||||
ADD HL,HL
|
ADD HL,HL
|
||||||
ADD HL,HL
|
ADD HL,HL
|
||||||
LD (CGreen),HL
|
LD (CGreen),HL
|
||||||
CALL ConvNumTxt8
|
CALL ConvertNumbers_8b
|
||||||
LD A,0x04
|
LD A,0x04
|
||||||
SUB E
|
SUB E
|
||||||
LD B,A
|
LD B,A
|
||||||
@ -672,9 +672,9 @@ InitEl2 LD (DE),A
|
|||||||
LD DE,0x01B8
|
LD DE,0x01B8
|
||||||
LD BC,0x0068
|
LD BC,0x0068
|
||||||
LD A,0x80
|
LD A,0x80
|
||||||
CALL PrnTxtLnIFF
|
CALL PrintTxtLine_IFF
|
||||||
LD IX,BarGreen
|
LD IX,BarGreen
|
||||||
JP PrnHScrBar
|
JP DrawHScrollBar
|
||||||
|
|
||||||
PrintBLUE LD DE,WorkBuffer
|
PrintBLUE LD DE,WorkBuffer
|
||||||
LD A,(PALITRA.RESERV)
|
LD A,(PALITRA.RESERV)
|
||||||
@ -685,7 +685,7 @@ PrintBLUE LD DE,WorkBuffer
|
|||||||
ADD HL,HL
|
ADD HL,HL
|
||||||
ADD HL,HL
|
ADD HL,HL
|
||||||
LD (CBlue),HL
|
LD (CBlue),HL
|
||||||
CALL ConvNumTxt8
|
CALL ConvertNumbers_8b
|
||||||
LD A,0x04
|
LD A,0x04
|
||||||
SUB E
|
SUB E
|
||||||
LD B,A
|
LD B,A
|
||||||
@ -699,9 +699,9 @@ InitEl3 LD (DE),A
|
|||||||
LD DE,0x01B8
|
LD DE,0x01B8
|
||||||
LD BC,0x0078
|
LD BC,0x0078
|
||||||
LD A,0x80
|
LD A,0x80
|
||||||
CALL PrnTxtLnIFF
|
CALL PrintTxtLine_IFF
|
||||||
LD IX,BarBlue
|
LD IX,BarBlue
|
||||||
JP PrnHScrBar
|
JP DrawHScrollBar
|
||||||
|
|
||||||
PrnPALETTE LD HL,PALETTE
|
PrnPALETTE LD HL,PALETTE
|
||||||
LD DE,0x1000
|
LD DE,0x1000
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 18.07.2025 savelij
|
; LAST UPDATE: 01.08.2025 savelij
|
||||||
|
|
||||||
; !FIXIT ¯¥à¥¤¥« âì ®¤¨ ª®¢ë¥ ®ª á à §ë¬ â¥ªá⮬ ¤«ï ®è¨¡®ª ¯®¤ ¢â®¬ â¨ç¥áªãî ¯à®æ¥¤ãàã
|
; !FIXIT ¯¥à¥¤¥« âì ®¤¨ ª®¢ë¥ ®ª á à §ë¬ â¥ªá⮬ ¤«ï ®è¨¡®ª ¯®¤ ¢â®¬ â¨ç¥áªãî ¯à®æ¥¤ãàã
|
||||||
;[]===========================================================[]
|
;[]===========================================================[]
|
||||||
@ -48,7 +48,7 @@ DOSErrorR ;[x] 30/07/23 -bug
|
|||||||
RET Z ; ¥á«¨ ¤à¥á ¯¥à¥å®¤ 0, ¢ë室¨¬
|
RET Z ; ¥á«¨ ¤à¥á ¯¥à¥å®¤ 0, ¢ë室¨¬
|
||||||
LD (.ADRJUMP),HL
|
LD (.ADRJUMP),HL
|
||||||
LD (.ADRJUMP2),HL
|
LD (.ADRJUMP2),HL
|
||||||
CALL SetMouse
|
CALL PointerMousePointer
|
||||||
LD A,0
|
LD A,0
|
||||||
.WINTYPE EQU $-1
|
.WINTYPE EQU $-1
|
||||||
BIT 7,A
|
BIT 7,A
|
||||||
@ -161,7 +161,7 @@ InputDrive PUSH IY
|
|||||||
LD HL,ErrorTab1
|
LD HL,ErrorTab1
|
||||||
CALL InputLine
|
CALL InputLine
|
||||||
WINDOWCLOSE
|
WINDOWCLOSE
|
||||||
CALL SetClock
|
CALL PointerMouseClock
|
||||||
LD A,(CurDrv)
|
LD A,(CurDrv)
|
||||||
RES 5,A
|
RES 5,A
|
||||||
SUB 'A'
|
SUB 'A'
|
||||||
@ -174,11 +174,11 @@ InputDrive PUSH IY
|
|||||||
SPDSS DSSF.CHDIR
|
SPDSS DSSF.CHDIR
|
||||||
POP IY
|
POP IY
|
||||||
JP C,DOSErrorR
|
JP C,DOSErrorR
|
||||||
CALL SetMouse
|
CALL PointerMousePointer
|
||||||
LD A,0x01
|
LD A,0x01
|
||||||
RET
|
RET
|
||||||
|
|
||||||
ErrorTab1 DEFW 284,356,118,132,%0000000000000001,%0000000000000000,InputLine.InpLnExtN,0
|
ErrorTab1 DEFW 284,356,118,132,%0000000000000001,%0000000000000000,InputLine.InputLineExitOk,0
|
||||||
DEFW 0x8000
|
DEFW 0x8000
|
||||||
|
|
||||||
DriveStr DEFB 0x01,0x00,0x00,0x00
|
DriveStr DEFB 0x01,0x00,0x00,0x00
|
||||||
@ -190,7 +190,7 @@ CurDrv DUPL 0x02,0x00
|
|||||||
|
|
||||||
;--------------------------------------------------------------
|
;--------------------------------------------------------------
|
||||||
ErrorLp0 LD IX,ErrorTab2
|
ErrorLp0 LD IX,ErrorTab2
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,ErrorLp0
|
JR Z,ErrorLp0
|
||||||
LD A,B
|
LD A,B
|
||||||
@ -206,13 +206,13 @@ ErrorLp0 LD IX,ErrorTab2
|
|||||||
JR NZ,ErrorLp0
|
JR NZ,ErrorLp0
|
||||||
ErrorExt0
|
ErrorExt0
|
||||||
WINDOWCLOSE
|
WINDOWCLOSE
|
||||||
CALL SetClock
|
CALL PointerMouseClock
|
||||||
LD HL,BegDIR
|
LD HL,BegDIR
|
||||||
PUSH IY
|
PUSH IY
|
||||||
SPDSS DSSF.CHDIR
|
SPDSS DSSF.CHDIR
|
||||||
POP IY
|
POP IY
|
||||||
JP C,DOSErrorR
|
JP C,DOSErrorR
|
||||||
CALL SetMouse
|
CALL PointerMousePointer
|
||||||
LD A,0x01
|
LD A,0x01
|
||||||
RET
|
RET
|
||||||
|
|
||||||
@ -222,7 +222,7 @@ ErrorTab2 DEFW 284,356,118,132,%0000000000100001,%0000000000000000,ErrorExt0,0
|
|||||||
;--------------------------------------------------------------
|
;--------------------------------------------------------------
|
||||||
|
|
||||||
ErrorLp LD IX,ErrorTab3
|
ErrorLp LD IX,ErrorTab3
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,ErrorLp
|
JR Z,ErrorLp
|
||||||
LD A,B
|
LD A,B
|
||||||
|
|||||||
1225
rez2_fnfunct.a80
1225
rez2_fnfunct.a80
File diff suppressed because it is too large
Load Diff
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 24.07.2025 savelij
|
; LAST UPDATE: 07.09.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
QSearchR LD A,(IY+PANEL.FILES_ALL)
|
QSearchR LD A,(IY+PANEL.FILES_ALL)
|
||||||
@ -120,7 +120,7 @@ InsSymbolSrch CP 0x20
|
|||||||
LD B,0x00
|
LD B,0x00
|
||||||
PUSH IX
|
PUSH IX
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,LenInpData
|
LD DE,INPUTFORM.BUFLINE
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,(IX+0x04)
|
LD E,(IX+0x04)
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
@ -130,7 +130,7 @@ InsSymbolSrch CP 0x20
|
|||||||
LDDR
|
LDDR
|
||||||
NotInsSrch PUSH IX
|
NotInsSrch PUSH IX
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,LenInpData
|
LD DE,INPUTFORM.BUFLINE
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,(IX+0x02)
|
LD E,(IX+0x02)
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
@ -188,9 +188,9 @@ FoundSFile PUSH HL
|
|||||||
LD A,(IY+PANEL.VIEWFLAG)
|
LD A,(IY+PANEL.VIEWFLAG)
|
||||||
AND VIEWFLAG.MASK
|
AND VIEWFLAG.MASK
|
||||||
PUSH AF
|
PUSH AF
|
||||||
CALL Z,PrnHScrBar
|
CALL Z,DrawHScrollBar
|
||||||
POP AF
|
POP AF
|
||||||
JP NZ,PrnVScrBar
|
JP NZ,DrawVScrollBar
|
||||||
RET
|
RET
|
||||||
|
|
||||||
QSdelet LD A,(IX+0x02)
|
QSdelet LD A,(IX+0x02)
|
||||||
@ -198,7 +198,7 @@ QSdelet LD A,(IX+0x02)
|
|||||||
RET Z
|
RET Z
|
||||||
PUSH IX
|
PUSH IX
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,LenInpData
|
LD DE,INPUTFORM.BUFLINE
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD E,(IX+0x02)
|
LD E,(IX+0x02)
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
@ -378,9 +378,5 @@ SrchExit POP HL
|
|||||||
SearchExit
|
SearchExit
|
||||||
WINDOWCLOSE
|
WINDOWCLOSE
|
||||||
BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
||||||
IF TREE_REZID
|
JP NZ,TestTreeR.TestTreeBeg
|
||||||
CALL NZ,TestTreeR.TestTreeBeg
|
|
||||||
ELSE
|
|
||||||
CALL NZ,TestTreeR.TestTreeBeg
|
|
||||||
ENDIF
|
|
||||||
RET
|
RET
|
||||||
|
|||||||
106
rez2_fntab.a80
Normal file
106
rez2_fntab.a80
Normal file
@ -0,0 +1,106 @@
|
|||||||
|
|
||||||
|
; LAST UPDATE: 12.09.2025 savelij
|
||||||
|
|
||||||
|
;[]==========================================================[]
|
||||||
|
; ”®à¬ â â ¡«¨æë
|
||||||
|
; +00 2 Xmin
|
||||||
|
; +02 2 Xmax
|
||||||
|
; +04 2 Ymin
|
||||||
|
; +06 2 Ymax
|
||||||
|
; +08 2 0 - ¯à®á⮩ ®¡'¥ªâ
|
||||||
|
; ¡¨â 0 - ª®¯ª
|
||||||
|
; ¡¨â 1 - à ¡®ç ï ª®¯ª
|
||||||
|
; ¡¨â 2 - ¨¢¥àâ 1
|
||||||
|
; ¡¨â 3 - áâ â¨çë© ¨¢¥àâ
|
||||||
|
; ¡¨â 4 - ¯à®£à ¬¬ § ¯ã᪠¥âáï ¡¥§ ¤à¥á ¢®§¢à.
|
||||||
|
; ¨ ¡¥§ ®£ï
|
||||||
|
; ¡¨â 5 - ¯à®£à ¬¬ § ¯ã᪠¥âáï ¡¥§ ¤à¥á ¢®§¢à.
|
||||||
|
; ¯® «¥¢®© ª®¯ª¥ ®£ï
|
||||||
|
; ¡¨â 6 - ¯à®£à ¬¬ § ¯ã᪠¥âáï ¡¥§ ¤à¥á ¢®§¢à.
|
||||||
|
; ¯® ¯à ¢®© ª®¯ª¥ ®£ï
|
||||||
|
; ¡¨â 7 - ¢ë§¢ âì äãªæ¨î § ªàëâ¨ï ®ª ¯¥à¥¤
|
||||||
|
; § ¯ã᪮¬ ¯à®£à ¬¬ë ¡¥§ ®£ï
|
||||||
|
; ¡¨â 8 - ¢ë§¢ âì äãªæ¨î § ªàëâ¨ï ®ª ¯¥à¥¤
|
||||||
|
; § ¯ã᪮¬ ¯à®£à ¬¬ë ¯® «¥¢®© ª®¯ª¥
|
||||||
|
; ¡¨â 9 - ¢ë§¢ âì äãªæ¨î § ªàëâ¨ï ®ª ¯¥à¥¤
|
||||||
|
; § ¯ã᪮¬ ¯à®£à ¬¬ë ¯® ¯à ¢®© ª®¯ª¥
|
||||||
|
; ¡¨â15 - íâ® ¯¥à¥ª«îç ⥫ì (¨¢¥à⠯ਠ®£¥ ¥
|
||||||
|
; 㡨à âì)
|
||||||
|
; +0A 2 €¤à¥á ®¡à ¡®â稪 ¯à¨ ¥ ¦ ⮬ ®£¥
|
||||||
|
; +0C 2 €¤à¥á ®¡à ¡®â稪 ¯à¨ ¦ ⮬ ®£¥ («¥¢)
|
||||||
|
; +0E 2 €¤à¥á ®¡à ¡®â稪 ¯à¨ ¦ ⮬ ®£¥ (¯à ¢)
|
||||||
|
|
||||||
|
REZ2TAB
|
||||||
|
;[]==========================================================[]
|
||||||
|
.SetupTab: DW 106,246, 85,133,%0000000000000000,0,NewElement,0
|
||||||
|
DW 114,130,146,155,%0000000000000000,0,ChActivatePan,0
|
||||||
|
DW 114,130,164,173,%0000000000000000,0,ChSavePan,0
|
||||||
|
DW 274,290, 87, 95,%0000000000000011,0,DecRED,0
|
||||||
|
DW 418,434, 87, 95,%0000000000000011,0,IncRED,0
|
||||||
|
DW 440,464, 87, 95,%0000000000000000,0,InputRED,0
|
||||||
|
DW 274,290,103,111,%0000000000000011,0,DecGREEN,0
|
||||||
|
DW 418,434,103,111,%0000000000000011,0,IncGREEN,0
|
||||||
|
DW 440,464,103,111,%0000000000000000,0,InputGREEN,0
|
||||||
|
DW 274,290,119,127,%0000000000000011,0,DecBLUE,0
|
||||||
|
DW 418,434,119,127,%0000000000000011,0,IncBLUE,0
|
||||||
|
DW 440,464,119,127,%0000000000000000,0,InputBLUE,0
|
||||||
|
DW 456,528,162,176,%0000000000000001,0,SaveSetup,0
|
||||||
|
DW 368,440,184,198,%0000000000100001,0,SetupCancel,0
|
||||||
|
DW 456,528,184,198,%0000000000100001,0,SetupOkey,0
|
||||||
|
DW 0, 96, 0,256,%0000000000100000,0,SetupCancel,0
|
||||||
|
DW 544,640, 0,256,%0000000000100000,0,SetupCancel,0
|
||||||
|
DW 0,640, 0, 64,%0000000000100000,0,SetupCancel,0
|
||||||
|
DW 0,640,184,256,%0000000000100000,0,SetupCancel,0
|
||||||
|
DW 0x8000
|
||||||
|
|
||||||
|
;[]===============================================================[]
|
||||||
|
.PathTab: DW 240,312,123,137,%0000000000000001,0,InputLine.InputLineExitOk,0
|
||||||
|
DW 328,400,123,137,%0000000000000001,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 0, 96, 0,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 544,640, 0,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 0,640, 0, 81,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 0,640,143,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 0x8000
|
||||||
|
|
||||||
|
;[]===============================================================[]
|
||||||
|
.OverWrtTab: DW 196,252,126,140,%0000000100100001,0,OverWrtFile,0
|
||||||
|
DW 260,316,126,140,%0000000100100001,0,OverWrtAll,0
|
||||||
|
DW 324,380,126,140,%0000000100100001,0,OverSkip,0
|
||||||
|
DW 388,444,126,140,%0000000100100001,0,OverExit,0
|
||||||
|
DW 0,180, 0,256,%0000000100100000,0,OverExit,0
|
||||||
|
DW 460,640, 0,256,%0000000100100000,0,OverExit,0
|
||||||
|
DW 0,640, 0, 88,%0000000100100000,0,OverExit,0
|
||||||
|
DW 0,640,144,256,%0000000100100000,0,OverExit,0
|
||||||
|
DW 0x8001
|
||||||
|
|
||||||
|
;[]===============================================================[]
|
||||||
|
.ReNameTab: DW 240,312,123,137,%0000000000000001,0,InputLine.InputLineExitOk,0
|
||||||
|
DW 328,400,123,137,%0000000000000001,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 0,208, 0,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 432,640, 0,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 0,640, 0, 81,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 0,640,143,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 0x8000
|
||||||
|
|
||||||
|
;[]===============================================================[]
|
||||||
|
.MakeDIRTab: DW 240,312,123,137,%0000000000000001,0,InputLine.InputLineExitOk,0
|
||||||
|
DW 328,400,123,137,%0000000000000001,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 0,200, 0,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 440,640, 0,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 0,640, 0, 81,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 0,640,143,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 0x8000
|
||||||
|
|
||||||
|
;[]===============================================================[]
|
||||||
|
.DeleteTab: DW 196,252,118,132,%0000000100100001,0,DeleteOne,0
|
||||||
|
DW 260,316,118,132,%0000000100100001,0,DeleteAll,0
|
||||||
|
DW 324,380,118,132,%0000000100100001,0,DeleteSkip,0
|
||||||
|
DW 388,444,118,132,%0000000100100001,0,DeleteExit,0
|
||||||
|
DW 0,180, 0,256,%0000000100100000,0,DeleteExit,0
|
||||||
|
DW 460,640, 0,256,%0000000100100000,0,DeleteExit,0
|
||||||
|
DW 0,640, 0, 80,%0000000100100000,0,DeleteExit,0
|
||||||
|
DW 0,640,136,256,%0000000100100000,0,DeleteExit,0
|
||||||
|
DW 0x8000
|
||||||
|
|
||||||
|
.EmptyTab: DW 0,640, 0,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 0x8000
|
||||||
151
rez2_fntab1.a80
151
rez2_fntab1.a80
@ -1,151 +0,0 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 16.04.2025 savelij
|
|
||||||
|
|
||||||
;[]==========================================================[]
|
|
||||||
; ”®à¬ â â ¡«¨æë
|
|
||||||
; +00 2 Xmin
|
|
||||||
; +02 2 Xmax
|
|
||||||
; +04 2 Ymin
|
|
||||||
; +06 2 Ymax
|
|
||||||
; +08 2 0 - ¯à®á⮩ ®¡'¥ªâ
|
|
||||||
; ¡¨â 0 - ª®¯ª
|
|
||||||
; ¡¨â 1 - à ¡®ç ï ª®¯ª
|
|
||||||
; ¡¨â 2 - ¨¢¥àâ 1
|
|
||||||
; ¡¨â 3 - áâ â¨çë© ¨¢¥àâ
|
|
||||||
; ¡¨â 4 - ¯à®£à ¬¬ § ¯ã᪠¥âáï ¡¥§ ¤à¥á ¢®§¢à.
|
|
||||||
; ¨ ¡¥§ ®£ï
|
|
||||||
; ¡¨â 5 - ¯à®£à ¬¬ § ¯ã᪠¥âáï ¡¥§ ¤à¥á ¢®§¢à.
|
|
||||||
; ¯® «¥¢®© ª®¯ª¥ ®£ï
|
|
||||||
; ¡¨â 6 - ¯à®£à ¬¬ § ¯ã᪠¥âáï ¡¥§ ¤à¥á ¢®§¢à.
|
|
||||||
; ¯® ¯à ¢®© ª®¯ª¥ ®£ï
|
|
||||||
; ¡¨â 7 - ¢ë§¢ âì äãªæ¨î § ªàëâ¨ï ®ª ¯¥à¥¤
|
|
||||||
; § ¯ã᪮¬ ¯à®£à ¬¬ë ¡¥§ ®£ï
|
|
||||||
; ¡¨â 8 - ¢ë§¢ âì äãªæ¨î § ªàëâ¨ï ®ª ¯¥à¥¤
|
|
||||||
; § ¯ã᪮¬ ¯à®£à ¬¬ë ¯® «¥¢®© ª®¯ª¥
|
|
||||||
; ¡¨â 9 - ¢ë§¢ âì äãªæ¨î § ªàëâ¨ï ®ª ¯¥à¥¤
|
|
||||||
; § ¯ã᪮¬ ¯à®£à ¬¬ë ¯® ¯à ¢®© ª®¯ª¥
|
|
||||||
; ¡¨â15 - íâ® ¯¥à¥ª«îç ⥫ì (¨¢¥à⠯ਠ®£¥ ¥
|
|
||||||
; 㡨à âì)
|
|
||||||
; +0A 2 €¤à¥á ®¡à ¡®â稪 ¯à¨ ¥ ¦ ⮬ ®£¥
|
|
||||||
; +0C 2 €¤à¥á ®¡à ¡®â稪 ¯à¨ ¦ ⮬ ®£¥ («¥¢)
|
|
||||||
; +0E 2 €¤à¥á ®¡à ¡®â稪 ¯à¨ ¦ ⮬ ®£¥ (¯à ¢)
|
|
||||||
|
|
||||||
;[]==========================================================[]
|
|
||||||
SetupTab: DW 106,246, 85,133,%0000000000000000,0,NewElement,0
|
|
||||||
DW 114,130,146,155,%0000000000000000,0,ChActivatePan,0
|
|
||||||
DW 114,130,164,173,%0000000000000000,0,ChSavePan,0
|
|
||||||
DW 274,290, 87, 95,%0000000000000011,0,DecRED,0
|
|
||||||
DW 418,434, 87, 95,%0000000000000011,0,IncRED,0
|
|
||||||
DW 440,464, 87, 95,%0000000000000000,0,InputRED,0
|
|
||||||
DW 274,290,103,111,%0000000000000011,0,DecGREEN,0
|
|
||||||
DW 418,434,103,111,%0000000000000011,0,IncGREEN,0
|
|
||||||
DW 440,464,103,111,%0000000000000000,0,InputGREEN,0
|
|
||||||
DW 274,290,119,127,%0000000000000011,0,DecBLUE,0
|
|
||||||
DW 418,434,119,127,%0000000000000011,0,IncBLUE,0
|
|
||||||
DW 440,464,119,127,%0000000000000000,0,InputBLUE,0
|
|
||||||
DW 456,528,162,176,%0000000000000001,0,SaveSetup,0
|
|
||||||
DW 368,440,184,198,%0000000000100001,0,SetupCancel,0
|
|
||||||
DW 456,528,184,198,%0000000000100001,0,SetupOkey,0
|
|
||||||
DW 0, 96, 0,256,%0000000000100000,0,SetupCancel,0
|
|
||||||
DW 544,640, 0,256,%0000000000100000,0,SetupCancel,0
|
|
||||||
DW 0,640, 0, 64,%0000000000100000,0,SetupCancel,0
|
|
||||||
DW 0,640,184,256,%0000000000100000,0,SetupCancel,0
|
|
||||||
DW 0x8000
|
|
||||||
|
|
||||||
;[]===============================================================[]
|
|
||||||
FileInfoTab: DW 284,356,160,174,%0000000000100001,0,FileInfoExt,0
|
|
||||||
DW 0,240, 0,256,%0000000000100000,0,FileInfoExt,0
|
|
||||||
DW 400,640, 0,256,%0000000000100000,0,FileInfoExt,0
|
|
||||||
DW 0,640, 0, 80,%0000000000100000,0,FileInfoExt,0
|
|
||||||
DW 0,640,178,256,%0000000000100000,0,FileInfoExt,0
|
|
||||||
DW 0x8000
|
|
||||||
|
|
||||||
;[]===============================================================[]
|
|
||||||
PrintFTab: DW 284,356,128,142,%0000000000000001,0,StopPrint,0
|
|
||||||
DW 0x8000
|
|
||||||
|
|
||||||
;[]===============================================================[]
|
|
||||||
SysInfoTab: DW 284,356,160,174,%0000000000100001,0,SysInfoExt,0
|
|
||||||
DW 0,224, 0,256,%0000000000100000,0,SysInfoExt,0
|
|
||||||
DW 416,640, 0,256,%0000000000100000,0,SysInfoExt,0
|
|
||||||
DW 0,640, 0, 64,%0000000000100000,0,SysInfoExt,0
|
|
||||||
DW 0,640,178,256,%0000000000100000,0,SysInfoExt,0
|
|
||||||
DW 0x8000
|
|
||||||
|
|
||||||
;[]===============================================================[]
|
|
||||||
DiskInfoTab: DW 284,356,160,174,%0000000000100001,0,DiskInfoR.Ext,0
|
|
||||||
DW 0,192, 0,256,%0000000000100000,0,DiskInfoR.Ext,0
|
|
||||||
DW 448,640, 0,256,%0000000000100000,0,DiskInfoR.Ext,0
|
|
||||||
DW 0,640, 0, 80,%0000000000100000,0,DiskInfoR.Ext,0
|
|
||||||
DW 0,640,178,256,%0000000000100000,0,DiskInfoR.Ext,0
|
|
||||||
DW 0x8000
|
|
||||||
|
|
||||||
;[]===============================================================[]
|
|
||||||
VersionTab: DW 284,356,157,171,%0000000000100001,0,VersionExt,0
|
|
||||||
DW 0,192, 0,256,%0000000000100000,0,VersionExt,0
|
|
||||||
DW 448,640, 0,256,%0000000000100000,0,VersionExt,0
|
|
||||||
DW 0,640, 0, 64,%0000000000100000,0,VersionExt,0
|
|
||||||
DW 0,640,176,256,%0000000000100000,0,VersionExt,0
|
|
||||||
DW 0x8000
|
|
||||||
|
|
||||||
;[]===============================================================[]
|
|
||||||
PathTab: DW 240,312,123,137,%0000000000000001,0,InputLine.InpLnExtN,0
|
|
||||||
DW 328,400,123,137,%0000000000000001,0,InputLine.InpLnExtC,0
|
|
||||||
DW 0, 96, 0,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
|
||||||
DW 544,640, 0,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
|
||||||
DW 0,640, 0, 81,%0000000000000000,0,InputLine.InpLnExtC,0
|
|
||||||
DW 0,640,143,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
|
||||||
DW 0x8000
|
|
||||||
|
|
||||||
;[]===============================================================[]
|
|
||||||
OverWrtTab: DW 196,252,126,140,%0000000100100001,0,OverWrtFile,0
|
|
||||||
DW 260,316,126,140,%0000000100100001,0,OverWrtAll,0
|
|
||||||
DW 324,380,126,140,%0000000100100001,0,OverSkip,0
|
|
||||||
DW 388,444,126,140,%0000000100100001,0,OverExit,0
|
|
||||||
DW 0,180, 0,256,%0000000100100000,0,OverExit,0
|
|
||||||
DW 460,640, 0,256,%0000000100100000,0,OverExit,0
|
|
||||||
DW 0,640, 0, 88,%0000000100100000,0,OverExit,0
|
|
||||||
DW 0,640,144,256,%0000000100100000,0,OverExit,0
|
|
||||||
DW 0x8001
|
|
||||||
|
|
||||||
;[]===============================================================[]
|
|
||||||
ReNameTab: DW 240,312,123,137,%0000000000000001,0,InputLine.InpLnExtN,0
|
|
||||||
DW 328,400,123,137,%0000000000000001,0,InputLine.InpLnExtC,0
|
|
||||||
DW 0,208, 0,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
|
||||||
DW 432,640, 0,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
|
||||||
DW 0,640, 0, 81,%0000000000000000,0,InputLine.InpLnExtC,0
|
|
||||||
DW 0,640,143,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
|
||||||
DW 0x8000
|
|
||||||
|
|
||||||
;[]===============================================================[]
|
|
||||||
MakeDIRTab: DW 240,312,123,137,%0000000000000001,0,InputLine.InpLnExtN,0
|
|
||||||
DW 328,400,123,137,%0000000000000001,0,InputLine.InpLnExtC,0
|
|
||||||
DW 0,200, 0,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
|
||||||
DW 440,640, 0,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
|
||||||
DW 0,640, 0, 81,%0000000000000000,0,InputLine.InpLnExtC,0
|
|
||||||
DW 0,640,143,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
|
||||||
DW 0x8000
|
|
||||||
|
|
||||||
;[]===============================================================[]
|
|
||||||
DeleteTab: DW 196,252,118,132,%0000000100100001,0,DelDelete,0
|
|
||||||
DW 260,316,118,132,%0000000100100001,0,DelAll,0
|
|
||||||
DW 324,380,118,132,%0000000100100001,0,DelSkip,0
|
|
||||||
DW 388,444,118,132,%0000000100100001,0,DelExit,0
|
|
||||||
DW 0,180, 0,256,%0000000100100000,0,DelExit,0
|
|
||||||
DW 460,640, 0,256,%0000000100100000,0,DelExit,0
|
|
||||||
DW 0,640, 0, 80,%0000000100100000,0,DelExit,0
|
|
||||||
DW 0,640,136,256,%0000000100100000,0,DelExit,0
|
|
||||||
DW 0x8000
|
|
||||||
|
|
||||||
;[]===============================================================[]
|
|
||||||
QuitTab:
|
|
||||||
DW 240,312,120,134,%0000000000100001,0,QuitConfirmWin.OK,0
|
|
||||||
DW 328,400,120,134,%0000000000100001,0,QuitConfirmWin.Abort,0
|
|
||||||
DW 0,208, 0,256,%0000000000100000,0,QuitConfirmWin.Abort,0
|
|
||||||
DW 432,640, 0,256,%0000000000100000,0,QuitConfirmWin.Abort,0
|
|
||||||
DW 0,640, 0, 88,%0000000000100000,0,QuitConfirmWin.Abort,0
|
|
||||||
DW 0,640,138,256,%0000000000100000,0,QuitConfirmWin.Abort,0
|
|
||||||
DW 0x8000
|
|
||||||
|
|
||||||
EmptyTab: DW 0,640, 0,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
|
||||||
DW 0x8000
|
|
||||||
493
rez3_fnmark.a80
493
rez3_fnmark.a80
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 25.07.2025 savelij
|
; LAST UPDATE: 07.09.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
MarkFileR LD A,(IY+PANEL.FILES_ALL)
|
MarkFileR LD A,(IY+PANEL.FILES_ALL)
|
||||||
@ -15,20 +15,8 @@ MarkFileR LD A,(IY+PANEL.FILES_ALL)
|
|||||||
LD A,(RAMPAGES.RIGHTPANEL)
|
LD A,(RAMPAGES.RIGHTPANEL)
|
||||||
.L1
|
.L1
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
LD L,(IY+PANEL.FIRST_FILE)
|
LD A,HIGH (CPU3)
|
||||||
LD H,(IY+PANEL.FIRST_FILE + 1)
|
CALL GET_HANDLE_ADR
|
||||||
LD E,(IY+PANEL.CURR_FILE)
|
|
||||||
LD D,(IY+PANEL.CURR_FILE + 1)
|
|
||||||
ADD HL,DE
|
|
||||||
ADD HL,HL ; *2
|
|
||||||
ADD HL,HL ; *4
|
|
||||||
ADD HL,HL ; *8
|
|
||||||
LD E,L
|
|
||||||
LD D,H
|
|
||||||
ADD HL,HL ; *16
|
|
||||||
ADD HL,DE ; *18
|
|
||||||
SET 6,H
|
|
||||||
SET 7,H ; | 0xC000
|
|
||||||
LD E,(HL) ; FileHDR.Flag
|
LD E,(HL) ; FileHDR.Flag
|
||||||
POP AF
|
POP AF
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
@ -64,20 +52,8 @@ UnSelectFile: LD IXL,0x00
|
|||||||
.L2
|
.L2
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
SETPORT WINSP.Y_PORT,0xC0
|
SETPORT WINSP.Y_PORT,0xC0
|
||||||
LD L,(IY+PANEL.FIRST_FILE)
|
LD A,HIGH (CPU3)
|
||||||
LD H,(IY+PANEL.FIRST_FILE + 1)
|
CALL GET_HANDLE_ADR
|
||||||
LD E,(IY+PANEL.CURR_FILE)
|
|
||||||
LD D,(IY+PANEL.CURR_FILE + 1)
|
|
||||||
ADD HL,DE
|
|
||||||
ADD HL,HL ; *2
|
|
||||||
ADD HL,HL ; *4
|
|
||||||
ADD HL,HL ; *8
|
|
||||||
LD E,L
|
|
||||||
LD D,H
|
|
||||||
ADD HL,HL ; *16
|
|
||||||
ADD HL,DE ; *18 - FileHDR.SIZE
|
|
||||||
SET 6,H
|
|
||||||
SET 7,H ; | 0xC000
|
|
||||||
PUSH HL
|
PUSH HL
|
||||||
LD DE,FileHDR.Attr
|
LD DE,FileHDR.Attr
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
@ -85,9 +61,13 @@ UnSelectFile: LD IXL,0x00
|
|||||||
POP HL
|
POP HL
|
||||||
BIT DIR.B_Dir,C ; íâ® ¤¨à ?
|
BIT DIR.B_Dir,C ; íâ® ¤¨à ?
|
||||||
IF MARK_DIR
|
IF MARK_DIR
|
||||||
CALL NZ,COUNTING_DIR ; ¨§¬¥à¥¨¥ à §¬¥à ¤¨àë
|
PUSH HL
|
||||||
|
PUSH BC
|
||||||
|
CALL NZ,RESIDENT.CalcDirSize ; ¨§¬¥à¥¨¥ à §¬¥à ¤¨àë
|
||||||
|
POP BC
|
||||||
|
POP HL
|
||||||
ELSE
|
ELSE
|
||||||
JR NZ,.MrFile1 ; ¤¨à¥ª®à¨¨ ª®¯¨à®¢ âì ¥ 㬥¥¬, ⮫쪮 ä ©«ë
|
JR NZ,.MrFile1 ; ¤¨à¥ªâ®à¨¨ ª®¯¨à®¢ âì ¥ 㬥¥¬, ⮫쪮 ä ©«ë
|
||||||
ENDIF
|
ENDIF
|
||||||
; íâ® ä ©«
|
; íâ® ä ©«
|
||||||
LD B,(HL) ; áâ ஥ á®áâ®ï¨¥ ¯®¬¥âª¨ ä ©«
|
LD B,(HL) ; áâ ஥ á®áâ®ï¨¥ ¯®¬¥âª¨ ä ©«
|
||||||
@ -98,11 +78,11 @@ UnSelectFile: LD IXL,0x00
|
|||||||
PUSH BC
|
PUSH BC
|
||||||
LD BC,FileHDR.SIZE
|
LD BC,FileHDR.SIZE
|
||||||
LDIR
|
LDIR
|
||||||
|
IF MARK_DIR
|
||||||
BIT DIR.B_Dir,A ; ä ©« ¨«¨ ¤¨à
|
BIT DIR.B_Dir,A ; ä ©« ¨«¨ ¤¨à
|
||||||
JR Z,.L8
|
JR Z,.L8
|
||||||
IF MARK_DIR
|
; ª®¯¨à㥬 à §¬¥à ¢ ¡ ©â å ¢ à §¬¥à ¤¨àë
|
||||||
; ª®¯¨à㥬 à §¬¥à ¢ ¡ ©â å ¨§ à §¬¥à ¤¨àë
|
LD HL,JUMPS.FILES_BYTES
|
||||||
LD HL,COUNTING_DIR.FILES_SIZE
|
|
||||||
LD DE,WorkBuffer + FileHDR.SizeBytes
|
LD DE,WorkBuffer + FileHDR.SizeBytes
|
||||||
LD BC,DWORD
|
LD BC,DWORD
|
||||||
LDIR
|
LDIR
|
||||||
@ -147,7 +127,7 @@ UnSelectFile: LD IXL,0x00
|
|||||||
.L4 LD IX,8 << 8 + 48
|
.L4 LD IX,8 << 8 + 48
|
||||||
DEC HL
|
DEC HL
|
||||||
DEC HL
|
DEC HL
|
||||||
CALL InvertRectan
|
CALL ReplaceColorRectan
|
||||||
POP AF
|
POP AF
|
||||||
JR NZ,.MarkExit1
|
JR NZ,.MarkExit1
|
||||||
JR .MarkExit2
|
JR .MarkExit2
|
||||||
@ -172,7 +152,7 @@ UnSelectFile: LD IXL,0x00
|
|||||||
JR NZ,.L6
|
JR NZ,.L6
|
||||||
LD DE,(COLORP.INVERTPAPER + COLORI.INVSELFILES) << 8 | (COLORP.INVERTPAPER + COLORI.INVERTINK)
|
LD DE,(COLORP.INVERTPAPER + COLORI.INVSELFILES) << 8 | (COLORP.INVERTPAPER + COLORI.INVERTINK)
|
||||||
.L6 LD IX,8 << 8 + 146
|
.L6 LD IX,8 << 8 + 146
|
||||||
CALL InvertRectan
|
CALL ReplaceColorRectan
|
||||||
POP AF
|
POP AF
|
||||||
JR Z,.MarkExit2
|
JR Z,.MarkExit2
|
||||||
; ãáâ ®¢ª ¢ë¡®à ä ©«
|
; ãáâ ®¢ª ¢ë¡®à ä ©«
|
||||||
@ -260,7 +240,7 @@ SelectGroup: LD (SelMode),A
|
|||||||
W_FILL 72,23,130,10,COLORI.WHITE
|
W_FILL 72,23,130,10,COLORI.WHITE
|
||||||
W_END
|
W_END
|
||||||
LD IX,SMaskStr
|
LD IX,SMaskStr
|
||||||
LD HL,SMaskTab
|
LD HL,REZ3TAB.SMaskTab
|
||||||
CALL InputLine
|
CALL InputLine
|
||||||
WINDOWCLOSE
|
WINDOWCLOSE
|
||||||
RET C
|
RET C
|
||||||
@ -467,14 +447,14 @@ SMask21 LD (DE),A
|
|||||||
SelectAllR: CALL ResInvert
|
SelectAllR: CALL ResInvert
|
||||||
SelectAllRN: LD HL,SetInvert
|
SelectAllRN: LD HL,SetInvert
|
||||||
PUSH HL
|
PUSH HL
|
||||||
LD A,(IY+PANEL.FILES_ALL)
|
LD A,(IY + PANEL.FILES_ALL)
|
||||||
OR (IY+PANEL.FILES_ALL + 1)
|
OR (IY + PANEL.FILES_ALL + 1)
|
||||||
RET Z
|
RET Z
|
||||||
BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
||||||
RET NZ
|
RET NZ
|
||||||
GETPORT WINSP.CPU3
|
GETPORT WINSP.CPU3
|
||||||
PUSH AF
|
PUSH AF
|
||||||
BIT PANELFLAG.B_SIDE,(IY+PANEL.PANELFLAG)
|
BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
||||||
LD A,(RAMPAGES.LEFTPANEL)
|
LD A,(RAMPAGES.LEFTPANEL)
|
||||||
JR Z,.L1
|
JR Z,.L1
|
||||||
LD A,(RAMPAGES.RIGHTPANEL)
|
LD A,(RAMPAGES.RIGHTPANEL)
|
||||||
@ -496,6 +476,8 @@ SelectAllRN: LD HL,SetInvert
|
|||||||
EX AF,AF' ; [ ] fat32
|
EX AF,AF' ; [ ] fat32
|
||||||
.loop: BIT DIR.B_Dir,(IX + FileHDR.Attr) ;!HARDCODE DIRECTORY
|
.loop: BIT DIR.B_Dir,(IX + FileHDR.Attr) ;!HARDCODE DIRECTORY
|
||||||
JR NZ,.SelAll1
|
JR NZ,.SelAll1
|
||||||
|
; ¬ ન஢ª ⮫쪮 ä ©«®¢
|
||||||
|
PUSH BC
|
||||||
SET FileHDR.B_MARK,(IX + FileHDR.Flag)
|
SET FileHDR.B_MARK,(IX + FileHDR.Flag)
|
||||||
LD C,(IX + FileHDR.SizeBytes)
|
LD C,(IX + FileHDR.SizeBytes)
|
||||||
LD B,(IX + FileHDR.SizeBytes + 1)
|
LD B,(IX + FileHDR.SizeBytes + 1)
|
||||||
@ -511,7 +493,8 @@ SelectAllRN: LD HL,SetInvert
|
|||||||
EXX
|
EXX
|
||||||
INC HL
|
INC HL
|
||||||
EXX
|
EXX
|
||||||
LD BC,FileHDR.SIZE
|
; LD BC,FileHDR.SIZE
|
||||||
|
POP BC
|
||||||
.SelAll1: ADD IX,BC
|
.SelAll1: ADD IX,BC
|
||||||
LD A,(IX + FileHDR.Name)
|
LD A,(IX + FileHDR.Name)
|
||||||
OR A
|
OR A
|
||||||
@ -534,7 +517,7 @@ SelectAllRN: LD HL,SetInvert
|
|||||||
LD (IY+PANEL.BYTES_MARK + 3),D
|
LD (IY+PANEL.BYTES_MARK + 3),D
|
||||||
; [ ] FAT32
|
; [ ] FAT32
|
||||||
EX AF,AF'
|
EX AF,AF'
|
||||||
LD (IY+PANEL.BYTES_MARK_H),A
|
LD (IY + PANEL.BYTES_MARK_H),A
|
||||||
CALL PrintDIR
|
CALL PrintDIR
|
||||||
JP PrnFileInfo
|
JP PrnFileInfo
|
||||||
|
|
||||||
@ -542,13 +525,13 @@ SelectAllRN: LD HL,SetInvert
|
|||||||
UnSelectAllR: CALL ResInvert
|
UnSelectAllR: CALL ResInvert
|
||||||
UnSelectAllRN: LD HL,SetInvert
|
UnSelectAllRN: LD HL,SetInvert
|
||||||
PUSH HL
|
PUSH HL
|
||||||
LD A,(IY+PANEL.FILES_ALL)
|
LD A,(IY + PANEL.FILES_ALL)
|
||||||
OR (IY+PANEL.FILES_ALL + 1)
|
OR (IY + PANEL.FILES_ALL + 1)
|
||||||
RET Z
|
RET Z
|
||||||
BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
||||||
RET NZ
|
RET NZ
|
||||||
LD A,(IY+PANEL.FILES_MARK)
|
LD A,(IY + PANEL.FILES_MARK)
|
||||||
OR (IY+PANEL.FILES_MARK + 1)
|
OR (IY + PANEL.FILES_MARK + 1)
|
||||||
RET Z
|
RET Z
|
||||||
PUSH IY
|
PUSH IY
|
||||||
POP HL
|
POP HL
|
||||||
@ -560,7 +543,7 @@ UnSelectAllRN: LD HL,SetInvert
|
|||||||
DJNZ .L2
|
DJNZ .L2
|
||||||
GETPORT WINSP.CPU3
|
GETPORT WINSP.CPU3
|
||||||
PUSH AF
|
PUSH AF
|
||||||
BIT PANELFLAG.B_SIDE,(IY+PANEL.PANELFLAG)
|
BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
||||||
LD A,(RAMPAGES.LEFTPANEL)
|
LD A,(RAMPAGES.LEFTPANEL)
|
||||||
JR Z,.L1
|
JR Z,.L1
|
||||||
LD A,(RAMPAGES.RIGHTPANEL)
|
LD A,(RAMPAGES.RIGHTPANEL)
|
||||||
@ -678,415 +661,3 @@ SUB_SIZE: EX AF,AF' ; [ ] fat32
|
|||||||
EXX
|
EXX
|
||||||
EX AF,AF'
|
EX AF,AF'
|
||||||
RET
|
RET
|
||||||
|
|
||||||
IF MARK_DIR
|
|
||||||
; ¯®¤áç¥â ¢ ¡ ©â å à §¬¥à ®â¬¥ç¥®© ¤¨à¥ªâ®à¨¨
|
|
||||||
; HL - ¤à¥á ®¯¨á â¥«ï ¤¨àë ¢ áâà ¨æ¥ ¯ ¥«¨ ª®â®àãî ¬¥àïâì
|
|
||||||
COUNTING_DIR
|
|
||||||
|
|
||||||
.OLDPATH EQU WorkBuffer + 0x300 ; á®åà ¥ë© â¥ªã騩 ¯ãâì
|
|
||||||
.CURRPATH EQU WorkBuffer + 0x200 ; ¢à¥¬¥®© ⥪ã騩 ¯ãâì
|
|
||||||
|
|
||||||
PUSH IX
|
|
||||||
PUSH IY
|
|
||||||
PUSH HL
|
|
||||||
PUSH BC
|
|
||||||
GETPORT WINSP.CPU3
|
|
||||||
PUSH AF
|
|
||||||
PUSH HL
|
|
||||||
BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
|
||||||
LD A,(RAMPAGES.LEFTPANEL)
|
|
||||||
JR Z,.L1
|
|
||||||
LD A,(RAMPAGES.RIGHTPANEL)
|
|
||||||
.L1 ; ¢ª«îç ¥¬ ¯ £ã á ¤¨à¥ªâ®à¨¥© ⥪ã饩 ¯ ¥«¨
|
|
||||||
SETPORT WINSP.CPU3,,0
|
|
||||||
XOR A
|
|
||||||
LD H,A
|
|
||||||
LD L,A
|
|
||||||
LD IXH,A ; ®¡ã«¥¨¥ ãà®¢ï ¢å®¦¤¥¨ï ¢ ¤¨àë
|
|
||||||
LD (.FILES_SIZE),HL
|
|
||||||
LD (.FILES_SIZE + 2),HL ; ®¡ã«¥¨¥ à §¬¥à ¤¨àë
|
|
||||||
LD HL,CPU3
|
|
||||||
LD (.CURR_DIRNAME),HL
|
|
||||||
; á®åà ¥¨¥ ⥪ã饣® ¯ã⨠¤«ï ¢®§¢à â
|
|
||||||
SPDSS DSSF.CURDISK
|
|
||||||
LD HL,.OLDPATH ; á®åà ¥ë© ¯ãâì ¤«ï ¢®§¢à â
|
|
||||||
ADD A,'A'
|
|
||||||
LD (HL),A
|
|
||||||
INC HL
|
|
||||||
LD (HL),':'
|
|
||||||
INC HL
|
|
||||||
SPDSS DSSF.CURDIR
|
|
||||||
POP DE
|
|
||||||
JP C,.END_COUNT
|
|
||||||
; ¢å®¤ ¢ ¤¨à¥ªâ®à¨î
|
|
||||||
LD HL,FileHDR.Name
|
|
||||||
ADD HL,DE
|
|
||||||
LD DE,.DIR_NAME
|
|
||||||
PUSH DE
|
|
||||||
LD BC,FileHDR.Name_Size
|
|
||||||
LDIR ; § ¡à «¨ ¨¬ï ¤¨àë ¤«ï ¨§¬¥à¥¨ï
|
|
||||||
LD A,(RAMPAGES.FLX)
|
|
||||||
SETPORT WINSP.CPU3,,0
|
|
||||||
CALL .ADD_2DOT ; ¢®§¢à â ¢ ¯à¥¤ë¤ãéãî ¤¨àã
|
|
||||||
POP HL
|
|
||||||
LD DE,(.CURR_DIRNAME)
|
|
||||||
LD BC,FileHDR.Name_Size
|
|
||||||
LDIR ; ¨¬ï ¤¨àë ¤«ï ¢å®¤
|
|
||||||
LD (.CURR_DIRNAME),DE
|
|
||||||
XOR A
|
|
||||||
LD (DE),A
|
|
||||||
CALL .SET_PATH ; ãáâ ®¢ª ⥪ã饣® ¯ãâ¨
|
|
||||||
INC IXH ; á«¥¤ãî騩 ã஢¥ì ¤¨àë
|
|
||||||
.CONTINUE CALL .ADD_2DOT
|
|
||||||
CALL .COUNT_FILES
|
|
||||||
LD A,IXL
|
|
||||||
AND A ; §¤¥áì ¤¨àë ¥áâì?
|
|
||||||
JR Z,.PREV_DIR ; ¤¨àë ¥ ©¤¥ë
|
|
||||||
CALL .SET_PATH ; ¢å®¤ ¢ ¤¨àã ¨§ ᯨáª
|
|
||||||
INC IXH ; á«¥¤ãî騩 ã஢¥ì ¤¨àë
|
|
||||||
JR .CONTINUE
|
|
||||||
|
|
||||||
; ¢ë室 ¢ ¯à¥¤ë¤ãéãî ¤¨àã
|
|
||||||
.PREV_DIR CALL .OUT_DIR
|
|
||||||
LD A,IXH ; ã஢¥ì ¤¨àë?
|
|
||||||
AND A
|
|
||||||
JR Z,.END_COUNT
|
|
||||||
CALL .GET_NAME
|
|
||||||
CALL .GET_NAME
|
|
||||||
LD HL,(.CURR_DIRNAME)
|
|
||||||
LD DE,-FileHDR.Name_Size
|
|
||||||
ADD HL,DE
|
|
||||||
LD A,(HL)
|
|
||||||
CP '.'
|
|
||||||
JR Z,.PREV_DIR
|
|
||||||
CALL .SET_PATH
|
|
||||||
INC IXH ; á«¥¤ãî騩 ã஢¥ì ¤¨àë
|
|
||||||
JR .CONTINUE
|
|
||||||
|
|
||||||
; ¢®§¢à â ⥪ã饣® ¯ãâ¨
|
|
||||||
.END_COUNT POP AF
|
|
||||||
SETPORT WINSP.CPU3,,0
|
|
||||||
LD HL,.OLDPATH ; á®åà ¥ë© ¯ãâì ¤«ï ¢®§¢à â
|
|
||||||
SPDSS DSSF.CHDIR
|
|
||||||
POP BC
|
|
||||||
POP HL
|
|
||||||
POP IY
|
|
||||||
POP IX
|
|
||||||
RET
|
|
||||||
|
|
||||||
.GET_NAME LD HL,(.CURR_DIRNAME)
|
|
||||||
LD (HL),0
|
|
||||||
LD DE,-FileHDR.Name_Size
|
|
||||||
ADD HL,DE
|
|
||||||
LD (.CURR_DIRNAME),HL
|
|
||||||
RET
|
|
||||||
|
|
||||||
.OUT_DIR DEC IXH ; ¯à¥¤ë¤ã騩 ã஢¥ì ¤¨àë
|
|
||||||
LD HL,.RET_DIR
|
|
||||||
JR .SP1
|
|
||||||
|
|
||||||
; ¯¥à¥å®¤ ¢ ¤¨àã ¨§ ᯨáª
|
|
||||||
.SET_PATH LD HL,(.CURR_DIRNAME)
|
|
||||||
LD DE,-FileHDR.Name_Size
|
|
||||||
ADD HL,DE
|
|
||||||
LD DE,.DIR_NAME
|
|
||||||
PUSH DE
|
|
||||||
LD BC,FFIRST.Name_Size
|
|
||||||
LDIR
|
|
||||||
POP HL
|
|
||||||
.SP1 PUSH IX
|
|
||||||
SPDSS DSSF.CHDIR
|
|
||||||
SPDSS DSSF.CURDISK
|
|
||||||
LD HL,.CURRPATH
|
|
||||||
ADD A,'A'
|
|
||||||
LD (HL),A
|
|
||||||
INC HL
|
|
||||||
LD (HL),':'
|
|
||||||
INC HL
|
|
||||||
SPDSS DSSF.CURDIR
|
|
||||||
POP IX
|
|
||||||
RET
|
|
||||||
|
|
||||||
; ¤®¡ ¢«¥¨¥ ¨¬¥¨ ¤¨àë ¤«ï ¢ë室 ¢ ¯à¥¤ë¤ãéãî ¤¨àã
|
|
||||||
.ADD_2DOT PUSH HL
|
|
||||||
LD HL,.RET_DIR
|
|
||||||
LD DE,(.CURR_DIRNAME)
|
|
||||||
LD BC,FFIRST.Name_Size
|
|
||||||
LDIR
|
|
||||||
LD (.CURR_DIRNAME),DE
|
|
||||||
POP HL
|
|
||||||
RET
|
|
||||||
|
|
||||||
; ¯¥à¥áç¨âë¢ ¥¬ à §¬¥àë ä ©«®¢ ¢ ⥪ã饩 ¤¨à¥ªâ®à¨¨
|
|
||||||
; ¨ ¢ë£à¥¡ ¥¬ ¨¬¥ ¤¨à ¢ â ¡«¨çªã
|
|
||||||
.COUNT_FILES LD IXL,0 ; ª®«¨ç¥á⢮ ¤¨à ¢ ⥪ã饩 ¤¨à¥
|
|
||||||
CALL .F_FIRST ; ¨é¥¬ ¯¥à¢ë© ®¯¨á ⥫ì
|
|
||||||
RET C
|
|
||||||
.L2 LD DE,FFIRST.Attr
|
|
||||||
ADD HL,DE
|
|
||||||
LD A,(HL)
|
|
||||||
SBC HL,DE
|
|
||||||
BIT DIR.B_Dir,A
|
|
||||||
JR Z,.L4
|
|
||||||
; ¤«ï ¤¨àë ª®¯¨à㥬 ¨¬ï ¢ â ¡«¨çªã
|
|
||||||
LD DE,FFIRST.Name
|
|
||||||
ADD HL,DE
|
|
||||||
LD A,(HL)
|
|
||||||
CP '.' ; . ¨ .. ¯à®¯ã᪠¥¬
|
|
||||||
JR Z,.L5
|
|
||||||
LD DE,(.CURR_DIRNAME)
|
|
||||||
LD BC,FFIRST.Name_Size
|
|
||||||
LDIR
|
|
||||||
LD (.CURR_DIRNAME),DE
|
|
||||||
INC IXL
|
|
||||||
JR .L5
|
|
||||||
|
|
||||||
; ¤«ï ä ©« ¤®¡ ¢«ï¥¬ ¤«¨ã
|
|
||||||
.L4 LD DE,FFIRST.FileSize
|
|
||||||
ADD HL,DE
|
|
||||||
CALL GET_DWORD ; ¢§ïâì à §¬¥à ¨§ ®¯¨á ⥫ï
|
|
||||||
LD HL,.FILES_SIZE
|
|
||||||
PUSH HL
|
|
||||||
CALL BCDEHLP ; ¤®¡ ¢¨«¨ ª ⥪ã饬ã à §¬¥àã
|
|
||||||
POP HL
|
|
||||||
CALL SET_DWORD ; ¯®«®¦¨«¨ ®¡à â®
|
|
||||||
.L5 CALL .F_NEXT
|
|
||||||
JR NC,.L2
|
|
||||||
RET
|
|
||||||
|
|
||||||
; ¯®¨áª ¯¥à¢®£® ®¯¨á ⥫ï
|
|
||||||
.F_FIRST LD A, DIR.M_Archive + \
|
|
||||||
DIR.M_System + \
|
|
||||||
DIR.M_Hidden + \
|
|
||||||
DIR.M_ReadOnly + \
|
|
||||||
DIR.M_Dir
|
|
||||||
.FFF1 LD HL,.FILES_MASK
|
|
||||||
LD DE,.OLDPATH
|
|
||||||
PUSH DE
|
|
||||||
PUSH IX
|
|
||||||
SPDSS DSSF.F_FIRST,0
|
|
||||||
POP IX
|
|
||||||
POP HL
|
|
||||||
RET
|
|
||||||
|
|
||||||
; ¯®¨áª á«¥¤ãî饣® ®¯¨á ⥫ï
|
|
||||||
.F_NEXT LD DE,.OLDPATH
|
|
||||||
PUSH DE
|
|
||||||
PUSH IX
|
|
||||||
SPDSS DSSF.F_NEXT
|
|
||||||
POP IX
|
|
||||||
POP HL
|
|
||||||
RET
|
|
||||||
|
|
||||||
.FILES_SIZE DD 0
|
|
||||||
.FILES_MASK DZ "*.*"
|
|
||||||
.RET_DIR DZ ".. "
|
|
||||||
.DIR_NAME DZ " "
|
|
||||||
.CURR_DIRNAME DW 0
|
|
||||||
|
|
||||||
; ¯®¤áç¥â à §¬¥à ¤¨à¥ªâ®à¨¨
|
|
||||||
; <20> ¢å®¤¥:
|
|
||||||
; HL - ¤à¥á ®¯¨á â¥«ï ¤¨àë ¢ áâà ¨æ¥ ¯ ¥«¨ ª®â®àãî ¬¥àïâì
|
|
||||||
; <20> ¢ë室¥:
|
|
||||||
; BCDE' - à §¬¥à ¢ ¡ ©â å
|
|
||||||
GetDirSizeR CALL COUNTING_DIR
|
|
||||||
LD HL,COUNTING_DIR.FILES_SIZE
|
|
||||||
CALL GET_DWORD
|
|
||||||
EXX
|
|
||||||
RET
|
|
||||||
|
|
||||||
; á®§¤ ¨¥ ¯ ¯®ª ¯à¨¥¬¨ª¥
|
|
||||||
; HL - ¤à¥á ®¯¨á â¥«ï ¤¨àë ¢ áâà ¨æ¥ ¯ ¥«¨ ª®â®àãî ª®¯¨à®¢ âì
|
|
||||||
MkdirsDstR
|
|
||||||
|
|
||||||
.OLDPATH EQU WorkBuffer + 0x300 ; á®åà ¥ë© â¥ªã騩 ¯ãâì
|
|
||||||
.CURRPATHSRC EQU WorkBuffer + 0x200 ; ¢à¥¬¥®© ⥪ã騩 ¯ãâì ¨áâ®ç¨ª
|
|
||||||
.CURRPATHDST EQU WorkBuffer + 0x100 ; ¢à¥¬¥®© ⥪ã騩 ¯ãâì ¯à¨¥¬¨ª
|
|
||||||
.FINDBUF EQU WorkBuffer
|
|
||||||
|
|
||||||
PUSH IX
|
|
||||||
PUSH IY
|
|
||||||
GETPORT WINSP.CPU3
|
|
||||||
PUSH AF
|
|
||||||
LD (.OLDSP),SP
|
|
||||||
PUSH HL
|
|
||||||
BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
|
||||||
LD DE,RightPanel ; ¤«ï ¯ã⨠ªã¤ ª®¯¨à®¢ âì
|
|
||||||
LD A,(RAMPAGES.LEFTPANEL) ; ¨§ ª ª®© áâà ¨æë ¯ ¥«¨ ¡à âì ¯ãâì
|
|
||||||
JR Z,.L1
|
|
||||||
LD DE,LeftPanel ; ¤«ï ¯ã⨠ªã¤ ª®¯¨à®¢ âì
|
|
||||||
LD A,(RAMPAGES.RIGHTPANEL) ; ¨§ ª ª®© áâà ¨æë ¯ ¥«¨ ¡à âì ¯ãâì
|
|
||||||
.L1 ; ¢ª«îç ¥¬ ¯ £ã á ¤¨à¥ªâ®à¨¥© ⥪ã饩 ¯ ¥«¨
|
|
||||||
SETPORT WINSP.CPU3,,0
|
|
||||||
LD HL,PANEL.CURR_PATH
|
|
||||||
ADD HL,DE ; ®âªã¤ ¯ãâì ¯à¨¥¬¨ª ¢§ïâì
|
|
||||||
LD DE,.CURRPATHDST ; ¡ãä¥à ¯ã⨠¯à¨¥¬¨ª
|
|
||||||
CALL .COPYNAME2PATH
|
|
||||||
LD (.ENDPATHDST),DE ; ¤à¥á 墮áâ ¯ã⨠¯à¨¥¬¨ª
|
|
||||||
; á®åà ¥¨¥ ⥪ã饣® ¯ã⨠¤«ï ¢®§¢à â
|
|
||||||
SPDSS DSSF.CURDISK
|
|
||||||
LD HL,.OLDPATH ; á®åà ¥ë© ¯ãâì ¤«ï ¢®§¢à â
|
|
||||||
ADD A,'A'
|
|
||||||
LD (HL),A
|
|
||||||
INC HL
|
|
||||||
LD (HL),':'
|
|
||||||
INC HL
|
|
||||||
SPDSS DSSF.CURDIR
|
|
||||||
POP DE ; ¤à¥á ®¯¨á â¥«ï ¤¨àë ¢ áâà ¨æ¥ ¯ ¥«¨ ª®â®àãî ª®¯¨à®¢ âì
|
|
||||||
; JP C,ERROR ;COUNTING_DIR.END_COUNT
|
|
||||||
; ª®¯¨à®¢ ¨¥ ¨¬¥¨ ¤¨à¥ªâ®à¨¨ ¤«ï ª®¯¨à®¢ ¨ï
|
|
||||||
LD HL,FileHDR.Name
|
|
||||||
ADD HL,DE
|
|
||||||
LD DE,COUNTING_DIR.DIR_NAME
|
|
||||||
LD BC,FileHDR.Name_Size
|
|
||||||
LDIR ; § ¡à «¨ ¨¬ï ¤¨àë ¤«ï ª®¯¨à®¢ ¨ï
|
|
||||||
EX DE,HL
|
|
||||||
CALL .CUTOFFSPACES ; ®âá¥ç¥¨¥ ¯à®¡¥«®¢
|
|
||||||
; ¯¥à¥®á ⥪ã饣® ¯ã⨠¨áâ®ç¨ª
|
|
||||||
LD HL,.OLDPATH
|
|
||||||
LD DE,.CURRPATHSRC
|
|
||||||
CALL .COPYNAME2PATH ; ᪮¯¨à®¢ «¨ ¯ãâì ¨áâ®ç¨ª
|
|
||||||
LD (.ENDPATHSRC),DE ; ¤à¥á 墮áâ ¯ã⨠¨áâ®ç¨ª
|
|
||||||
; ¤®¡ ¢«¥¨¥ ¨¬¥¨ ¤¨àë ¤«ï ª®¯¨à®¢ ¨ï ¢ ¯ãâì ¨áâ®ç¨ª
|
|
||||||
LD HL,(.ENDPATHSRC)
|
|
||||||
LD DE,COUNTING_DIR.DIR_NAME
|
|
||||||
CALL .ADDNAME2PATH
|
|
||||||
LD (.ENDPATHSRC),DE ; ¤à¥á 墮áâ ¯ã⨠¨áâ®ç¨ª
|
|
||||||
; ¤®¡ ¢«¥¨¥ ¨¬¥¨ ¤¨àë ¤«ï ª®¯¨à®¢ ¨ï ¢ ¯ãâì ¯à¨¥¬¨ª
|
|
||||||
LD HL,(.ENDPATHDST)
|
|
||||||
LD DE,COUNTING_DIR.DIR_NAME
|
|
||||||
CALL .ADDNAME2PATH
|
|
||||||
LD (.ENDPATHDST),DE
|
|
||||||
|
|
||||||
; á®§¤ ¨¥ ¤¨àë ¢ ¯à¨¥¬¨ª¥
|
|
||||||
LD HL,.CURRPATHDST
|
|
||||||
SPDSS DSSF.MKDIR ; á®§¤ «¨ ¤¨à㠯ਥ¬¨ª
|
|
||||||
JR NC,.L3
|
|
||||||
CP ERR_DSS.DIR_EXISTS ; ¥á«¨ ¤¨à 㦥 ¥áâì ¨£®à¨¬ ®è¨¡ªã
|
|
||||||
; JP C,ERROR
|
|
||||||
.L3
|
|
||||||
|
|
||||||
; TODO 横«¨ç¥áª¨© ¯®¨áª ¤¨à¥ªâ®à¨© á á®§¤ ¨¥¬ ¯à¨¥¬¨ª¥
|
|
||||||
LD HL,.CURRPATHSRC
|
|
||||||
SPDSS DSSF.CHDIR ; ¢å®¤ ¢ ¤¨àã ¨áâ®ç¨ª
|
|
||||||
CALL .FINDFIRSTSRCDIR ; ¯®¨áª ¯¥à¢®£® ®¯¨á ⥫ï
|
|
||||||
JP C,.ENDCOPY ; ¡®«ìè¥ ¤¨à¥ªâ®à¨© ¥â, ¢ë室¨¬
|
|
||||||
; ¯®¨áª ¤¨à¥ªâ®à¨©
|
|
||||||
.L2 CALL .FINDNEXTSRCDIR ; ¯®¨áª á«¥¤ãî饣® ®¯¨á ⥫ï
|
|
||||||
JP C,.ENDFINDNEXT ; ¯®¨áª ®ª®ç¥?
|
|
||||||
LD HL,.FINDBUF + FFIRST.Name
|
|
||||||
LD A,(HL)
|
|
||||||
CP '.' ; ®¯¨á ⥫¨ "." ¨ ".." ¨£®à¨¬
|
|
||||||
JR Z,.L2
|
|
||||||
LD DE,.TMPNAMEDIR
|
|
||||||
PUSH DE
|
|
||||||
CALL .COPYNAME2PATH
|
|
||||||
LD HL,(.ENDPATHDST)
|
|
||||||
POP DE
|
|
||||||
CALL .ADDNAME2PATH
|
|
||||||
LD HL,.CURRPATHDST
|
|
||||||
SPDSS DSSF.MKDIR ; á®§¤ ¥¬ ¤¨à㠯ਥ¬¨ª¥
|
|
||||||
; JP C,ERROR
|
|
||||||
LD HL,.CURRPATHSRC
|
|
||||||
SPDSS DSSF.CHDIR ; ¢®§¢à é ¥¬ ¯ãâì ¨áâ®ç¨ª
|
|
||||||
; JP C,ERROR
|
|
||||||
JR .L2 ; ¨é¥¬ á«¥¤ãî騩
|
|
||||||
|
|
||||||
; § ¢¥à襨¥ ¨ ¢ë室
|
|
||||||
JP COUNTING_DIR.END_COUNT;RestoreDIR
|
|
||||||
|
|
||||||
; LD A,(RAMPAGES.FLX)
|
|
||||||
; SETPORT WINSP.CPU3,,0
|
|
||||||
|
|
||||||
.ENDFINDNEXT
|
|
||||||
JR $
|
|
||||||
|
|
||||||
; ¯®¨áª ¯¥à¢®© ¤¨àë ¢ ⥪ã饩 ¯®¤¤¨à¥ªâ®à¨¨
|
|
||||||
.FINDFIRSTSRCDIR
|
|
||||||
LD HL,COUNTING_DIR.FILES_MASK
|
|
||||||
LD DE,.FINDBUF
|
|
||||||
SPDSS DSSF.F_FIRST,1,DIR.M_Dir
|
|
||||||
RET
|
|
||||||
|
|
||||||
.FINDNEXTSRCDIR
|
|
||||||
LD DE,.FINDBUF
|
|
||||||
SPDSS DSSF.F_NEXT
|
|
||||||
RET
|
|
||||||
|
|
||||||
; ¤®¡ ¢«¥¨¥ ¨¬¥¨ ¢ áâப㠯ãâ¨
|
|
||||||
; HL - ªã¤ ¤®¡ ¢«ïâì (墮áâ ⥪ã饣® ¯ãâ¨)
|
|
||||||
; DE - ®âªã¤ ¨¬ï ¡à âì
|
|
||||||
.ADDNAME2PATH CALL .CHECK_BSLASH
|
|
||||||
LD (HL),'\\'
|
|
||||||
INC HL
|
|
||||||
EX DE,HL
|
|
||||||
; ª®¯¨à®¢ ¨¥ ¨¬¥¨ ¨§ ¡ãä¥à
|
|
||||||
.COPYNAME2PATH XOR A
|
|
||||||
.CNP2 CP (HL)
|
|
||||||
JR Z,.CNP1
|
|
||||||
LDI
|
|
||||||
JR .CNP2
|
|
||||||
|
|
||||||
.CNP1 LD (DE),A
|
|
||||||
RET
|
|
||||||
|
|
||||||
.NAME2DIRNAME
|
|
||||||
|
|
||||||
; ¯à®¢¥àª BACKSLASH
|
|
||||||
.CHECK_BSLASH DEC HL
|
|
||||||
LD A,(HL)
|
|
||||||
CP '\\'
|
|
||||||
RET Z
|
|
||||||
INC HL
|
|
||||||
RET
|
|
||||||
|
|
||||||
; ®âá¥ç¥¨¥ ¯à®¡¥«®¢ ¢ ¨¬¥¨
|
|
||||||
.CUTOFFSPACES LD A,' '
|
|
||||||
.COS2 DEC HL
|
|
||||||
CP (HL)
|
|
||||||
JR Z,.COS2
|
|
||||||
INC HL
|
|
||||||
LD (HL),0
|
|
||||||
RET
|
|
||||||
|
|
||||||
; ®âá¥ç¥¨¥ ¨¬¥¨ ¤¨àë ¢ áâப¥ ¯ãâ¨
|
|
||||||
.DELNAME2PATH LD A,'\\'
|
|
||||||
.COB1 DEC HL
|
|
||||||
CP (HL)
|
|
||||||
JR NZ,.COB1
|
|
||||||
LD (HL),0
|
|
||||||
RET
|
|
||||||
|
|
||||||
; ¢ë室 ¨§ ª®¯¨à®¢ ¨ï ¤¨à¥ªâ®à¨©
|
|
||||||
.ENDCOPY LD SP,0
|
|
||||||
.OLDSP EQU $-2
|
|
||||||
LD HL,.OLDPATH
|
|
||||||
SPDSS DSSF.CHDIR
|
|
||||||
POP AF
|
|
||||||
SETPORT WINSP.CPU3,,0
|
|
||||||
POP IY
|
|
||||||
POP IX
|
|
||||||
RET
|
|
||||||
|
|
||||||
.ENDPATHSRC DW 0 ; ¤à¥á 墮áâ ¯ã⨠¨áâ®ç¨ª
|
|
||||||
.ENDPATHDST DW 0 ; ¤à¥á 墮áâ ¯ã⨠¯à¨¥¬¨ª
|
|
||||||
.TMPNAMEDIR DB 8 DUP 0
|
|
||||||
ENDIF
|
|
||||||
|
|
||||||
; C:/DEV/
|
|
||||||
; /CAMEL401
|
|
||||||
; /DEMON
|
|
||||||
; /MASM80
|
|
||||||
; /OASM028
|
|
||||||
; /SOLID
|
|
||||||
; /DOC
|
|
||||||
; /EXAMPLES
|
|
||||||
; /INCLUDE
|
|
||||||
; /SRC
|
|
||||||
; /CLIB
|
|
||||||
; /BUILD
|
|
||||||
; /SPFORTH
|
|
||||||
; /F83
|
|
||||||
; /F99
|
|
||||||
; /TASM
|
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@ -1,15 +1,15 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 18.07.2025 savelij
|
; LAST UPDATE: 15.08.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
InitExtention: LD HL,INIFILES.ExtName1
|
InitExtention: LD HL,INIFILES.ExtName1
|
||||||
LD DE,fn_ext
|
LD DE,REZ3_BUFFERS.fn_ext
|
||||||
CALL InitExt
|
CALL InitExt
|
||||||
LD HL,INIFILES.ExtName2
|
LD HL,INIFILES.ExtName2
|
||||||
LD DE,fnview_ext
|
LD DE,REZ3_BUFFERS.fnview_ext
|
||||||
CALL InitExt
|
CALL InitExt
|
||||||
LD HL,INIFILES.ExtName3
|
LD HL,INIFILES.ExtName3
|
||||||
LD DE,fnedit_ext
|
LD DE,REZ3_BUFFERS.fnedit_ext
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
InitExt: LD (.EXTdata),DE
|
InitExt: LD (.EXTdata),DE
|
||||||
SPDSS DSSF.OPEN,,1
|
SPDSS DSSF.OPEN,,1
|
||||||
|
|||||||
86
rez3_fntab.a80
Normal file
86
rez3_fntab.a80
Normal file
@ -0,0 +1,86 @@
|
|||||||
|
|
||||||
|
; LAST UPDATE: 15.08.2025 savelij
|
||||||
|
|
||||||
|
;[]==========================================================[]
|
||||||
|
; ”®à¬ â â ¡«¨æë
|
||||||
|
; +00 2 Xmin
|
||||||
|
; +02 2 Xmax
|
||||||
|
; +04 2 Ymin
|
||||||
|
; +06 2 Ymax
|
||||||
|
; +08 2 0 - ¯à®á⮩ ®¡'¥ªâ
|
||||||
|
; ¡¨â 0 - ª®¯ª
|
||||||
|
; ¡¨â 1 - à ¡®ç ï ª®¯ª
|
||||||
|
; ¡¨â 2 - ¨¢¥àâ 1
|
||||||
|
; ¡¨â 3 - áâ â¨çë© ¨¢¥àâ
|
||||||
|
; ¡¨â 4 - ¯à®£à ¬¬ § ¯ã᪠¥âáï ¡¥§ ¤à¥á ¢®§¢à.
|
||||||
|
; ¨ ¡¥§ ®£ï
|
||||||
|
; ¡¨â 5 - ¯à®£à ¬¬ § ¯ã᪠¥âáï ¡¥§ ¤à¥á ¢®§¢à.
|
||||||
|
; ¯® «¥¢®© ª®¯ª¥ ®£ï
|
||||||
|
; ¡¨â 6 - ¯à®£à ¬¬ § ¯ã᪠¥âáï ¡¥§ ¤à¥á ¢®§¢à.
|
||||||
|
; ¯® ¯à ¢®© ª®¯ª¥ ®£ï
|
||||||
|
; ¡¨â 7 - ¢ë§¢ âì äãªæ¨î § ªàëâ¨ï ®ª ¯¥à¥¤
|
||||||
|
; § ¯ã᪮¬ ¯à®£à ¬¬ë ¡¥§ ®£ï
|
||||||
|
; ¡¨â 8 - ¢ë§¢ âì äãªæ¨î § ªàëâ¨ï ®ª ¯¥à¥¤
|
||||||
|
; § ¯ã᪮¬ ¯à®£à ¬¬ë ¯® «¥¢®© ª®¯ª¥
|
||||||
|
; ¡¨â 9 - ¢ë§¢ âì äãªæ¨î § ªàëâ¨ï ®ª ¯¥à¥¤
|
||||||
|
; § ¯ã᪮¬ ¯à®£à ¬¬ë ¯® ¯à ¢®© ª®¯ª¥
|
||||||
|
; ¡¨â15 - íâ® ¯¥à¥ª«îç ⥫ì (¨¢¥à⠯ਠ®£¥ ¥
|
||||||
|
; 㡨à âì)
|
||||||
|
; +0A 2 €¤à¥á ®¡à ¡®â稪 ¯à¨ ¥ ¦ ⮬ ®£¥
|
||||||
|
; +0C 2 €¤à¥á ®¡à ¡®â稪 ¯à¨ ¦ ⮬ ®£¥ («¥¢)
|
||||||
|
; +0E 2 €¤à¥á ®¡à ¡®â稪 ¯à¨ ¦ ⮬ ®£¥ (¯à ¢)
|
||||||
|
|
||||||
|
REZ3TAB
|
||||||
|
;[]===============================================================[]
|
||||||
|
.VersionTab: DW 284,356,157,171,%0000000000100001,0,VersionExt,0
|
||||||
|
DW 0,192, 0,256,%0000000000100000,0,VersionExt,0
|
||||||
|
DW 448,640, 0,256,%0000000000100000,0,VersionExt,0
|
||||||
|
DW 0,640, 0, 64,%0000000000100000,0,VersionExt,0
|
||||||
|
DW 0,640,176,256,%0000000000100000,0,VersionExt,0
|
||||||
|
DW 0x8000
|
||||||
|
|
||||||
|
.SMaskTab DW 240,312,123,137,%0000000000000001,0,InputLine.InputLineExitOk,0
|
||||||
|
DW 328,400,123,137,%0000000000000001,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 0,208, 0,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 432,640, 0,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 0,640, 0, 81,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 0,640,143,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
|
DW 0x8000
|
||||||
|
|
||||||
|
;[]===============================================================[]
|
||||||
|
.FileInfoTab: DW 284,356,160,174,%0000000000100001,0,FileInfoR.FileInfoExt,0
|
||||||
|
DW 0,240, 0,256,%0000000000100000,0,FileInfoR.FileInfoExt,0
|
||||||
|
DW 400,640, 0,256,%0000000000100000,0,FileInfoR.FileInfoExt,0
|
||||||
|
DW 0,640, 0, 80,%0000000000100000,0,FileInfoR.FileInfoExt,0
|
||||||
|
DW 0,640,178,256,%0000000000100000,0,FileInfoR.FileInfoExt,0
|
||||||
|
DW 0x8000
|
||||||
|
|
||||||
|
;[]===============================================================[]
|
||||||
|
.DiskInfoTab: DW 284,356,160,174,%0000000000100001,0,DiskInfoR.Ext,0
|
||||||
|
DW 0,192, 0,256,%0000000000100000,0,DiskInfoR.Ext,0
|
||||||
|
DW 448,640, 0,256,%0000000000100000,0,DiskInfoR.Ext,0
|
||||||
|
DW 0,640, 0, 80,%0000000000100000,0,DiskInfoR.Ext,0
|
||||||
|
DW 0,640,178,256,%0000000000100000,0,DiskInfoR.Ext,0
|
||||||
|
DW 0x8000
|
||||||
|
|
||||||
|
;[]===============================================================[]
|
||||||
|
.SysInfoTab: DW 284,356,160,174,%0000000000100001,0,SysInfoExt,0
|
||||||
|
DW 0,224, 0,256,%0000000000100000,0,SysInfoExt,0
|
||||||
|
DW 416,640, 0,256,%0000000000100000,0,SysInfoExt,0
|
||||||
|
DW 0,640, 0, 64,%0000000000100000,0,SysInfoExt,0
|
||||||
|
DW 0,640,178,256,%0000000000100000,0,SysInfoExt,0
|
||||||
|
DW 0x8000
|
||||||
|
|
||||||
|
;[]===============================================================[]
|
||||||
|
.PrintFTab: DW 284,356,128,142,%0000000000000001,0,StopPrint,0
|
||||||
|
DW 0x8000
|
||||||
|
|
||||||
|
;[]===============================================================[]
|
||||||
|
.QuitTab:
|
||||||
|
DW 240,312,120,134,%0000000000100001,0,QuitConfirmWin.OK,0
|
||||||
|
DW 328,400,120,134,%0000000000100001,0,QuitConfirmWin.Abort,0
|
||||||
|
DW 0,208, 0,256,%0000000000100000,0,QuitConfirmWin.Abort,0
|
||||||
|
DW 432,640, 0,256,%0000000000100000,0,QuitConfirmWin.Abort,0
|
||||||
|
DW 0,640, 0, 88,%0000000000100000,0,QuitConfirmWin.Abort,0
|
||||||
|
DW 0,640,138,256,%0000000000100000,0,QuitConfirmWin.Abort,0
|
||||||
|
DW 0x8000
|
||||||
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