FlexNavigator 1.16.02
- переделано отображение даты/времени, в режиме 1 (формат 02.08.2025) неправильно конвертило год. - обновлено описание Flex Navigator API до версии 0.5. - удален один джамп из таблицы за ненадобностью. - большое перименование меток, пересборка всего для проверки.
This commit is contained in:
savelij13
parent
ec227157b0
commit
e4977b4a6f
@ -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 ®â 02.08.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 - ¤à¥á ®¯¨á â¥«ï ¯à®æ¥áá¡ à (á¬. ¢ëè¥)
|
||||||
@ -369,8 +371,8 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
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,24 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.SetCMOSPrint - ¯à®æ¥¤ãà ¢ª«îç¥¨ï ¯¥ç ⨠¤ âë/¢à¥¬ï ¨§ CMOS
|
JUMPS.CMOSPrintDateTime - ¯à®æ¥¤ãà ¯¥ç ⨠íªà ¥ ¤ âë/¢à¥¬ï ¨§ CMOS
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
- ¡ã¤¥â ®¯¨á ® ¯®§¤¥¥
|
HL - X ¯®§¨æ¨ï ¢ë¢®¤ ¢à¥¬¥¨
|
||||||
|
DE - Y ¯®§¨æ¨ï ¢ë¢®¤ ¢à¥¬¥¨
|
||||||
|
B - 梥⠢뢮¤ ¢à¥¬¥¨
|
||||||
|
HL' - X ¯®§¨æ¨ï ¢ë¢®¤ ¤ âë
|
||||||
|
DE' - Y ¯®§¨æ¨ï ¢ë¢®¤ ¤ âë
|
||||||
|
B' - 梥⠢뢮¤ ¤ âë
|
||||||
|
A - ä®à¬ ⠢뢮¤ ¬¥áïæ ¢ ¤ â¥
|
||||||
|
1 - ¬¥áïæ ¢ë¢®¤¨âáï ç¨á«®¬
|
||||||
|
2 - ¬¥áïæ ¢ë¢®¤¨âáï ⥪á⮬,
|
||||||
|
ç¨á«® ¢ë¢®¤¨âáï ¡¥§ ¢¥¤ã饣® ã«ï
|
||||||
¢ë室:
|
¢ë室:
|
||||||
-
|
-
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.ResCMOSPrint - ¯à®æ¥¤ãà ¢ëª«îç¥¨ï ¯¥ç ⨠¤ âë/¢à¥¬ï ¨§ CMOS
|
JUMPS.PointerMouseClock - ¯à®æ¥¤ãà ãáâ ®¢ª¨ ªãàá®à ¬ëè¨ ¢ ç áë
|
||||||
|
|
||||||
¢å®¤:
|
|
||||||
- ¡ã¤¥â ®¯¨á ® ¯®§¤¥¥
|
|
||||||
¢ë室:
|
|
||||||
-
|
|
||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
|
||||||
|
|
||||||
JUMPS.SetClock - ¯à®æ¥¤ãà ãáâ ®¢ª¨ ªãàá®à ¬ëè¨ ¢ ç áë
|
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
-
|
-
|
||||||
@ -460,7 +462,8 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.SetMouse - ¯à®æ¥¤ãà ãáâ ®¢ª¨ ªãàá®à ¬ëè¨ ¢ ®à¬ «ìë© ªãàá®à
|
JUMPS.PointerMousePointer - ¯à®æ¥¤ãà ãáâ ®¢ª¨ ªãàá®à ¬ëè¨ ¢
|
||||||
|
®à¬ «ìë© ªãàá®à
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
-
|
-
|
||||||
@ -474,8 +477,8 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.ConvNumTxt40 - ¯à®æ¥¤ãà ª®¢¥àâ 樨 ¡¥§§ ª®¢®£® ç¨á«
|
JUMPS.ConvertNumbers_40b - ¯à®æ¥¤ãà ª®¢¥àâ 樨 ¡¥§§ ª®¢®£® ç¨á«
|
||||||
40 bit ¢ ⥪áâ
|
40 bit ¢ ⥪áâ á 㤠«¥¨¥¬ ¢¥¤ãé¨å ã«¥©.
|
||||||
|
|
||||||
¢å®¤¥:
|
¢å®¤¥:
|
||||||
ABCHL - ç¨á«®
|
ABCHL - ç¨á«®
|
||||||
@ -484,7 +487,7 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.MoveBytes - ¯à®æ¥¤ãà ¡ëáâண® ª®¯¨à®¢ ¨ï ¯ ¬ïâ¨ á ¯®¬®éìî
|
JUMPS.MoveBytesInc - ¯à®æ¥¤ãà ¡ëáâண® ª®¯¨à®¢ ¨ï ¯ ¬ïâ¨ á ¯®¬®éìî
|
||||||
ªá¥««¥à â®à á 㢥«¨ç¥¨¥¬ ¤à¥á®¢
|
ªá¥««¥à â®à á 㢥«¨ç¥¨¥¬ ¤à¥á®¢
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
@ -497,7 +500,7 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.MoveBytesUp - ¯à®æ¥¤ãà ¡ëáâண® ª®¯¨à®¢ ¨ï ¯ ¬ïâ¨ á ¯®¬®éìî
|
JUMPS.MoveBytesDec - ¯à®æ¥¤ãà ¡ëáâண® ª®¯¨à®¢ ¨ï ¯ ¬ïâ¨ á ¯®¬®éìî
|
||||||
ªá¥««¥à â®à á 㬥ì襨¥¬ ¤à¥á®¢
|
ªá¥««¥à â®à á 㬥ì襨¥¬ ¤à¥á®¢
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
@ -510,7 +513,7 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.Mult8 - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® 㬮¦¥¨ï
|
JUMPS.Mul_8X8_16b - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® 㬮¦¥¨ï
|
||||||
8 * 8 bit = 16 bit
|
8 * 8 bit = 16 bit
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
@ -520,7 +523,7 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.Mult16X8 - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® 㬮¦¥¨ï
|
JUMPS.Mul_16X8_24b - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® 㬮¦¥¨ï
|
||||||
16 * 8 bit = 24 bit
|
16 * 8 bit = 24 bit
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
@ -530,7 +533,7 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.Mult16 - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® 㬮¦¥¨ï
|
JUMPS.Mul_16X16_16b - ¯à®æ¥¤ãà ¡¥§§ ª®¢®£® 㬮¦¥¨ï
|
||||||
16 * 16 bit = 16 bit
|
16 * 16 bit = 16 bit
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
@ -540,27 +543,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 +574,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 +629,8 @@
|
|||||||
|
|
||||||
[]------------------------------------------------------------------------[]
|
[]------------------------------------------------------------------------[]
|
||||||
|
|
||||||
JUMPS.ConvNumTxt8 - ¯à®æ¥¤ãà ª®¢¥àâ 樨 ¡¥§§ ª®¢®£® ç¨á«
|
JUMPS.ConvertNumbers_8b- ¯à®æ¥¤ãà ª®¢¥àâ 樨 ¡¥§§ ª®¢®£® ç¨á«
|
||||||
8 bit ¢ ⥪áâ
|
8 bit ¢ ⥪áâ á 㤠«¥¨¥¬ ¢¥¤ãé¨å ã«¥©.
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
A - ç¨á«® 8 bit
|
A - ç¨á«® 8 bit
|
||||||
@ -637,18 +640,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
|
||||||
|
|
||||||
¢å®¤:
|
¢å®¤:
|
||||||
|
|||||||
@ -1,4 +1,12 @@
|
|||||||
|
|
||||||
|
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.
|
||||||
|
|||||||
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,12 @@
|
|||||||
|
|
||||||
|
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.
|
||||||
|
|||||||
101
fn_const.a80
101
fn_const.a80
@ -1,5 +1,10 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 26.07.2025 savelij
|
; LAST UPDATE: 02.08.2025 savelij
|
||||||
|
|
||||||
|
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 ; à ¡®ç¨© ¡ãä¥à
|
||||||
@ -170,7 +175,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 +192,7 @@ BAR
|
|||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
; <20>ணà¥áá ¡ à
|
; <20>ணà¥áá ¡ à
|
||||||
PROC
|
PROGRESSBAR
|
||||||
_INIT_VAR
|
_INIT_VAR
|
||||||
_SETVAR .X, WORD
|
_SETVAR .X, WORD
|
||||||
_SETVAR .Y, WORD
|
_SETVAR .Y, WORD
|
||||||
@ -259,48 +265,49 @@ JUMPS
|
|||||||
_INIT_VAR BASE_ADDR + .JUMPSIZE ; ¯à®¯ã᪠¯¥à¥å®¤ ®á®¢®© ¢å®¤
|
_INIT_VAR BASE_ADDR + .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 ; DUPL 15,0xC9
|
||||||
_SETVAR .ResFire, .JUMPSIZE
|
_SETVAR .WaitUnpressMouse, .JUMPSIZE
|
||||||
_SETVAR .TestCoords, .JUMPSIZE
|
_SETVAR .CheckCoordsMouse, .JUMPSIZE
|
||||||
_SETVAR .SetCMOSPrint, .JUMPSIZE
|
_SETVAR .CMOSPrintDateTime, .JUMPSIZE
|
||||||
_SETVAR .ResCMOSPrint, .JUMPSIZE
|
_ADDVAR .JUMPSIZE; _SETVAR .CMOSPrintOff, .JUMPSIZE
|
||||||
_SETVAR .SetClock, .JUMPSIZE
|
_SETVAR .PointerMouseClock, .JUMPSIZE
|
||||||
_SETVAR .SetMouse, .JUMPSIZE
|
_SETVAR .PointerMousePointer, .JUMPSIZE
|
||||||
_ADDVAR .JUMPSIZE * 4 ; DUPL 12,0xC9
|
_ADDVAR .JUMPSIZE * 4 ; DUPL 12,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
|
||||||
|
; १¥à¢¨à®¢ ¨¥ ¤® ᬥ饨ï 0xC0
|
||||||
_ADDVAR (BASE_ADDR + 0xC0) - .CURRVAR; - .JUMPSIZE; * 4 ; DUPL 12,0xC9
|
_ADDVAR (BASE_ADDR + 0xC0) - .CURRVAR; - .JUMPSIZE; * 4 ; DUPL 12,0xC9
|
||||||
; ¯¥à¥¬¥ë¥ ¤«ï ¤®áâ㯠¨§ ¯« £¨®¢
|
; ¯¥à¥¬¥ë¥ ¤«ï ¤®áâ㯠¨§ ¯« £¨®¢
|
||||||
_SETVAR .NUM_DEVICES, BYTE ; Š®«-¢® ãáâனáâ¢
|
_SETVAR .NUM_DEVICES, BYTE ; Š®«-¢® ãáâனáâ¢
|
||||||
@ -310,7 +317,7 @@ JUMPS
|
|||||||
_SETVAR .MouseFlag, BYTE ; ”« £ ¬ëè¨ 0 - ¥â
|
_SETVAR .MouseFlag, BYTE ; ”« £ ¬ëè¨ 0 - ¥â
|
||||||
; 1 - ¥áâì
|
; 1 - ¥áâì
|
||||||
_SETVAR .CMOSPrint, BYTE
|
_SETVAR .CMOSPrint, BYTE
|
||||||
_SETVAR .FNPAGESID, BYTE ; ˆ¤¥ä.¯ ¬ï⨠£¤¥ FN
|
_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
|
||||||
@ -320,13 +327,17 @@ JUMPS
|
|||||||
IFDEF ENABLE.EDIT
|
IFDEF ENABLE.EDIT
|
||||||
_SETVAR .FNEDIT, BYTE ; ‘âà ¨æ á FileEditor
|
_SETVAR .FNEDIT, BYTE ; ‘âà ¨æ á FileEditor
|
||||||
ENDIF
|
ENDIF
|
||||||
|
; <20>ãä¥àë¥ áâà ¨æë ¯®¤ ¨â¥à䥩á
|
||||||
_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
|
||||||
@ -364,6 +375,6 @@ FNinternal
|
|||||||
; ®â« ¤®ç®¥, ¥ ¬¥ïâì ¯® ¨§¡¥¦ ¨¥ £«îª®¢
|
; ®â« ¤®ç®¥, ¥ ¬¥ïâì ¯® ¨§¡¥¦ ¨¥ £«îª®¢
|
||||||
PLUGS_ENABLE EQU 0 ; ¬¥î ¯« £¨®¢
|
PLUGS_ENABLE EQU 0 ; ¬¥î ¯« £¨®¢
|
||||||
TREE_REZID EQU 0
|
TREE_REZID EQU 0
|
||||||
MARK_DIR EQU 0 ; ¢ë¡®à ¤¨à¥ªâ®à¨¨ á ¯®¤áç¥â®¬ à §¬¥à ¢á¥å ä ©«®¢
|
MARK_DIR EQU 1 ; ¢ë¡®à ¤¨à¥ªâ®à¨¨ á ¯®¤áç¥â®¬ à §¬¥à ¢á¥å ä ©«®¢
|
||||||
TREE_DIR_ENTER EQU 0 ; ¯®ª § ᮤ¥à¦¨¬®£® ¤¨à¥ªâ®à¨¨ ¢ ¤¥à¥¢¥ ¯® ENTER
|
TREE_DIR_ENTER EQU 0 ; ¯®ª § ᮤ¥à¦¨¬®£® ¤¨à¥ªâ®à¨¨ ¢ ¤¥à¥¢¥ ¯® ENTER
|
||||||
CORR_FILENAME EQU 1 ; ¯à¥®¡à §®¢ ¨¥ ᨬ¢®«®¢ ¨¬¥¨ ä ©«
|
CORR_FILENAME EQU 1 ; ¯à¥®¡à §®¢ ¨¥ ᨬ¢®«®¢ ¨¬¥¨ ä ©«
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 29.07.2025 savelij
|
; LAST UPDATE: 02.08.2025 savelij
|
||||||
|
|
||||||
FLEX_VERS
|
FLEX_VERS
|
||||||
.NAVIGATOR EQU "1.16.01"
|
.NAVIGATOR EQU "1.16.02"
|
||||||
.EDITOR EQU "1.10"
|
.EDITOR EQU "1.10"
|
||||||
.VIEWER EQU "1.06"
|
.VIEWER EQU "1.06"
|
||||||
|
|||||||
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
|
||||||
|
|||||||
18
fndos.a80
18
fndos.a80
@ -1,12 +1,12 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 27.04.2025 savelij
|
; LAST UPDATE: 31.07.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
|
||||||
@ -108,9 +108,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 +142,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: 01.08.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
DOSline SUB A
|
DOSline SUB A
|
||||||
@ -164,7 +164,7 @@ RunDLine DEC HL
|
|||||||
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
|
||||||
|
|
||||||
@ -457,7 +457,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 +534,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
|
||||||
|
|||||||
51
fninit.a80
51
fninit.a80
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 24.07.2025 savelij
|
; LAST UPDATE: 02.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
|
||||||
@ -336,18 +337,18 @@ InitScreen
|
|||||||
OR A
|
OR A
|
||||||
RET Z
|
RET Z
|
||||||
MAKEWINDOW WINSUBOBJ.WOBIND
|
MAKEWINDOW WINSUBOBJ.WOBIND
|
||||||
W_BORDER 500,15,136,12
|
W_BORDER 500 + 10,15,136 - 10,12
|
||||||
W_END
|
W_END
|
||||||
LD HL,0x01FC
|
LD HL,508 + 12
|
||||||
LD DE,0x0012
|
LD DE,17
|
||||||
LD B,0x80
|
LD B,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
EXX
|
EXX
|
||||||
LD HL,0x022E
|
LD HL,558 + 10
|
||||||
LD DE,0x0012
|
LD DE,17
|
||||||
LD B,0x80
|
LD B,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
EXX
|
EXX
|
||||||
LD A,0x02
|
LD A,DateMonthFormat.Text
|
||||||
JP SetCMOSPrint
|
JP CMOSPrintDateTime
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
InitPanels LD (InitPanFlg),A
|
InitPanels LD (InitPanFlg),A
|
||||||
@ -382,7 +383,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)
|
||||||
@ -582,10 +583,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
|
||||||
|
|||||||
16
fninput.a80
16
fninput.a80
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 20.03.2025 savelij
|
; LAST UPDATE: 01.08.2025 savelij
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
InputLine LD (InpLnData),IX
|
InputLine LD (InpLnData),IX
|
||||||
@ -39,7 +39,7 @@ 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
|
||||||
@ -81,13 +81,15 @@ 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
|
||||||
@ -126,9 +128,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
|
||||||
|
|||||||
494
fnmain.a80
494
fnmain.a80
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 25.07.2025 savelij
|
; LAST UPDATE: 02.08.2025 savelij
|
||||||
|
|
||||||
;[]=======================================================================[]
|
;[]=======================================================================[]
|
||||||
; FLEX NAVIGATOR ;
|
; FLEX NAVIGATOR ;
|
||||||
@ -7,89 +7,67 @@
|
|||||||
; Last edition: 03/02/2000 ;
|
; 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
|
||||||
|
|
||||||
;[]=======================================================================[]
|
|
||||||
; section .text
|
|
||||||
|
|
||||||
;EntryPoint:
|
|
||||||
JP StartPoint ; entry point
|
JP StartPoint ; entry point
|
||||||
|
|
||||||
JP ClearScreen ; 8603->86BB
|
JP ClearScreen
|
||||||
JP MakeWindow ; 8606->86F0
|
JP MakeWindow
|
||||||
JP InvertRectan ; 8609->8DA0
|
JP ReplaceColorRectan
|
||||||
JP PrnTxtLnIFF ; 860C->8FB0
|
JP PrintTxtLine_IFF
|
||||||
JP PrnTxtLnNorm ; 860F->9024
|
JP PrintTxtLine
|
||||||
JP PrnTxtLnNormC ; 8612->909B
|
JP PrintTxtLineNumsChar
|
||||||
JP PrnRangPathL ; 8615->8E48
|
JP PrintPathLeft
|
||||||
JP PrnRangPathR ; 8618->8EB2
|
JP PrintPathRight
|
||||||
JP PrnRangPathC ; 861B->8F36
|
JP PrintPathCentr
|
||||||
JP InputLine ; 861E->915F
|
JP InputLine
|
||||||
JP InputLine.InpLnExtN ; 8621->9205
|
JP InputLine.InputLineExitOk
|
||||||
JP InputLine.InpLnExtC ; 8624->920F
|
JP InputLine.InputLineExitCancel
|
||||||
JP DOSError ; 8627->86A8
|
JP DOSError
|
||||||
JP InitScrollBar ; 862A->96EB
|
JP InitScrollBar
|
||||||
JP PrnHScrBar ; 862D->9729
|
JP DrawHScrollBar
|
||||||
JP PrnVScrBar ; 8630->9882
|
JP DrawVScrollBar
|
||||||
JP InitProcess ; 8633->99DA
|
JP InitProgressBar
|
||||||
JP PrnProcess ; 8636->9A39
|
JP DrawProgressBar
|
||||||
|
|
||||||
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 DUP 0xC9;JP CMOSPrintOff
|
||||||
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 - ¥áâì
|
||||||
@ -97,31 +75,33 @@ MouseFlag DB 1 ;
|
|||||||
; 1 - ¥áâì
|
; 1 - ¥áâì
|
||||||
CMOSPrint: DB 1
|
CMOSPrint: DB 1
|
||||||
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
|
IFDEF ENABLE.VIEW
|
||||||
.FNVIEW DB 0 ; ‘âà ¨æ á FileViewer
|
.FNVIEW DB 0 ; 3 ‘âà ¨æ á FileViewer
|
||||||
ENDIF
|
ENDIF
|
||||||
IFDEF ENABLE.EDIT
|
IFDEF ENABLE.EDIT
|
||||||
.FNEDIT DB 0 ; ‘âà ¨æ á FileEditor
|
.FNEDIT DB 0 ; 4 ‘âà ¨æ á FileEditor
|
||||||
ENDIF
|
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 +119,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,7 +182,162 @@ 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>ãâì ª ⥪ã饩 ¤¨à¥ªâ®à¨¨
|
||||||
|
|
||||||
;[]=======================================================================[]
|
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
|
||||||
|
|
||||||
|
; (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
|
||||||
|
|
||||||
|
thanks DZ "\r\nThank you for using Flex Navigator.\r\n"
|
||||||
|
|
||||||
|
; ‚ë室
|
||||||
|
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
|
||||||
|
|
||||||
|
; ‘â àâ
|
||||||
|
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 WaitUnpressMouse
|
||||||
|
MainLoop: LD IX,FilePanelLeft
|
||||||
|
BIT PANELFLAG.B_SIDE,(IY+PANEL.PANELFLAG)
|
||||||
|
JR Z,.L1
|
||||||
|
LD IX,FilePanelRight
|
||||||
|
.L1 CALL CheckCoordsMouse
|
||||||
|
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
|
||||||
|
|
||||||
START_SORT
|
START_SORT
|
||||||
include fnsort.a80
|
include fnsort.a80
|
||||||
@ -376,31 +349,25 @@ END_TREE
|
|||||||
ENDIF
|
ENDIF
|
||||||
include fnpanel.a80
|
include fnpanel.a80
|
||||||
include fndos.a80
|
include fndos.a80
|
||||||
|
|
||||||
include fnwork.a80
|
include fnwork.a80
|
||||||
|
|
||||||
; ¢ë§®¢ äãªæ¨¨ ¢ áâà ¨æ å
|
; ¢ë§®¢ äãªæ¨¨ ¢ áâà ¨æ å
|
||||||
RESIDENT
|
RESIDENT
|
||||||
;[]----------------------------------------------------------[]
|
|
||||||
.CopyFiles: LD DE,CopyFilesR
|
.CopyFiles: LD DE,CopyFilesR
|
||||||
; resident 2
|
; 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
|
.Quit: CALL ResInvert
|
||||||
.QuitL1 LD DE,QuitConfirmWin
|
.QuitL1 LD DE,QuitConfirmWin
|
||||||
CALL .FunctResident
|
CALL .FunctResident
|
||||||
@ -409,38 +376,31 @@ RESIDENT
|
|||||||
EX (SP),HL
|
EX (SP),HL
|
||||||
RET
|
RET
|
||||||
|
|
||||||
;[]==========================================================[]
|
|
||||||
.Setup: LD DE,SetupR
|
.Setup: LD DE,SetupR
|
||||||
jr .FunctResident
|
jr .FunctResident
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
|
||||||
.FileInfo: CALL ResInvert
|
.FileInfo: CALL ResInvert
|
||||||
.FileInfoL2 LD HL,SetInvert
|
.FileInfoL2 LD HL,SetInvert
|
||||||
PUSH HL
|
PUSH HL
|
||||||
LD DE,FileInfoR
|
LD DE,FileInfoR
|
||||||
jr .FunctResident
|
jr .FunctResident
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
|
||||||
.PrintFile: CALL ResInvert
|
.PrintFile: CALL ResInvert
|
||||||
.PrintFileL3 LD HL,SetInvert
|
.PrintFileL3 LD HL,SetInvert
|
||||||
PUSH HL
|
PUSH HL
|
||||||
LD DE,PrintFileR
|
LD DE,PrintFileR
|
||||||
jr .FunctResident
|
jr .FunctResident
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
|
||||||
.DiskInfo: CALL ResInvert
|
.DiskInfo: CALL ResInvert
|
||||||
.DiskInfoL4: LD DE,DiskInfoR
|
.DiskInfoL4: LD DE,DiskInfoR
|
||||||
jr .FunctResident
|
jr .FunctResident
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
|
||||||
.SystemInfo: LD DE,SystemInfoR
|
.SystemInfo: LD DE,SystemInfoR
|
||||||
jr .FunctResident
|
jr .FunctResident
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
|
||||||
.Version: LD DE,VersionR
|
.Version: LD DE,VersionR
|
||||||
jr .FunctResident
|
jr .FunctResident
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
|
||||||
.QSearch: LD DE,QSearchR
|
.QSearch: LD DE,QSearchR
|
||||||
jr .FunctResident
|
jr .FunctResident
|
||||||
|
|
||||||
@ -461,7 +421,6 @@ RESIDENT
|
|||||||
jr .FunctResident
|
jr .FunctResident
|
||||||
ENDIF
|
ENDIF
|
||||||
|
|
||||||
;[]==========================================================[]
|
|
||||||
.MarkFile: LD DE,MarkFileR
|
.MarkFile: LD DE,MarkFileR
|
||||||
; resident 3
|
; resident 3
|
||||||
.HelpResident: LD A,(RAMPAGES.FNREZ3)
|
.HelpResident: LD A,(RAMPAGES.FNREZ3)
|
||||||
@ -469,7 +428,7 @@ RESIDENT
|
|||||||
JP Resident
|
JP Resident
|
||||||
|
|
||||||
IF MARK_DIR
|
IF MARK_DIR
|
||||||
.GetDirSize: LD DE,GetDirSizeR
|
.CountingDir LD DE,CountingDirR
|
||||||
JR .HelpResident
|
JR .HelpResident
|
||||||
|
|
||||||
.MkdirsDst LD DE,MkdirsDstR
|
.MkdirsDst LD DE,MkdirsDstR
|
||||||
@ -513,13 +472,8 @@ RESIDENT
|
|||||||
END_BLOCK_1:
|
END_BLOCK_1:
|
||||||
DEPHASE ; BASE_ADDR
|
DEPHASE ; BASE_ADDR
|
||||||
|
|
||||||
;[]=======================================================================[]
|
|
||||||
PHASE 0x4000
|
PHASE 0x4000
|
||||||
; MAIN.FNREZ2
|
|
||||||
START_BLOCK_2
|
START_BLOCK_2
|
||||||
;FlexDIRECTORY: DB 0x100 DUP 0
|
|
||||||
;FLXdir: DB 0x100 DUP 0
|
|
||||||
|
|
||||||
include rez2_fnfunct.a80
|
include rez2_fnfunct.a80
|
||||||
include rez2_fnmisc.a80
|
include rez2_fnmisc.a80
|
||||||
include rez2_fnsearch.a80
|
include rez2_fnsearch.a80
|
||||||
@ -532,7 +486,6 @@ START_BLOCK_2
|
|||||||
END_BLOCK_2:
|
END_BLOCK_2:
|
||||||
DEPHASE ; 0x4000
|
DEPHASE ; 0x4000
|
||||||
|
|
||||||
;[]=======================================================================[]
|
|
||||||
PHASE 0xC000
|
PHASE 0xC000
|
||||||
; MAIN.FNFONT
|
; MAIN.FNFONT
|
||||||
START_BLOCK_4
|
START_BLOCK_4
|
||||||
@ -544,7 +497,6 @@ IFFFONT_RAW_END
|
|||||||
END_BLOCK_4:
|
END_BLOCK_4:
|
||||||
DEPHASE ; 0xC000
|
DEPHASE ; 0xC000
|
||||||
|
|
||||||
;[]-----------------------------------------------------------------------[]
|
|
||||||
PHASE 0x4000
|
PHASE 0x4000
|
||||||
; MAIN.FNREZ3
|
; MAIN.FNREZ3
|
||||||
START_BLOCK_3
|
START_BLOCK_3
|
||||||
@ -568,7 +520,6 @@ HelpTextEnd:
|
|||||||
END_BLOCK_3:
|
END_BLOCK_3:
|
||||||
DEPHASE ; 0x4000
|
DEPHASE ; 0x4000
|
||||||
|
|
||||||
;[]-----------------------------------------------------------------------[]
|
|
||||||
IFDEF ENABLE.VIEW
|
IFDEF ENABLE.VIEW
|
||||||
; MAIN.FNVIEW
|
; MAIN.FNVIEW
|
||||||
START_BLOCK_VIEWER
|
START_BLOCK_VIEWER
|
||||||
@ -586,7 +537,6 @@ START_BLOCK_EDITOR
|
|||||||
DEPHASE ; 0xC000
|
DEPHASE ; 0xC000
|
||||||
END_BLOCK_EDITOR
|
END_BLOCK_EDITOR
|
||||||
ENDIF
|
ENDIF
|
||||||
;[]-----------------------------------------------------------------------[]
|
|
||||||
|
|
||||||
; ç¨áâ® ¤«ï ®â« ¤ª¨
|
; ç¨áâ® ¤«ï ®â« ¤ª¨
|
||||||
BLOCK1_SIZE EQU END_BLOCK_1 - START_BLOCK_1 ; ®á®¢®© ª®¤
|
BLOCK1_SIZE EQU END_BLOCK_1 - START_BLOCK_1 ; ®á®¢®© ª®¤
|
||||||
|
|||||||
20
fnmenu.a80
20
fnmenu.a80
@ -1,11 +1,11 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 25.07.2025 savelij
|
; LAST UPDATE: 31.07.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
PullDown: CALL ResInvert
|
PullDown: CALL ResInvert
|
||||||
CALL SetPullInvert
|
CALL SetPullInvert
|
||||||
PullLoop: LD IX,PullTab
|
PullLoop: LD IX,PullTab
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,PullLoop
|
JR Z,PullLoop
|
||||||
LD A,B
|
LD A,B
|
||||||
@ -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
|
||||||
@ -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
|
||||||
@ -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
|
||||||
@ -949,7 +949,7 @@ ChangeDrv: PUSH IY
|
|||||||
LD (CurDrive),A
|
LD (CurDrive),A
|
||||||
CALL SetDriveInv
|
CALL SetDriveInv
|
||||||
DriveLoop: LD IX,DriveTab
|
DriveLoop: LD IX,DriveTab
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,DriveLoop
|
JR Z,DriveLoop
|
||||||
LD A,B
|
LD A,B
|
||||||
@ -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
|
||||||
|
|||||||
28
fnpanel.a80
28
fnpanel.a80
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 24.07.2025 savelij
|
; LAST UPDATE: 01.08.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)
|
||||||
@ -179,7 +179,7 @@ PrnFileInfo BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
|||||||
SET 6,H ; | 0x4000
|
SET 6,H ; | 0x4000
|
||||||
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 +244,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
|
||||||
@ -344,13 +344,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 +387,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"
|
||||||
@ -444,7 +444,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
|
||||||
@ -538,7 +538,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
|
||||||
@ -684,7 +684,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
|
||||||
@ -1132,7 +1132,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 +1148,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 +1236,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
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 24.07.2025 savelij
|
; LAST UPDATE: 31.07.2025 savelij
|
||||||
|
|
||||||
;[]----------------------------------------------------------[]
|
;[]----------------------------------------------------------[]
|
||||||
ReadDIR BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
ReadDIR BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
||||||
@ -693,7 +693,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
|
||||||
|
|||||||
350
fnsys.a80
350
fnsys.a80
@ -1,12 +1,12 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 25.07.2025 savelij
|
; LAST UPDATE: 02.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
|
||||||
@ -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,49 +683,52 @@ 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' - 梥⠢뢮¤ ¤ âë
|
||||||
|
CMOSPrintDateTime:
|
||||||
|
EX AF,AF'
|
||||||
|
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 (CMOSpos.Date),HL
|
||||||
LD (CMOSData+2),A
|
; LD (CMOSpos.Date + 2),A
|
||||||
LD HL,CMOSTimeT
|
; LD HL,CMOSpos.TimeTXT
|
||||||
LD DE,CMOSDataT
|
; LD DE,CMOSpos.DateTXT
|
||||||
LD A,'0'
|
; LD A,'0'
|
||||||
LD B,0x03
|
; LD B,0x03
|
||||||
.L1 LD (HL),A
|
;.L1 LD (HL),A
|
||||||
INC HL
|
; INC HL
|
||||||
LD (HL),A
|
; LD (HL),A
|
||||||
INC HL
|
; INC HL
|
||||||
INC HL
|
; INC HL
|
||||||
LD (DE),A
|
; LD (DE),A
|
||||||
INC DE
|
; INC DE
|
||||||
LD (DE),A
|
; LD (DE),A
|
||||||
INC DE
|
; INC DE
|
||||||
INC DE
|
; INC DE
|
||||||
DJNZ .L1
|
; DJNZ .L1
|
||||||
EX AF,AF'
|
EX AF,AF'
|
||||||
LD (CMOSOut),A
|
LD (CMOSpos.CMOSOut),A
|
||||||
OR A
|
OR A
|
||||||
JR Z,TestCMOS
|
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
|
; JR TestCMOS
|
||||||
|
|
||||||
ResCMOSPrint: LD A,0x01
|
|
||||||
LD (CMOSPrint),A
|
|
||||||
RET
|
|
||||||
|
|
||||||
TestCMOS: LD A,(CMOSFlag)
|
TestCMOS: LD A,(CMOSFlag)
|
||||||
OR A
|
OR A
|
||||||
@ -733,143 +744,143 @@ 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
|
; PUSH IX
|
||||||
POP HL
|
; POP HL
|
||||||
LD BC,1900
|
; LD BC,1900
|
||||||
OR A
|
; OR A
|
||||||
SBC HL,BC
|
; SBC HL,BC
|
||||||
LD B,L
|
; LD B,L
|
||||||
LD HL,(CMOSData)
|
; LD HL,(CMOSpos.Date)
|
||||||
OR A
|
; OR A
|
||||||
SBC HL,DE
|
; SBC HL,DE
|
||||||
JR NZ,PrnCMOSData
|
; JR NZ,.PrnCMOSData
|
||||||
LD A,(CMOSData+2)
|
; LD A,(CMOSpos.Date + 2)
|
||||||
CP B
|
; CP B
|
||||||
JP Z,TCMOSex
|
; JP Z,TCMOSexit
|
||||||
PrnCMOSData EX DE,HL
|
;.PrnCMOSData
|
||||||
LD (CMOSData),HL
|
EX DE,HL
|
||||||
LD A,B
|
LD (CMOSpos.Date),HL ; ¤¥ì,¬¥áïæ
|
||||||
LD (CMOSData+2),A
|
; LD A,B
|
||||||
LD DE,CMOSDataT
|
LD (CMOSpos.Date + 2),IX ; £®¤
|
||||||
|
LD A,(CMOSpos.CMOSOut)
|
||||||
|
DEC A
|
||||||
|
JR NZ,.TCMOS2
|
||||||
|
; ¢ë¢®¤ ¤ âë ¢¢¨¤¥ 02.08.2025
|
||||||
|
LD DE,CMOSpos.DateTXT
|
||||||
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,(CMOSData+2)
|
; LD A,(CMOSpos.Date + 2)
|
||||||
CALL GetCMOS
|
LD HL,(CMOSpos.Date + 2)
|
||||||
LD A,(CMOSOut)
|
CALL ConvertNumbers_16b;Conv4CMOS
|
||||||
DEC A
|
; LD A,(CMOSpos.CMOSOut)
|
||||||
JR NZ,TCMOS2
|
; DEC A
|
||||||
LD HL,CMOSDataT
|
; JR NZ,.TCMOS2
|
||||||
LD DE,(CMOSposXD)
|
LD HL,CMOSpos.DateTXT
|
||||||
LD BC,(CMOSposYD)
|
LD DE,(CMOSpos.posXDate)
|
||||||
LD A,(CMOSColorD)
|
LD BC,(CMOSpos.posYDate)
|
||||||
CALL PrnTxtLnIFF
|
LD A,(CMOSpos.colorDate)
|
||||||
JR TCMOSex
|
CALL PrintTxtLine_IFF
|
||||||
|
JR TCMOSexit
|
||||||
|
|
||||||
TCMOS2 LD DE,CMOSDataT1
|
; ¢ë¢®¢ ¤ âë ¢¢¨¤¥ 2 Aug 2025
|
||||||
|
.TCMOS2 LD DE,CMOSpos.DateT1
|
||||||
LD A,H
|
LD A,H
|
||||||
CALL ConvNumTxt8
|
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
|
; LD L,A
|
||||||
ADD A,A
|
ADD A,A
|
||||||
ADD A,L
|
; 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
|
; LD (DE),A
|
||||||
INC DE
|
; INC DE
|
||||||
PUSH IX
|
LDI
|
||||||
POP HL
|
; PUSH IX
|
||||||
CALL ConvNumTxt16
|
; POP HL
|
||||||
|
LD HL,(CMOSpos.Date + 2)
|
||||||
|
CALL ConvertNumbers_16b
|
||||||
SUB A
|
SUB A
|
||||||
LD (DE),A
|
LD (DE),A
|
||||||
LD HL,(CMOSposXD)
|
; LD HL,(CMOSpos.posXDate)
|
||||||
LD (CMOSclX),HL
|
; LD (CMOSclX),HL
|
||||||
LD HL,(CMOSposYD)
|
; LD HL,(CMOSpos.posYDate)
|
||||||
LD (CMOSclY),HL
|
; LD (CMOSclY),HL
|
||||||
LD A,(CMOSColorD)
|
; LD A,(CMOSpos.colorDate)
|
||||||
AND 0xF0
|
; AND 0xF0
|
||||||
RRCA
|
; RRCA
|
||||||
RRCA
|
; RRCA
|
||||||
RRCA
|
; RRCA
|
||||||
RRCA
|
; RRCA
|
||||||
LD (CMOScol),A
|
; LD (CMOScol),A
|
||||||
MAKEWINDOW WINSUBOBJ.WOBIND
|
; MAKEWINDOW WINSUBOBJ.WOBIND
|
||||||
W_FILL 0,0,76,8,COLORI.BLACK
|
; W_FILL 0,0,76,8,COLORI.BLACK
|
||||||
W_END
|
; W_END
|
||||||
CMOSclX EQU $ - 10
|
;CMOSclX EQU $ - 10
|
||||||
CMOSclY EQU $ - 8
|
;CMOSclY EQU $ - 8
|
||||||
CMOScol EQU $ - 2
|
;CMOScol EQU $ - 2
|
||||||
LD HL,CMOSDataT1
|
LD HL,CMOSpos.DateT1
|
||||||
LD DE,(CMOSposXD)
|
LD DE,(CMOSpos.posXDate)
|
||||||
LD BC,(CMOSposYD)
|
LD BC,(CMOSpos.posYDate)
|
||||||
LD A,(CMOSColorD)
|
LD A,(CMOSpos.colorDate)
|
||||||
CALL PrnTxtLnIFF
|
CALL PrintTxtLine_IFF
|
||||||
TCMOSex POP IX
|
TCMOSexit POP IX
|
||||||
RET
|
RET
|
||||||
|
|
||||||
;CMOSPrint: DB 0x01
|
;CMOSPrintOff: LD A,DateMonthFormat.Digit
|
||||||
CMOSOut: DB 0
|
; LD (CMOSPrint),A
|
||||||
CMOSposXT: DW 0
|
; RET
|
||||||
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
|
Conv4CMOS: EX DE,HL
|
||||||
LD BC,(('0' - 1) << 8) | 10;0x2F0A
|
LD BC,(('0' - 1) << 8) + 10
|
||||||
.L1 INC B
|
.L1 INC B
|
||||||
SUB C
|
SUB C
|
||||||
JR NC,.L1
|
JR NC,.L1
|
||||||
@ -882,21 +893,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
|
||||||
@ -922,7 +951,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
|
||||||
|
|||||||
38
fntab.a80
38
fntab.a80
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 02.05.2025 savelij
|
; LAST UPDATE: 01.08.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
; ”®à¬ â â ¡«¨æë
|
; ”®à¬ â â ¡«¨æë
|
||||||
@ -240,20 +240,20 @@ 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
|
SMaskTab 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
|
||||||
|
|
||||||
DOSTab DW 0,256, 0,256,%0000000000000000,0,DOSLnExtC,0
|
DOSTab DW 0,256, 0,256,%0000000000000000,0,DOSLnExtC,0
|
||||||
@ -262,12 +262,12 @@ DOSTab DW 0,256, 0,256,%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
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 24.07.2025 savelij
|
; LAST UPDATE: 31.07.2025 savelij
|
||||||
|
|
||||||
MAX_LEVEL_DIR EQU 21
|
MAX_LEVEL_DIR EQU 21
|
||||||
|
|
||||||
@ -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
|
||||||
|
|||||||
34
fnwork.a80
34
fnwork.a80
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 29.07.2025 savelij
|
; LAST UPDATE: 31.07.2025 savelij
|
||||||
|
|
||||||
;[]===========================================================[]
|
;[]===========================================================[]
|
||||||
CursUp LD A,(IY + PANEL.FILES_ALL)
|
CursUp LD A,(IY + PANEL.FILES_ALL)
|
||||||
@ -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)
|
||||||
@ -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,7 +1032,7 @@ 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)
|
||||||
@ -1111,7 +1111,7 @@ OpenF2 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
|
||||||
@ -1147,13 +1147,13 @@ OpenF2 PUSH AF
|
|||||||
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
|
||||||
@ -1176,7 +1176,7 @@ OpenF2 PUSH AF
|
|||||||
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,7 +1353,7 @@ 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,fn_ext
|
||||||
|
|||||||
@ -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: 02.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,508
|
||||||
LD DE,0x0003
|
LD DE,3
|
||||||
LD B,0x08
|
LD B,COLORP.BLACK + COLORI.HIGHGRAY
|
||||||
EXX
|
EXX
|
||||||
LD HL,0x022E
|
LD HL,558
|
||||||
LD DE,0x0003
|
LD DE,3
|
||||||
LD B,0x08
|
LD B,COLORP.BLACK + COLORI.HIGHGRAY
|
||||||
EXX
|
EXX
|
||||||
LD A,0x02
|
LD A,DateMonthFormat.Text
|
||||||
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: 02.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)
|
||||||
@ -516,18 +516,18 @@ FVFAttrib EQU $ - STRLEN(" ") - 1
|
|||||||
LD HL,WorkBuffer
|
LD HL,WorkBuffer
|
||||||
LD DE,0x0034
|
LD DE,0x0034
|
||||||
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,508
|
||||||
LD DE,0x0003
|
LD DE,3
|
||||||
LD B,0x08
|
LD B,COLORP.BLACK + COLORI.HIGHGRAY
|
||||||
EXX
|
EXX
|
||||||
LD HL,0x022E
|
LD HL,558
|
||||||
LD DE,0x0003
|
LD DE,3
|
||||||
LD B,0x08
|
LD B,COLORP.BLACK + COLORI.HIGHGRAY
|
||||||
EXX
|
EXX
|
||||||
LD A,0x02
|
LD A,DateMonthFormat.Text
|
||||||
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
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 24.07.2025 savelij
|
; LAST UPDATE: 01.08.2025 savelij
|
||||||
|
|
||||||
PALITRA.RESERV EQU PALETTE + 0x34
|
PALITRA.RESERV EQU PALETTE + 0x34
|
||||||
|
|
||||||
@ -85,7 +85,7 @@ SaveFlg EQU $-2
|
|||||||
CALL InitScrollBar
|
CALL InitScrollBar
|
||||||
CALL InitElement
|
CALL InitElement
|
||||||
SetupLoop LD IX,SetupTab
|
SetupLoop LD IX,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,7 +504,7 @@ 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
|
||||||
@ -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
|
||||||
|
|||||||
204
rez2_fnfunct.a80
204
rez2_fnfunct.a80
@ -1,16 +1,16 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 25.07.2025 savelij
|
; LAST UPDATE: 31.07.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
CopyFilesR LD A,(IY + PANEL.FILES_ALL)
|
CopyFilesR 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 ; ०¨¬ ®â®¡à ¦¥¨ï ¯ ¥«¨ - ¤¥à¥¢®
|
||||||
SETPORT WINSP.Y_PORT,0xC0
|
SETPORT WINSP.Y_PORT,0xC0
|
||||||
LD A,(IY + PANEL.FILES_MARK)
|
LD A,(IY + PANEL.FILES_MARK)
|
||||||
OR (IY + PANEL.FILES_MARK + 1)
|
OR (IY + PANEL.FILES_MARK + 1)
|
||||||
JP NZ,CopyMark
|
JP NZ,CopyMark ; ¥áâì ¯®¬¥ç¥ë¥ ä ©«ë
|
||||||
; ª®¯¨à®¢ ¨¥ ä ©« /¤¨àë ¯®¤ ªãàá®à®¬
|
; ª®¯¨à®¢ ¨¥ ä ©« /¤¨àë ¯®¤ ªãàá®à®¬
|
||||||
GETPORT WINSP.CPU3
|
GETPORT WINSP.CPU3
|
||||||
PUSH AF
|
PUSH AF
|
||||||
@ -63,9 +63,12 @@ CopyFilesR LD A,(IY + PANEL.FILES_ALL)
|
|||||||
COPY_DIR PUSH IX
|
COPY_DIR PUSH IX
|
||||||
PUSH IY
|
PUSH IY
|
||||||
PUSH IX
|
PUSH IX
|
||||||
LD HL,(AdrCopyFile) ; ¤à¥á ®¯¨á â¥«ï ¨§¬¥à塞®© ¤¨àë
|
; LD HL,(AdrCopyFile) ; ¤à¥á ®¯¨á â¥«ï ¨§¬¥à塞®© ¤¨àë
|
||||||
CALL RESIDENT.GetDirSize ; áç¨â ¥¬ ¨ ¯®«ãç ¥¬ à §¬¥à ¢ ¡ ©â å
|
; CALL RESIDENT.GetDirSize ; áç¨â ¥¬ ¨ ¯®«ãç ¥¬ à §¬¥à ¢ ¡ ©â å
|
||||||
EXX
|
; EXX
|
||||||
|
CALL RESIDENT.CountingDir
|
||||||
|
LD HL,JUMPS.FILES_BYTES
|
||||||
|
CALL GET_DWORD
|
||||||
POP HL ; ¤à¥á ®¯¨á ⥫ï
|
POP HL ; ¤à¥á ®¯¨á ⥫ï
|
||||||
LD (CopyBytes),DE
|
LD (CopyBytes),DE
|
||||||
LD (CopyBytes + 2),BC
|
LD (CopyBytes + 2),BC
|
||||||
@ -81,8 +84,8 @@ COPY_DIR PUSH IX
|
|||||||
LD E,C
|
LD E,C
|
||||||
CALL ConvBytes2Pages ; ¯¥à¥áç¥â ¢ ª®«¨ç¥á⢮ áâà ¨æ ¤«ï ª®¯¨à®¢ ¨ï
|
CALL ConvBytes2Pages ; ¯¥à¥áç¥â ¢ ª®«¨ç¥á⢮ áâà ¨æ ¤«ï ª®¯¨à®¢ ¨ï
|
||||||
|
|
||||||
; LD HL,(AdrCopyFile) ; ¤à¥á ®¯¨á â¥«ï ª®¯¨à㥬®© ¤¨àë
|
LD HL,(AdrCopyFile) ; ¤à¥á ®¯¨á â¥«ï ª®¯¨à㥬®© ¤¨àë
|
||||||
; CALL RESIDENT.MkdirsDst ; ᮧ¤ ¨¥ ¯ ¯®ª ¯à¨¥¬¨ª¥
|
CALL RESIDENT.MkdirsDst ; ᮧ¤ ¨¥ ¯ ¯®ª ¯à¨¥¬¨ª¥
|
||||||
|
|
||||||
POP IY
|
POP IY
|
||||||
POP IX
|
POP IX
|
||||||
@ -156,11 +159,11 @@ CopyNxt LD IX,ProcessAll
|
|||||||
EX DE,HL
|
EX DE,HL
|
||||||
ADC HL,HL
|
ADC HL,HL
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
LD (IX + PROC.MAX_PAGES),L
|
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),D
|
LD (IX + PROGRESSBAR.MAX_PAGES + 3),D
|
||||||
CALL InitProcess
|
CALL InitProgressBar
|
||||||
CALL ResInvert
|
CALL ResInvert
|
||||||
LD HL,SetInvert
|
LD HL,SetInvert
|
||||||
PUSH HL
|
PUSH HL
|
||||||
@ -232,7 +235,7 @@ CopyNxt LD IX,ProcessAll
|
|||||||
LD (CopySrc),HL
|
LD (CopySrc),HL
|
||||||
LD HL,CurPath
|
LD HL,CurPath
|
||||||
LD (CopyDst),HL
|
LD (CopyDst),HL
|
||||||
CALL SetClock
|
CALL PointerMouseClock
|
||||||
PUSH IY
|
PUSH IY
|
||||||
GETPORT WINSP.CPU3
|
GETPORT WINSP.CPU3
|
||||||
PUSH AF
|
PUSH AF
|
||||||
@ -242,6 +245,7 @@ CopyNxt LD IX,ProcessAll
|
|||||||
LD A,(RAMPAGES.RIGHTPANEL)
|
LD A,(RAMPAGES.RIGHTPANEL)
|
||||||
.L3
|
.L3
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
|
; ª®¯¨à®¢ ¨¥ ä ©«®¢
|
||||||
CopyNextFile CALL PrnFromTo
|
CopyNextFile CALL PrnFromTo
|
||||||
LD IX,(AdrCopyFile)
|
LD IX,(AdrCopyFile)
|
||||||
LD L,(IX + FileHDR.SizeBytes)
|
LD L,(IX + FileHDR.SizeBytes)
|
||||||
@ -260,12 +264,12 @@ CopyNextFile CALL PrnFromTo
|
|||||||
EX DE,HL
|
EX DE,HL
|
||||||
ADC HL,HL
|
ADC HL,HL
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
LD (IX + PROC.MAX_PAGES),L
|
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),D
|
LD (IX + PROGRESSBAR.MAX_PAGES + 3),D
|
||||||
CALL InitProcess
|
CALL InitProgressBar
|
||||||
CALL PrnProcess
|
CALL DrawProgressBar
|
||||||
LD HL,(FreeBanks)
|
LD HL,(FreeBanks)
|
||||||
LD DE,0x0000
|
LD DE,0x0000
|
||||||
.PagesHigh EQU $-2
|
.PagesHigh EQU $-2
|
||||||
@ -517,7 +521,7 @@ CopyEnd POP AF
|
|||||||
JP C,BegDIRECTORY
|
JP C,BegDIRECTORY
|
||||||
CALL PrintDIR
|
CALL PrintDIR
|
||||||
CALL PrnFileInfo
|
CALL PrnFileInfo
|
||||||
JP SetMouse
|
JP PointerMousePointer
|
||||||
|
|
||||||
CopyError3: ; …᫨ ¥â ¬¥áâ ¤¨áª¥ ¤«ï ª®¯¨à®¢ ¨ï ;!FIXIT ®¯â¨¬¨§¨à®¢ âì
|
CopyError3: ; …᫨ ¥â ¬¥áâ ¤¨áª¥ ¤«ï ª®¯¨à®¢ ¨ï ;!FIXIT ®¯â¨¬¨§¨à®¢ âì
|
||||||
POP HL ; ᨬ ¥¬ «¨è¥¥
|
POP HL ; ᨬ ¥¬ «¨è¥¥
|
||||||
@ -567,7 +571,7 @@ CopyErrorFileDelete:
|
|||||||
RET
|
RET
|
||||||
|
|
||||||
;--------------------------------------------------------------
|
;--------------------------------------------------------------
|
||||||
OverWrite CALL SetMouse
|
OverWrite CALL PointerMousePointer
|
||||||
MAKEWINDOW WINSUBOBJ.STORE
|
MAKEWINDOW WINSUBOBJ.STORE
|
||||||
W_MAIN 180,88,280,56
|
W_MAIN 180,88,280,56
|
||||||
W_FILL 4,2,272,10,COLORI.GREEN
|
W_FILL 4,2,272,10,COLORI.GREEN
|
||||||
@ -602,9 +606,9 @@ OverWrite CALL SetMouse
|
|||||||
LD DE,320
|
LD DE,320
|
||||||
LD BC,114
|
LD BC,114
|
||||||
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL PrnRangPathC
|
CALL PrintPathCentr
|
||||||
OvWrtLp LD IX,OverWrtTab
|
OvWrtLp LD IX,OverWrtTab
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,OvWrtLp
|
JR Z,OvWrtLp
|
||||||
LD A,B
|
LD A,B
|
||||||
@ -636,7 +640,7 @@ OvrJump
|
|||||||
|
|
||||||
OverWrtAll LD A,0x01
|
OverWrtAll LD A,0x01
|
||||||
LD (OverWriteFlg),A
|
LD (OverWriteFlg),A
|
||||||
OverWrtFile CALL SetClock
|
OverWrtFile CALL PointerMouseClock
|
||||||
LD IX,(AdrCopyFile)
|
LD IX,(AdrCopyFile)
|
||||||
LD HL,(AdrCopyFile)
|
LD HL,(AdrCopyFile)
|
||||||
INC HL
|
INC HL
|
||||||
@ -648,7 +652,7 @@ OverWrtFile CALL SetClock
|
|||||||
SPDSS DSSF.CREATE
|
SPDSS DSSF.CREATE
|
||||||
RET
|
RET
|
||||||
|
|
||||||
OverSkip CALL SetClock
|
OverSkip CALL PointerMouseClock
|
||||||
LD IX,(AdrCopyFile)
|
LD IX,(AdrCopyFile)
|
||||||
LD L,(IX + FileHDR.SizeBytes)
|
LD L,(IX + FileHDR.SizeBytes)
|
||||||
LD H,(IX + FileHDR.SizeBytes + 1)
|
LD H,(IX + FileHDR.SizeBytes + 1)
|
||||||
@ -660,18 +664,18 @@ OverSkip CALL SetClock
|
|||||||
ADC HL,HL
|
ADC HL,HL
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
LD IX,ProcessAll
|
LD IX,ProcessAll
|
||||||
LD C,(IX + PROC.CURR_PAGE)
|
LD C,(IX + PROGRESSBAR.CURR_PAGE)
|
||||||
LD B,(IX + PROC.CURR_PAGE + 1)
|
LD B,(IX + PROGRESSBAR.CURR_PAGE + 1)
|
||||||
ADD HL,BC
|
ADD HL,BC
|
||||||
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 C,(IX + PROC.CURR_PAGE + 2)
|
LD C,(IX + PROGRESSBAR.CURR_PAGE + 2)
|
||||||
LD B,(IX + PROC.CURR_PAGE + 3)
|
LD B,(IX + PROGRESSBAR.CURR_PAGE + 3)
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
ADC HL,BC
|
ADC HL,BC
|
||||||
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
|
||||||
CALL PrnProcess
|
CALL DrawProgressBar
|
||||||
LD HL,CloseFile1
|
LD HL,CloseFile1
|
||||||
EX (SP),HL
|
EX (SP),HL
|
||||||
RET
|
RET
|
||||||
@ -777,44 +781,44 @@ PrnFromTo LD HL,(CopySrc)
|
|||||||
LD DE,204
|
LD DE,204
|
||||||
LD BC,97
|
LD BC,97
|
||||||
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL PrnRangPathL
|
CALL PrintPathLeft
|
||||||
LD IX,0x0100
|
LD IX,0x0100
|
||||||
LD HL,WorkBuffer+0x100
|
LD HL,WorkBuffer+0x100
|
||||||
LD DE,204
|
LD DE,204
|
||||||
LD BC,107
|
LD BC,107
|
||||||
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
JP PrnRangPathL
|
JP PrintPathLeft
|
||||||
|
|
||||||
NextProcess LD IX,ProcessAll
|
NextProcess LD IX,ProcessAll
|
||||||
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,.L1
|
JR NZ,.L1
|
||||||
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
|
||||||
.L1 CALL PrnProcess
|
.L1 CALL DrawProgressBar
|
||||||
LD IX,ProcessOne
|
LD IX,ProcessOne
|
||||||
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,.L2
|
JR NZ,.L2
|
||||||
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
|
||||||
.L2 JP PrnProcess
|
.L2 JP DrawProgressBar
|
||||||
|
|
||||||
ProcessAll DW 178 ; X ¯®§¨æ¨ï
|
ProcessAll DW 178 ; X ¯®§¨æ¨ï
|
||||||
DW 138 ; Y ¯®§¨æ¨ï
|
DW 138 ; Y ¯®§¨æ¨ï
|
||||||
@ -966,8 +970,8 @@ RNfile EQU $ - STRLEN(" ") - 2
|
|||||||
LD D,0
|
LD D,0
|
||||||
ADC HL,DE
|
ADC HL,DE
|
||||||
LD (HL),0
|
LD (HL),0
|
||||||
CALL SetClock
|
CALL PointerMouseClock
|
||||||
LD HL,SetMouse
|
LD HL,PointerMousePointer
|
||||||
EX (SP),HL
|
EX (SP),HL
|
||||||
PUSH HL
|
PUSH HL
|
||||||
BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
||||||
@ -1037,9 +1041,9 @@ ReName0 LD HL,CurName
|
|||||||
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
|
||||||
ReName1 LD HL,LeftPanel + PANEL.CURR_PATH
|
ReName1 LD HL,LeftPanel + PANEL.CURR_PATH
|
||||||
LD DE,RightPanel + PANEL.CURR_PATH
|
LD DE,RightPanel + PANEL.CURR_PATH
|
||||||
ReName2 LD A,(DE)
|
ReName2 LD A,(DE)
|
||||||
@ -1071,9 +1075,9 @@ ReName2 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
|
||||||
ReNameE POP IY
|
ReNameE POP IY
|
||||||
RET
|
RET
|
||||||
|
|
||||||
@ -1237,9 +1241,9 @@ ReNameT POP AF
|
|||||||
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
|
||||||
PUSH IY
|
PUSH IY
|
||||||
BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
||||||
LD IY,RightPanel
|
LD IY,RightPanel
|
||||||
@ -1251,7 +1255,7 @@ ReNameT POP AF
|
|||||||
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
|
||||||
|
|
||||||
@ -1264,7 +1268,7 @@ ReNameExt1 INC SP
|
|||||||
POP IX
|
POP IX
|
||||||
LD DE,PANEL.BAR_X
|
LD DE,PANEL.BAR_X
|
||||||
ADD IX,DE
|
ADD IX,DE
|
||||||
CALL PrnVScrBar
|
CALL DrawVScrollBar
|
||||||
IF TREE_REZID
|
IF TREE_REZID
|
||||||
CALL TestTreeR.TestTreeBeg
|
CALL TestTreeR.TestTreeBeg
|
||||||
ELSE
|
ELSE
|
||||||
@ -1309,9 +1313,9 @@ ReNameExit CALL ReadDIR
|
|||||||
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 HL,LeftPanel + PANEL.CURR_PATH
|
LD HL,LeftPanel + PANEL.CURR_PATH
|
||||||
LD DE,RightPanel + PANEL.CURR_PATH
|
LD DE,RightPanel + PANEL.CURR_PATH
|
||||||
RNameE1 LD A,(DE)
|
RNameE1 LD A,(DE)
|
||||||
@ -1343,9 +1347,9 @@ RNameE1 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
|
||||||
RNameE2 POP IY
|
RNameE2 POP IY
|
||||||
RET
|
RET
|
||||||
|
|
||||||
@ -1391,8 +1395,8 @@ MkDIRlp LD A,(HL)
|
|||||||
CP '\\'
|
CP '\\'
|
||||||
RET Z
|
RET Z
|
||||||
DJNZ MkDIRlp
|
DJNZ MkDIRlp
|
||||||
CALL SetClock
|
CALL PointerMouseClock
|
||||||
LD HL,SetMouse
|
LD HL,PointerMousePointer
|
||||||
PUSH HL
|
PUSH HL
|
||||||
BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
||||||
JR Z,MkDIR0
|
JR Z,MkDIR0
|
||||||
@ -1644,9 +1648,9 @@ MkDIRn1 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
|
||||||
PUSH IY
|
PUSH IY
|
||||||
BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
||||||
LD IY,RightPanel
|
LD IY,RightPanel
|
||||||
@ -1678,9 +1682,9 @@ MkDIRn2 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
|
||||||
MkDIRex POP IY
|
MkDIRex POP IY
|
||||||
RET
|
RET
|
||||||
|
|
||||||
@ -1819,9 +1823,9 @@ DelLp0 LD IX,0x00F8
|
|||||||
LD DE,320
|
LD DE,320
|
||||||
LD BC,106
|
LD BC,106
|
||||||
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL PrnRangPathC
|
CALL PrintPathCentr
|
||||||
DelLoop LD IX,DeleteTab
|
DelLoop LD IX,DeleteTab
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,DelLoop
|
JR Z,DelLoop
|
||||||
LD A,B
|
LD A,B
|
||||||
@ -1911,7 +1915,7 @@ DelSkip LD C,(IY + PANEL.FILES_MARK)
|
|||||||
CALL PrintDIR
|
CALL PrintDIR
|
||||||
JP DeleteMain
|
JP DeleteMain
|
||||||
|
|
||||||
DelDelete CALL SetClock
|
DelDelete CALL PointerMouseClock
|
||||||
BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
||||||
JR Z,DelDel0
|
JR Z,DelDel0
|
||||||
PUSH IY
|
PUSH IY
|
||||||
@ -1961,14 +1965,14 @@ DelDel1 PUSH IY
|
|||||||
JP DelExit
|
JP DelExit
|
||||||
DelDel2 LD A,0x01
|
DelDel2 LD A,0x01
|
||||||
LD (DeleteFlag),A
|
LD (DeleteFlag),A
|
||||||
CALL SetMouse
|
CALL PointerMousePointer
|
||||||
JP DelSkip
|
JP DelSkip
|
||||||
|
|
||||||
DelAll BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
DelAll BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
||||||
JR NZ,DelDelete
|
JR NZ,DelDelete
|
||||||
LD A,0x01
|
LD A,0x01
|
||||||
LD (DeleteFlag),A
|
LD (DeleteFlag),A
|
||||||
CALL SetClock
|
CALL PointerMouseClock
|
||||||
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
|
||||||
@ -1989,12 +1993,12 @@ DelAll BIT VIEWFLAG.B_TREE,(IY+PANEL.VIEWFLAG)
|
|||||||
OR L
|
OR L
|
||||||
JR NZ,.L1
|
JR NZ,.L1
|
||||||
INC HL
|
INC HL
|
||||||
.L1 LD (IX + PROC.MAX_PAGES),L
|
.L1 LD (IX + PROGRESSBAR.MAX_PAGES),L
|
||||||
LD (IX + PROC.MAX_PAGES + 1),H
|
LD (IX + PROGRESSBAR.MAX_PAGES + 1),H
|
||||||
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
|
||||||
CALL InitProcess
|
CALL InitProgressBar
|
||||||
DeleteAllLp LD HL,0x0000
|
DeleteAllLp LD HL,0x0000
|
||||||
DelFrom EQU $-2
|
DelFrom EQU $-2
|
||||||
LD DE,WorkBuffer
|
LD DE,WorkBuffer
|
||||||
@ -2017,7 +2021,7 @@ DelFrom EQU $-2
|
|||||||
LD DE,208
|
LD DE,208
|
||||||
LD BC,104
|
LD BC,104
|
||||||
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL PrnRangPathL
|
CALL PrintPathLeft
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
LD HL,SC.ESC << 8 | 0x1B
|
LD HL,SC.ESC << 8 | 0x1B
|
||||||
OR A
|
OR A
|
||||||
@ -2043,12 +2047,12 @@ DelFrom EQU $-2
|
|||||||
JP DelAllExit
|
JP DelAllExit
|
||||||
|
|
||||||
DelA1 LD IX,ProcessDel
|
DelA1 LD IX,ProcessDel
|
||||||
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
|
||||||
CALL PrnProcess
|
CALL DrawProgressBar
|
||||||
LD C,(IY + PANEL.FILES_MARK)
|
LD C,(IY + PANEL.FILES_MARK)
|
||||||
LD B,(IY + PANEL.FILES_MARK + 1)
|
LD B,(IY + PANEL.FILES_MARK + 1)
|
||||||
LD A,B
|
LD A,B
|
||||||
@ -2110,7 +2114,7 @@ DelExit BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
|||||||
JR NZ,DelTreeDIR
|
JR NZ,DelTreeDIR
|
||||||
DelExt1 POP AF
|
DelExt1 POP AF
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
LD HL,SetMouse
|
LD HL,PointerMousePointer
|
||||||
PUSH HL
|
PUSH HL
|
||||||
LD A,(DeleteFlag)
|
LD A,(DeleteFlag)
|
||||||
OR A
|
OR A
|
||||||
@ -2128,8 +2132,8 @@ DelTreeDIR1 LD A,(DeleteFlag)
|
|||||||
CALL MakeDELname
|
CALL MakeDELname
|
||||||
POP AF
|
POP AF
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
CALL SetClock
|
CALL PointerMouseClock
|
||||||
LD HL,SetMouse
|
LD HL,PointerMousePointer
|
||||||
EX (SP),HL
|
EX (SP),HL
|
||||||
PUSH HL
|
PUSH HL
|
||||||
BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
BIT VIEWFLAG.B_TREE,(IY + PANEL.VIEWFLAG)
|
||||||
@ -2356,9 +2360,9 @@ DelDIRn POP AF
|
|||||||
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
|
||||||
PUSH IY
|
PUSH IY
|
||||||
BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
||||||
LD IY,RightPanel
|
LD IY,RightPanel
|
||||||
@ -2370,7 +2374,7 @@ DelDIRn POP AF
|
|||||||
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
|
||||||
|
|
||||||
@ -2384,7 +2388,7 @@ DeleteExt1 INC SP
|
|||||||
LD DE,PANEL.BAR_X
|
LD DE,PANEL.BAR_X
|
||||||
ADD IX,DE
|
ADD IX,DE
|
||||||
CALL InitScrollBar
|
CALL InitScrollBar
|
||||||
CALL PrnVScrBar
|
CALL DrawVScrollBar
|
||||||
IF TREE_REZID
|
IF TREE_REZID
|
||||||
CALL MakeTreePathR
|
CALL MakeTreePathR
|
||||||
ELSE
|
ELSE
|
||||||
@ -2414,7 +2418,7 @@ QuitConfirmWin
|
|||||||
W_TEXT 150,35,COLORP.HIGHGRAY,"No"
|
W_TEXT 150,35,COLORP.HIGHGRAY,"No"
|
||||||
W_END
|
W_END
|
||||||
.Loop LD IX,QuitTab
|
.Loop LD IX,QuitTab
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,.Loop
|
JR Z,.Loop
|
||||||
LD A,B
|
LD A,B
|
||||||
|
|||||||
118
rez2_fnmisc.a80
118
rez2_fnmisc.a80
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 25.07.2025 savelij
|
; LAST UPDATE: 02.08.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
FileInfoR LD A,(IY+PANEL.FILES_ALL)
|
FileInfoR LD A,(IY+PANEL.FILES_ALL)
|
||||||
@ -42,7 +42,7 @@ FileInfoR LD A,(IY+PANEL.FILES_ALL)
|
|||||||
LD A,(HL)
|
LD A,(HL)
|
||||||
CP '.'
|
CP '.'
|
||||||
RET Z
|
RET Z
|
||||||
CALL SetClock
|
CALL PointerMouseClock
|
||||||
PUSH DE
|
PUSH DE
|
||||||
CALL MakeDOSname
|
CALL MakeDOSname
|
||||||
POP HL
|
POP HL
|
||||||
@ -90,7 +90,7 @@ FileInfoR LD A,(IY+PANEL.FILES_ALL)
|
|||||||
LD H,(IX+0x10)
|
LD H,(IX+0x10)
|
||||||
LD C,(IX+0x11)
|
LD C,(IX+0x11)
|
||||||
LD B,(IX+0x12)
|
LD B,(IX+0x12)
|
||||||
CALL ConvNumTxt32
|
CALL ConvertNumbers_32b
|
||||||
LD A,0x20
|
LD A,0x20
|
||||||
LD (DE),A
|
LD (DE),A
|
||||||
INC DE
|
INC DE
|
||||||
@ -107,7 +107,7 @@ FileInfoR LD A,(IY+PANEL.FILES_ALL)
|
|||||||
PUSH IY
|
PUSH IY
|
||||||
SPDSS DSSF.F_FIRST,0
|
SPDSS DSSF.F_FIRST,0
|
||||||
POP IY
|
POP IY
|
||||||
JP C,SetMouse
|
JP C,PointerMousePointer
|
||||||
LD HL,FClast
|
LD HL,FClast
|
||||||
LD B,0x05
|
LD B,0x05
|
||||||
LD A,0x20
|
LD A,0x20
|
||||||
@ -120,7 +120,7 @@ FileInfoR LD A,(IY+PANEL.FILES_ALL)
|
|||||||
LD D,(HL)
|
LD D,(HL)
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
LD DE,FClast
|
LD DE,FClast
|
||||||
CALL ConvNumTxt16
|
CALL ConvertNumbers_16b
|
||||||
MAKEWINDOW WINSUBOBJ.STORE
|
MAKEWINDOW WINSUBOBJ.STORE
|
||||||
W_MAIN 240,80,160,98
|
W_MAIN 240,80,160,98
|
||||||
W_FILL 4,2,152,10,COLORI.BLACK
|
W_FILL 4,2,152,10,COLORI.BLACK
|
||||||
@ -139,9 +139,9 @@ FClast EQU $ - STRLEN(" ") - 1
|
|||||||
W_BUTTON 44,80,72,14
|
W_BUTTON 44,80,72,14
|
||||||
W_TEXT 72,83,COLORP.HIGHGRAY,"Ok"
|
W_TEXT 72,83,COLORP.HIGHGRAY,"Ok"
|
||||||
W_END
|
W_END
|
||||||
CALL SetMouse
|
CALL PointerMousePointer
|
||||||
FileInfoLoop: LD IX,FileInfoTab
|
FileInfoLoop: LD IX,FileInfoTab
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,FileInfoLoop
|
JR Z,FileInfoLoop
|
||||||
LD A,B
|
LD A,B
|
||||||
@ -259,10 +259,10 @@ PrintFileR LD A,(IY+PANEL.FILES_ALL)
|
|||||||
LD HL,WorkBuffer
|
LD HL,WorkBuffer
|
||||||
LD DE,0x00F8
|
LD DE,0x00F8
|
||||||
LD BC,0x0064
|
LD BC,0x0064
|
||||||
LD A,0x80
|
LD A,COLORP.HIGHGRAY + COLORI.BLACK
|
||||||
CALL PrnRangPathL
|
CALL PrintPathLeft
|
||||||
LD IX,PrintFTab
|
LD IX,PrintFTab
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
LD IX,ProcessFPrn
|
LD IX,ProcessFPrn
|
||||||
LD HL,(PrnFileLen)
|
LD HL,(PrnFileLen)
|
||||||
LD DE,(PrnFileLen+2)
|
LD DE,(PrnFileLen+2)
|
||||||
@ -277,11 +277,11 @@ PrintFileR LD A,(IY+PANEL.FILES_ALL)
|
|||||||
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 InitProcess
|
CALL InitProgressBar
|
||||||
LD HL,PrnFileName
|
LD HL,PrnFileName
|
||||||
SPDSS DSSF.OPEN,,1
|
SPDSS DSSF.OPEN,,1
|
||||||
PUSH AF
|
PUSH AF
|
||||||
@ -308,12 +308,12 @@ ReadPr1 INC HL
|
|||||||
JR C,ReadPrnEnd
|
JR C,ReadPrnEnd
|
||||||
LD (PrnFileLen),HL
|
LD (PrnFileLen),HL
|
||||||
LD (PrnFileLen+2),DE
|
LD (PrnFileLen+2),DE
|
||||||
CALL SetClock
|
CALL PointerMouseClock
|
||||||
LD HL,0xC000
|
LD HL,0xC000
|
||||||
LD DE,0x4000
|
LD DE,0x4000
|
||||||
LD A,(PrnFHandle)
|
LD A,(PrnFHandle)
|
||||||
SPDSS DSSF.READ
|
SPDSS DSSF.READ
|
||||||
CALL SetMouse
|
CALL PointerMousePointer
|
||||||
LD BC,0x4000
|
LD BC,0x4000
|
||||||
CALL PrintBlock
|
CALL PrintBlock
|
||||||
POP HL
|
POP HL
|
||||||
@ -330,12 +330,12 @@ ReadPrnEnd: LD HL,0xC000
|
|||||||
LD A,D
|
LD A,D
|
||||||
OR E
|
OR E
|
||||||
JR Z,.L1
|
JR Z,.L1
|
||||||
CALL SetClock
|
CALL PointerMouseClock
|
||||||
LD A,(PrnFHandle)
|
LD A,(PrnFHandle)
|
||||||
PUSH DE
|
PUSH DE
|
||||||
SPDSS DSSF.READ
|
SPDSS DSSF.READ
|
||||||
POP BC
|
POP BC
|
||||||
CALL SetMouse
|
CALL PointerMousePointer
|
||||||
CALL PrintBlock
|
CALL PrintBlock
|
||||||
JR C,.L2
|
JR C,.L2
|
||||||
.L1 CALL NxtPrnProc
|
.L1 CALL NxtPrnProc
|
||||||
@ -373,7 +373,7 @@ PrintCHAR: LD L,A
|
|||||||
BIT 0,A
|
BIT 0,A
|
||||||
JR Z,PrnCH1
|
JR Z,PrnCH1
|
||||||
LD IX,PrintFTab
|
LD IX,PrintFTab
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
JR C,PrnCH2
|
JR C,PrnCH2
|
||||||
PrnCH1
|
PrnCH1
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
@ -410,20 +410,20 @@ NxtPrnProc LD A,E
|
|||||||
PUSH DE
|
PUSH DE
|
||||||
PUSH BC
|
PUSH BC
|
||||||
LD IX,ProcessFPrn
|
LD IX,ProcessFPrn
|
||||||
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,.L1
|
JR NZ,.L1
|
||||||
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
|
||||||
.L1 CALL PrnProcess
|
.L1 CALL DrawProgressBar
|
||||||
POP BC
|
POP BC
|
||||||
POP DE
|
POP DE
|
||||||
RET
|
RET
|
||||||
@ -448,8 +448,8 @@ SystemInfoR
|
|||||||
SETPORT WINSP.Y_PORT,0xC0
|
SETPORT WINSP.Y_PORT,0xC0
|
||||||
LD HL,SetInvert
|
LD HL,SetInvert
|
||||||
PUSH HL
|
PUSH HL
|
||||||
LD HL,DOSvers
|
LD HL,.DOSvers
|
||||||
LD DE,BIOSver
|
LD DE,.BIOSver
|
||||||
LD B,0x05
|
LD B,0x05
|
||||||
LD A,0x20
|
LD A,0x20
|
||||||
.L1 LD (HL),A
|
.L1 LD (HL),A
|
||||||
@ -461,14 +461,14 @@ SystemInfoR
|
|||||||
SPDSS DSSF.VERSION
|
SPDSS DSSF.VERSION
|
||||||
POP IY
|
POP IY
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
LD DE,DOSvers
|
LD DE,.DOSvers
|
||||||
LD A,H
|
LD A,H
|
||||||
CALL ConvNumTxt8
|
CALL ConvertNumbers_8b
|
||||||
LD A,'.'
|
LD A,'.'
|
||||||
LD (DE),A
|
LD (DE),A
|
||||||
INC DE
|
INC DE
|
||||||
LD A,L
|
LD A,L
|
||||||
CALL ConvNumTxt8
|
CALL ConvertNumbers_8b
|
||||||
LD HL,WorkBuffer
|
LD HL,WorkBuffer
|
||||||
SPBIOS BIOSF.FN_VERSION
|
SPBIOS BIOSF.FN_VERSION
|
||||||
SUB A
|
SUB A
|
||||||
@ -480,7 +480,7 @@ SystemInfoR
|
|||||||
CP (HL)
|
CP (HL)
|
||||||
JR NZ,.L3
|
JR NZ,.L3
|
||||||
INC HL
|
INC HL
|
||||||
LD DE,BIOSver
|
LD DE,.BIOSver
|
||||||
SUB A
|
SUB A
|
||||||
.L4 LDI
|
.L4 LDI
|
||||||
CP (HL)
|
CP (HL)
|
||||||
@ -490,11 +490,11 @@ SystemInfoR
|
|||||||
OR A
|
OR A
|
||||||
JR NZ,.L5
|
JR NZ,.L5
|
||||||
LD HL,NotPresent
|
LD HL,NotPresent
|
||||||
.L5 LD DE,CMOS
|
.L5 LD DE,.CMOStxt
|
||||||
LD BC,0x000B
|
LD BC,0x000B
|
||||||
LDIR
|
LDIR
|
||||||
LD HL,TotMem
|
LD HL,.TotMem
|
||||||
LD DE,FreeMem
|
LD DE,.FreeMem
|
||||||
LD B,0x0F
|
LD B,0x0F
|
||||||
LD A,0x20
|
LD A,0x20
|
||||||
.L6 LD (HL),A
|
.L6 LD (HL),A
|
||||||
@ -519,11 +519,11 @@ SystemInfoR
|
|||||||
RR H
|
RR H
|
||||||
RR L
|
RR L
|
||||||
PUSH DE
|
PUSH DE
|
||||||
CALL ConvNumTxt32
|
CALL ConvertNumbers_32b
|
||||||
SUB A
|
SUB A
|
||||||
LD (DE),A
|
LD (DE),A
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,TotMem
|
LD DE,.TotMem
|
||||||
CALL CorrBigNum
|
CALL CorrBigNum
|
||||||
INC DE
|
INC DE
|
||||||
LD HL,Bytes
|
LD HL,Bytes
|
||||||
@ -543,11 +543,11 @@ SystemInfoR
|
|||||||
RR H
|
RR H
|
||||||
RR L
|
RR L
|
||||||
PUSH DE
|
PUSH DE
|
||||||
CALL ConvNumTxt32
|
CALL ConvertNumbers_32b
|
||||||
SUB A
|
SUB A
|
||||||
LD (DE),A
|
LD (DE),A
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,FreeMem
|
LD DE,.FreeMem
|
||||||
CALL CorrBigNum
|
CALL CorrBigNum
|
||||||
INC DE
|
INC DE
|
||||||
LD HL,Bytes
|
LD HL,Bytes
|
||||||
@ -559,20 +559,20 @@ SystemInfoR
|
|||||||
W_TEXT 48,3,COLORI.WHITE,"System information"
|
W_TEXT 48,3,COLORI.WHITE,"System information"
|
||||||
W_TEXT 10,20,COLORP.HIGHGRAY,"FN version: \{FLEX_VERS.NAVIGATOR}"
|
W_TEXT 10,20,COLORP.HIGHGRAY,"FN version: \{FLEX_VERS.NAVIGATOR}"
|
||||||
W_TEXT 10,32,COLORP.HIGHGRAY,"BIOS version: "
|
W_TEXT 10,32,COLORP.HIGHGRAY,"BIOS version: "
|
||||||
BIOSver EQU $ - STRLEN(" ") - 1
|
.BIOSver EQU $ - STRLEN(" ") - 1
|
||||||
W_TEXT 10,44,COLORP.HIGHGRAY,"DOS version: "
|
W_TEXT 10,44,COLORP.HIGHGRAY,"DOS version: "
|
||||||
DOSvers EQU $ - STRLEN(" ") - 1
|
.DOSvers EQU $ - STRLEN(" ") - 1
|
||||||
W_TEXT 10,56,COLORP.HIGHGRAY,"CMOS: "
|
W_TEXT 10,56,COLORP.HIGHGRAY,"CMOS: "
|
||||||
CMOS EQU $ - STRLEN(" ") - 1
|
.CMOStxt EQU $ - STRLEN(" ") - 1
|
||||||
W_TEXT 10,70,COLORP.HIGHGRAY,"Total memory: "
|
W_TEXT 10,70,COLORP.HIGHGRAY,"Total memory: "
|
||||||
TotMem EQU $ - STRLEN(" ") - 1
|
.TotMem EQU $ - STRLEN(" ") - 1
|
||||||
W_TEXT 10,82,COLORP.HIGHGRAY,"Free memory: "
|
W_TEXT 10,82,COLORP.HIGHGRAY,"Free memory: "
|
||||||
FreeMem EQU $ - STRLEN(" ") - 1
|
.FreeMem EQU $ - STRLEN(" ") - 1
|
||||||
W_BUTTON 60,96,72,14
|
W_BUTTON 60,96,72,14
|
||||||
W_TEXT 88,99,COLORP.HIGHGRAY,"Ok",0
|
W_TEXT 88,99,COLORP.HIGHGRAY,"Ok",0
|
||||||
W_END
|
W_END
|
||||||
SysInfoLoop: LD IX,SysInfoTab
|
SysInfoLoop: LD IX,SysInfoTab
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,SysInfoLoop
|
JR Z,SysInfoLoop
|
||||||
LD A,B
|
LD A,B
|
||||||
@ -599,7 +599,7 @@ DiskInfoR: LD HL,SetInvert
|
|||||||
;!FIXIT ¯à®¢¥à¨âì ¤«ï íâ® ®® ¨«¨ ¥â SAFE_PORTY
|
;!FIXIT ¯à®¢¥à¨âì ¤«ï íâ® ®® ¨«¨ ¥â SAFE_PORTY
|
||||||
PUSH HL
|
PUSH HL
|
||||||
SETPORT WINSP.Y_PORT,0xC0
|
SETPORT WINSP.Y_PORT,0xC0
|
||||||
CALL SetClock
|
CALL PointerMouseClock
|
||||||
PUSH IY
|
PUSH IY
|
||||||
SPDSS DSSF.CURDISK
|
SPDSS DSSF.CURDISK
|
||||||
POP IY
|
POP IY
|
||||||
@ -614,7 +614,7 @@ DiskInfoR: LD HL,SetInvert
|
|||||||
;PUSH IY
|
;PUSH IY
|
||||||
;RST ToDSS.DRV ;!FIXIT rst 0x18
|
;RST ToDSS.DRV ;!FIXIT rst 0x18
|
||||||
;POP IY
|
;POP IY
|
||||||
;JP C,SetMouse
|
;JP C,PointerMousePointer
|
||||||
LD B,0
|
LD B,0
|
||||||
CALL .get_info
|
CALL .get_info
|
||||||
EX AF,AF'
|
EX AF,AF'
|
||||||
@ -783,7 +783,7 @@ DiskInfoR: LD HL,SetInvert
|
|||||||
; ¢ëç¨á«ï¥¬ ®¡é¨© à §¬¥à ¢ ¡ ©â å
|
; ¢ëç¨á«ï¥¬ ®¡é¨© à §¬¥à ¢ ¡ ©â å
|
||||||
; A:BC:HL - ç¨á«® ¤«ï ¯¥à¥¢®¤
|
; A:BC:HL - ç¨á«® ¤«ï ¯¥à¥¢®¤
|
||||||
LD DE,WorkBuffer
|
LD DE,WorkBuffer
|
||||||
CALL ConvNumTxt40
|
CALL ConvertNumbers_40b
|
||||||
SUB A
|
SUB A
|
||||||
LD (DE),A
|
LD (DE),A
|
||||||
LD HL,WorkBuffer
|
LD HL,WorkBuffer
|
||||||
@ -805,8 +805,8 @@ DiskInfoR: LD HL,SetInvert
|
|||||||
LD HL,0
|
LD HL,0
|
||||||
.freeSpace_l EQU $-2
|
.freeSpace_l EQU $-2
|
||||||
LD DE,WorkBuffer+0x80
|
LD DE,WorkBuffer+0x80
|
||||||
; A:BC:HL - ç¨á«® ¤«ï ¯¥à¥¢®¤
|
; ABCHL - ç¨á«® ¤«ï ¯¥à¥¢®¤
|
||||||
CALL ConvNumTxt40
|
CALL ConvertNumbers_40b
|
||||||
SUB A
|
SUB A
|
||||||
LD (DE),A
|
LD (DE),A
|
||||||
LD HL,WorkBuffer+0x80
|
LD HL,WorkBuffer+0x80
|
||||||
@ -825,15 +825,15 @@ DiskInfoR: LD HL,SetInvert
|
|||||||
LD DE,0x0128
|
LD DE,0x0128
|
||||||
LD BC,0x0070
|
LD BC,0x0070
|
||||||
LD A,0x80
|
LD A,0x80
|
||||||
CALL PrnTxtLnIFF
|
CALL PrintTxtLine_IFF
|
||||||
LD HL,WorkBuffer+0x180
|
LD HL,WorkBuffer+0x180
|
||||||
LD DE,0x0013A
|
LD DE,0x0013A
|
||||||
LD BC,0x007C
|
LD BC,0x007C
|
||||||
LD A,0x80
|
LD A,0x80
|
||||||
CALL PrnTxtLnIFF
|
CALL PrintTxtLine_IFF
|
||||||
CALL SetMouse
|
CALL PointerMousePointer
|
||||||
.DiskInfoLoop: LD IX,DiskInfoTab
|
.DiskInfoLoop: LD IX,DiskInfoTab
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,.DiskInfoLoop
|
JR Z,.DiskInfoLoop
|
||||||
LD A,B
|
LD A,B
|
||||||
@ -947,9 +947,9 @@ VersionR
|
|||||||
W_BUTTON 92,133,72,14
|
W_BUTTON 92,133,72,14
|
||||||
W_TEXT 120,136,COLORP.HIGHGRAY,"OK"
|
W_TEXT 120,136,COLORP.HIGHGRAY,"OK"
|
||||||
W_END
|
W_END
|
||||||
CALL ResFire
|
CALL WaitUnpressMouse
|
||||||
VersionLoop LD IX,VersionTab
|
VersionLoop LD IX,VersionTab
|
||||||
CALL TestCoords
|
CALL CheckCoordsMouse
|
||||||
SPDSS DSSF.SCANKEY
|
SPDSS DSSF.SCANKEY
|
||||||
JR Z,VersionLoop
|
JR Z,VersionLoop
|
||||||
LD A,B
|
LD A,B
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 24.07.2025 savelij
|
; LAST UPDATE: 31.07.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
QSearchR LD A,(IY+PANEL.FILES_ALL)
|
QSearchR LD A,(IY+PANEL.FILES_ALL)
|
||||||
@ -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)
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 16.04.2025 savelij
|
; LAST UPDATE: 01.08.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
; ”®à¬ â â ¡«¨æë
|
; ”®à¬ â â ¡«¨æë
|
||||||
@ -89,12 +89,12 @@ VersionTab: DW 284,356,157,171,%0000000000100001,0,VersionExt,0
|
|||||||
DW 0x8000
|
DW 0x8000
|
||||||
|
|
||||||
;[]===============================================================[]
|
;[]===============================================================[]
|
||||||
PathTab: DW 240,312,123,137,%0000000000000001,0,InputLine.InpLnExtN,0
|
PathTab: 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, 96, 0,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
DW 0, 96, 0,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
DW 544,640, 0,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
DW 544,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
|
||||||
|
|
||||||
;[]===============================================================[]
|
;[]===============================================================[]
|
||||||
@ -109,21 +109,21 @@ OverWrtTab: DW 196,252,126,140,%0000000100100001,0,OverWrtFile,0
|
|||||||
DW 0x8001
|
DW 0x8001
|
||||||
|
|
||||||
;[]===============================================================[]
|
;[]===============================================================[]
|
||||||
ReNameTab: DW 240,312,123,137,%0000000000000001,0,InputLine.InpLnExtN,0
|
ReNameTab: 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
|
||||||
|
|
||||||
;[]===============================================================[]
|
;[]===============================================================[]
|
||||||
MakeDIRTab: DW 240,312,123,137,%0000000000000001,0,InputLine.InpLnExtN,0
|
MakeDIRTab: 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
|
||||||
|
|
||||||
;[]===============================================================[]
|
;[]===============================================================[]
|
||||||
@ -147,5 +147,5 @@ QuitTab:
|
|||||||
DW 0,640,138,256,%0000000000100000,0,QuitConfirmWin.Abort,0
|
DW 0,640,138,256,%0000000000100000,0,QuitConfirmWin.Abort,0
|
||||||
DW 0x8000
|
DW 0x8000
|
||||||
|
|
||||||
EmptyTab: DW 0,640, 0,256,%0000000000000000,0,InputLine.InpLnExtC,0
|
EmptyTab: DW 0,640, 0,256,%0000000000000000,0,InputLine.InputLineExitCancel,0
|
||||||
DW 0x8000
|
DW 0x8000
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; LAST UPDATE: 25.07.2025 savelij
|
; LAST UPDATE: 01.08.2025 savelij
|
||||||
|
|
||||||
;[]==========================================================[]
|
;[]==========================================================[]
|
||||||
MarkFileR LD A,(IY+PANEL.FILES_ALL)
|
MarkFileR LD A,(IY+PANEL.FILES_ALL)
|
||||||
@ -85,7 +85,7 @@ 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 ; ¨§¬¥à¥¨¥ à §¬¥à ¤¨àë
|
CALL NZ,CountingDirR ; ¨§¬¥à¥¨¥ à §¬¥à ¤¨àë
|
||||||
ELSE
|
ELSE
|
||||||
JR NZ,.MrFile1 ; ¤¨à¥ª®à¨¨ ª®¯¨à®¢ âì ¥ 㬥¥¬, ⮫쪮 ä ©«ë
|
JR NZ,.MrFile1 ; ¤¨à¥ª®à¨¨ ª®¯¨à®¢ âì ¥ 㬥¥¬, ⮫쪮 ä ©«ë
|
||||||
ENDIF
|
ENDIF
|
||||||
@ -102,7 +102,7 @@ UnSelectFile: LD IXL,0x00
|
|||||||
JR Z,.L8
|
JR Z,.L8
|
||||||
IF MARK_DIR
|
IF MARK_DIR
|
||||||
; ª®¯¨à㥬 à §¬¥à ¢ ¡ ©â å ¨§ à §¬¥à ¤¨àë
|
; ª®¯¨à㥬 à §¬¥à ¢ ¡ ©â å ¨§ à §¬¥à ¤¨àë
|
||||||
LD HL,COUNTING_DIR.FILES_SIZE
|
LD HL,JUMPS.FILES_BYTES
|
||||||
LD DE,WorkBuffer + FileHDR.SizeBytes
|
LD DE,WorkBuffer + FileHDR.SizeBytes
|
||||||
LD BC,DWORD
|
LD BC,DWORD
|
||||||
LDIR
|
LDIR
|
||||||
@ -147,7 +147,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 +172,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
|
||||||
; ãáâ ®¢ª ¢ë¡®à ä ©«
|
; ãáâ ®¢ª ¢ë¡®à ä ©«
|
||||||
@ -682,7 +682,7 @@ SUB_SIZE: EX AF,AF' ; [ ] fat32
|
|||||||
IF MARK_DIR
|
IF MARK_DIR
|
||||||
; ¯®¤áç¥â ¢ ¡ ©â å à §¬¥à ®â¬¥ç¥®© ¤¨à¥ªâ®à¨¨
|
; ¯®¤áç¥â ¢ ¡ ©â å à §¬¥à ®â¬¥ç¥®© ¤¨à¥ªâ®à¨¨
|
||||||
; HL - ¤à¥á ®¯¨á â¥«ï ¤¨àë ¢ áâà ¨æ¥ ¯ ¥«¨ ª®â®àãî ¬¥àïâì
|
; HL - ¤à¥á ®¯¨á â¥«ï ¤¨àë ¢ áâà ¨æ¥ ¯ ¥«¨ ª®â®àãî ¬¥àïâì
|
||||||
COUNTING_DIR
|
CountingDirR
|
||||||
|
|
||||||
.OLDPATH EQU WorkBuffer + 0x300 ; á®åà ¥ë© â¥ªã騩 ¯ãâì
|
.OLDPATH EQU WorkBuffer + 0x300 ; á®åà ¥ë© â¥ªã騩 ¯ãâì
|
||||||
.CURRPATH EQU WorkBuffer + 0x200 ; ¢à¥¬¥®© ⥪ã騩 ¯ãâì
|
.CURRPATH EQU WorkBuffer + 0x200 ; ¢à¥¬¥®© ⥪ã騩 ¯ãâì
|
||||||
@ -692,7 +692,7 @@ COUNTING_DIR
|
|||||||
PUSH HL
|
PUSH HL
|
||||||
PUSH BC
|
PUSH BC
|
||||||
GETPORT WINSP.CPU3
|
GETPORT WINSP.CPU3
|
||||||
PUSH AF
|
PUSH AF ; ⥪ã騩 ®¬¥à áâà ¨æë
|
||||||
PUSH HL
|
PUSH HL
|
||||||
BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
BIT PANELFLAG.B_SIDE,(IY + PANEL.PANELFLAG)
|
||||||
LD A,(RAMPAGES.LEFTPANEL)
|
LD A,(RAMPAGES.LEFTPANEL)
|
||||||
@ -704,8 +704,9 @@ COUNTING_DIR
|
|||||||
LD H,A
|
LD H,A
|
||||||
LD L,A
|
LD L,A
|
||||||
LD IXH,A ; ®¡ã«¥¨¥ ãà®¢ï ¢å®¦¤¥¨ï ¢ ¤¨àë
|
LD IXH,A ; ®¡ã«¥¨¥ ãà®¢ï ¢å®¦¤¥¨ï ¢ ¤¨àë
|
||||||
LD (.FILES_SIZE),HL
|
LD (JUMPS.FILES_BYTES),HL
|
||||||
LD (.FILES_SIZE + 2),HL ; ®¡ã«¥¨¥ à §¬¥à ¤¨àë
|
LD (JUMPS.FILES_BYTES + 2),HL ; ®¡ã«¥¨¥ à §¬¥à ¤¨àë
|
||||||
|
LD (JUMPS.FILES_COUNT),HL ; ®¡ã«¥¨¥ ª®«¨ç¥áâ¢ ä ©«®¢
|
||||||
LD HL,CPU3
|
LD HL,CPU3
|
||||||
LD (.CURR_DIRNAME),HL
|
LD (.CURR_DIRNAME),HL
|
||||||
; á®åà ¥¨¥ ⥪ã饣® ¯ã⨠¤«ï ¢®§¢à â
|
; á®åà ¥¨¥ ⥪ã饣® ¯ã⨠¤«ï ¢®§¢à â
|
||||||
@ -728,7 +729,7 @@ COUNTING_DIR
|
|||||||
LDIR ; § ¡à «¨ ¨¬ï ¤¨àë ¤«ï ¨§¬¥à¥¨ï
|
LDIR ; § ¡à «¨ ¨¬ï ¤¨àë ¤«ï ¨§¬¥à¥¨ï
|
||||||
LD A,(RAMPAGES.FLX)
|
LD A,(RAMPAGES.FLX)
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
CALL .ADD_2DOT ; ¢®§¢à â ¢ ¯à¥¤ë¤ãéãî ¤¨àã
|
CALL .ADD_2DOT ; ¤«ï ¢®§¢à â ¢ ¯à¥¤ë¤ãéãî ¤¨àã
|
||||||
POP HL
|
POP HL
|
||||||
LD DE,(.CURR_DIRNAME)
|
LD DE,(.CURR_DIRNAME)
|
||||||
LD BC,FileHDR.Name_Size
|
LD BC,FileHDR.Name_Size
|
||||||
@ -738,7 +739,7 @@ COUNTING_DIR
|
|||||||
LD (DE),A
|
LD (DE),A
|
||||||
CALL .SET_PATH ; ãáâ ®¢ª ⥪ã饣® ¯ãâ¨
|
CALL .SET_PATH ; ãáâ ®¢ª ⥪ã饣® ¯ãâ¨
|
||||||
INC IXH ; á«¥¤ãî騩 ã஢¥ì ¤¨àë
|
INC IXH ; á«¥¤ãî騩 ã஢¥ì ¤¨àë
|
||||||
.CONTINUE CALL .ADD_2DOT
|
.CONTINUE CALL .ADD_2DOT ; ¤«ï ¢®§¢à â ¢ ¯à¥¤ë¤ãéãî ¤¨àã
|
||||||
CALL .COUNT_FILES
|
CALL .COUNT_FILES
|
||||||
LD A,IXL
|
LD A,IXL
|
||||||
AND A ; §¤¥áì ¤¨àë ¥áâì?
|
AND A ; §¤¥áì ¤¨àë ¥áâì?
|
||||||
@ -775,6 +776,7 @@ COUNTING_DIR
|
|||||||
POP IX
|
POP IX
|
||||||
RET
|
RET
|
||||||
|
|
||||||
|
; ¢ë室 ¢ ¯à¥¤ë¤ãéãî ¤¨àã
|
||||||
.GET_NAME LD HL,(.CURR_DIRNAME)
|
.GET_NAME LD HL,(.CURR_DIRNAME)
|
||||||
LD (HL),0
|
LD (HL),0
|
||||||
LD DE,-FileHDR.Name_Size
|
LD DE,-FileHDR.Name_Size
|
||||||
@ -808,7 +810,7 @@ COUNTING_DIR
|
|||||||
POP IX
|
POP IX
|
||||||
RET
|
RET
|
||||||
|
|
||||||
; ¤®¡ ¢«¥¨¥ ¨¬¥¨ ¤¨àë ¤«ï ¢ë室 ¢ ¯à¥¤ë¤ãéãî ¤¨àã
|
; ¤®¡ ¢«¥¨¥ ¨¬¥¨ ¤¨àë ".." ¤«ï ¢ë室 ¢ ¯à¥¤ë¤ãéãî ¤¨àã
|
||||||
.ADD_2DOT PUSH HL
|
.ADD_2DOT PUSH HL
|
||||||
LD HL,.RET_DIR
|
LD HL,.RET_DIR
|
||||||
LD DE,(.CURR_DIRNAME)
|
LD DE,(.CURR_DIRNAME)
|
||||||
@ -822,19 +824,20 @@ COUNTING_DIR
|
|||||||
; ¨ ¢ë£à¥¡ ¥¬ ¨¬¥ ¤¨à ¢ â ¡«¨çªã
|
; ¨ ¢ë£à¥¡ ¥¬ ¨¬¥ ¤¨à ¢ â ¡«¨çªã
|
||||||
.COUNT_FILES LD IXL,0 ; ª®«¨ç¥á⢮ ¤¨à ¢ ⥪ã饩 ¤¨à¥
|
.COUNT_FILES LD IXL,0 ; ª®«¨ç¥á⢮ ¤¨à ¢ ⥪ã饩 ¤¨à¥
|
||||||
CALL .F_FIRST ; ¨é¥¬ ¯¥à¢ë© ®¯¨á ⥫ì
|
CALL .F_FIRST ; ¨é¥¬ ¯¥à¢ë© ®¯¨á ⥫ì
|
||||||
RET C
|
RET C ; ¢ë室 ¥á«¨ ¨ç¥£® ¥ ©¤¥®
|
||||||
.L2 LD DE,FFIRST.Attr
|
.L2 LD DE,FFIRST.Attr
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD A,(HL)
|
LD A,(HL)
|
||||||
SBC HL,DE
|
SBC HL,DE
|
||||||
BIT DIR.B_Dir,A
|
BIT DIR.B_Dir,A
|
||||||
JR Z,.L4
|
JR Z,.ADD_FILES_BYTES
|
||||||
; ¤«ï ¤¨àë ª®¯¨à㥬 ¨¬ï ¢ â ¡«¨çªã
|
; ¤«ï ¤¨àë ª®¯¨à㥬 ¨¬ï ¢ â ¡«¨çªã
|
||||||
LD DE,FFIRST.Name
|
LD DE,FFIRST.Name
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD A,(HL)
|
LD A,(HL)
|
||||||
CP '.' ; . ¨ .. ¯à®¯ã᪠¥¬
|
CP '.' ; . ¨ .. ¯à®¯ã᪠¥¬
|
||||||
JR Z,.L5
|
JR Z,.L5
|
||||||
|
; ¤«ï ¤¨àë ª®¯¨à㥬 ¨¬ï ¢ â ¡«¨çªã
|
||||||
LD DE,(.CURR_DIRNAME)
|
LD DE,(.CURR_DIRNAME)
|
||||||
LD BC,FFIRST.Name_Size
|
LD BC,FFIRST.Name_Size
|
||||||
LDIR
|
LDIR
|
||||||
@ -843,14 +846,19 @@ COUNTING_DIR
|
|||||||
JR .L5
|
JR .L5
|
||||||
|
|
||||||
; ¤«ï ä ©« ¤®¡ ¢«ï¥¬ ¤«¨ã
|
; ¤«ï ä ©« ¤®¡ ¢«ï¥¬ ¤«¨ã
|
||||||
.L4 LD DE,FFIRST.FileSize
|
.ADD_FILES_BYTES:
|
||||||
|
LD DE,FFIRST.FileSize
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
CALL GET_DWORD ; ¢§ïâì à §¬¥à ¨§ ®¯¨á ⥫ï
|
CALL GET_DWORD ; ¢§ïâì à §¬¥à ¨§ ®¯¨á ⥫ï
|
||||||
LD HL,.FILES_SIZE
|
LD HL,JUMPS.FILES_BYTES
|
||||||
PUSH HL
|
PUSH HL
|
||||||
CALL BCDEHLP ; ¤®¡ ¢¨«¨ ª ⥪ã饬ã à §¬¥àã
|
CALL BCDEHLP ; ¤®¡ ¢¨«¨ ª ⥪ã饬ã à §¬¥àã
|
||||||
POP HL
|
POP HL
|
||||||
CALL SET_DWORD ; ¯®«®¦¨«¨ ®¡à â®
|
CALL SET_DWORD ; ¯®«®¦¨«¨ ®¡à â®
|
||||||
|
LD HL,(JUMPS.FILES_COUNT)
|
||||||
|
INC HL
|
||||||
|
LD (JUMPS.FILES_COUNT),HL ; ¨ªà¥¬¥â ª®«¨ç¥áâ¢ ä ©«®¢
|
||||||
|
; ¨é¥¬ á«¥¤ãî騩 ®¯¨á ⥫ì
|
||||||
.L5 CALL .F_NEXT
|
.L5 CALL .F_NEXT
|
||||||
JR NC,.L2
|
JR NC,.L2
|
||||||
RET
|
RET
|
||||||
@ -879,7 +887,8 @@ COUNTING_DIR
|
|||||||
POP HL
|
POP HL
|
||||||
RET
|
RET
|
||||||
|
|
||||||
.FILES_SIZE DD 0
|
;.FILES_SIZE DD 0
|
||||||
|
;.FILES_COUNT DW 0
|
||||||
.FILES_MASK DZ "*.*"
|
.FILES_MASK DZ "*.*"
|
||||||
.RET_DIR DZ ".. "
|
.RET_DIR DZ ".. "
|
||||||
.DIR_NAME DZ " "
|
.DIR_NAME DZ " "
|
||||||
@ -890,11 +899,11 @@ COUNTING_DIR
|
|||||||
; HL - ¤à¥á ®¯¨á â¥«ï ¤¨àë ¢ áâà ¨æ¥ ¯ ¥«¨ ª®â®àãî ¬¥àïâì
|
; HL - ¤à¥á ®¯¨á â¥«ï ¤¨àë ¢ áâà ¨æ¥ ¯ ¥«¨ ª®â®àãî ¬¥àïâì
|
||||||
; <20> ¢ë室¥:
|
; <20> ¢ë室¥:
|
||||||
; BCDE' - à §¬¥à ¢ ¡ ©â å
|
; BCDE' - à §¬¥à ¢ ¡ ©â å
|
||||||
GetDirSizeR CALL COUNTING_DIR
|
;GetDirSizeR CALL CountingDirR
|
||||||
LD HL,COUNTING_DIR.FILES_SIZE
|
; LD HL,JUMPS.FILES_BYTES
|
||||||
CALL GET_DWORD
|
; CALL GET_DWORD
|
||||||
EXX
|
; EXX
|
||||||
RET
|
; RET
|
||||||
|
|
||||||
; ᮧ¤ ¨¥ ¯ ¯®ª ¯à¨¥¬¨ª¥
|
; ᮧ¤ ¨¥ ¯ ¯®ª ¯à¨¥¬¨ª¥
|
||||||
; HL - ¤à¥á ®¯¨á â¥«ï ¤¨àë ¢ áâà ¨æ¥ ¯ ¥«¨ ª®â®àãî ª®¯¨à®¢ âì
|
; HL - ¤à¥á ®¯¨á â¥«ï ¤¨àë ¢ áâà ¨æ¥ ¯ ¥«¨ ª®â®àãî ª®¯¨à®¢ âì
|
||||||
@ -917,7 +926,8 @@ MkdirsDstR
|
|||||||
JR Z,.L1
|
JR Z,.L1
|
||||||
LD DE,LeftPanel ; ¤«ï ¯ã⨠ªã¤ ª®¯¨à®¢ âì
|
LD DE,LeftPanel ; ¤«ï ¯ã⨠ªã¤ ª®¯¨à®¢ âì
|
||||||
LD A,(RAMPAGES.RIGHTPANEL) ; ¨§ ª ª®© áâà ¨æë ¯ ¥«¨ ¡à âì ¯ãâì
|
LD A,(RAMPAGES.RIGHTPANEL) ; ¨§ ª ª®© áâà ¨æë ¯ ¥«¨ ¡à âì ¯ãâì
|
||||||
.L1 ; ¢ª«îç ¥¬ ¯ £ã á ¤¨à¥ªâ®à¨¥© ⥪ã饩 ¯ ¥«¨
|
.L1
|
||||||
|
; ¢ª«îç ¥¬ ¯ £ã á ¤¨à¥ªâ®à¨¥© ⥪ã饩 ¯ ¥«¨
|
||||||
SETPORT WINSP.CPU3,,0
|
SETPORT WINSP.CPU3,,0
|
||||||
LD HL,PANEL.CURR_PATH
|
LD HL,PANEL.CURR_PATH
|
||||||
ADD HL,DE ; ®âªã¤ ¯ãâì ¯à¨¥¬¨ª ¢§ïâì
|
ADD HL,DE ; ®âªã¤ ¯ãâì ¯à¨¥¬¨ª ¢§ïâì
|
||||||
@ -934,11 +944,11 @@ MkdirsDstR
|
|||||||
INC HL
|
INC HL
|
||||||
SPDSS DSSF.CURDIR
|
SPDSS DSSF.CURDIR
|
||||||
POP DE ; ¤à¥á ®¯¨á â¥«ï ¤¨àë ¢ áâà ¨æ¥ ¯ ¥«¨ ª®â®àãî ª®¯¨à®¢ âì
|
POP DE ; ¤à¥á ®¯¨á â¥«ï ¤¨àë ¢ áâà ¨æ¥ ¯ ¥«¨ ª®â®àãî ª®¯¨à®¢ âì
|
||||||
; JP C,ERROR ;COUNTING_DIR.END_COUNT
|
; JP C,ERROR ;CountingDirR.END_COUNT
|
||||||
; ª®¯¨à®¢ ¨¥ ¨¬¥¨ ¤¨à¥ªâ®à¨¨ ¤«ï ª®¯¨à®¢ ¨ï
|
; ª®¯¨à®¢ ¨¥ ¨¬¥¨ ¤¨à¥ªâ®à¨¨ ¤«ï ª®¯¨à®¢ ¨ï
|
||||||
LD HL,FileHDR.Name
|
LD HL,FileHDR.Name
|
||||||
ADD HL,DE
|
ADD HL,DE
|
||||||
LD DE,COUNTING_DIR.DIR_NAME
|
LD DE,CountingDirR.DIR_NAME
|
||||||
LD BC,FileHDR.Name_Size
|
LD BC,FileHDR.Name_Size
|
||||||
LDIR ; § ¡à «¨ ¨¬ï ¤¨àë ¤«ï ª®¯¨à®¢ ¨ï
|
LDIR ; § ¡à «¨ ¨¬ï ¤¨àë ¤«ï ª®¯¨à®¢ ¨ï
|
||||||
EX DE,HL
|
EX DE,HL
|
||||||
@ -950,12 +960,12 @@ MkdirsDstR
|
|||||||
LD (.ENDPATHSRC),DE ; ¤à¥á 墮áâ ¯ã⨠¨áâ®ç¨ª
|
LD (.ENDPATHSRC),DE ; ¤à¥á 墮áâ ¯ã⨠¨áâ®ç¨ª
|
||||||
; ¤®¡ ¢«¥¨¥ ¨¬¥¨ ¤¨àë ¤«ï ª®¯¨à®¢ ¨ï ¢ ¯ãâì ¨áâ®ç¨ª
|
; ¤®¡ ¢«¥¨¥ ¨¬¥¨ ¤¨àë ¤«ï ª®¯¨à®¢ ¨ï ¢ ¯ãâì ¨áâ®ç¨ª
|
||||||
LD HL,(.ENDPATHSRC)
|
LD HL,(.ENDPATHSRC)
|
||||||
LD DE,COUNTING_DIR.DIR_NAME
|
LD DE,CountingDirR.DIR_NAME
|
||||||
CALL .ADDNAME2PATH
|
CALL .ADDNAME2PATH
|
||||||
LD (.ENDPATHSRC),DE ; ¤à¥á 墮áâ ¯ã⨠¨áâ®ç¨ª
|
LD (.ENDPATHSRC),DE ; ¤à¥á 墮áâ ¯ã⨠¨áâ®ç¨ª
|
||||||
; ¤®¡ ¢«¥¨¥ ¨¬¥¨ ¤¨àë ¤«ï ª®¯¨à®¢ ¨ï ¢ ¯ãâì ¯à¨¥¬¨ª
|
; ¤®¡ ¢«¥¨¥ ¨¬¥¨ ¤¨àë ¤«ï ª®¯¨à®¢ ¨ï ¢ ¯ãâì ¯à¨¥¬¨ª
|
||||||
LD HL,(.ENDPATHDST)
|
LD HL,(.ENDPATHDST)
|
||||||
LD DE,COUNTING_DIR.DIR_NAME
|
LD DE,CountingDirR.DIR_NAME
|
||||||
CALL .ADDNAME2PATH
|
CALL .ADDNAME2PATH
|
||||||
LD (.ENDPATHDST),DE
|
LD (.ENDPATHDST),DE
|
||||||
|
|
||||||
@ -994,7 +1004,7 @@ MkdirsDstR
|
|||||||
JR .L2 ; ¨é¥¬ á«¥¤ãî騩
|
JR .L2 ; ¨é¥¬ á«¥¤ãî騩
|
||||||
|
|
||||||
; § ¢¥à襨¥ ¨ ¢ë室
|
; § ¢¥à襨¥ ¨ ¢ë室
|
||||||
JP COUNTING_DIR.END_COUNT;RestoreDIR
|
JP CountingDirR.END_COUNT;RestoreDIR
|
||||||
|
|
||||||
; LD A,(RAMPAGES.FLX)
|
; LD A,(RAMPAGES.FLX)
|
||||||
; SETPORT WINSP.CPU3,,0
|
; SETPORT WINSP.CPU3,,0
|
||||||
@ -1004,7 +1014,7 @@ MkdirsDstR
|
|||||||
|
|
||||||
; ¯®¨áª ¯¥à¢®© ¤¨àë ¢ ⥪ã饩 ¯®¤¤¨à¥ªâ®à¨¨
|
; ¯®¨áª ¯¥à¢®© ¤¨àë ¢ ⥪ã饩 ¯®¤¤¨à¥ªâ®à¨¨
|
||||||
.FINDFIRSTSRCDIR
|
.FINDFIRSTSRCDIR
|
||||||
LD HL,COUNTING_DIR.FILES_MASK
|
LD HL,CountingDirR.FILES_MASK
|
||||||
LD DE,.FINDBUF
|
LD DE,.FINDBUF
|
||||||
SPDSS DSSF.F_FIRST,1,DIR.M_Dir
|
SPDSS DSSF.F_FIRST,1,DIR.M_Dir
|
||||||
RET
|
RET
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user