programs/fs: Post-SVN tidy

- Tidy `build_all.bat` build file; comment out absent programs.

data/Tupfile.lua

@@ -154,7 +154,7 @@ extra_files = {
  {"kolibrios/3D/info3ds/INFO3DS.INI", SRC_PROGS .. "/develop/info3ds/info3ds.ini"},
  {"kolibrios/3D/info3ds/OBJECTS.PNG", SRC_PROGS .. "/develop/info3ds/objects.png"},
  {"kolibrios/3D/info3ds/TOOLBAR.PNG", SRC_PROGS .. "/develop/info3ds/toolbar.png"},
- {"kolibrios/3D/info3ds/FONT8X9.BMP", SRC_PROGS .. "/fs/kfar/trunk/font8x9.bmp"},
+ {"kolibrios/3D/info3ds/FONT8X9.BMP", SRC_PROGS .. "/fs/kfar/font8x9.bmp"},
  {"kolibrios/3D/blocks/blocks.kex", "../programs/bcc32/games/blocks/bin/blocks.kex"},
  {"kolibrios/3D/blocks/models/", "../programs/bcc32/games/blocks/models/*"},
  {"kolibrios/3D/md2view/", "common/3d/md2view/*"},
@@ -164,7 +164,7 @@ extra_files = {
  {"kolibrios/3D/voxel_editor/HOUSE2.VOX", SRC_PROGS .. "/media/voxel_editor/trunk/house2.vox"},
  {"kolibrios/3D/voxel_editor/SQUIRREL.VOX", SRC_PROGS .. "/media/voxel_editor/trunk/squirrel.vox"},
  {"kolibrios/3D/voxel_utilites/VOX_MOVER.INI" , SRC_PROGS .. "/media/voxel_editor/utilites/vox_mover.ini"},
- {"kolibrios/3D/FONT8X9.BMP", SRC_PROGS .. "/fs/kfar/trunk/font8x9.bmp"},
+ {"kolibrios/3D/FONT8X9.BMP", SRC_PROGS .. "/fs/kfar/font8x9.bmp"},
  {"kolibrios/3D/TOOLB_1.PNG", SRC_PROGS .. "/develop/libraries/TinyGL/asm_fork/examples/toolb_1.png"},
  {"kolibrios/3D/TEST_GLU1", VAR_PROGS .. "/develop/libraries/TinyGL/asm_fork/examples/test_glu1"},
  {"kolibrios/3D/TEST_GLU2", VAR_PROGS .. "/develop/libraries/TinyGL/asm_fork/examples/test_glu2"},
@@ -294,8 +294,8 @@ extra_files = {
  {"kolibrios/utils/cnc_editor/cnc_editor", VAR_PROGS .. "/other/cnc_editor/cnc_editor"},
  {"kolibrios/utils/cnc_editor/kolibri.NC", SRC_PROGS .. "/other/cnc_editor/kolibri.NC"},
  {"kolibrios/utils/kfm/kfm.ini", "common/File Managers/kfm.ini"},
- {"kolibrios/utils/kfm/kfm_keys_eng.txt", SRC_PROGS .. "/fs/kfm/trunk/docs/english/kfm_keys.txt"},
+ {"kolibrios/utils/kfm/kfm_keys_eng.txt", SRC_PROGS .. "/fs/kfm/docs/english/kfm_keys.txt"},
- {"kolibrios/utils/kfm/kfm_keys_rus.txt", SRC_PROGS .. "/fs/kfm/trunk/docs/russian/dos_kolibri/kfm_keys.txt"},
+ {"kolibrios/utils/kfm/kfm_keys_rus.txt", SRC_PROGS .. "/fs/kfm/docs/russian/dos_kolibri/kfm_keys.txt"},
  {"kolibrios/utils/fNav/", "common/File Managers/fNav/*"},
  {"kolibrios/utils/NDN/", "common/File Managers/ndn/*"},
  {"kolibrios/utils/NDN/COLORS/", "common/File Managers/ndn/COLORS/*"},
@@ -486,7 +486,7 @@ tup.append_table(img_files, {
  {"DEVELOP/EXAMPLES/CONGET", VAR_PROGS .. "/develop/libraries/console_coff/examples/test_gets"},
  {"DEVELOP/EXAMPLES/CSLIDE", VAR_PROGS .. "/demos/cslide/trunk/cslide"},
  {"DEVELOP/EXAMPLES/THREAD", VAR_PROGS .. "/develop/examples/thread/trunk/thread"},
- {"File Managers/KFAR", VAR_PROGS .. "/fs/kfar/trunk/kfar"},
+ {"File Managers/KFAR", VAR_PROGS .. "/fs/kfar/kfar"},
  {"File Managers/OPENDIAL", VAR_PROGS .. "/fs/opendial/opendial"},
  {"LOD", VAR_PROGS .. "/fs/lod/lod"},
  {"GAMES/15", VAR_PROGS .. "/games/15/15"},
@@ -505,7 +505,7 @@ tup.append_table(img_files, {
  {"GAMES/TANKS", VAR_PROGS .. "/games/tanks/tanks"},
  {"GAMES/TETRIS", VAR_PROGS .. "/games/tetris/tetris"},
  {"GAMES/C4", VAR_PROGS .. "/games/c4/c4"},
- {"LIB/ARCHIVER.OBJ", VAR_PROGS .. "/fs/kfar/trunk/kfar_arc/kfar_arc.obj"},
+ {"LIB/ARCHIVER.OBJ", VAR_PROGS .. "/fs/kfar/kfar_arc/kfar_arc.obj"},
  {"LIB/BOX_LIB.OBJ", VAR_PROGS .. "/develop/libraries/box_lib/trunk/box_lib.obj"},
  {"LIB/BUF2D.OBJ", VAR_PROGS .. "/develop/libraries/buf2d/trunk/buf2d.obj"},
  {"LIB/CONSOLE.OBJ", VAR_PROGS .. "/develop/libraries/console_coff/console.obj"},
@@ -628,7 +628,7 @@ tup.append_table(extra_files, {
  {"kolibrios/media/zsea/plugins/rotate.obj", VAR_PROGS .. "/media/zsea/plugins/rotate/rotate.obj"},
  {"kolibrios/media/zsea/plugins/scaling.obj", VAR_PROGS .. "/media/zsea/plugins/scaling/scaling.obj"},
  {"kolibrios/utils/AMDtemp", VAR_PROGS .. "/system/amd_temp_view/AMDtemp"},
- {"kolibrios/utils/kfm/kfm", VAR_PROGS .. "/fs/kfm/trunk/kfm"},
+ {"kolibrios/utils/kfm/kfm", VAR_PROGS .. "/fs/kfm/kfm"},
  {"kolibrios/utils/tedit/t_edit", VAR_PROGS .. "/other/t_edit/t_edit"},
  {"kolibrios/3D/blocks/block.bin", VAR_PROGS .. "/bcc32/games/blocks/block.bin"}
 })

programs/build_all.bat

@@ -111,11 +111,11 @@ fasm develop\libraries\libs-dev\libio\libio.asm %BIN%\lib\libio.obj
 echo *
 echo Building fs
 echo *
-fasm fs\copy2\trunk\copy2.asm %BIN%\copy2
+rem fasm fs\copy2\trunk\copy2.asm %BIN%\copy2
-fasm fs\copyr\trunk\copyr.asm %BIN%\copyr
+fasm fs\copyr\copyr.asm %BIN%\copyr
-fasm fs\kfar\trunk\kfar.asm %BIN%\kfar
+fasm fs\kfar\kfar.asm %BIN%\kfar
 rem fasm fs\mfar\trunk\mfar.asm %BIN%\mfar
-fasm fs\sysxtree\trunk\sysxtree.asm %BIN%\sysxtree
+rem fasm fs\sysxtree\trunk\sysxtree.asm %BIN%\sysxtree
 
 echo *
 echo Building network

programs/develop/info3ds/build_en.bat

@@ -4,7 +4,7 @@ if not exist bin mkdir bin
 @copy objects.png bin\objects.png
 if not exist bin\info3ds.ini @copy info3ds.ini bin\info3ds.ini
 if not exist bin\toolbar.png @copy toolbar.png bin\toolbar.png
-if not exist bin\font8x9.bmp @copy ..\..\fs\kfar\trunk\font8x9.bmp bin\font8x9.bmp
+if not exist bin\font8x9.bmp @copy ..\..\fs\kfar\font8x9.bmp bin\font8x9.bmp
 @fasm.exe -m 16384 info3ds.asm bin\info3ds.kex
 @kpack bin\info3ds.kex
 @fasm.exe -m 16384 info3ds_u.asm bin\info3ds_u.kex

programs/develop/info3ds/build_ru.bat

@@ -4,7 +4,7 @@ if not exist bin mkdir bin
 @copy objects.png bin\objects.png
 if not exist bin\info3ds.ini @copy info3ds.ini bin\info3ds.ini
 if not exist bin\toolbar.png @copy toolbar.png bin\toolbar.png
-if not exist bin\font8x9.bmp @copy ..\..\fs\kfar\trunk\font8x9.bmp bin\font8x9.bmp
+if not exist bin\font8x9.bmp @copy ..\..\fs\kfar\font8x9.bmp bin\font8x9.bmp
 @fasm.exe -m 16384 info3ds.asm bin\info3ds.kex
 @kpack bin\info3ds.kex
 @fasm.exe -m 16384 info3ds_u.asm bin\info3ds_u.kex

programs/develop/kol_f_edit/build.bat

@@ -8,8 +8,8 @@ if not exist bin\icon.bmp @copy icon.bmp bin\icon.bmp
 if not exist bin\base.bmp @copy base.bmp bin\base.bmp
 if not exist bin\left.bmp @copy left.bmp bin\left.bmp
 if not exist bin\oper.bmp @copy oper.bmp bin\oper.bmp
-if not exist bin\font6x9.bmp @copy ..\..\fs\kfar\trunk\font6x9.bmp bin\font6x9.bmp
+if not exist bin\font6x9.bmp @copy ..\..\fs\kfar\font6x9.bmp bin\font6x9.bmp
 if not exist bin\asm.syn @copy ..\..\other\t_edit\info\asm.syn bin\asm.syn
 
 copy *.ced bin\*.ced
-pause
+pause

programs/develop/libraries/TinyGL/asm_fork/examples/build.bat

@@ -1,6 +1,6 @@
 if not exist bin mkdir bin
 @copy *.png bin\*.png
-if not exist bin\font8x9.bmp @copy ..\..\..\..\..\fs\kfar\trunk\font8x9.bmp bin\font8x9.bmp
+if not exist bin\font8x9.bmp @copy ..\..\..\..\..\fs\kfar\font8x9.bmp bin\font8x9.bmp
 if not exist bin\tinygl.obj @fasm.exe -m 16384 ..\tinygl.asm bin\tinygl.obj
 
 @fasm.exe -m 16384 test0.asm bin\test0.kex
@@ -38,4 +38,4 @@ if not exist bin\tinygl.obj @fasm.exe -m 16384 ..\tinygl.asm bin\tinygl.obj
 @kpack bin\textures1.kex
 @kpack bin\textures2.kex
 
-pause
+pause

programs/develop/libraries/buf2d/trunk/examples/build.bat

@@ -1,6 +1,6 @@
 if not exist bin mkdir bin
 
-if not exist bin\font8x9.bmp @copy ..\..\..\..\..\fs\kfar\trunk\font8x9.bmp bin\font8x9.bmp
+if not exist bin\font8x9.bmp @copy ..\..\..\..\..\fs\kfar\font8x9.bmp bin\font8x9.bmp
 @copy foto.jpg bin\foto.jpg
 @copy img0.png bin\img0.png
 @copy img1.png bin\img1.png
@@ -25,4 +25,4 @@ if not exist bin\vaz2106.vox @copy ..\..\..\..\..\media\voxel_editor\trunk\vaz21
 @kpack bin\e6_vox_1g.kex
 @kpack bin\e7_vox_3g.kex
 @kpack bin\e8_filters.kex
-pause
+pause

programs/develop/libraries/crypt_des/example/build.bat

@@ -2,7 +2,7 @@ if not exist bin mkdir bin
 @fasm.exe -m 16384 crypt_files.asm bin\crypt_files.kex
 @kpack bin\crypt_files.kex
 if not exist bin\toolbar.png @copy toolbar.png bin\toolbar.png
-if not exist bin\font8x9.bmp @copy ..\..\..\..\fs\kfar\trunk\font8x9.bmp bin\font8x9.bmp
+if not exist bin\font8x9.bmp @copy ..\..\..\..\fs\kfar\font8x9.bmp bin\font8x9.bmp
 @fasm.exe -m 16384 ..\trunk\crypt_des.asm bin\crypt_des.obj
 @kpack bin\crypt_des.obj
-pause
+pause

programs/develop/libraries/exif/examples/build.bat

@@ -2,7 +2,7 @@ if not exist bin mkdir bin
 @fasm.exe -m 16384 viev_exif.asm bin\viev_exif.kex
 @kpack bin\viev_exif.kex
 if not exist bin\toolbar.png @copy toolbar.png bin\toolbar.png
-if not exist bin\font8x9.bmp @copy ..\..\..\..\fs\kfar\trunk\font8x9.bmp bin\font8x9.bmp
+if not exist bin\font8x9.bmp @copy ..\..\..\..\fs\kfar\font8x9.bmp bin\font8x9.bmp
 @fasm.exe -m 16384 ..\trunk\exif.asm bin\exif.obj
 @kpack bin\exif.obj
-pause
+pause

programs/develop/libraries/libs-dev/libimg/png/libpng/png.asm

@@ -1,4 +1,3 @@
-
 ; png.asm - location for general purpose libpng functions
 
 ; Last changed in libpng 1.6.25 [September 1, 2016]
@@ -13,7 +12,7 @@
 DEBUG equ 0
 
 include '../../../../../../KOSfuncs.inc'
-include '../../../../../../fs/kfar/trunk/zlib/deflate.inc'
+include '../../../../../../fs/kfar/zlib/deflate.inc'
 include 'pngtokos.inc' ;integrate png to kos
 
 ;files from libpng

programs/develop/libraries/libs-dev/libimg/png/libpng/pngstruct.inc

@@ -21,7 +21,7 @@
 ; in this structure and is required for decompressing the LZ compressed
 ; data in PNG files.
 
-include '../../../../../../fs/kfar/trunk/zlib/zlib.inc'
+include '../../../../../../fs/kfar/zlib/zlib.inc'
 
 ; zlib.inc declares a magic type 'uInt' that limits the amount of data that zlib
 ; can handle at once.  This type need be no larger than 16 bits (so maximum of
@@ -74,7 +74,7 @@ ends
 ; from chromaticities the sum of the Y values is assumed to be 1.0
 
 struct png_XYZ
-	red_X dd ? ;png_fixed_point 
+	red_X dd ? ;png_fixed_point
 	red_Y dd ?
 	red_Z dd ?
 	green_X dd ?

programs/fs/copyr/Tupfile.lua

@@ -1,5 +1,5 @@
 if tup.getconfig("NO_FASM") ~= "" then return end
-HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../.." or tup.getconfig("HELPERDIR")
+HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../.." or tup.getconfig("HELPERDIR")
 tup.include(HELPERDIR .. "/use_fasm.lua")
 add_include(tup.getvariantdir())
 

programs/fs/copyr/copyr.asm

@@ -1,3 +1,9 @@
+; SPDX-License-Identifier: NOASSERTION
+;
+
+; Text encoded with Code Page 866 - Cyrillic
+
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;                                           ;
 ; FILE COPY - system module for copy        ;
@@ -24,7 +30,7 @@
     dd      param_area , 0x0      ; I_Param , I_Icon
 
 include 'lang.inc'              ; Language support for locales: ru_RU (CP866), en_US.
-include '..\..\..\macros.inc'   ; very useful stuff for MeOS
+include '..\..\macros.inc'   ; very useful stuff for MeOS
 include 'ascl.inc'
 
 START:                          ; start of execution

programs/fs/kfar/Tupfile.lua

@@ -1,5 +1,5 @@
 if tup.getconfig("NO_FASM") ~= "" then return end
-HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../.." or tup.getconfig("HELPERDIR")
+HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../.." or tup.getconfig("HELPERDIR")
 tup.include(HELPERDIR .. "/use_fasm.lua")
 add_include(tup.getvariantdir())
 

programs/fs/kfar/kfar.asm

@@ -1,3 +1,9 @@
+; SPDX-License-Identifier: NOASSERTION
+;
+
+; Text encoded with Code Page 866 - Cyrillic
+
+
 use32
         db      'MENUET01'
         dd      1
@@ -15,8 +21,8 @@ max_width = 255
 min_height = 8
 max_height = 255
 
-include '../../../KOSfuncs.inc'
+include '../../KOSfuncs.inc'
-include '../../../macros.inc'
+include '../../macros.inc'
 include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US.
 include 'font.inc'
 include 'sort.inc'

programs/fs/kfar/kfar_arc/Tupfile.lua

@@ -1,5 +1,5 @@
 if tup.getconfig("NO_FASM") ~= "" then return end
-HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../../.." or tup.getconfig("HELPERDIR")
+HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../.." or tup.getconfig("HELPERDIR")
 tup.include(HELPERDIR .. "/use_fasm.lua")
 add_include(tup.getvariantdir())
 

programs/fs/kfar/zlib/zlib.asm

@@ -1,170 +1,171 @@
-
+; SPDX-License-Identifier: NOASSERTION
-include '../../../../proc32.inc'
+;
-include '../../../../macros.inc'
+
-include '../../../../KOSfuncs.inc'
+include '../../../proc32.inc'
-
+include '../../../macros.inc'
-FASTEST equ 0
+include '../../../KOSfuncs.inc'
-GEN_TREES_H equ 0
+
-DEBUG equ 0
+FASTEST equ 0
-DYNAMIC_CRC_TABLE equ 1
+GEN_TREES_H equ 0
-Z_SOLO equ 0
+DEBUG equ 0
-
+DYNAMIC_CRC_TABLE equ 1
-; define NO_GZIP when compiling if you want to disable gzip header and
+Z_SOLO equ 0
-; trailer creation by deflate().  NO_GZIP would be used to avoid linking in
+
-; the crc code when it is not needed.  For shared libraries, gzip encoding
+; define NO_GZIP when compiling if you want to disable gzip header and
-; should be left enabled.
+; trailer creation by deflate().  NO_GZIP would be used to avoid linking in
-GZIP equ 1
+; the crc code when it is not needed.  For shared libraries, gzip encoding
-
+; should be left enabled.
-macro zlib_debug fmt,p1
+GZIP equ 1
-{
+
-if DEBUG eq 1
+macro zlib_debug fmt,p1
-	zlib_assert fmt,p1
+{
-end if
+if DEBUG eq 1
-}
+	zlib_assert fmt,p1
-
+end if
-macro zlib_assert fmt,p1
+}
-{
+
-	local .end_t
+macro zlib_assert fmt,p1
-	local .m_fmt
+{
-pushf
+	local .end_t
-	jmp .end_t
+	local .m_fmt
-	.m_fmt db fmt,13,10,0
+pushf
-align 4
+	jmp .end_t
-	.end_t:
+	.m_fmt db fmt,13,10,0
-if p1 eq
+align 4
-	stdcall dbg_print,0,.m_fmt
+	.end_t:
-else
+if p1 eq
-	stdcall str_format_dbg, buf_param,.m_fmt,p1
+	stdcall dbg_print,0,.m_fmt
-end if
+else
-popf
+	stdcall str_format_dbg, buf_param,.m_fmt,p1
-}
+end if
-
+popf
-include 'zlib.inc'
+}
-include 'deflate.inc'
+
-include 'zutil.asm'
+include 'zlib.inc'
-;include '../kfar_arc/crc.inc'
+include 'deflate.inc'
-include 'crc32.asm'
+include 'zutil.asm'
-include 'adler32.asm'
+;include '../kfar_arc/crc.inc'
-include 'trees.asm'
+include 'crc32.asm'
-include 'deflate.asm'
+include 'adler32.asm'
-
+include 'trees.asm'
-align 4
+include 'deflate.asm'
-buf_param rb 80
+
-
+align 4
-align 4
+buf_param rb 80
-proc dbg_print, fun:dword, mes:dword
+
-pushad
+align 4
-	mov eax,SF_BOARD
+proc dbg_print, fun:dword, mes:dword
-	mov ebx,SSF_DEBUG_WRITE
+pushad
-
+	mov eax,SF_BOARD
-	mov esi,[fun]
+	mov ebx,SSF_DEBUG_WRITE
-	cmp esi,0
+
-	je .end0
+	mov esi,[fun]
-	@@:
+	cmp esi,0
-		mov cl,byte[esi]
+	je .end0
-		int 0x40
+	@@:
-		inc esi
+		mov cl,byte[esi]
-		cmp byte[esi],0
+		int 0x40
-		jne @b
+		inc esi
-	mov cl,':'
+		cmp byte[esi],0
-	int 0x40
+		jne @b
-	mov cl,' '
+	mov cl,':'
-	int 0x40
+	int 0x40
-	.end0:
+	mov cl,' '
-	mov esi,[mes]
+	int 0x40
-	cmp esi,0
+	.end0:
-	je .end_f
+	mov esi,[mes]
-	@@:
+	cmp esi,0
-		mov cl,byte[esi]
+	je .end_f
-		cmp cl,0
+	@@:
-		je .end_f
+		mov cl,byte[esi]
-		int 0x40
+		cmp cl,0
-		inc esi
+		je .end_f
-		jmp @b
+		int 0x40
-	.end_f:
+		inc esi
-popad
+		jmp @b
-	ret
+	.end_f:
-endp
+popad
-
+	ret
-align 4
+endp
-proc str_format_dbg, buf:dword, fmt:dword, p1:dword
+
-pushad
+align 4
-	mov esi,[fmt]
+proc str_format_dbg, buf:dword, fmt:dword, p1:dword
-	mov edi,[buf]
+pushad
-	mov ecx,80-1
+	mov esi,[fmt]
-	.cycle0:
+	mov edi,[buf]
-		lodsb
+	mov ecx,80-1
-		cmp al,'%'
+	.cycle0:
-		jne .no_param
+		lodsb
-			lodsb
+		cmp al,'%'
-			dec ecx
+		jne .no_param
-			cmp al,0
+			lodsb
-			je .cycle0end
+			dec ecx
-			cmp al,'d'
+			cmp al,0
-			je @f
+			je .cycle0end
-			cmp al,'u'
+			cmp al,'d'
-			je @f
+			je @f
-			cmp al,'l'
+			cmp al,'u'
-			je .end1
+			je @f
-				jmp .end0
+			cmp al,'l'
-			.end1: ;%lu %lx
+			je .end1
-				lodsb
+				jmp .end0
-				dec ecx
+			.end1: ;%lu %lx
-				cmp al,'u'
+				lodsb
-				jne .end0
+				dec ecx
-			@@:
+				cmp al,'u'
-				mov eax,[p1]
+				jne .end0
-				stdcall convert_int_to_str,ecx
+			@@:
-				xor al,al
+				mov eax,[p1]
-				repne scasb
+				stdcall convert_int_to_str,ecx
-				dec edi
+				xor al,al
-			.end0:
+				repne scasb
-			loop .cycle0
+				dec edi
-		.no_param:
+			.end0:
-		stosb
+			loop .cycle0
-		cmp al,0
+		.no_param:
-		je .cycle0end
+		stosb
-		loop .cycle0
+		cmp al,0
-	.cycle0end:
+		je .cycle0end
-	xor al,al
+		loop .cycle0
-	stosb
+	.cycle0end:
-	stdcall dbg_print,0,[buf]
+	xor al,al
-popad
+	stosb
-	ret
+	stdcall dbg_print,0,[buf]
-endp
+popad
-
+	ret
-;input:
+endp
-; eax - число
+
-; edi - буфер для строки
+;input:
-; len - длинна буфера
+; eax - число
-;output:
+; edi - буфер для строки
-align 4
+; len - длинна буфера
-proc convert_int_to_str, len:dword
+;output:
-pushad
+align 4
-	mov esi,[len]
+proc convert_int_to_str, len:dword
-	add esi,edi
+pushad
-	dec esi
+	mov esi,[len]
-	call .str
+	add esi,edi
-popad
+	dec esi
-	ret
+	call .str
-endp
+popad
-
+	ret
-align 4
+endp
-.str:
+
-	mov ecx,0x0a
+align 4
-	cmp eax,ecx
+.str:
-	jb @f
+	mov ecx,0x0a
-		xor edx,edx
+	cmp eax,ecx
-		div ecx
+	jb @f
-		push edx
+		xor edx,edx
-		call .str
+		div ecx
-		pop eax
+		push edx
-	@@:
+		call .str
-	cmp edi,esi
+		pop eax
-	jge @f
+	@@:
-		or al,0x30
+	cmp edi,esi
-		stosb
+	jge @f
-		mov byte[edi],0
+		or al,0x30
-	@@:
+		stosb
-	ret
+		mov byte[edi],0
-
+	@@:
+	ret

programs/fs/kfm/Tupfile.lua

@@ -1,5 +1,5 @@
 if tup.getconfig("NO_FASM") ~= "" then return end
-HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../../.." or tup.getconfig("HELPERDIR")
+HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../.." or tup.getconfig("HELPERDIR")
 tup.include(HELPERDIR .. "/use_fasm.lua")
 add_include(tup.getvariantdir())
 

programs/fs/kfm/kfm.asm

@@ -1,399 +1,402 @@
-;*****************************************************************************
+; SPDX-License-Identifier: NOASSERTION
-; KFM - Kolibri File Manager
+;
-; Copyright (c) 2006 - 2014, Marat Zakiyanov aka Mario79, aka Mario
+
-; All rights reserved.
+;*****************************************************************************
-;
+; KFM - Kolibri File Manager
-; Redistribution and use in source and binary forms, with or without
+; Copyright (c) 2006 - 2014, Marat Zakiyanov aka Mario79, aka Mario
-; modification, are permitted provided that the following conditions are met:
+; All rights reserved.
-;        * Redistributions of source code must retain the above copyright
+;
-;          notice, this list of conditions and the following disclaimer.
+; Redistribution and use in source and binary forms, with or without
-;        * Redistributions in binary form must reproduce the above copyright
+; modification, are permitted provided that the following conditions are met:
-;          notice, this list of conditions and the following disclaimer in the
+;        * Redistributions of source code must retain the above copyright
-;          documentation and/or other materials provided with the distribution.
+;          notice, this list of conditions and the following disclaimer.
-;        * Neither the name of the <organization> nor the
+;        * Redistributions in binary form must reproduce the above copyright
-;          names of its contributors may be used to endorse or promote products
+;          notice, this list of conditions and the following disclaimer in the
-;          derived from this software without specific prior written permission.
+;          documentation and/or other materials provided with the distribution.
-;
+;        * Neither the name of the <organization> nor the
-; THIS SOFTWARE IS PROVIDED BY Marat Zakiyanov ''AS IS'' AND ANY
+;          names of its contributors may be used to endorse or promote products
-; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+;          derived from this software without specific prior written permission.
-; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+;
-; DISCLAIMED. IN NO EVENT SHALL <copyright holder> BE LIABLE FOR ANY
+; THIS SOFTWARE IS PROVIDED BY Marat Zakiyanov ''AS IS'' AND ANY
-; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
-; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
-; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+; DISCLAIMED. IN NO EVENT SHALL <copyright holder> BE LIABLE FOR ANY
-; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-;*****************************************************************************
+; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
-; KFM v0.48d 23/12/2021
+; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-;---------------------------------------------------------------------
+; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-use32
+;*****************************************************************************
-org     0x0
+; KFM v0.48d 23/12/2021
-
+;---------------------------------------------------------------------
-    db    'MENUET01'
+use32
-    dd    0x01
+org     0x0
-    dd    START
+
-    dd    I_END
+    db    'MENUET01'
-    dd    mem
+    dd    0x01
-    dd    stacktop
+    dd    START
-    dd    0x0
+    dd    I_END
-    dd    path
+    dd    mem
-
+    dd    stacktop
-;include   'lang.inc'
+    dd    0x0
-;include   'kglobals.inc'
+    dd    path
-;include   'macros.inc'
+
-include '../../../macros.inc'
+;include   'lang.inc'
-include '../../../config.inc'           ;for nightbuild
+;include   'kglobals.inc'
-;include '../../../debug.inc'           ;for nightbuild
+;include   'macros.inc'
-
+include '../../macros.inc'
-;define __DEBUG__ 1
+include '../../config.inc'           ;for nightbuild
-;define __DEBUG_LEVEL__ 1
+;include '../../debug.inc'           ;for nightbuild
-;include '../../../debug-fdo.inc'
+
-
+;define __DEBUG__ 1
-include   'editbox.inc'
+;define __DEBUG_LEVEL__ 1
-;use_edit_box
+;include '../../debug-fdo.inc'
-use_edit_box procinfo
+
-;include   'ASCGL.INC'
+include   'editbox.inc'
-;---------------------------------------------------------------------
+;use_edit_box
-include   'files.inc'
+use_edit_box procinfo
-;---------------------------------------------------------------------
+;include   'ASCGL.INC'
-STRLEN = 1024
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'files.inc'
-START:
+;---------------------------------------------------------------------
-        mcall   9,procinfo,-1
+STRLEN = 1024
-        mov     ecx,[ebx+30]    ; PID
+;---------------------------------------------------------------------
-        mcall   18,21
+START:
-        mov     [active_process],eax    ; WINDOW SLOT
+        mcall   9,procinfo,-1
-    mov   [appl_memory],mem
+        mov     ecx,[ebx+30]    ; PID
-    mov   ax,[select_disk_char]
+        mcall   18,21
-    mov   [read_folder_name],ax
+        mov     [active_process],eax    ; WINDOW SLOT
-    mov   [read_folder_1_name],ax
+    mov   [appl_memory],mem
-    call  load_initiation_file
+    mov   ax,[select_disk_char]
-    call  add_memory_for_folders
+    mov   [read_folder_name],ax
-    call  device_detect_f70
+    mov   [read_folder_1_name],ax
-    call  select_starting_directories
+    call  load_initiation_file
-    mcall 66, 1, 1
+    call  add_memory_for_folders
-    mov   eax,1
+    call  device_detect_f70
-    mov   [left_sort_flag],eax
+    call  select_starting_directories
-    mov   [right_sort_flag],eax
+    mcall 66, 1, 1
-
+    mov   eax,1
-    call  proc_read_left_folder
+    mov   [left_sort_flag],eax
-    test  eax,eax
+    mov   [right_sort_flag],eax
-    jz    @f
+
-
+    call  proc_read_left_folder
-    cmp   eax,6
+    test  eax,eax
-    jne   read_folder_error
+    jz    @f
-@@:
+
-    call  proc_read_right_folder
+    cmp   eax,6
-    test  eax,eax
+    jne   read_folder_error
-    jz    @f
+@@:
-
+    call  proc_read_right_folder
-    cmp   eax,6
+    test  eax,eax
-    je    @f
+    jz    @f
-; if /hd read error for start then use /rd
+
-    mov   esi,retrieved_devices_table+1
+    cmp   eax,6
-    call  copy_folder_name_1
+    je    @f
-    call  proc_read_right_folder
+; if /hd read error for start then use /rd
-    test  eax,eax
+    mov   esi,retrieved_devices_table+1
-    jz    @f
+    call  copy_folder_name_1
-
+    call  proc_read_right_folder
-    cmp   eax,6
+    test  eax,eax
-    jne   read_folder_1_error
+    jz    @f
-@@:
+
-        mcall 40, 0x27
+    cmp   eax,6
-        jmp   red_1
+    jne   read_folder_1_error
-;---------------------------------------------------------------------
+@@:
-red:
+        mcall 40, 0x27
-    call  get_window_param
+        jmp   red_1
-    test  [window_status],10b
+;---------------------------------------------------------------------
-    jnz   red_1   ;still
+red:
-    test  [window_status],100b
+    call  get_window_param
-    jnz   red_1
+    test  [window_status],10b
-    cmp   [window_high],180
+    jnz   red_1   ;still
-    ja    @f
+    test  [window_status],100b
-    mov   esi,180
+    jnz   red_1
-    mcall 67,-1,ebx,ebx
+    cmp   [window_high],180
-@@:
+    ja    @f
-    cmp   [window_width],495
+    mov   esi,180
-    ja    red_1
+    mcall 67,-1,ebx,ebx
-    mov   edx,495
+@@:
-    mcall 67,-1,ebx, ,ebx
+    cmp   [window_width],495
-red_1:
+    ja    red_1
-    call  draw_window
+    mov   edx,495
-;---------------------------------------------------------------------
+    mcall 67,-1,ebx, ,ebx
-still:
+red_1:
-    mcall 10
+    call  draw_window
-
+;---------------------------------------------------------------------
-    call  check_active_process_for_clear_all_flags
+still:
-
+    mcall 10
-    cmp   eax,1
+
-    je    red
+    call  check_active_process_for_clear_all_flags
-    cmp   eax,2
+
-    je    key
+    cmp   eax,1
-    cmp   eax,3
+    je    red
-    je    button
+    cmp   eax,2
-    cmp   eax,6
+    je    key
-    je    mouse
+    cmp   eax,3
-    jmp   still
+    je    button
-;---------------------------------------------------------------------
+    cmp   eax,6
-check_active_process_for_clear_all_flags:
+    je    mouse
-        push    eax
+    jmp   still
-        mcall   18,7
+;---------------------------------------------------------------------
-        cmp     [active_process],eax
+check_active_process_for_clear_all_flags:
-        je      .exit
+        push    eax
-        
+        mcall   18,7
-        xor     eax,eax
+        cmp     [active_process],eax
-        cmp     [shift_flag],al
+        je      .exit
-        jne     .clear_all_flags
+
-        
+        xor     eax,eax
-        cmp     [ctrl_flag],al
+        cmp     [shift_flag],al
-        jne     .clear_all_flags
+        jne     .clear_all_flags
-        
+
-        cmp     [ctrl_flag],al
+        cmp     [ctrl_flag],al
-        je      .exit
+        jne     .clear_all_flags
-;--------------------------------------
+
-.clear_all_flags:
+        cmp     [ctrl_flag],al
-        mov     [shift_flag],al
+        je      .exit
-        mov     [ctrl_flag],al
+;--------------------------------------
-        mov     [alt_flag],al
+.clear_all_flags:
-        call    erase_fbutton
+        mov     [shift_flag],al
-        call    draw_fbutton
+        mov     [ctrl_flag],al
-;--------------------------------------    
+        mov     [alt_flag],al
-.exit:
+        call    erase_fbutton
-        pop     eax
+        call    draw_fbutton
-        ret
+;--------------------------------------
-;---------------------------------------------------------------------
+.exit:
-get_window_param:
+        pop     eax
-    mcall 9, procinfo, -1
+        ret
-    mov   eax,[ebx+46]
+;---------------------------------------------------------------------
-    mov   [window_high],eax
+get_window_param:
-    mov   eax,[ebx+42]
+    mcall 9, procinfo, -1
-    mov   [window_width],eax
+    mov   eax,[ebx+46]
-    mov   eax,[ebx+70]
+    mov   [window_high],eax
-    mov   [window_status],eax
+    mov   eax,[ebx+42]
-    mcall 48,4
+    mov   [window_width],eax
-    mov   [skin_high],eax
+    mov   eax,[ebx+70]
-    ret
+    mov   [window_status],eax
-;---------------------------------------------------------------------
+    mcall 48,4
-draw_window:
+    mov   [skin_high],eax
-    mcall 12, 1
+    ret
-        xor     esi,esi
+;---------------------------------------------------------------------
-    mcall 0, <20,728>, <20,460>, 0x43cccccc   ; 0x805080D0, 0x005080D0
+draw_window:
-    call  get_window_param
+    mcall 12, 1
-
+        xor     esi,esi
-    mcall 71, 1, header_text
+    mcall 0, <20,728>, <20,460>, 0x43cccccc   ; 0x805080D0, 0x005080D0
-
+    call  get_window_param
-        test    [window_status],100b    ; window is rolled up
+
-        jnz     .exit
+    mcall 71, 1, header_text
-
+
-        test    [window_status],10b     ; window is minimized to panel
+        test    [window_status],100b    ; window is rolled up
-        jnz     .exit
+        jnz     .exit
-
+
-    ; create_dir_name
+        test    [window_status],10b     ; window is minimized to panel
-    ; start_parameter
+        jnz     .exit
-    ; file_name
+
-    ; [temp_edi]
+    ; create_dir_name
-    ; header
+    ; start_parameter
-    ; delete_file_data.name
+    ; file_name
-    ; start_file_data.name
+    ; [temp_edi]
-    ; start_parameter
+    ; header
-     ; start_file_data.name
+    ; delete_file_data.name
-      ; read_icon_file.name
+    ; start_file_data.name
-                ; read_file_features.name ;path ;header
+    ; start_parameter
-
+     ; start_file_data.name
-    cmp   [window_high],180
+      ; read_icon_file.name
-    jb    .exit
+                ; read_file_features.name ;path ;header
-    cmp   [window_width],495
+
-    jb    .exit
+    cmp   [window_high],180
-
+    jb    .exit
-    call  draw_fbutton
+    cmp   [window_width],495
-    call  draw_left_panel
+    jb    .exit
-    call  draw_right_panel
+
-    call  draw_device_button
+    call  draw_fbutton
-    call  draw_left_select_disk_button
+    call  draw_left_panel
-    call  draw_left_sort_button
+    call  draw_right_panel
-    call  draw_right_select_disk_button
+    call  draw_device_button
-    call  draw_right_sort_button
+    call  draw_left_select_disk_button
-    call  draw_menu_bar
+    call  draw_left_sort_button
-    call  draw_buttons_panel
+    call  draw_right_select_disk_button
-.exit:
+    call  draw_right_sort_button
-    mcall 12, 2
+    call  draw_menu_bar
-    ret
+    call  draw_buttons_panel
-;---------------------------------------------------------------------
+.exit:
-prepare_load_data:
+    mcall 12, 2
-    mov   esi,path
+    ret
-    mov   edi,file_name
+;---------------------------------------------------------------------
-    call  copy_path
+prepare_load_data:
-    call  get_file_size
+    mov   esi,path
-    test  eax,eax
+    mov   edi,file_name
-    ret
+    call  copy_path
-;---------------------------------------------------------------------
+    call  get_file_size
-prepare_load_data_1:
+    test  eax,eax
-    mov   [read_file.return],eax
+    ret
-    mov   ebp,eax
+;---------------------------------------------------------------------
-prepare_load_data_4:
+prepare_load_data_1:
-    call  load_file
+    mov   [read_file.return],eax
-    test  eax,eax
+    mov   ebp,eax
-    ret
+prepare_load_data_4:
-;---------------------------------------------------------------------
+    call  load_file
-prepare_load_data_2:
+    test  eax,eax
-    call  add_application_memory
+    ret
-prepare_load_data_3:
+;---------------------------------------------------------------------
-    call  add_application_memory
+prepare_load_data_2:
-    mov   eax,[file_features_temp_area+32]
+    call  add_application_memory
-    mov   [read_file.size],eax
+prepare_load_data_3:
-    ret
+    call  add_application_memory
-;---------------------------------------------------------------------
+    mov   eax,[file_features_temp_area+32]
-load_initiation_file:
+    mov   [read_file.size],eax
-    mov   ebx,ini_file_name
+    ret
-    call  prepare_load_data
+;---------------------------------------------------------------------
-    jnz   initiation_error
+load_initiation_file:
-    call  prepare_load_data_3
+    mov   ebx,ini_file_name
-    mov   eax,[appl_memory]
+    call  prepare_load_data
-    mov   [left_folder_data],eax
+    jnz   initiation_error
-    sub   eax,[read_file.size]
+    call  prepare_load_data_3
-    mov   [read_file.return],eax
+    mov   eax,[appl_memory]
-    mov   [ini_file_start],eax
+    mov   [left_folder_data],eax
-    call  load_file
+    sub   eax,[read_file.size]
-    test  eax,eax
+    mov   [read_file.return],eax
-    jnz   initiation_error
+    mov   [ini_file_start],eax
-    mov   ebp,icons_associations
+    call  load_file
-    call  search_star_and_end_tags
+    test  eax,eax
-    mov   eax,[end_tag]
+    jnz   initiation_error
-    mov   [icons_end_tag],eax
+    mov   ebp,icons_associations
-    ret
+    call  search_star_and_end_tags
-;---------------------------------------------------------------------
+    mov   eax,[end_tag]
-add_memory_for_folders:
+    mov   [icons_end_tag],eax
-    mov   ecx,[appl_memory]
+    ret
-    add   ecx,304*32+32
+;---------------------------------------------------------------------
-    mov   [right_folder_data],ecx
+add_memory_for_folders:
-    add   ecx,304*32+32
+    mov   ecx,[appl_memory]
-    mov   [appl_memory],ecx
+    add   ecx,304*32+32
-    mcall 64,1
+    mov   [right_folder_data],ecx
-
+    add   ecx,304*32+32
-    mov   eax,[left_folder_data]
+    mov   [appl_memory],ecx
-    mov   [read_folder.return],eax 
+    mcall 64,1
-    mov   eax,[right_folder_data]
+
-    mov   [read_folder_1.return],eax
+    mov   eax,[left_folder_data]
-    ret
+    mov   [read_folder.return],eax
-;---------------------------------------------------------------------
+    mov   eax,[right_folder_data]
-copy_path:
+    mov   [read_folder_1.return],eax
-    xor   eax,eax
+    ret
-@@:
+;---------------------------------------------------------------------
-    cld
+copy_path:
-    lodsb
+    xor   eax,eax
-    stosb
+@@:
-    test  eax,eax
+    cld
-    jnz   @b
+    lodsb
-    mov   esi,edi
+    stosb
-@@:
+    test  eax,eax
-    std
+    jnz   @b
-    lodsb
+    mov   esi,edi
-    cmp   al,'/'
+@@:
-    jnz   @b
+    std
-    mov   edi,esi
+    lodsb
-    add   edi,2
+    cmp   al,'/'
-    mov   esi,ebx
+    jnz   @b
-@@:
+    mov   edi,esi
-    cld
+    add   edi,2
-    lodsb
+    mov   esi,ebx
-    stosb
+@@:
-    test  eax,eax
+    cld
-    jnz   @b
+    lodsb
-    ret
+    stosb
-;---------------------------------------------------------------------
+    test  eax,eax
-copy_path_1:
+    jnz   @b
-    xor   eax,eax
+    ret
-@@:
+;---------------------------------------------------------------------
-    cld
+copy_path_1:
-    lodsb
+    xor   eax,eax
-    stosb
+@@:
-    test  eax,eax
+    cld
-    jnz   @b
+    lodsb
-    mov   esi,ebx
+    stosb
-    mov   [edi-1],byte '/'
+    test  eax,eax
-@@:
+    jnz   @b
-    cld
+    mov   esi,ebx
-    lodsb
+    mov   [edi-1],byte '/'
-    stosb
+@@:
-    test  eax,eax
+    cld
-    jnz   @b
+    lodsb
-    ret
+    stosb
-;---------------------------------------------------------------------
+    test  eax,eax
-add_application_memory:
+    jnz   @b
-    mov   ecx,[file_features_temp_area+32]
+    ret
-.1:
+;---------------------------------------------------------------------
-    add   ecx,[appl_memory]
+add_application_memory:
-    mov   [appl_memory],ecx
+    mov   ecx,[file_features_temp_area+32]
-    mcall 64,1
+.1:
-    ret
+    add   ecx,[appl_memory]
-;---------------------------------------------------------------------
+    mov   [appl_memory],ecx
-sub_application_memory:
+    mcall 64,1
-    mov   ecx,[appl_memory]
+    ret
-    sub   ecx,[file_features_temp_area+32]
+;---------------------------------------------------------------------
-.1:
+sub_application_memory:
-    mov   [appl_memory],ecx
+    mov   ecx,[appl_memory]
-    mcall 64,1
+    sub   ecx,[file_features_temp_area+32]
-    ret
+.1:
-;---------------------------------------------------------------------
+    mov   [appl_memory],ecx
-exit_apl:
+    mcall 64,1
-    mov  [confirmation_type],exit_type
+    ret
-    call confirmation_action
+;---------------------------------------------------------------------
-    cmp  [work_confirmation_yes],1
+exit_apl:
-    jne  red
+    mov  [confirmation_type],exit_type
-    mcall -1
+    call confirmation_action
-;---------------------------------------------------------------------
+    cmp  [work_confirmation_yes],1
-include   'key.inc'
+    jne  red
-;---------------------------------------------------------------------
+    mcall -1
-include   'markfile.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'key.inc'
-include   'button.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'markfile.inc'
-include   'mouse.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'button.inc'
-include   'openfile.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'mouse.inc'
-include   'draw.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'openfile.inc'
-include   'drw_dbut.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'draw.inc'
-include   'menu_bar.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'drw_dbut.inc'
-include   'menu_drv.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'menu_bar.inc'
-include   'delete.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'menu_drv.inc'
-include   'copy.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'delete.inc'
-include   'creatdir.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'copy.inc'
-include   'creatfile.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'creatdir.inc'
-include   'confirm.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'creatfile.inc'
-include   'err_wind.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'confirm.inc'
-include   'detect.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'err_wind.inc'
-include   'tran_ini.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'detect.inc'
-include   'help.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'tran_ini.inc'
-include   'convchar.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'help.inc'
-include   'sort.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'convchar.inc'
-include   'progrbar.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'sort.inc'
-include   'scroll.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'progrbar.inc'
-include   'file_inf.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'scroll.inc'
-include   'text.inc'
+;---------------------------------------------------------------------
-;---------------------------------------------------------------------
+include   'file_inf.inc'
-;include_debug_strings
+;---------------------------------------------------------------------
-I_END:
+include   'text.inc'
-;---------------------------------------------------------------------
+;---------------------------------------------------------------------
-include   'data.inc'
+;include_debug_strings
-;---------------------------------------------------------------------
+I_END:
-mem:
+;---------------------------------------------------------------------
+include   'data.inc'
+;---------------------------------------------------------------------
+mem: