WIP: programs/other: Post-SVN tidy #275

Draft
ace-dent wants to merge 10 commits from ace-dent/kolibrios-gitea:PR-TidySVN-other into main
80 changed files with 1924 additions and 1889 deletions

View File

@@ -155,7 +155,7 @@ echo Building other
echo * echo *
rem fasm other\archer\trunk\@rcher.asm %BIN%\@rcher rem fasm other\archer\trunk\@rcher.asm %BIN%\@rcher
fasm other\calc\calc.asm %BIN%\calc fasm other\calc\calc.asm %BIN%\calc
fasm other\mhc\trunk\mhc.asm %BIN%\mhc rem fasm other\mhc\trunk\mhc.asm %BIN%\mhc
fasm other\period\period.asm %BIN%\period fasm other\period\period.asm %BIN%\period
fasm other\rtfread\rtfread.asm %BIN%\rtfread fasm other\rtfread\rtfread.asm %BIN%\rtfread
@@ -165,12 +165,12 @@ echo *
rem media\ac97snd\trunk\ac97snd.asm ac97snd rem media\ac97snd\trunk\ac97snd.asm ac97snd
fasm media\animage\animage.asm %BIN%\animage fasm media\animage\animage.asm %BIN%\animage
fasm media\cdp\trunk\cdp.asm %BIN%\cdp fasm media\cdp\trunk\cdp.asm %BIN%\cdp
fasm media\gifview\trunk\gifview.asm %BIN%\gifview rem fasm media\gifview\trunk\gifview.asm %BIN%\gifview
fasm media\iconedit\trunk\iconedit.asm %BIN%\iconedit rem fasm media\iconedit\trunk\iconedit.asm %BIN%\iconedit
fasm media\jpegview\trunk\jpegview.asm %BIN%\jpegview rem fasm media\jpegview\trunk\jpegview.asm %BIN%\jpegview
fasm media\midamp\trunk\midamp.asm %BIN%\midamp fasm media\midamp\trunk\midamp.asm %BIN%\midamp
fasm media\midiplay\trunk\midiplay.asm %BIN%\midiplay fasm media\midiplay\trunk\midiplay.asm %BIN%\midiplay
fasm media\mixer\trunk\mixer.asm %BIN%\mixer rem fasm media\mixer\trunk\mixer.asm %BIN%\mixer
fasm media\mv\trunk\mv.asm %BIN%\mv fasm media\mv\trunk\mv.asm %BIN%\mv
fasm media\pic4\trunk\pic4.asm %BIN%\pic4 fasm media\pic4\trunk\pic4.asm %BIN%\pic4
@@ -208,7 +208,7 @@ cd demos\aclock\trunk\
nasmw -t -f bin -o ..\..\..\%BIN%\demos\aclock aclock.asm nasmw -t -f bin -o ..\..\..\%BIN%\demos\aclock aclock.asm
cd ..\..\.. cd ..\..\..
fasm demos\bcdclk\trunk\bcdclk.asm %BIN%\demos\bcdclk fasm demos\bcdclk\trunk\bcdclk.asm %BIN%\demos\bcdclk
fasm demos\bgitest\trunk\bgitest.asm %BIN%\fonts\bgitest rem fasm demos\bgitest\trunk\bgitest.asm %BIN%\fonts\bgitest
fasm demos\colorref\trunk\colorref.asm %BIN%\demos\colorref fasm demos\colorref\trunk\colorref.asm %BIN%\demos\colorref
fasm demos\crownscr\trunk\crownscr.asm %BIN%\3d\crownscr fasm demos\crownscr\trunk\crownscr.asm %BIN%\3d\crownscr
fasm demos\cslide\trunk\cslide.asm %BIN%\demos\cslide fasm demos\cslide\trunk\cslide.asm %BIN%\demos\cslide
@@ -367,7 +367,7 @@ echo *
rem kpack %BIN%\@rcher rem kpack %BIN%\@rcher
kpack %BIN%\calc kpack %BIN%\calc
kpack %BIN%\mhc rem kpack %BIN%\mhc
kpack %BIN%\period kpack %BIN%\period
kpack %BIN%\rtfread kpack %BIN%\rtfread
@@ -377,12 +377,12 @@ echo *
kpack %BIN%\animage kpack %BIN%\animage
kpack %BIN%\cdp kpack %BIN%\cdp
kpack %BIN%\gifview rem kpack %BIN%\gifview
kpack %BIN%\iconedit rem kpack %BIN%\iconedit
kpack %BIN%\jpegview kpack %BIN%\jpegview
kpack %BIN%\midamp kpack %BIN%\midamp
kpack %BIN%\midiplay kpack %BIN%\midiplay
kpack %BIN%\mixer rem kpack %BIN%\mixer
kpack %BIN%\mp3s kpack %BIN%\mp3s
kpack %BIN%\mv kpack %BIN%\mv
kpack %BIN%\pic4 kpack %BIN%\pic4
@@ -413,7 +413,7 @@ kpack %BIN%\3d\3dcube2
kpack %BIN%\3d\3dtcub10 kpack %BIN%\3d\3dtcub10
kpack %BIN%\demos\aclock kpack %BIN%\demos\aclock
kpack %BIN%\demos\bcdclk kpack %BIN%\demos\bcdclk
kpack %BIN%\fonts\bgitest rem kpack %BIN%\fonts\bgitest
kpack %BIN%\demos\colorref kpack %BIN%\demos\colorref
kpack %BIN%\3d\crownscr kpack %BIN%\3d\crownscr
kpack %BIN%\demos\cslide kpack %BIN%\demos\cslide

View File

@@ -1,3 +1,6 @@
; SPDX-License-Identifier: NOASSERTION
;
; @RCHER - Deflate unpacker v2.0 beta ; @RCHER - Deflate unpacker v2.0 beta
; ;
; Written in pure assembler by Ivushkin Andrey aka Willow ; Written in pure assembler by Ivushkin Andrey aka Willow
@@ -477,5 +480,3 @@ end if
if ~ SYS in <meos,win> if ~ SYS in <meos,win>
error "Please specify SYS: meos OR win" error "Please specify SYS: meos OR win"
end if end if

View File

@@ -1,5 +1,5 @@
if tup.getconfig("NO_FASM") ~= "" then return end 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") tup.include(HELPERDIR .. "/use_fasm.lua")
add_include(tup.getvariantdir()) add_include(tup.getvariantdir())

View File

@@ -1,3 +1,9 @@
; SPDX-License-Identifier: NOASSERTION
;
; Text encoded with Code Page 866 - Cyrillic
; BGI Font Test ; BGI Font Test
; ;
; Written in pure assembler by Ivushkin Andrey aka Willow ; Written in pure assembler by Ivushkin Andrey aka Willow
@@ -69,7 +75,7 @@ use32
not1strun dd 0x0 not1strun dd 0x0
include 'lang.inc' include 'lang.inc'
include '..\..\..\..\macros.inc' include '..\..\..\macros.inc'
;include 'debug.inc' ;include 'debug.inc'
include 'bgifont.inc' include 'bgifont.inc'

View File

@@ -1,3 +1,9 @@
; SPDX-License-Identifier: NOASSERTION
;
; Text encoded with Code Page 866 - Cyrillic
; <--- description ---> ; <--- description --->
; compiler: FASM ; compiler: FASM
; name: Clipboard server/daemon ; name: Clipboard server/daemon
@@ -6,7 +12,7 @@
; <--- include all MeOS stuff ---> ; <--- include all MeOS stuff --->
include "lang.inc" include "lang.inc"
include "..\..\..\..\macros.inc" include "..\..\..\macros.inc"
; <--- start of MenuetOS application ---> ; <--- start of MenuetOS application --->
MEOS_APP_START MEOS_APP_START

View File

@@ -1,5 +1,5 @@
if tup.getconfig("NO_FASM") ~= "" then return end 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") tup.include(HELPERDIR .. "/use_fasm.lua")
add_include(tup.getvariantdir()) add_include(tup.getvariantdir())

View File

@@ -1,3 +1,6 @@
; SPDX-License-Identifier: NOASSERTION
;
; debugging include file by barsuk ; debugging include file by barsuk
; if DEBUG=TRUE, adds debug.inc ; if DEBUG=TRUE, adds debug.inc
; if DEBUG=FALSE, adds stubs for several macros from debug.inc ; if DEBUG=FALSE, adds stubs for several macros from debug.inc
@@ -5,7 +8,7 @@
match =TRUE, DEBUG match =TRUE, DEBUG
{ {
include '..\..\..\..\debug.inc' include '..\..\..\debug.inc'
macro dph1 str macro dph1 str
\{ \{

View File

@@ -1,3 +1,9 @@
; SPDX-License-Identifier: NOASSERTION
;
; Text encoded with Code Page 866 - Cyrillic
; <--- description ---> ; <--- description --->
; compiler: FASM ; compiler: FASM
; name: Clipboard Client Demo ; name: Clipboard Client Demo
@@ -7,7 +13,7 @@
; <--- include all MeOS stuff ---> ; <--- include all MeOS stuff --->
include "lang.inc" include "lang.inc"
include "..\..\..\..\macros.inc" include "..\..\..\macros.inc"
TEST_SIZE = 100000 ; ¤®«¦­® ¤¥«¨âìáï ­  4 TEST_SIZE = 100000 ; ¤®«¦­® ¤¥«¨âìáï ­  4

View File

@@ -1,3 +1,9 @@
; SPDX-License-Identifier: NOASSERTION
;
; Text encoded with Code Page 866 - Cyrillic
; <--- description ---> ; <--- description --->
; compiler: FASM ; compiler: FASM
; name: Clipboard test with GUI. ; name: Clipboard test with GUI.
@@ -8,7 +14,7 @@
; <--- include all MeOS stuff ---> ; <--- include all MeOS stuff --->
include "lang.inc" include "lang.inc"
include "..\..\..\..\macros.inc" include "..\..\..\macros.inc"
; <--- start of MenuetOS application ---> ; <--- start of MenuetOS application --->
MEOS_APP_START MEOS_APP_START

View File

@@ -1,5 +1,5 @@
if tup.getconfig("NO_FASM") ~= "" then return end 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") tup.include(HELPERDIR .. "/use_fasm.lua")
add_include(tup.getvariantdir()) add_include(tup.getvariantdir())

View File

@@ -1,3 +1,6 @@
; SPDX-License-Identifier: NOASSERTION
;
; ;
; Modified from original icon editor ; Modified from original icon editor
; ;
@@ -14,7 +17,7 @@
dd 0x0 , 0x0 ; I_Param , I_Icon dd 0x0 , 0x0 ; I_Param , I_Icon
include 'lang.inc' include 'lang.inc'
include '..\..\..\..\macros.inc' include '..\..\..\macros.inc'
window_x_size equ 346 window_x_size equ 346
window_y_size equ 312 window_y_size equ 312

View File

@@ -1,4 +1,4 @@
You should really be using the kpack program instead of kerpack. You should really be using the kpack program instead of kerpack.
It also builds nicely on Linux. It also builds nicely on Linux.
kpack can be found in $SVN/programs/other/kpack kpack can be found in programs/other/kpack

View File

@@ -1,3 +1,6 @@
; SPDX-License-Identifier: NOASSERTION
;
; Kolibri kernel packer ; Kolibri kernel packer
; (C) copyright diamond 2006, 2007 ; (C) copyright diamond 2006, 2007
; ;
@@ -31,7 +34,7 @@ use32
dd 0 ;params dd 0 ;params
dd 0 ;cur_dir_path dd 0 ;cur_dir_path
;--------------------------------------------------------------------- ;---------------------------------------------------------------------
include '../../../../macros.inc' include '../../../macros.inc'
; do not touch "purge mov"!!! ; do not touch "purge mov"!!!
purge mov ; for the correct patch of loader purge mov ; for the correct patch of loader
; do not touch "purge mov"!!! ; do not touch "purge mov"!!!

View File

@@ -1,5 +1,5 @@
if tup.getconfig("NO_FASM") ~= "" then return end 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") tup.include(HELPERDIR .. "/use_fasm.lua")
add_include(tup.getvariantdir()) add_include(tup.getvariantdir())

View File

@@ -1,3 +1,4 @@
; SPDX-License-Identifier: NOASSERTION
; ;
; MIXER ; MIXER
@@ -6,7 +7,7 @@
; ;
include 'lang.inc' include 'lang.inc'
include '..\..\..\..\macros.inc' include '..\..\..\macros.inc'
use32 use32