Shell: improve cpuid - view full brand string

info3ds: added resizing of the window with the figure
and the list of vertices in the properties window,

info3ds, info3ds_u: files with menu icons are embedded into the program

Reviewed-on: KolibriOS/kolibrios#241
Reviewed-by: Mikhail Frolov <mixa.frolov2003@gmail.com>
Reviewed-by: Burer <burer@noreply.localhost>
Co-authored-by: IgorA <aie85playm@gmail.com>
Co-committed-by: IgorA <aie85playm@gmail.com>

.gitignore

@@ -9,3 +9,4 @@ ehthumbs_vista.db
 ._*
 programs/cmm/cmm.code-workspace
 programs/cmm/menu/.gitignore
+.vscode

contrib/C_Layer/ASM/loadlibini.asm

@@ -31,8 +31,8 @@ import  lib_libini, \
         LIBINI_enum_keys               , 'ini_enum_keys'        , \
         LIBINI_get_str                 , 'ini_get_str'          , \
         LIBINI_get_int  			   , 'ini_get_int'   		, \
-        LIBINI_get_color               , 'int_get_color'        , \
-        LIBINI_get_shortcut            , 'int_get_shortcut'     , \
+        LIBINI_get_color               , 'ini_get_color'        , \
+        LIBINI_get_shortcut            , 'ini_get_shortcut'     , \
         LIBINI_set_str            	   , 'ini_set_str'          , \
         LIBINI_set_int         		   , 'ini_set_int'          , \          
         LIBINI_set_color          	   , 'ini_set_color'

contrib/sdk/sources/ffmpeg/ffmpeg-2.1/libavcodec/mpeg4videoenc.c

@@ -864,7 +864,7 @@ void ff_set_mpeg4_time(MpegEncContext * s){
 }
 
 static void mpeg4_encode_gop_header(MpegEncContext * s){
-    int hours, minutes, seconds;
+    int64_t hours, minutes, seconds;
     int64_t time;
 
     put_bits(&s->pb, 16, 0);

contrib/sdk/sources/ffmpeg/ffmpeg-2.1/libavcodec/vp3.c

@@ -2035,8 +2035,13 @@ static int vp3_decode_frame(AVCodecContext *avctx,
     if (ff_thread_get_buffer(avctx, &s->current_frame, AV_GET_BUFFER_FLAG_REF) < 0)
         goto error;
 
-    if (!s->edge_emu_buffer)
+    if (!s->edge_emu_buffer) {
         s->edge_emu_buffer = av_malloc(9*FFABS(s->current_frame.f->linesize[0]));
+        if (!s->edge_emu_buffer) {
+            ret = AVERROR(ENOMEM);
+            goto error;
+        }
+    }
 
     if (s->keyframe) {
         if (!s->theora)

contrib/sdk/sources/ffmpeg/ffmpeg-2.8/ffserver.c

@@ -2580,8 +2580,10 @@ static int http_receive_data(HTTPContext *c)
         } else if (c->buffer_ptr - c->buffer >= 2 &&
                    !memcmp(c->buffer_ptr - 1, "\r\n", 2)) {
             c->chunk_size = strtol(c->buffer, 0, 16);
-            if (c->chunk_size == 0) // end of stream
+            if (c->chunk_size <= 0) { // end of stream or invalid chunk size
+                c->chunk_size = 0;
                 goto fail;
+            }
             c->buffer_ptr = c->buffer;
             break;
         } else if (++loop_run > 10)
@@ -2603,6 +2605,7 @@ static int http_receive_data(HTTPContext *c)
             /* end of connection : close it */
             goto fail;
         else {
+            av_assert0(len <= c->chunk_size);
             c->chunk_size -= len;
             c->buffer_ptr += len;
             c->data_count += len;

contrib/sdk/sources/ffmpeg/ffmpeg-2.8/libavformat/cinedec.c

@@ -267,8 +267,12 @@ static int cine_read_header(AVFormatContext *avctx)
 
     /* parse image offsets */
     avio_seek(pb, offImageOffsets, SEEK_SET);
-    for (i = 0; i < st->duration; i++)
+    for (i = 0; i < st->duration; i++) {
+        if (avio_feof(pb))
+            return AVERROR_INVALIDDATA;
+
         av_add_index_entry(st, avio_rl64(pb), i, 0, 0, AVINDEX_KEYFRAME);
+    }
 
     return 0;
 }

contrib/sdk/sources/pe2kos/readme_rus.txt

@@ -5,7 +5,7 @@ diamond'ом. Она используется в проектах xonix и fara
 Kolibri-программу. Утилита всего лишь изменяет формат exe-шника, так что,
 чтобы действительно получилась работающая программа, нужно выполнение
 определённых условий. Понятно, что требуется, чтобы программа общалась
-с внешним миром средствами Колибри (т.е. int 0x40) и не использовала
+с внешним миром средствами КолибриОС (т.е. int 0x40) и не использовала
 никаких Windows-библиотек. Помимо этого, требуется также, чтобы программа
 размещалась по нулевому адресу (ключ линкера "/base:0"). Как писать такие
 программы - смотрите в уже упомянутых проектах xonix и fara.

data/Tupfile.lua

@@ -38,7 +38,6 @@ img_files = {
  {"UNIMG", SRC_PROGS .. "/fs/unimg/unimg"},
  {"3D/HOUSE.3DS", "common/3d/house.3ds"},
  {"File Managers/ICONS.INI", "common/File Managers/icons.ini"},
- {"GAMES/FLPYBIRD", SRC_PROGS .. "/games/floppybird/Release/floppybird"},
  {"FONTS/TAHOMA.KF", "common/fonts/tahoma.kf"},
  -- {"LIB/ICONV.OBJ", "common/lib/iconv.obj"},
  {"LIB/KMENU.OBJ", "common/lib/kmenu.obj"},
@@ -69,6 +68,7 @@ img_files = {
  {"SETTINGS/SYSTEM.INI", "common/settings/system.ini"},
  {"SETTINGS/TASKBAR.INI", "common/settings/taskbar.ini"},
  {"SETTINGS/SYSTEM.ENV", "common/settings/system.env"},
+ {"SETTINGS/USBDRV.DAT",VAR_DRVS .. "/usb/usbother/usbdrv.dat"},
 }
 
 -- For russian build, add russian-only files.
@@ -152,9 +152,6 @@ extra_files = {
  {"HD_Load/USB_boot_old/", SRC_PROGS .. "/hd_load/usb_boot_old/usb_boot_866.txt"},
  {"HD_Load/USB_boot_old/", SRC_PROGS .. "/hd_load/usb_boot_old/usb_boot_1251.txt"},
  {"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/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/*"},
@@ -204,6 +201,7 @@ extra_files = {
  {"kolibrios/emul/chip8/roms/", SRC_PROGS .. "/emulator/chip8/roms/*"},
  {"kolibrios/emul/kwine/kwine", SRC_PROGS .. "/emulator/kwine/bin/kwine"},
  {"kolibrios/emul/kwine/lib/", SRC_PROGS .. "/emulator/kwine/bin/lib/*"},
+ {"kolibrios/emul/uxn", SRC_PROGS .. "/emulator/uxn/uxn"},
  {"kolibrios/emul/uarm/", "common/emul/uarm/*"},
  {"kolibrios/emul/zsnes/", "common/emul/zsnes/*"},
  {"kolibrios/games/BabyPainter", "common/games/BabyPainter"},
@@ -567,6 +565,7 @@ tup.append_table(img_files, {
  {"DRIVERS/OHCI.SYS", VAR_DRVS .. "/usb/ohci.sys"},
  {"DRIVERS/EHCI.SYS", VAR_DRVS .. "/usb/ehci.sys"},
  {"DRIVERS/USBHID.SYS", VAR_DRVS .. "/usb/usbhid/usbhid.sys"},
+ {"DRIVERS/USBOTHER.SYS",VAR_DRVS .. "/usb/usbother/usbother.sys"},
  {"DRIVERS/USBSTOR.SYS", VAR_DRVS .. "/usb/usbstor.sys"},
  {"DRIVERS/RDC.SYS", VAR_DRVS .. "/video/rdc.sys"},
  {"DRIVERS/COMMOUSE.SYS", VAR_DRVS .. "/mouse/commouse.sys"},
@@ -722,6 +721,7 @@ tup.append_table(img_files, {
  {"NETWORK/WHOIS", VAR_PROGS .. "/network/whois/whois"},
  {"SHELL", VAR_PROGS .. "/system/shell/shell"},
  {"GAMES/DINO", VAR_PROGS .. "/games/dino/dino"},
+ {"GAMES/FLPYBIRD", VAR_PROGS .. "/games/flpybird/flpybird"},
 })
 tup.append_table(extra_files, {
  {"kolibrios/utils/thashview", VAR_PROGS .. "/other/TinyHashView/thashview"},

data/common/File Managers/icons.ini

@@ -162,6 +162,7 @@ min=23
 nes=23
 sna=23
 snes=23
+rom=23
 bat=24
 sh=24
 sys=25

data/common/File Managers/kfar.ini

@@ -68,6 +68,7 @@ sna=/kolibrios/emul/e80/e80
 gb=/kolibrios/emul/gameboy
 gbc=/kolibrios/emul/gameboy
 min=/kolibrios/emul/pokemini
+rom=/kolibrios/emul/uxn
 nc=/kolibrios/utils/cnc_editor/cnc_editor
 kf=/sys/KF_VIEW
 csv=/sys/table

data/common/settings/app.ini

@@ -22,3 +22,5 @@ ToggleBar=Tab
 path=/usbhd0/1/kolibri.img
 autoclose=0
 
+[WebView]
+proxy=http://proxy.kolibrios.org:82/?site=

data/common/settings/assoc.ini

@@ -192,6 +192,7 @@ nc=/kolibrios/utils/cnc_editor/cnc_editor
 ch8=/kolibrios/emul/chip8/chip8
 md=/kolibrios/emul/dgen/dgen
 gen=/kolibrios/emul/dgen/dgen
+rom=/kolibrios/emul/uxn
 
 zip=$Unz
 7z=$Unz

data/ru_RU/docs/guide/faq.htm

@@ -9,15 +9,15 @@
 	pre {white-space: pre-wrap;}
 	h2 {margin-bottom:0;}
 	blockquote {
-		margin-bottom:0; 
-		border-left: 5px solid #EFE8D5; 
+		margin-bottom:0;
+		border-left: 5px solid #EFE8D5;
 		padding-left: 10px;}
 	</style>
 </head>
 <body bgcolor="#FDF6E3" link="#5551FF"><pre><h1>Решение проблем и часто задаваемые вопросы</h1>
 <a href="guide.htm" param="d">&lt; Назад</a>
 
-<b>Какие есть варианты загрузки Колибри?</b>
+<b>Какие есть варианты загрузки КолибриОС?</b>
 С флешки, жесткого диска, CD, дискеты. Смотрите папку /HD_Load в скачанном дистрибутиве.
 При загрузке с флешки иногда может требоваться использование setmbr.exe, иногда нет. Вначале попробуйте загрузится без него, если не получится, то с ним.
 
@@ -27,7 +27,7 @@
 2. Поменять настройки в BIOS: зайти в раздел с жесткими дисками и выставить режим совместимости с IDE или что-то похожее. (После всех эксперименов не забудьте поменять все обратно!)
 3. Воспользоваться драйвером ACHI. Для этого зайдите в SYSPANEL &gt; <a href="/kolibrios/drivers/DRVINST.KEX">DriverInstall</a>.
 
-<b>Как установить Колибри как основную ОС, скажем, на старенький ноутбук?</b>
+<b>Как установить КолибриОС как основную ОС, скажем, на старенький ноутбук?</b>
 Есть масса вариантов. Вот один из них.
 Если на ноутбуке нет ОС, то ставим на него Windows 98. Если на нем уже стоит Windows 95/98/2k/XP, то они тоже подойдут.
 Заходим в папку /HD_Load поставляемую в дистрибутиве. Там с помощью утилит устанавливаем Kolibri в дуалбут с Windows.
@@ -49,7 +49,7 @@
 
 MTRRs (Memory type range registers — Диапазонные регистры типа памяти) — используются для назначения типа (политики кеширования) участкам памяти. Регистры MTRR предоставляют механизм, связывающий типы памяти с физическими адресными диапазонами системной памяти. Они позволяют процессору оптимизировать операции для разных типов памяти, таких как ПЗУ, ОЗУ, кадровый буфер и отображаемые в памяти устройства ввода-вывода. Они также упрощают разработку системного оборудования, уменьшая количество контактов управляющих памятью, которые использовались для этой цели в ранних процессорах и внешних логических устройствах.
 
-<b>На каких ещё языках программирования, кроме ассемблера, можно разрабатывать приложения для Колибри?</b>
+<b>На каких ещё языках программирования, кроме ассемблера, можно разрабатывать приложения для КолибриОС?</b>
 
 Портированы:
 &bull; Компилятор Oberon-07
@@ -68,7 +68,7 @@ MTRRs (Memory type range registers — Диапазонные регистры
 Подробная статья по поддерживаемым компиляторам и их настройке <a href="http://kolibri-n.org/inf/hll/hll">здесь</a>.
 
 <b>Wi-Fi работает?</b>
-Нет ни драйверов ни подсистемы. 
+Нет ни драйверов ни подсистемы.
 Если вы хотите разработать подсистему и драйвер(а) WiFi - напишите нам на форум или в группу ВК, есть возможность оплатить разработку. Для этого нужно весьма неплохо знать ассемблер.
 
 <b>Не работает мышь, флешка, клавиатура</b>
@@ -79,28 +79,28 @@ MTRRs (Memory type range registers — Диапазонные регистры
 &bull; Использовать PS/2 мышь...
 &bull; Купить PCI карту на несколько USB 2.0 портов, благо стоит она копейки, часто продается на барахолках
 
-<b>Можно ли в Колибри запускать EXE (приложения Windows)?</b>
+<b>Можно ли в КолибриОС запускать EXE (приложения Windows)?</b>
 Нет, это невозможно.
 Есть эмулятор DOS и <a href="http://board.kolibrios.org/viewtopic.php?f=9&t=2318&p=48991">PELoad</a> эмулятор некоторых функций WIN32 (в зачаточном состоянии).
 
 <b>Когда будет нормальный браузер?</b>
 Браузер штука очень сложная, как в написании, так и в портировании. Есть наработки по портированию Netsurf, но пока все заглохло.
-Что и когда будет не известно. 
+Что и когда будет не известно.
 
 <b>У меня есть идея, давайте я вам ее напишу, а вы реализуете!</b>
-Чаще всего эти идеи мало полезны. Дело в том, что у каждого человека уже вовлеченного в проект, тоже есть множество нереализованных идей, подчас более ценных, чем у новичков, за счет того, что участники лучше разбираются в системе, ее возможностях и ограничениях. Проблема, как всегда, или в мотивации, или в отсутствии времени. Пожалуйста, учитывайте это приходя в проект и не требуйте ничего от незнакомых вам людей. Участвуйте, как наблюдатель и комментатор; и со временем вы сможете генерировать хорошие идеи предметно. 
-К сожалению даже клевая идея не гарантирует ее скорейшей реализации, потому самый надежный шанс воплотить идею в жизнь - реализовать самому. 
+Чаще всего эти идеи мало полезны. Дело в том, что у каждого человека уже вовлеченного в проект, тоже есть множество нереализованных идей, подчас более ценных, чем у новичков, за счет того, что участники лучше разбираются в системе, ее возможностях и ограничениях. Проблема, как всегда, или в мотивации, или в отсутствии времени. Пожалуйста, учитывайте это приходя в проект и не требуйте ничего от незнакомых вам людей. Участвуйте, как наблюдатель и комментатор; и со временем вы сможете генерировать хорошие идеи предметно.
+К сожалению даже клевая идея не гарантирует ее скорейшей реализации, потому самый надежный шанс воплотить идею в жизнь - реализовать самому.
 
-<b>Почему в Колибри все еще нет ХХХ? Это же так важно!</b>
-Потому что это ХХХ еще никто не сделал. 
+<b>Почему в КолибриОС все еще нет ХХХ? Это же так важно!</b>
+Потому что это ХХХ еще никто не сделал.
 См. предыдущий ответ.
 
 <b>Какие у вас дальнейшие планы развития?</b>
 Большинство путей развития упирается не в планы, а в свободные руки. Особенно в квалифицированные рабочие руки.
 
 <b>Как насчет версии для ARM вместо Android?</b>
-Нативно это невозможно. Абсолютно и полностью. 
-Дело в том, что Колибри ОС написана на ассемблере x86, тем самым овермаксимально оптимизирована под процессоры x86. На мобильных девайсах используется другой тип процессора и другая архитектура - arm, что делает портирование невозможным.
+Нативно это невозможно. Абсолютно и полностью.
+Дело в том, что КолибриОС написана на ассемблере x86, тем самым овермаксимально оптимизирована под процессоры x86. На мобильных девайсах используется другой тип процессора и другая архитектура - arm, что делает портирование невозможным.
 Колибри - десктопная ОС для Пека, любите ее такой, какая она есть.
 </body>
 </html>

drivers/usb/usbother/Tupfile.lua

@@ -0,0 +1,4 @@
+if tup.getconfig("NO_FASM") ~= "" then return end
+ROOT = "../../.."
+tup.rule("usbother.asm", "fasm %f %o " .. tup.getconfig("PESTRIP_CMD") .. tup.getconfig("KPACK_CMD"), "%B.sys")
+tup.rule("usbdrv.asm", "fasm %f %o ", "%B.dat")

drivers/usb/usbother/usbdrv.asm

@@ -0,0 +1,214 @@
+;*****************************************************************************;
+;    Copyright (C) 2025, Mikhail Frolov aka Doczom . All rights reserved.     ;
+;            Distributed under terms of the 3-Clause BSD License.             ;
+;*****************************************************************************;
+;               File of usb drivers
+;       base = 0
+; offset                | Size  | Name          | Description
+;=======================|=======|===============|=============================
+; base + 0              |  4    | ID_drv_table  | offset to dev_ven drv array
+; base + 4              |  4    | Class_table   | offset to class drv array
+;
+;       n = 0 .. count driver with ID table
+;       nt = count driver with ID table
+; ID_drv_table + 0*(n-1)|  4    | ID_TABLE      | offset from base to table VID:PID
+; ID_drv_table + 4*(n-1)|  4    | DRV_NAME      | offset from base to name of driver
+; ID_drv_table + 8*nt   |  8    | __ZERO        | terminaror of list
+
+;       k = 0 .. count driver on class code
+;       kt = count driver on class code
+; Class_table + 0*(k-1) |  1    | LENGTH_CLASS  | length of class code 1..3
+; Class_table + 1*(k-1) |  1    | USB_CLASS     | main usb class code (M)
+; Class_table + 2*(k-1) |  1    | USB_SUBCLASS  | USB subclass code or zero(V)
+; Class_table + 2*(k-1) |  1    | USB_PROTOCOL  | USB protocol code or zero(V)
+; Class_table + 4*(k-1) |  4    | DRV_NAME      | offset from base to name of driver
+; Class_table + 8*kt    |  8    | __ZERO        | terminaror of list
+
+;       i = 0 .. count VID:PID
+;       it =  count VID:PID
+; ID_TABLE + 0*(i-1)    |  2    | VID           | Vendor id
+; ID_TABLE + 2*(i-1)    |  2    | PID           | Product id
+; ID_TABLE + 4*it       |  4    | __ZERO        | terminaror of list
+
+
+macro INIT_USBDRV_FILE {
+        local ..id_list, ..class_list
+
+        format binary as 'dat'
+        use32
+        org 0
+                dd      ..id_list
+                dd      ..class_list
+
+
+        macro ID_DRV_TABLE \{
+                dd 0, 0
+        \}
+
+        macro CLASS_TABLE \{
+                dd 0, 0
+        \}
+        macro ID_TABLE \{
+        \}
+        macro DRV_NAME_LIST \{
+        \}
+        postpone \{
+                 ..id_list:   ID_DRV_TABLE
+                ..class_list: CLASS_TABLE
+                ID_TABLE
+                DRV_NAME_LIST
+        \}
+}
+
+macro ADD_CLASS drv_name, class, subclass, protocol {
+
+        local ..length, ..class_code, ..drv_name
+
+        ..length = 3
+
+        match =X, class \{
+              err 'Class is mandatory argument'
+        \}
+        match =X, protocol \{
+              ..length = 2
+        \}
+        match =X, subclass \{
+              ..length = 1
+        \}
+
+        ..class_code = ..length or (class  shl 8)
+
+        if  ..length = 3
+            ..class_code = ..class_code or (protocol  shl 24)
+        end if
+        if  ..length = 2
+            ..class_code = ..class_code or (subclass  shl 16)
+        end if
+
+
+        ; add in list
+
+        macro DRV_NAME_LIST \{
+                ..drv_name: db drv_name, 0
+                DRV_NAME_LIST
+        \}
+
+        macro CLASS_TABLE \{
+                dd      ..class_code, ..drv_name
+                CLASS_TABLE
+        \}
+}
+
+macro ADD_ID drv_name, [device_id] {
+        common
+        local ..drv_name, ..id_table
+
+        macro ID_TABLE \{
+                ID_TABLE
+                ..id_table:
+        \}
+
+        reverse
+        local vid_pid
+                match VID:PID, device_id \{
+                      vid_pid = (PID shl 16) + VID
+                \}
+
+
+        macro ID_TABLE \{
+                ID_TABLE
+                dd  vid_pid
+        \}
+
+        common
+        macro ID_TABLE \{
+                ID_TABLE
+                dd  0
+        \}
+        macro DRV_NAME_LIST \{
+                ..drv_name: db drv_name, 0
+                DRV_NAME_LIST
+        \}
+        macro ID_DRV_TABLE \{
+                dd ..id_table, ..drv_name
+                ID_DRV_TABLE
+        \}
+}
+
+; ADD ID driver Linux
+macro ADD_IDL drv_name, [vendor_id, device_id] {
+        common
+        local ..drv_name, ..id_table
+
+        macro ID_TABLE \{
+                ID_TABLE
+                ..id_table:
+        \}
+
+        reverse
+        local vid_pid
+                vid_pid = (device_id shl 16) + vendor_id
+
+        macro ID_TABLE \{
+                ID_TABLE
+                dd  vid_pid
+        \}
+
+        common
+        macro ID_TABLE \{
+                ID_TABLE
+                dd  0
+        \}
+        macro DRV_NAME_LIST \{
+                ..drv_name: db drv_name, 0
+                DRV_NAME_LIST
+        \}
+        macro ID_DRV_TABLE \{
+                dd ..id_table, ..drv_name
+                ID_DRV_TABLE
+        \}
+}
+
+
+INIT_USBDRV_FILE
+
+;ADD_CLASS       'usbcdc-ctrl'   , 0x02, X   , X
+;ADD_CLASS       'usbimage'      , 0x06, 1   , 1
+;ADD_CLASS       'usbcdc-data'   , 0x0A, X   , X
+;ADD_CLASS       'ccid'          , 0x0B, X   , X
+;ADD_CLASS       'uvd'           , 0x0E, X   , X
+;ADD_CLASS       'uvd_2'         , 0x0E, 0x02, X
+;ADD_CLASS       'usb_bluetooth' , 0xE0, 0x01, X
+;ADD_CLASS       'usb_wifi'      , 0xE0, 0x02, X
+
+
+
+ADD_ID  'usbftdi',\
+        0x0403:0        ; Any FTDI device
+
+;https://github.com/avrdudes/avrdude/blob/main/src/usbdevs.h#L51
+;ADD_ID  'usbasp',\
+;        0x16c0:0x05dc,\ ; VOTI Obdev's free shared PID
+;        0x03e8:0xc7b4,\ ; ATMEL (unofficial) USBasp
+;        0x16c0:0x092f   ; VOTI NIBObee PID
+
+;https://github.com/WCHSoftGroup/ch341par_linux/blob/main/driver/ch34x_pis.c
+;ADD_IDL 'ch341par',\
+;        0x1a86, 0x5512,\ ; ch341a default
+;        0x1a86, 0x55db,\ ; CH347T Mode1 SPI+IIC+UART
+;        0x1a86, 0x55dd,\ ; CH347T Mode3 JTAG+UART
+;        0x1a86, 0x55de,\ ; CH347F
+;        0x1a86, 0x55e7   ; CH339W
+
+;https://github.com/openbsd/src/blob/master/sys/dev/usb/uchcom.c
+;https://github.com/WCHSoftGroup/ch341ser_linux/blob/main/driver/ch341.c
+;ADD_IDL 'ch341ser',\
+;        0x1a86, 0x7523,\ ; ch340 chip
+;        0x1a86, 0x7522,\ ; ch340k chip
+;        0x1a86, 0x5523,\ ; ch341 chip
+;        0x1a86, 0xe523,\ ; ch330 chip
+;        0x4348, 0x5523   ; ch340 custom chip
+
+
+
+

drivers/usb/usbother/usbother.asm

@@ -0,0 +1,523 @@
+;*****************************************************************************;
+;    Copyright (C) 2025, Mikhail Frolov aka Doczom . All rights reserved.     ;
+;            Distributed under terms of the 3-Clause BSD License.             ;
+;                                                                             ;
+; usbother is a driver for loading USB drivers of a certain class and vendor. ;
+;                                                                             ;
+;                         Version 0.1.1, 24 May 2025                          ;
+;                                                                             ;
+;*****************************************************************************;
+format PE native 0.05
+entry  START
+; const
+
+DRV_VERSION     = 0x0101 ; 0.1.1
+
+
+; struct
+include '../../struct.inc'
+
+; USB device descriptor
+struct DEVICE_DESCR
+        bLength                 db      ?
+        bDescriptorType         db      ?
+        bcdUSB                  dw      ?
+        bDeviceClass            db      ?
+        bDeviceSubClass         db      ?
+        bDeviceProtocol         db      ?
+        bMaxPacketSize0         db      ?
+        idVendor                dw      ?
+        idProduct               dw      ?
+        bcdDevice               dw      ?
+        iManufacturer           db      ?
+        iProduct                db      ?
+        iSerialNumber           db      ?
+        bNumConfigurations      db      ?
+ends
+
+struct INTERFACE_DESCR
+        bLength                 db      ?
+        bDescriptorType         db      ?
+        bInterfaceNumber        db      ?
+        bAlternateSetting       db      ?
+        bNumEndpoints           db      ?
+        bInterfaceClass         db      ?
+        bInterfaceSubClass      db      ?
+        bInterfaceProtocol      db      ?
+        iInterface              db      ?
+ends
+
+
+struct  SRV
+        srv_name        rb 16    ;ASCIIZ string
+        magic           dd ?     ;+0x10 ;'SRV '
+        size            dd ?     ;+0x14 ;size of structure SRV
+        fd              dd ?     ;+0x18 ;next SRV descriptor
+        bk              dd ?     ;+0x1C ;prev SRV descriptor
+        base            dd ?     ;+0x20 ;service base address
+        entry           dd ?     ;+0x24 ;service START function
+        srv_proc        dd ?     ;+0x28 ;user mode service handler
+        srv_proc_ex     dd ?     ;+0x2C ;kernel mode service handler
+ends
+
+struct USBSRV
+        srv             SRV
+        usb_func        dd ?
+ends
+
+struct USBFUNC
+        strucsize       dd ?
+        add_device      dd ?
+        device_disconnect dd ?
+ends
+
+USBDRV_TYPE_NOLOCK      = 0 ; usb device not controlled (native driver
+                            ;  not found and IOCTL not opened device)
+USBDRV_TYPE_NATIVE      = 1 ; native PE kernel driver for usb
+USBDRV_TYPE_IOCTL       = 2 ; usb device is controlled by IOCTL service
+                            ; (driver or userspace process/threads)
+USBDRV_IOCTL_BLOCKED    = 4 ; blocked IOCTL interface, device disconnected
+
+
+
+struct DRV_CONTEXT
+        next            dd ?
+        prev            dd ?
+        drv_hand        dd ?
+        drv_pdata       dd ?
+        flags           dd ?
+
+        config_descr    dd ?
+        interface_descr dd ?
+        ep              rd 64 ; 32 IN + 32 OUT endpoints' pipes
+ends
+DRV_CONTEXT.ep0 fix (DRV_CONTEXT.ep + 0)
+
+
+section '.flat' code readable writable executable
+
+include '../../proc32.inc'
+include '../../peimport.inc'
+include '../../macros.inc'
+
+
+proc    START c, state:dword, cmdline:dword
+
+        cmp     [state], DRV_ENTRY
+        jne     .end
+        ; init
+
+        mov     ecx, drv_list_lock
+        invoke  MutexInit
+
+        mov     ecx, interface_list_lock
+        invoke  MutexInit
+
+        ; load drv_list
+        stdcall load_drv_list, default_list
+        test    eax, eax
+        jnz     .end
+
+        ; reg driver
+        invoke  RegUSBDriver, drv_name, service_proc, usb_functions
+        ret
+.end:
+        xor     eax, eax
+        ret
+endp
+
+proc    load_drv_list stdcall, .path:dword
+
+        push    ebx
+        mov     ecx, drv_list_lock
+        invoke  MutexLock
+        ; load file
+        invoke  LoadFile, [.path]
+        test    eax, eax
+        push    eax
+        jnz     @f
+        mov     dword[esp], -1
+        jmp     .exit
+@@:
+        cmp     [drv_list], 0
+        jz      @f
+
+        invoke  KernelFree, [drv_list]
+@@:
+        mov     eax,[esp]
+        mov     [drv_list], eax
+        mov     dword[esp], 0
+.exit:
+        mov     ecx, drv_list_lock
+        invoke  MutexUnlock
+        pop     eax
+        pop     ebx
+        ret
+endp
+
+
+proc    service_proc stdcall, .ioctl:dword
+
+        push    esi
+        or      eax, -1
+        mov     esi, [.ioctl]
+
+        mov     ecx, [esi + IOCTL.io_code]
+        cmp     ecx, .count_ioctl_codes
+        jae     .fail
+
+        jmp     dword[.table_subfunction + ecx*4]
+
+.table_subfunction:
+        dd      .get_version
+        dd      .update_list
+        dd      .get_array_dev
+        dd      .get_full_dev_data
+        dd      .open_dev
+        dd      .close_dev
+        dd      .control_transfer
+        dd      .bulk_transfer
+        dd      .interrupt_transfer
+        ;dd      .control_transfer_async
+        ;dd      .bulk_transfer_async
+        ;dd      .interrupt_transfer_async
+.count_ioctl_codes = ($ - .table_subfunction)/4
+
+.get_version:
+        mov     eax, [esi + IOCTL.output]
+        cmp     [esi + IOCTL.out_size], 4
+        jne     .fail
+
+        mov     dword[eax], DRV_VERSION
+        xor     eax, eax
+        jmp     .exit
+
+.update_list:
+        ; update list
+        mov     ecx, [esi + IOCTL.input]
+        cmp     [esi + IOCTL.inp_size], 0
+        jnz     @f
+
+        mov     ecx, default_list
+@@:
+        stdcall load_drv_list, ecx
+
+.exit:
+        pop     esi
+        ret
+
+.get_array_dev:
+.get_full_dev_data:
+.open_dev:
+.close_dev:
+;
+.control_transfer:
+.bulk_transfer:
+.interrupt_transfer:
+
+.fail:
+        or      eax, -1
+        jmp     .exit
+endp
+
+
+proc    AddDevice stdcall, .config_pipe:dword, \
+                           .config_descr:dword,\
+                           .interface:dword
+
+        push    esi edi
+        mov     eax, sizeof.DRV_CONTEXT
+        invoke  Kmalloc
+        test    eax, eax
+        jz      .err_init
+
+        mov     esi, eax
+
+        mov     ecx, interface_list_lock
+        invoke  MutexLock
+
+        mov     edx, [usb_interface_list]     ; next
+        mov     [esi + DRV_CONTEXT.next], edx
+        mov     [esi + DRV_CONTEXT.prev], usb_interface_list
+        mov     [usb_interface_list], esi
+        mov     [edx + DRV_CONTEXT.prev], esi
+
+        mov     ecx, interface_list_lock
+        invoke  MutexUnlock
+
+        and     [esi + DRV_CONTEXT.drv_hand], 0
+        mov     [esi + DRV_CONTEXT.flags], USBDRV_TYPE_NOLOCK
+
+        ; lock mutex
+        mov     ecx, drv_list_lock
+        invoke  MutexLock
+
+        ; save device context data
+        mov     eax, [.config_pipe]
+        mov     [esi + DRV_CONTEXT.ep0], eax
+        mov     eax, [.config_descr]
+        mov     [esi + DRV_CONTEXT.config_descr], eax
+        mov     eax, [.interface]
+        mov     [esi + DRV_CONTEXT.interface_descr], eax
+
+        ; get pointer to list
+        mov     edx, [drv_list]
+        test    edx, edx
+        jz      .err_exit
+
+        mov     edi, edx
+        add     edi, [edx]
+
+        ; get in ecx VID:PID code
+        invoke  USBGetParam, [.config_pipe], 0
+        mov     ecx, dword[eax + DEVICE_DESCR.idVendor]
+
+.loop_id_drv:
+        cmp     dword[edi], 0
+        jz      .end_loop_id_drv
+
+        mov     edx, [drv_list]
+        add     edx, [edi] ; ID_TABLE
+.loop_id:
+        cmp     dword[edx], 0
+        jz      .end_loop_id
+
+        ; check id
+        mov     eax, ecx
+        test    word[edx + 2], 0xffff
+        jne     @f
+        ; driver for all devices of VID
+        and     eax, 0xffff
+@@:
+        cmp     [edx], eax ; check VID:PID
+        je      @f
+
+        add     edx, 4
+        jmp     .loop_id
+@@:     ; found
+        call    .load_drv
+        jnz     .exit
+
+        add     edx, 4
+        jmp     .loop_id
+.end_loop_id:
+        add     edi, 8
+        jmp     .loop_id_drv
+
+.end_loop_id_drv:
+
+
+        push    esi
+        mov     esi, str_1
+        invoke  SysMsgBoardStr
+        pop     esi
+
+
+        ; get in ecx class code
+        mov     eax, [.interface]
+        mov     ecx, dword[eax + INTERFACE_DESCR.bInterfaceClass]  ; 24-31 bits
+
+        mov     edi, [drv_list]
+        add     edi, [edi + 4]
+.loop_class:
+        cmp     dword[edi], 0
+        jz      .end_loop_class
+
+        ; check class
+        movzx   eax, byte[edi]  ; length
+        and     eax, 11b        ; protect - max length = 3
+        lea     eax, [eax*8]    ; 1 = 8;  2 = 16; 3 = 24
+        xor     edx, edx
+        bts     edx, eax
+        dec     edx             ; bitmask
+
+        mov     eax, [edi]
+        shr     eax, 8
+        and     eax, edx    ; good class in list
+
+        and     edx, ecx    ; good class of device
+
+        cmp     eax, edx
+        je      @f
+
+        add     edi, 8
+        jmp     .loop_class
+@@:     ; found
+        call    .load_drv
+        jnz     .exit
+
+        add     edi, 8
+        jmp     .loop_class
+
+; IN: edi - item list of driver
+;     esi - DRV_CONTEXT
+; OUT: ZF - not found zF - found
+; function save drv handl in DRV_CONTEXT.drv_hand
+;          and pdata in DRV_CONTEXT.drv_pdata
+.load_drv:
+        push    ecx edx
+        ; load driver
+        push    esi
+        mov     esi, str_2
+        invoke  SysMsgBoardStr
+        pop     esi
+
+        mov     ecx, [drv_list]
+        add     ecx, [edi + 4]
+
+        pusha
+        mov     esi, ecx
+        invoke  SysMsgBoardStr
+        mov     esi, str_newline
+        invoke  SysMsgBoardStr
+        popa
+
+        invoke  GetService, ecx
+        test    eax, eax
+        jz      @f
+
+        mov     [esi + DRV_CONTEXT.drv_hand], eax
+        ; get function list
+        mov     ecx, [eax + USBSRV.usb_func]
+
+        ; call AddDevice of driver
+        stdcall [ecx + USBFUNC.add_device], [.config_pipe], \
+                                            [.config_descr],\
+                                            [.interface]
+        mov     [esi + DRV_CONTEXT.drv_pdata], eax
+        test    eax, eax
+        jnz     .load_drv.good
+
+        push    esi
+        mov     esi, str_4
+        invoke  SysMsgBoardStr
+        pop     esi
+
+        and     [esi + DRV_CONTEXT.drv_hand], 0
+@@:
+        pushf
+        push    esi
+        mov     esi, str_5
+        invoke  SysMsgBoardStr
+        pop     esi
+        popf
+
+        pop     edx ecx
+        retn
+.load_drv.good:
+        pushf
+        push    esi
+        mov     esi, str_3
+        invoke  SysMsgBoardStr
+        pop     esi
+        popf
+
+        mov     [esi + DRV_CONTEXT.flags], USBDRV_TYPE_NATIVE
+        pop     edx ecx
+        retn
+
+
+.err_exit:
+        mov     eax, esi
+        invoke  Kfree
+        xor     esi, esi
+.end_loop_class:
+.exit:
+        ; driver not found - Added libusb driver
+
+        ; unlock mutex
+        mov     ecx, drv_list_lock
+        invoke  MutexUnlock
+
+        mov     eax, esi
+        pop     edi esi
+        ret
+.err_init:
+        xor     eax, eax
+        pop     edi esi
+        ret
+endp
+
+
+proc    DeviceDisconnected stdcall, .pdata:dword
+
+        mov     eax, [.pdata]
+
+        test    [eax + DRV_CONTEXT.flags], USBDRV_TYPE_NATIVE
+        jz      .no_native
+
+        cmp     [eax + DRV_CONTEXT.drv_hand], 0
+        jz      .free
+
+        ; call device disconnected
+        mov     ecx, [eax + DRV_CONTEXT.drv_hand]
+
+        mov     edx, [ecx + USBSRV.usb_func]
+        cmp     dword[edx], USBFUNC.device_disconnect
+        jbe     .free                                ; TODO: check
+
+        stdcall [edx + USBFUNC.device_disconnect], [eax + DRV_CONTEXT.drv_pdata]
+.free:
+        ; clear list of DRV_CONTENT
+        mov     ecx, interface_list_lock
+        invoke  MutexLock
+
+        mov     eax, [.pdata]
+        mov     edx, [eax + DRV_CONTEXT.prev]
+        mov     ecx, [eax + DRV_CONTEXT.next]
+        mov     [edx + DRV_CONTEXT.next], ecx
+        mov     [ecx + DRV_CONTEXT.prev], edx
+
+        mov     ecx, interface_list_lock
+        invoke  MutexUnlock
+
+        ; free context
+        mov    eax, [.pdata]
+        invoke Kfree
+        ret
+.no_native:
+        test    [eax + DRV_CONTEXT.flags], USBDRV_TYPE_IOCTL
+        jz      .free
+
+        ; set state for block user api and clear struct
+        or      [eax + DRV_CONTEXT.flags], USBDRV_IOCTL_BLOCKED
+        xor     ecx, ecx
+        ;mov     [eax + DRV_CONTEXT.drv_hand], ecx
+        ;mov     [eax + DRV_CONTEXT.drv_pdata], ecx
+        mov     [eax + DRV_CONTEXT.config_descr], ecx
+        mov     [eax + DRV_CONTEXT.interface_descr], ecx
+        mov     [eax + DRV_CONTEXT.ep0], ecx
+        ; TODO
+        jmp     .free
+endp
+
+; data
+drv_list_lock   MUTEX
+
+drv_list        dd ?
+
+interface_list_lock     MUTEX
+usb_interface_list:
+        dd      usb_interface_list
+        dd      usb_interface_list
+
+
+usb_functions:
+        dd      .end - usb_functions
+        dd      AddDevice
+        dd      DeviceDisconnected
+.end:
+
+drv_name        db 'usbother', 0
+
+default_list:   db '/sys/settings/usbdrv.dat', 0
+
+str_1: db 'USBOTHER: Driver for this ID not found', 13, 10, 0
+str_2: db 'USBOTHER: Check found driver: ', 0, 13, 10, 0
+str_3: db 'USBOTHER: Device driver is good', 13, 10, 0
+str_4: db 'USBOTHER: Device driver fail prob', 13, 10, 0
+str_5: db 'USBOTHER: Device driver load error', 13, 10, 0
+str_newline: db 13,10,0
+
+data fixups
+end data

kernel/branches/kolibri-ahci/bootloader/readme

@@ -5,7 +5,7 @@
 ;;                                                              ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-Загрузочный сектор для ОС Колибри (FAT12, дискета)
+Загрузочный сектор для КолибриОС (FAT12, дискета)
 
 - Описание
   Позволяет загружать KERNEL.MNT с дискет/образов

kernel/branches/kolibri-lldw/bootloader/readme

@@ -5,7 +5,7 @@
 ;;                                                              ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-Загрузочный сектор для ОС Колибри (FAT12, дискета)
+Загрузочный сектор для КолибриОС (FAT12, дискета)
 
 - Описание
   Позволяет загружать KERNEL.MNT с дискет/образов

kernel/branches/kolibrios-pe-clevermouse/bootloader/readme

@@ -5,7 +5,7 @@
 ;;                                                              ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-Загрузочный сектор для ОС Колибри (FAT12, дискета)
+Загрузочный сектор для КолибриОС (FAT12, дискета)
 
 - Описание
   Позволяет загружать KERNEL.MNT с дискет/образов

kernel/trunk/bootloader/readme

@@ -5,7 +5,7 @@
 ;;                                                              ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-Загрузочный сектор для ОС Колибри (FAT12, дискета)
+Загрузочный сектор для КолибриОС (FAT12, дискета)
 
 - Описание
   Позволяет загружать KERNEL.MNT с дискет/образов

programs/cmm/browser/WebView.c

@@ -1,10 +1,9 @@
 //Copyright 2007-2025 by Veliant & Leency
-//Asper, lev, Lrz, Barsuk, Nable, hidnplayr...
+//Asper, lev, Lrz, Barsuk, Nable, hidnplayr, Burer...
 
 //BUGS
 //if maximize a window on image load => crash
 //issues with a long line
-//add proxy settings
 
 //===================================================//
 //                                                   //
@@ -13,6 +12,7 @@
 //===================================================//
 
 #define MEMSIZE 1024 * 160
+
 #include "..\lib\gui.h"
 #include "..\lib\draw_buf.h"
 #include "..\lib\list_box.h"
@@ -21,6 +21,7 @@
 #include "..\lib\random.h"
 #include "..\lib\clipboard.h"
 
+#include "..\lib\obj\libini.h"
 #include "..\lib\obj\box_lib.h"
 #include "..\lib\obj\libimg.h"
 #include "..\lib\obj\http.h"
@@ -67,6 +68,10 @@ _http http = 0;
 progress_bar prbar;
 proc_info Form;
 
+char settings_file[256];
+char proxy_address[768];
+
+#include "settings.h"
 #include "tabs.h"
 
 dword cur_img_url;
@@ -90,6 +95,7 @@ edit_box omnibox_edit = {250, 0, 0, 0xffffff,
 
 void LoadLibraries()
 {
+	load_dll(libini,      #lib_init,1);
 	load_dll(boxlib,      #box_lib_init,0);
 	load_dll(libimg,      #libimg_init,1);
 	load_dll(libHTTP,     #http_lib_init,1);
@@ -130,6 +136,7 @@ void main()
 	TOOLBAR_H = PADDING+TSZE+PADDING+2;
 
 	LoadLibraries();
+	LoadIniConfig();
     HandleParam();
 
 	omnibox_edit.left = PADDING+TSZE*2+PADDING+6;
@@ -517,14 +524,17 @@ bool GetLocalFileData(dword _path)
 bool GetUrl(dword _http_url)
 {
 	char new_url_full[URL_SIZE+1];
-	if (!strncmp(_http_url,"http:",5)) {
+	if (!strncmp(_http_url,"http://",7)) {
 		http.get(_http_url);
 		return true;
 	} else if (!strncmp(_http_url,"https://",8)) {
-		strcpy(#new_url_full, "http://gate.aspero.pro/?site=");
-		strncat(#new_url_full, _http_url, URL_SIZE);
-		http.get(#new_url_full);
-		return true;
+		if (#proxy_address) {
+			strcpy(#new_url_full, #proxy_address);
+			strncat(#new_url_full, _http_url, URL_SIZE);
+			http.get(#new_url_full);
+			return true;
+		}
+		return false;
 	}
 	return false;
 }

programs/cmm/browser/const.h

@@ -70,7 +70,7 @@ Copy link
 Download link contents";
 char loading_text[] = "Loading...";
 char update_param[] = "-e http://builds.kolibrios.org/en_US/data/programs/cmm/browser/WebView.com";
-char update_download_error[] = "'WebView\nError receiving an up to date information!' -tE";
+char update_download_error[] = "'WebView\nError receiving update information!' -tE";
 char update_ok[] = "'WebView\nThe browser has been updated!' -tO";
 char update_is_current[] = "'WebView\nThe browser is up to date.' -tI";
 char update_can_not_copy[] = "'WebView\nError copying a new version from Downloads folder!\nProbably too litle space on Ramdisk.' -tE";
@@ -112,4 +112,4 @@ char editbox_icons[] = FROM "res/editbox_icons.raw";
 
 #define DEFAULT_URL URL_SERVICE_HOMEPAGE
 
-char version[]="WebView 3.91";
+char version[]="WebView 3.92";

programs/cmm/browser/res/homepage_en.htm

@@ -14,7 +14,7 @@
 |     ||  |        |  |
 \_____||__|________|__|<font color=#DDD>lc</font>
 
-<font bg=#F8F15B> web <font bg=#FF5A7E color=#fff> 1.0 <font bg=#47D018> compatable
+<font bg=#F8F15B> web <font bg=#FF5A7E color=#fff> 1.0 <font bg=#47D018> compatible
 <font bg=#3CE7FF>              </font></font></font></font>
 <td>
 
@@ -26,9 +26,9 @@
 
 By the way,
 <font color="#555555">&bull; You can check for browser updates from the main menu.
-&bull; To run a web search, type a text in the adress box and press Ctrl+Enter.
-&bull; Pressing F6 moves a text cursor to the omnibox.
-&bull; You can manually change the encoding of a page by clicking on a label in the bottom right corner.
+&bull; To run a web search, type text in the address box and press Ctrl+Enter.
+&bull; Pressing F6 moves the text cursor to the omnibox.
+&bull; You can manually change the encoding of a page by clicking on the label in the bottom right corner.
 
 
 

programs/cmm/browser/res/page_not_found_en.htm

@@ -4,11 +4,11 @@
 <h1>&nbsp;Webpage Not Available</h1>
 <h2>&nbsp;What could be done:</h2>
 <ul>
-	<li>Make sure that evetything fine with Internet connection.<br>
+	<li>Make sure that you have a working Internet connection.<br>
 		Open <a href="/sys/network/netcfg">Netcfg</a> network diagnostic tool.<br>
-	<li>Check page address, there may have been made a typo.<br>
+	<li>Check the page address for any typos.<br>
 	<li>Server is temporarily unavailable.<br>
 		Refresh the page.<br>
-	<li>Browser doesn't handled properly server's response.<br>
+	<li>Browser didn't properly handle the server's response.<br>
 		Please, report an error.<br>
 </ul>

programs/cmm/browser/settings.h

@@ -0,0 +1,9 @@
+_ini ini;
+
+void LoadIniConfig()
+{
+    ini.path = GetIni(#settings_file, "app.ini");
+    ini.section = "WebView";
+
+    ini.GetString("proxy", #proxy_address, sizeof(proxy_address), NULL);
+}

programs/cmm/downloader/dl.c

@@ -1,7 +1,12 @@
+//Copyright 2020 - 2025 by Leency
+//Burer...
+
 #define MEMSIZE 1024 * 40
-//Copyright 2020 - 2021 by Leency
+
 #include "../lib/gui.h"
 #include "../lib/random.h"
+
+#include "../lib/obj/libini.h"
 #include "../lib/obj/box_lib.h"
 #include "../lib/obj/http.h"
 
@@ -21,6 +26,11 @@ char uEdit[URL_SIZE];
 char filepath[4096];
 char save_dir[4096];
 
+char settings_file[256];
+char proxy_address[768];
+
+#include "settings.h"
+
 char* active_status;
 
 edit_box ed = {WIN_W-GAPX-GAPX,GAPX,20,0xffffff,0x94AECE,0xffffff,0xffffff,
@@ -32,9 +42,13 @@ progress_bar pb = {0, GAPX, 52, WIN_W - GAPX - GAPX, 17, 0, NULL, NULL,
 void main()  
 {
 	dword shared_url;
+
+	load_dll(libini,  #lib_init,1);
 	load_dll(boxlib,  #box_lib_init,0);
 	load_dll(libHTTP, #http_lib_init,1);
 
+	LoadIniConfig();
+
 	strcpy(#save_dir, DEFAULT_SAVE_DIR);
 	if (!dir_exists(#save_dir)) CreateDir(#save_dir);
 	SetCurDir(#save_dir);
@@ -167,10 +181,8 @@ void StartDownloading()
 	if (http.transfer > 0) return;
 	ResetDownloadSpeed();
 	pb.back_color = 0xFFFfff;
-	if (!strncmp(#uEdit,"https:",6)) {
-		//miniprintf(#get_url, "http://gate.aspero.pro/?site=%s", #uEdit);
-		notify("'HTTPS for download temporary is not supported,\ntrying to download the file via HTTP' -W");
-		miniprintf(#uEdit, "http://%s", #uEdit+8);
+	if (!strncmp(#uEdit,"https://",8)) {
+		miniprintf(#get_url, "%s%s", #proxy_address, #uEdit);
 	}
 	strcpy(#get_url, #uEdit);
 

programs/cmm/downloader/settings.h

@@ -0,0 +1,9 @@
+_ini ini;
+
+void LoadIniConfig()
+{
+    ini.path = GetIni(#settings_file, "app.ini");
+    ini.section = "WebView";
+
+    ini.GetString("proxy", #proxy_address, sizeof(proxy_address), NULL);
+}

programs/cmm/lib/obj/http.h

@@ -112,7 +112,6 @@ struct _http
 dword _http::get(dword _url)
 {
 	cur_url = _url;
-	if (streqrp(cur_url, "http://gate.aspero.pro/?site=")) cur_url += 29;
 	http_get stdcall (_url, 0, 0, #accept_language);
 	transfer = EAX;
 	return EAX;
@@ -138,7 +137,7 @@ bool _http::stop()
 		transfer=0;
 		*/
 		hfree();
-		return true;    
+		return true;
 	}
 	return false;
 }

programs/develop/info3ds/build_en.bat

@@ -1,10 +1,7 @@
 if not exist bin mkdir bin
 @erase lang.inc
 @echo lang fix en_US >lang.inc
-@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
 @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

@@ -1,10 +1,7 @@
 if not exist bin mkdir bin
 @erase lang.inc
 @echo lang fix ru_RU >lang.inc
-@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
 @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/info3ds.asm

@@ -1,6 +1,10 @@
+; SPDX-License-Identifier: GPL-2.0-only
+; Info3ds - is a program for viewing the structure of *.3ds files
+; Copyright (C) 2011-2025 KolibriOS team
+
 use32
 	org 0
-	db 'MENUET01' ;идентиф. исполняемого файла всегда 8 байт
+	db 'MENUET01'
 	dd 1, start, i_end, mem, stacktop, file_name, sys_path
 
 version_edit equ 1
@@ -22,36 +26,34 @@ include 'convert_stl_3ds.inc'
 
 @use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 
-ID_ICON_CHUNK_MAIN equ 0 ;иконка главного блока
-ID_ICON_CHUNK_NOT_FOUND equ 1 ;иконка не известного блока
-ID_ICON_DATA equ 2 ;иконка для данных блока, не определенной структуры
+ID_ICON_CHUNK_MAIN equ 0 ;main block icon
+ID_ICON_CHUNK_NOT_FOUND equ 1 ;unknown block icon
+ID_ICON_DATA equ 2 ;icon for block data, undefined structure
 ID_ICON_POINT equ 8
 ID_ICON_POINT_SEL equ 9
 
-FILE_ERROR_CHUNK_SIZE equ -3 ;ошибка в размере блока
+FILE_ERROR_CHUNK_SIZE equ -3 ;block size error
 
 include 'info_o3d.inc'
 
-main_wnd_height equ 460 ;высота главного окна программы
+main_wnd_height equ 460 ;height of the main program window
 IMAGE_TOOLBAR_ICON_SIZE equ 21*21*3
 
 align 4
 fl255 dd 255.0
-open_file_data dd 0 ;указатель на память для открытия файлов 3ds
-open_file_size dd 0 ;размер открытого файла
+open_file_data dd 0 ;pointer to memory for opening 3ds files
+open_file_size dd 0
 image_data_toolbar dd 0
-icon_tl_sys dd 0 ;указатеель на память для хранения системных иконок
-icon_toolbar dd 0 ;указатеель на память для хранения иконок объектов
-fn_toolbar db 'toolbar.png',0
+icon_tl_sys dd 0 ;pointer to memory for storing system icons
+icon_toolbar dd 0 ;pointer to memory for storing object icons
 
-align 4
 level_stack dd 0
-offs_last_timer dd 0 ;последний сдвиг показаный в функции таймера
+offs_last_timer dd 0 ;last shift shown in timer function
 
 align 4
-file_3ds: ;переменные используемые при открытии файла
-.offs: dd 0 ;+0 указатель на начало блока
-.size: dd 0 ;+4 размер блока (для 1-го параметра = размер файла 3ds)
+file_3ds: ;variables used when opening a file
+.offs: dd 0 ;+0 pointer to the beginning of the block
+.size: dd 0 ;+4 block size (for 1st parameter = 3ds file size)
 rb 8*MAX_FILE_LEVEL
 
 size_one_list equ 42
@@ -81,7 +83,7 @@ start:
 	stosd
 
 	load_libraries l_libs_start,l_libs_end
-	;проверка на сколько удачно загузились библиотеки
+	;checking how successfully the libraries were loaded
 	mov	ebp,lib_0
 	.test_lib_open:
 	cmp	dword [ebp+ll_struc_size-4],0
@@ -94,7 +96,7 @@ start:
 	mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors
 	mcall SF_SET_EVENTS_MASK,0xC0000027
 
-	stdcall [OpenDialog_Init],OpenDialog_data ;подготовка диалога
+	stdcall [OpenDialog_Init],OpenDialog_data ;preparation of dialogue
 
 	;kmenu initialisation
 	stdcall [kmenu_init],sc
@@ -143,70 +145,68 @@ start:
 	stdcall [tl_data_init], tree1
 	;системные иконки 16*16 для tree_list
 	include_image_file 'tl_sys_16.png', icon_tl_sys
-	;если изображение не открылось, то в icon_tl_sys будут
-	;не инициализированные данные, но ошибки не будет, т. к. буфер нужного размера
-	mov eax,dword[icon_tl_sys]
-	mov dword[tree1.data_img_sys],eax
+	mov eax,[icon_tl_sys]
+	mov [tree1.data_img_sys],eax
 
-	load_image_file 'objects.png', icon_toolbar
-	mov eax,dword[icon_toolbar]
-	mov dword[tree1.data_img],eax
+	include_image_file 'objects.png', icon_toolbar
+	mov eax,[icon_toolbar]
+	mov [tree1.data_img],eax
 
 	stdcall [buf2d_create], buf_0 ;создание буфера
 
-	load_image_file 'font8x9.bmp', image_data_toolbar
+	include_image_file '../../fs/kfar/trunk/font8x9.bmp', image_data_toolbar
 	stdcall [buf2d_create_f_img], buf_1,[image_data_toolbar] ;создаем буфер
 	stdcall mem.Free,[image_data_toolbar] ;освобождаем память
 	stdcall [buf2d_conv_24_to_8], buf_1,1 ;делаем буфер прозрачности 8 бит
 	stdcall [buf2d_convert_text_matrix], buf_1
 
-	load_image_file fn_toolbar, image_data_toolbar
+	include_image_file 'toolbar.png', image_data_toolbar
 
 	;работа с файлом настроек
 	copy_path ini_name,sys_path,file_name,0
 	mov dword[def_dr_mode],0
-	stdcall dword[ini_get_int],file_name,ini_sec_w3d,key_dv,1
+	stdcall [ini_get_int],file_name,ini_sec_w3d,key_dv,1
 	or eax,eax
 	jz @f
 		or dword[def_dr_mode], 1 shl bit_vertexes
 	@@:
-	stdcall dword[ini_get_int],file_name,ini_sec_w3d,key_df,1
+	stdcall [ini_get_int],file_name,ini_sec_w3d,key_df,1
 	or eax,eax
 	jz @f
 		or dword[def_dr_mode], 1 shl bit_faces
 	@@:
-	stdcall dword[ini_get_int],file_name,ini_sec_w3d,key_dff,1
+	stdcall [ini_get_int],file_name,ini_sec_w3d,key_dff,1
 	or eax,eax
 	jz @f
 		or dword[def_dr_mode], 1 shl bit_faces_fill
 	@@:
-	stdcall dword[ini_get_int],file_name,ini_sec_w3d,key_dl,1
+	stdcall [ini_get_int],file_name,ini_sec_w3d,key_dl,1
 	or eax,eax
 	jz @f
 		or dword[def_dr_mode], 1 shl bit_light
 	@@:
-	stdcall dword[ini_get_int],file_name,ini_sec_w3d,key_ds,1
+	stdcall [ini_get_int],file_name,ini_sec_w3d,key_ds,1
 	or eax,eax
 	jz @f
 		or dword[def_dr_mode], 1 shl bit_smooth
 	@@:
-	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_ox,0x0000ff
+	stdcall [ini_get_color],file_name,ini_sec_w3d,key_ox,0x0000ff
 	mov [color_ox],eax
-	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_oy,0xff0000
+	stdcall [ini_get_color],file_name,ini_sec_w3d,key_oy,0xff0000
 	mov [color_oy],eax
-	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_oz,0x00ff00
+	stdcall [ini_get_color],file_name,ini_sec_w3d,key_oz,0x00ff00
 	mov [color_oz],eax
-	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_bk,0x000000
+	stdcall [ini_get_color],file_name,ini_sec_w3d,key_bk,0x000000
 	mov [color_bk],eax
 	shr eax,8
 	mov [color_bk+4],eax
 	shr eax,8
 	mov [color_bk+8],eax
-	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_vert,0xffffff
+	stdcall [ini_get_color],file_name,ini_sec_w3d,key_vert,0xffffff
 	mov [color_vert],eax
-	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_face,0x808080
+	stdcall [ini_get_color],file_name,ini_sec_w3d,key_face,0x808080
 	mov [color_face],eax
-	stdcall dword[ini_get_color],file_name,ini_sec_w3d,key_select,0xffff00
+	stdcall [ini_get_color],file_name,ini_sec_w3d,key_select,0xffff00
 	mov [color_select],eax
 	finit
 	fild dword[color_bk+8]
@@ -262,19 +262,19 @@ still:
 	or eax,eax
 	jz timer_funct
 
-	cmp al,1
+	cmp al,EV_REDRAW
 	jne @f
 		call draw_window
 		jmp still
 	@@:
-	cmp al,2
+	cmp al,EV_KEY
 	jz key
-	cmp al,3
+	cmp al,EV_BUTTON
 	jz button
-	cmp al,6
+	cmp al,EV_MOUSE
 	jne @f
 		mcall SF_THREAD_INFO,procinfo,-1
-		cmp ax,word[procinfo+4]
+		cmp ax,word[procinfo.window_stack_position]
 		jne @f ;окно не активно
 		call mouse
 	@@:
@@ -282,7 +282,7 @@ still:
 
 align 4
 mouse:
-	stdcall [tl_mouse], dword tree1
+	stdcall [tl_mouse], tree1
 	ret
 
 align 4
@@ -385,7 +385,7 @@ pushad
 	mcall , (20 shl 16)+560, (20 shl 16)+main_wnd_height
 
 	mcall SF_THREAD_INFO,procinfo,-1
-	mov eax,dword[procinfo.box.height]
+	mov eax,[procinfo.box.height]
 	cmp eax,250
 	jge @f
 		mov eax,250
@@ -393,13 +393,14 @@ pushad
 	sub eax,65
 	mov dword[tree1.box_height],eax
 	mov word[w_scr_t1.y_size],ax ;новые размеры скроллинга
-	cmp eax,dword[buf_0.h] ;увеличиваем высоту буфера
-	jle @f
+	cmp eax,dword[buf_0.h] ;change buffer height
+	je @f
 		stdcall [buf2d_resize],buf_0,0,eax,1
-		mov dword[offs_last_timer],0 ;для обновления буфера в таймере
+		stdcall [buf2d_clear], buf_0, [buf_0.color] ;background update
+		mov dword[offs_last_timer],0 ;for update buffer in the timer
 	@@:
 
-	mov eax,dword[procinfo.box.width]
+	mov eax,[procinfo.box.width]
 	cmp eax,400
 	jge @f
 		mov eax,400
@@ -457,7 +458,7 @@ popad
 align 4
 key:
 	mcall SF_GET_KEY
-	stdcall [tl_key], dword tree1
+	stdcall [tl_key], tree1
 	jmp still
 
 
@@ -1087,53 +1088,6 @@ l_libs_start:
 	lib_6 l_libs lib_name_6, file_name, system_dir_6, import_libini
 l_libs_end:
 
-align 4
-import_libimg:
-	dd alib_init1
-	img_is_img  dd aimg_is_img
-	img_info    dd aimg_info
-	img_from_file dd aimg_from_file
-	img_to_file dd aimg_to_file
-	img_from_rgb dd aimg_from_rgb
-	img_to_rgb  dd aimg_to_rgb
-	img_to_rgb2 dd aimg_to_rgb2
-	img_decode  dd aimg_decode
-	img_encode  dd aimg_encode
-	img_create  dd aimg_create
-	img_destroy dd aimg_destroy
-	img_destroy_layer dd aimg_destroy_layer
-	img_count   dd aimg_count
-	img_lock_bits dd aimg_lock_bits
-	img_unlock_bits dd aimg_unlock_bits
-	img_flip    dd aimg_flip
-	img_flip_layer dd aimg_flip_layer
-	img_rotate  dd aimg_rotate
-	img_rotate_layer dd aimg_rotate_layer
-	img_draw    dd aimg_draw
-
-	dd 0,0
-	alib_init1   db 'lib_init',0
-	aimg_is_img  db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение
-	aimg_info    db 'img_info',0
-	aimg_from_file db 'img_from_file',0
-	aimg_to_file db 'img_to_file',0
-	aimg_from_rgb db 'img_from_rgb',0
-	aimg_to_rgb  db 'img_to_rgb',0 ;преобразование изображения в данные RGB
-	aimg_to_rgb2 db 'img_to_rgb2',0
-	aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных
-	aimg_encode  db 'img_encode',0
-	aimg_create  db 'img_create',0
-	aimg_destroy db 'img_destroy',0
-	aimg_destroy_layer db 'img_destroy_layer',0
-	aimg_count   db 'img_count',0
-	aimg_lock_bits db 'img_lock_bits',0
-	aimg_unlock_bits db 'img_unlock_bits',0
-	aimg_flip    db 'img_flip',0
-	aimg_flip_layer db 'img_flip_layer',0
-	aimg_rotate  db 'img_rotate',0
-	aimg_rotate_layer db 'img_rotate_layer',0
-	aimg_draw    db 'img_draw',0
-
 align 4
 import_proclib:
 	OpenDialog_Init dd aOpenDialog_Init
@@ -1146,122 +1100,9 @@ dd 0,0
 	aOpenDialog_Set_file_name db 'OpenDialog_set_file_name',0
 	aOpenDialog_Set_file_ext db 'OpenDialog_set_file_ext',0
 
-align 4
-import_buf2d:
-	dd sz_init0
-	buf2d_create dd sz_buf2d_create
-	buf2d_create_f_img dd sz_buf2d_create_f_img
-	buf2d_clear dd sz_buf2d_clear
-	buf2d_draw dd sz_buf2d_draw
-	buf2d_delete dd sz_buf2d_delete
-	buf2d_resize dd sz_buf2d_resize
-	buf2d_line dd sz_buf2d_line
-	buf2d_rect_by_size dd sz_buf2d_rect_by_size
-	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
-	buf2d_circle dd sz_buf2d_circle
-	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
-	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
-	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
-	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
-	buf2d_bit_blt dd sz_buf2d_bit_blt
-	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
-	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
-	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
-	buf2d_draw_text dd sz_buf2d_draw_text
-	buf2d_crop_color dd sz_buf2d_crop_color
-	buf2d_offset_h dd sz_buf2d_offset_h
-	buf2d_set_pixel dd sz_buf2d_set_pixel
-	dd 0,0
-	sz_init0 db 'lib_init',0
-	sz_buf2d_create db 'buf2d_create',0
-	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
-	sz_buf2d_clear db 'buf2d_clear',0
-	sz_buf2d_draw db 'buf2d_draw',0
-	sz_buf2d_delete db 'buf2d_delete',0
-	sz_buf2d_resize db 'buf2d_resize',0
-	sz_buf2d_line db 'buf2d_line',0
-	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
-	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
-	sz_buf2d_circle db 'buf2d_circle',0
-	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
-	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
-	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
-	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
-	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
-	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
-	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
-	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
-	sz_buf2d_draw_text db 'buf2d_draw_text',0
-	sz_buf2d_crop_color db 'buf2d_crop_color',0
-	sz_buf2d_offset_h db 'buf2d_offset_h',0
-	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
-
-align 4
-import_box_lib:
-	dd sz_init1
-	edit_box_draw dd sz_edit_box_draw
-	edit_box_key dd sz_edit_box_key
-	edit_box_mouse dd sz_edit_box_mouse
-	edit_box_set_text dd sz_edit_box_set_text
-	scrollbar_ver_draw dd sz_scrollbar_ver_draw
-	scrollbar_hor_draw dd sz_scrollbar_hor_draw
-
-	tl_data_init dd sz_tl_data_init
-	tl_data_clear dd sz_tl_data_clear
-	tl_info_clear dd sz_tl_info_clear
-	tl_key dd sz_tl_key
-	tl_mouse dd sz_tl_mouse
-	tl_draw dd sz_tl_draw
-	tl_info_undo dd sz_tl_info_undo
-	tl_info_redo dd sz_tl_info_redo
-	tl_node_add dd sz_tl_node_add
-	tl_node_set_data dd sz_tl_node_set_data
-	tl_node_get_data dd sz_tl_node_get_data
-	tl_node_delete dd sz_tl_node_delete
-	tl_node_move_up dd sz_tl_node_move_up
-	tl_node_move_down dd sz_tl_node_move_down
-	tl_cur_beg dd sz_tl_cur_beg
-	tl_cur_next dd sz_tl_cur_next
-	tl_cur_perv dd sz_tl_cur_perv
-	tl_node_close_open dd sz_tl_node_close_open
-	tl_node_lev_inc dd sz_tl_node_lev_inc
-	tl_node_lev_dec dd sz_tl_node_lev_dec
-	tl_node_poi_get_info dd sz_tl_node_poi_get_info
-	tl_node_poi_get_next_info dd sz_tl_node_poi_get_next_info
-	tl_node_poi_get_data dd sz_tl_node_poi_get_data
-
-	dd 0,0
-	sz_init1 db 'lib_init',0
-	sz_edit_box_draw db 'edit_box_draw',0
-	sz_edit_box_key db 'edit_box_key',0
-	sz_edit_box_mouse db 'edit_box_mouse',0
-	sz_edit_box_set_text db 'edit_box_set_text',0
-	sz_scrollbar_ver_draw db 'scrollbar_v_draw',0
-	sz_scrollbar_hor_draw db 'scrollbar_h_draw',0
-
-	sz_tl_data_init db 'tl_data_init',0
-	sz_tl_data_clear db 'tl_data_clear',0
-	sz_tl_info_clear db 'tl_info_clear',0
-	sz_tl_key db 'tl_key',0
-	sz_tl_mouse db 'tl_mouse',0
-	sz_tl_draw db 'tl_draw',0
-	sz_tl_info_undo db 'tl_info_undo',0
-	sz_tl_info_redo db 'tl_info_redo',0
-	sz_tl_node_add db 'tl_node_add',0
-	sz_tl_node_set_data db 'tl_node_set_data',0
-	sz_tl_node_get_data db 'tl_node_get_data',0
-	sz_tl_node_delete db 'tl_node_delete',0
-	sz_tl_node_move_up db 'tl_node_move_up',0
-	sz_tl_node_move_down db 'tl_node_move_down',0
-	sz_tl_cur_beg db 'tl_cur_beg',0
-	sz_tl_cur_next db 'tl_cur_next',0
-	sz_tl_cur_perv db 'tl_cur_perv',0
-	sz_tl_node_close_open db 'tl_node_close_open',0
-	sz_tl_node_lev_inc db 'tl_node_lev_inc',0
-	sz_tl_node_lev_dec db 'tl_node_lev_dec',0
-	sz_tl_node_poi_get_info db 'tl_node_poi_get_info',0
-	sz_tl_node_poi_get_next_info db 'tl_node_poi_get_next_info',0
-	sz_tl_node_poi_get_data db 'tl_node_poi_get_data',0
+include '../../develop/libraries/libs-dev/libimg/import.inc'
+include '../../develop/libraries/box_lib/import.inc'
+include '../../develop/libraries/buf2d/import.inc'
 
 align 4
 import_libkmenu:
@@ -1287,23 +1128,7 @@ dd 0,0
 	akmenuitem_delete		db 'kmenuitem_delete',0
 	akmenuitem_draw 		db 'kmenuitem_draw',0
 
-align 4
-import_tinygl:
-macro E_LIB n
-{
-if defined sz_#n
-	n dd sz_#n
-end if
-}
-include '../../develop/libraries/TinyGL/asm_fork/export.inc'
-	dd 0,0
-macro E_LIB n
-{
-if used n
-	sz_#n db `n,0
-end if
-}
-include '../../develop/libraries/TinyGL/asm_fork/export.inc'
+include '../../develop/libraries/TinyGL/asm_fork/import.inc'
 
 align 4
 import_libini:
@@ -1367,9 +1192,9 @@ white_light dd 0.8, 0.8, 0.8, 1.0 ;
 lmodel_ambient dd 0.3, 0.3, 0.3, 1.0 ; Параметры фонового освещения
 
 if lang eq ru_RU
-capt db 'info 3ds версия 04.05.25',0 ;подпись окна
+capt db 'info 3ds версия 22.10.25',0
 else ; Default to en_US
-capt db 'info 3ds version 04.05.25',0 ;window caption
+capt db 'info 3ds version 22.10.25',0 ;window caption
 end if
 
 align 16

programs/develop/info3ds/info3ds_u.asm

@@ -1,3 +1,7 @@
+; SPDX-License-Identifier: GPL-2.0-only
+; Info3ds_u - is a program for viewing the structure of *.3ds files
+; Copyright (C) 2015-2025 KolibriOS team
+
 use32
 	org 0
 	db 'MENUET01' ;идентиф. исполняемого файла всегда 8 байт
@@ -12,6 +16,7 @@ include '../../develop/libraries/libs-dev/libimg/libimg.inc'
 include '../../load_img.inc'
 include '../../load_lib.mac'
 include '../../develop/libraries/box_lib/trunk/box_lib.mac'
+include '../../develop/libraries/TinyGL/asm_fork/kosgl.inc'
 include '../../develop/libraries/TinyGL/asm_fork/opengl_const.inc'
 include 'lang.inc' ; Language support for locales: ru_RU (CP866), en_US.
 include 'info_fun_float.inc'
@@ -21,8 +26,8 @@ include 'convert_stl_3ds.inc'
 
 3d_wnd_l equ 205 ;отступ для tinygl буфера слева
 3d_wnd_t equ  47 ;отступ для tinygl буфера сверху
-3d_wnd_w equ 344
-3d_wnd_h equ 312
+3d_wnd_w equ 345
+3d_wnd_h equ 384
 
 @use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 
@@ -43,13 +48,13 @@ list_offs_text equ 14+sizeof.obj_3d ;ᤢ
 include 'info_o3d.inc'
 
 align 4
+fl180 dd 180.0
 fl255 dd 255.0
 open_file_data dd 0 ;указатель на память для открытия файлов 3ds
 open_file_size dd 0 ;размер открытого файла
 
 ;
 main_wnd_height equ 460 ;высота главного окна программы
-fn_toolbar db 'toolbar.png',0
 IMAGE_TOOLBAR_ICON_SIZE equ 21*21*3
 image_data_toolbar dd 0
 ;
@@ -140,17 +145,17 @@ start:
 	mov eax,dword[icon_tl_sys]
 	mov dword[tree1.data_img_sys],eax
 
-	load_image_file 'objects.png', icon_toolbar
+	include_image_file 'objects.png', icon_toolbar
 	mov eax,dword[icon_toolbar]
 	mov dword[tree1.data_img],eax
 
-	load_image_file 'font8x9.bmp', image_data_toolbar
+	include_image_file '../../fs/kfar/trunk/font8x9.bmp', image_data_toolbar
 	stdcall [buf2d_create_f_img], buf_1,[image_data_toolbar] ;создаем буфер
 	stdcall mem.Free,[image_data_toolbar] ;освобождаем память
 	stdcall [buf2d_conv_24_to_8], buf_1,1 ;делаем буфер прозрачности 8 бит
 	stdcall [buf2d_convert_text_matrix], buf_1
 
-	load_image_file fn_toolbar, image_data_toolbar
+	include_image_file 'toolbar.png', image_data_toolbar
 
 	;работа с файлом настроек
 	copy_path ini_name,sys_path,file_name,0
@@ -223,7 +228,7 @@ start:
 	mcall SF_SYSTEM_GET,SSF_TIME_COUNT
 	mov [last_time],eax
 
-	stdcall [kosglMakeCurrent], 3d_wnd_l,3d_wnd_t,3d_wnd_w,3d_wnd_h,ctx1
+	stdcall [kosglMakeCurrent], 3d_wnd_l,3d_wnd_t,[buf_ogl.w],[buf_ogl.h],ctx1
 	stdcall [glEnable], GL_DEPTH_TEST
 	stdcall [glEnable], GL_NORMALIZE ;делам нормали одинаковой величины во избежание артефактов
 	stdcall [glClearColor], [color_bk+8],[color_bk+4],[color_bk],0.0
@@ -231,7 +236,7 @@ start:
 	call [gluNewQuadric]
 	mov [qObj],eax
 
-	mov eax,dword[ctx1] ;eax -> TinyGLContext.GLContext
+	mov eax,[ctx1.gl_context]
 	mov eax,[eax] ;eax -> ZBuffer
 	mov eax,[eax+ZBuffer.pbuf]
 	mov dword[buf_ogl],eax
@@ -257,20 +262,20 @@ still:
 	or eax,eax
 	jz timer_funct
 
-	cmp al,1
+	cmp al,EV_REDRAW
 	jne @f
 		call draw_window
 		jmp still
 	@@:
-	cmp al,2
+	cmp al,EV_KEY
 	jz key
-	cmp al,3
+	cmp al,EV_BUTTON
 	jz button
-	cmp al,6
+	cmp al,EV_MOUSE
 	jne @f
 		mcall SF_THREAD_INFO,procinfo,-1
-		cmp ax,word[procinfo+4]
-		jne @f ;окно не активно
+		cmp ax,word[procinfo.window_stack_position]
+		jne @f ;window is not active
 		call mouse
 	@@:
 	jmp still
@@ -301,9 +306,9 @@ mouse:
 			mov ebx,3d_wnd_l
 		@@:
 		sub ebx,3d_wnd_l
-		cmp ebx,3d_wnd_w
+		cmp ebx,[buf_ogl.w]
 		jle @f
-			mov ebx,3d_wnd_w
+			mov ebx,[buf_ogl.w]
 		@@:
 		movsx eax,ax ;mouse.y
 		cmp eax,3d_wnd_t
@@ -311,9 +316,9 @@ mouse:
 			mov eax,3d_wnd_t
 		@@:
 		sub eax,3d_wnd_t
-		cmp eax,3d_wnd_h
+		cmp eax,[buf_ogl.h]
 		jle @f
-			mov eax,3d_wnd_h
+			mov eax,[buf_ogl.h]
 		@@:
 		finit
 		fild dword[mouse_y]
@@ -351,13 +356,13 @@ mouse:
 		cmp ebx,3d_wnd_l
 		jl .end_d
 		sub ebx,3d_wnd_l
-		cmp ebx,3d_wnd_w
+		cmp ebx,[buf_ogl.w]
 		jg .end_d
 		movsx eax,ax ;mouse.y
 		cmp eax,3d_wnd_t
 		jl .end_d
 		sub eax,3d_wnd_t
-		cmp eax,3d_wnd_h
+		cmp eax,[buf_ogl.h]
 		jg .end_d
 		mov dword[mouse_drag],1
 		mov dword[mouse_x],ebx
@@ -440,16 +445,7 @@ pushad
 	or  edx,0x33000000
 	mcall SF_CREATE_WINDOW, (20 shl 16)+560, (20 shl 16)+main_wnd_height,,, capt
 
-	mcall SF_THREAD_INFO,procinfo,-1
-	mov eax,dword[procinfo.box.height]
-	cmp eax,250
-	jge @f
-		mov eax,250
-	@@:
-	sub eax,30
-	sub eax,[tree1.box_top]
-	mov [tree1.box_height],eax
-	mov word[w_scr_t1.y_size],ax ;новые размеры скроллинга
+	call OnResize
 
 	stdcall [kmainmenu_draw], [main_menu]
 
@@ -493,6 +489,64 @@ pushad
 popad
 	ret
 
+align 4
+OnResize:
+	mcall SF_STYLE_SETTINGS,SSF_GET_SKIN_HEIGHT
+	push eax
+	mcall SF_THREAD_INFO,procinfo,-1
+	mov eax,[procinfo.box.height]
+	cmp eax,250
+	jge @f
+		mov eax,250
+	@@:
+	sub eax,[esp]
+	sub eax,5
+	sub eax,[tree1.box_top]
+	mov [tree1.box_height],eax
+	mov word[w_scr_t1.y_size],ax ;new scroll sizes
+
+	cmp [buf_ogl.h],eax
+	je @f
+		mov [buf_ogl.h],eax
+		mov dword[buf_ogl.w],0 ;reset width
+	@@:
+	pop eax
+	movzx eax,word[w_scr_t1.x_size]
+	add eax,[tree1.box_left]
+	add eax,[tree1.box_width]
+	add eax,15 ;5 px * 3 borders
+	sub eax,[procinfo.box.width]
+	neg eax
+	cmp eax,64
+	jge @f
+		mov eax,64
+	@@:
+	cmp [buf_ogl.w],eax
+	je .end
+		mov [buf_ogl.w],eax
+		fild dword[buf_ogl.w]
+		fld st0
+		fdiv dword[fl180]
+		fstp dword[angle_dxm]
+		fidiv dword[buf_ogl.h]
+		fstp dword[ratio]
+		stdcall [glViewport], 0,0, [buf_ogl.w], [buf_ogl.h]
+
+		mov eax,[ctx1.gl_context]
+		mov eax,[eax] ;eax -> ZBuffer
+		mov eax,[eax+ZBuffer.pbuf]
+		mov dword[buf_ogl],eax
+
+		stdcall [tl_node_get_data],tree1
+		or eax,eax
+		jz .end
+		mov dword[offs_last_timer],0 ;for update buffer in the timer
+		add eax,list_offs_obj3d
+		stdcall obj_set_sizes, eax
+		stdcall draw_3d, eax
+	.end:
+	ret
+
 align 4
 key:
 	mcall SF_GET_KEY
@@ -1152,57 +1206,10 @@ l_libs_start:
 	lib_2 l_libs lib_name_2, file_name, system_dir_2, import_box_lib
 	lib_3 l_libs lib_name_3, file_name, system_dir_3, import_buf2d
 	lib_4 l_libs lib_name_4, file_name, system_dir_4, import_libkmenu
-	lib_5 l_libs lib_name_5, file_name, system_dir_5, import_lib_tinygl
+	lib_5 l_libs lib_name_5, file_name, system_dir_5, import_tinygl
 	lib_6 l_libs lib_name_6, file_name, system_dir_6, import_libini
 l_libs_end:
 
-align 4
-import_libimg:
-	dd alib_init1
-	img_is_img  dd aimg_is_img
-	img_info    dd aimg_info
-	img_from_file dd aimg_from_file
-	img_to_file dd aimg_to_file
-	img_from_rgb dd aimg_from_rgb
-	img_to_rgb  dd aimg_to_rgb
-	img_to_rgb2 dd aimg_to_rgb2
-	img_decode  dd aimg_decode
-	img_encode  dd aimg_encode
-	img_create  dd aimg_create
-	img_destroy dd aimg_destroy
-	img_destroy_layer dd aimg_destroy_layer
-	img_count   dd aimg_count
-	img_lock_bits dd aimg_lock_bits
-	img_unlock_bits dd aimg_unlock_bits
-	img_flip    dd aimg_flip
-	img_flip_layer dd aimg_flip_layer
-	img_rotate  dd aimg_rotate
-	img_rotate_layer dd aimg_rotate_layer
-	img_draw    dd aimg_draw
-
-	dd 0,0
-	alib_init1   db 'lib_init',0
-	aimg_is_img  db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение
-	aimg_info    db 'img_info',0
-	aimg_from_file db 'img_from_file',0
-	aimg_to_file db 'img_to_file',0
-	aimg_from_rgb db 'img_from_rgb',0
-	aimg_to_rgb  db 'img_to_rgb',0 ;преобразование изображения в данные RGB
-	aimg_to_rgb2 db 'img_to_rgb2',0
-	aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных
-	aimg_encode  db 'img_encode',0
-	aimg_create  db 'img_create',0
-	aimg_destroy db 'img_destroy',0
-	aimg_destroy_layer db 'img_destroy_layer',0
-	aimg_count   db 'img_count',0
-	aimg_lock_bits db 'img_lock_bits',0
-	aimg_unlock_bits db 'img_unlock_bits',0
-	aimg_flip    db 'img_flip',0
-	aimg_flip_layer db 'img_flip_layer',0
-	aimg_rotate  db 'img_rotate',0
-	aimg_rotate_layer db 'img_rotate_layer',0
-	aimg_draw    db 'img_draw',0
-
 align 4
 import_proclib:
 	OpenDialog_Init dd aOpenDialog_Init
@@ -1215,122 +1222,9 @@ dd 0,0
 	aOpenDialog_Set_file_name db 'OpenDialog_set_file_name',0
 	aOpenDialog_Set_file_ext db 'OpenDialog_set_file_ext',0
 
-align 4
-import_buf2d:
-	dd sz_init0
-	buf2d_create dd sz_buf2d_create
-	buf2d_create_f_img dd sz_buf2d_create_f_img
-	buf2d_clear dd sz_buf2d_clear
-	buf2d_draw dd sz_buf2d_draw
-	buf2d_delete dd sz_buf2d_delete
-	buf2d_resize dd sz_buf2d_resize
-	buf2d_line dd sz_buf2d_line
-	buf2d_rect_by_size dd sz_buf2d_rect_by_size
-	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
-	buf2d_circle dd sz_buf2d_circle
-	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
-	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
-	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
-	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
-	buf2d_bit_blt dd sz_buf2d_bit_blt
-	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
-	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
-	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
-	buf2d_draw_text dd sz_buf2d_draw_text
-	buf2d_crop_color dd sz_buf2d_crop_color
-	buf2d_offset_h dd sz_buf2d_offset_h
-	buf2d_set_pixel dd sz_buf2d_set_pixel
-	dd 0,0
-	sz_init0 db 'lib_init',0
-	sz_buf2d_create db 'buf2d_create',0
-	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
-	sz_buf2d_clear db 'buf2d_clear',0
-	sz_buf2d_draw db 'buf2d_draw',0
-	sz_buf2d_delete db 'buf2d_delete',0
-	sz_buf2d_resize db 'buf2d_resize',0
-	sz_buf2d_line db 'buf2d_line',0
-	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
-	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
-	sz_buf2d_circle db 'buf2d_circle',0
-	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
-	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
-	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
-	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
-	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
-	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
-	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
-	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
-	sz_buf2d_draw_text db 'buf2d_draw_text',0
-	sz_buf2d_crop_color db 'buf2d_crop_color',0
-	sz_buf2d_offset_h db 'buf2d_offset_h',0
-	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
-
-align 4
-import_box_lib:
-	dd sz_init1
-	edit_box_draw dd sz_edit_box_draw
-	edit_box_key dd sz_edit_box_key
-	edit_box_mouse dd sz_edit_box_mouse
-	edit_box_set_text dd sz_edit_box_set_text
-	scrollbar_ver_draw dd sz_scrollbar_ver_draw
-	scrollbar_hor_draw dd sz_scrollbar_hor_draw
-
-	tl_data_init dd sz_tl_data_init
-	tl_data_clear dd sz_tl_data_clear
-	tl_info_clear dd sz_tl_info_clear
-	tl_key dd sz_tl_key
-	tl_mouse dd sz_tl_mouse
-	tl_draw dd sz_tl_draw
-	tl_info_undo dd sz_tl_info_undo
-	tl_info_redo dd sz_tl_info_redo
-	tl_node_add dd sz_tl_node_add
-	tl_node_set_data dd sz_tl_node_set_data
-	tl_node_get_data dd sz_tl_node_get_data
-	tl_node_delete dd sz_tl_node_delete
-	tl_node_move_up dd sz_tl_node_move_up
-	tl_node_move_down dd sz_tl_node_move_down
-	tl_cur_beg dd sz_tl_cur_beg
-	tl_cur_next dd sz_tl_cur_next
-	tl_cur_perv dd sz_tl_cur_perv
-	tl_node_close_open dd sz_tl_node_close_open
-	tl_node_lev_inc dd sz_tl_node_lev_inc
-	tl_node_lev_dec dd sz_tl_node_lev_dec
-	tl_node_poi_get_info dd sz_tl_node_poi_get_info
-	tl_node_poi_get_next_info dd sz_tl_node_poi_get_next_info
-	tl_node_poi_get_data dd sz_tl_node_poi_get_data
-
-	dd 0,0
-	sz_init1 db 'lib_init',0
-	sz_edit_box_draw db 'edit_box_draw',0
-	sz_edit_box_key db 'edit_box_key',0
-	sz_edit_box_mouse db 'edit_box_mouse',0
-	sz_edit_box_set_text db 'edit_box_set_text',0
-	sz_scrollbar_ver_draw db 'scrollbar_v_draw',0
-	sz_scrollbar_hor_draw db 'scrollbar_h_draw',0
-
-	sz_tl_data_init db 'tl_data_init',0
-	sz_tl_data_clear db 'tl_data_clear',0
-	sz_tl_info_clear db 'tl_info_clear',0
-	sz_tl_key db 'tl_key',0
-	sz_tl_mouse db 'tl_mouse',0
-	sz_tl_draw db 'tl_draw',0
-	sz_tl_info_undo db 'tl_info_undo',0
-	sz_tl_info_redo db 'tl_info_redo',0
-	sz_tl_node_add db 'tl_node_add',0
-	sz_tl_node_set_data db 'tl_node_set_data',0
-	sz_tl_node_get_data db 'tl_node_get_data',0
-	sz_tl_node_delete db 'tl_node_delete',0
-	sz_tl_node_move_up db 'tl_node_move_up',0
-	sz_tl_node_move_down db 'tl_node_move_down',0
-	sz_tl_cur_beg db 'tl_cur_beg',0
-	sz_tl_cur_next db 'tl_cur_next',0
-	sz_tl_cur_perv db 'tl_cur_perv',0
-	sz_tl_node_close_open db 'tl_node_close_open',0
-	sz_tl_node_lev_inc db 'tl_node_lev_inc',0
-	sz_tl_node_lev_dec db 'tl_node_lev_dec',0
-	sz_tl_node_poi_get_info db 'tl_node_poi_get_info',0
-	sz_tl_node_poi_get_next_info db 'tl_node_poi_get_next_info',0
-	sz_tl_node_poi_get_data db 'tl_node_poi_get_data',0
+include '../../develop/libraries/libs-dev/libimg/import.inc'
+include '../../develop/libraries/box_lib/import.inc'
+include '../../develop/libraries/buf2d/import.inc'
 
 align 4
 import_libkmenu:
@@ -1356,19 +1250,7 @@ dd 0,0
 	akmenuitem_delete		db 'kmenuitem_delete',0
 	akmenuitem_draw 		db 'kmenuitem_draw',0
 
-align 4
-import_lib_tinygl:
-macro E_LIB n
-{
-	n dd sz_#n
-}
-include '../../develop/libraries/TinyGL/asm_fork/export.inc'
-	dd 0,0
-macro E_LIB n
-{
-	sz_#n db `n,0
-}
-include '../../develop/libraries/TinyGL/asm_fork/export.inc'
+include '../../develop/libraries/TinyGL/asm_fork/import.inc'
 
 align 4
 import_libini:
@@ -1387,7 +1269,7 @@ mouse_dd dd 0
 last_time dd 0
 angle_dxm dd 1.9111 ;~ 3d_wnd_w/180 - прибавление углов поворота сцены при вращении мышей
 angle_dym dd 1.7333 ;~ 3d_wnd_h/180
-ratio dd 1.1025 ;~ 3d_wnd_w/3d_wnd_h
+ratio dd 0.8984375 ;~ 3d_wnd_w/3d_wnd_h
 
 align 4
 buf_ogl:
@@ -1427,14 +1309,14 @@ white_light dd 0.8, 0.8, 0.8, 1.0 ;
 lmodel_ambient dd 0.3, 0.3, 0.3, 1.0 ; Параметры фонового освещения
 
 if lang eq ru_RU
-capt db 'info 3ds [user] версия 14.04.25',0 ; подпись окна
+capt db 'info 3ds [user] версия 24.10.25',0 ; подпись окна
 else ; Default to en_US
-capt db 'info 3ds [user] version 14.04.25',0 ; Window caption
+capt db 'info 3ds [user] version 24.10.25',0 ; Window caption
 end if
 
 align 16
 i_end:
-	ctx1 rb 28 ;sizeof.TinyGLContext = 28
+	ctx1 TinyGLContext
 	procinfo process_information
 	run_file_70 FileInfoBlock
 	sc system_colors

programs/develop/info3ds/info_o3d.inc

@@ -802,7 +802,14 @@ align 4
 proc draw_3d uses eax ebx ecx edi, o_data:dword
 	mov edi,[o_data]
 	cmp dword[edi+obj_3d.poi_count],2
+if version_edit eq 0
+	jge @f
+		stdcall [buf2d_clear], buf_ogl, [buf_ogl.color]
+		jmp .end_f
+	@@:
+else
 	jl .end_f
+end if
 	stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT ;очистим буфер цвета и глубины
 	call [glPushMatrix]
 	bt dword[draw_mode],bit_light

programs/develop/info3ds/info_wnd_coords.inc

@@ -1,18 +1,19 @@
 ;
-; в этом файле собраны функции нужные для создания и
-; работы окна с координатами вершин
+; This file contains functions needed to create
+; and operate a window with vertex coordinates
 ;
 
-prop_wnd_width  equ 340 ;ширина окна со свойствами объекта
-prop_wnd_height equ 460 ;высота окна со свойствами объекта
-3d_wnd_l equ   5 ;отступ для tinygl буфера слева
-3d_wnd_t equ  23 ;отступ для tinygl буфера сверху
-3d_wnd_w equ 320
+3d_wnd_l equ   5 ;tinygl buffer left indent
+3d_wnd_t equ  23 ;tinygl buffer top indent
+3d_wnd_w equ 396
 3d_wnd_h equ 240
 SIZE_ONE_FLOAT equ 14
 MAX_OBJECT_SIZE equ (4+SIZE_ONE_FLOAT*3+1)
 
-prop_wnd_run db 0 ;переменная следящая за тем что-бы не запускать больше 1-го окна со свойствами одновременно
+align 4
+fl180 dd 180.0
+
+prop_wnd_run db 0 ;variable that ensures that no more than 1 window with properties is launched at the same time
 
 txt_q db '?',0
 txt_space:
@@ -173,20 +174,23 @@ prop_still:
 		jmp .end
 	@@:
 
-	cmp al,1 ;изм. положение окна
+	cmp al,EV_REDRAW
 	jne @f
 		call prop_red_win
 		jmp .end
 	@@:
-	cmp al,2
+	cmp al,EV_KEY
 	jne @f
 		call prop_key
 		jmp .end
 	@@:
-	cmp al,3
+	cmp al,EV_BUTTON
 	jz prop_button
-	cmp al,6
+	cmp al,EV_MOUSE
 	jne @f
+		mcall SF_THREAD_INFO,procinfo,-1
+		cmp ax,word[procinfo.window_stack_position]
+		jne @f ;window is not active
 		call prop_mouse
 	@@:
 .end:
@@ -198,20 +202,65 @@ prop_red_win:
 pushad
 	mcall SF_REDRAW,SSF_BEGIN_DRAW
 
-	xor eax,eax
+	mcall SF_STYLE_SETTINGS,SSF_GET_SKIN_HEIGHT
+	push eax
+	mcall SF_THREAD_INFO,procinfo,-1
+	cmp dword[procinfo.box.height],0
+	je .resize_end
+	mov eax,[procinfo.box.height]
+	sub eax,[esp]
+	sub eax,[tree3.box_top]
+	sub eax,5
+	cmp eax,48
+	jge @f
+		mov eax,48 ;min size
+	@@:
+	mov dword[tree3.box_height],eax
+	mov word[w_scr_t3.y_size],ax
+	mov ebx,[procinfo.box.width]
+	sub ebx,37
+	cmp ebx,240
+	jge @f
+		mov ebx,240
+	@@:
+	mov [tree3.box_width],ebx
+	add ebx,[tree3.box_left]
+	mov word[w_scr_t3.x_pos],bx
+	;todo: resize scroll slider
+	
+	mov eax,[tree3.box_width]
+	add eax,16
+	cmp [buf_ogl.w],eax
+	je .resize_end
+		mov [buf_ogl.w],eax
+		fild dword[buf_ogl.w]
+		fld st0
+		fdiv dword[fl180]
+		fstp dword[angle_dxm]
+		fidiv dword[buf_ogl.h]
+		fstp dword[ratio]
+		stdcall [glViewport], 0,0, [buf_ogl.w], 3d_wnd_h
+		stdcall obj_set_sizes, o3d
+	.resize_end:
+
 	mov edi,dword[capt_p] ;children window caption
 	mov bx,word[procinfo.box.left]
 	add bx,word[buf_0.l]
-	add bx,5 ;ширина боковой рамки
+	add bx,5 ;side frame width
 	shl ebx,16
-	mov bx,prop_wnd_width
+	mov bx,word[tree3.box_width]
+	add bx,37
 	mov cx,word[procinfo.box.top]
 	add cx,word[buf_0.t]
 	shl ecx,16
-	mov cx,prop_wnd_height
+	pop eax
+	add eax,[tree3.box_height]
+	add eax,[tree3.box_top]
+	add eax,5
+	mov cx,ax
 	mov edx,[sc.work]
 	or  edx,0x33000000
-	int 0x40
+	mcall SF_CREATE_WINDOW
 
 	mov esi,[sc.work_button]
 	mcall SF_DEFINE_BUTTON, (5 shl 16)+20, (266 shl 16)+20, 0x40000003
@@ -226,7 +275,7 @@ pushad
 	int 0x40
 
 	mov dword[w_scr_t3.all_redraw],1
-	stdcall [scrollbar_ver_draw],dword w_scr_t3
+	stdcall [scrollbar_v_draw], w_scr_t3
 	stdcall [tl_draw], tree3
 	stdcall [edit_box_draw], edit1
 	stdcall [edit_box_draw], edit2
@@ -316,9 +365,9 @@ prop_mouse:
 			mov ebx,3d_wnd_l
 		@@:
 		sub ebx,3d_wnd_l
-		cmp ebx,3d_wnd_w
+		cmp ebx,[buf_ogl.w]
 		jle @f
-			mov ebx,3d_wnd_w
+			mov ebx,[buf_ogl.w]
 		@@:
 		and eax,0xffff ;mouse.y
 		cmp eax,3d_wnd_t
@@ -334,14 +383,14 @@ prop_mouse:
 		fild dword[mouse_y]
 		mov [mouse_y],eax
 		fisub dword[mouse_y]
-		fdiv dword[angle_dxm] ;если курсор движется по оси y (вверх или вниз) то поворот делаем вокруг оси x
+		fdiv dword[angle_dym] ;if the cursor moves along the y axis
 		fadd dword[angle_x]
 		fstp dword[angle_x]
 
 		fild dword[mouse_x]
 		mov [mouse_x],ebx
 		fisub dword[mouse_x]
-		fdiv dword[angle_dym] ;если курсор движется по оси x (вверх или вниз) то поворот делаем вокруг оси y
+		fdiv dword[angle_dxm] ;if the cursor moves along the x axis
 		fadd dword[angle_y]
 		fstp dword[angle_y]
 
@@ -363,7 +412,7 @@ prop_mouse:
 		cmp ebx,3d_wnd_l
 		jl .end_d
 		sub ebx,3d_wnd_l
-		cmp ebx,3d_wnd_w
+		cmp ebx,[buf_ogl.w]
 		jg .end_d
 		and eax,0xffff ;mouse.y
 		cmp eax,3d_wnd_t
@@ -811,7 +860,7 @@ capt_p dd 0
 
 ;дерево с объектами в пользовательском файле
 tree3 tree_list MAX_OBJECT_SIZE,3, tl_key_no_edit+tl_list_box_mode,\
-	16,16, 0xffffff,0xb0d0ff,0x400040, 5,290,303,140, 16, 4,0, el_focus,\
+	16,16, 0xffffff,0xb0d0ff,0x10400040, 5,290,380,140, 16, 4,0, el_focus,\
 	w_scr_t3,get_point_coords
 
 edit1 edit_box 80,  76, 269, 0xffd0d0, 0xff, 0x80ff, 0, 0x8000, 32, string1, mouse_dd, 0

programs/develop/libraries/TinyGL/asm_fork/examples/gears.asm

@@ -23,12 +23,6 @@ macro matr_cell c_funct,c_param,funct,param, dia
 	dia dword[esp-4*(c_param*(c_funct-funct)+(1+c_param-param))]
 }
 
-;Macro for double type parameters (8 bytes)
-macro glpush GLDoubleVar {
-	push dword[GLDoubleVar+4]
-	push dword[GLDoubleVar]
-}
-
 align 4
 start:
 	load_library name_tgl, library_path, system_path, import_tinygl
@@ -901,22 +895,8 @@ endp
 
 
 ;--------------------------------------------------
-align 4
-import_tinygl:
+include '../import.inc'
 
-macro E_LIB n
-{
-	n dd sz_#n
-}
-include '../export.inc'
-	dd 0,0
-macro E_LIB n
-{
-	sz_#n db `n,0
-}
-include '../export.inc'
-
-;--------------------------------------------------
 system_path db '/sys/lib/'
 name_tgl db 'tinygl.obj',0
 ;--------------------------------------------------

programs/develop/libraries/TinyGL/asm_fork/examples/test3.asm

@@ -1,3 +1,7 @@
+; SPDX-License-Identifier: GPL-2.0-only
+; Test 3 - example of drawing triangles
+; Copyright (C) 2014-2025 KolibriOS team
+
 use32
 	org 0
 	db 'MENUET01'
@@ -8,13 +12,14 @@ include '../../../../../macros.inc'
 include '../../../../../KOSfuncs.inc'
 include '../../../../../load_lib.mac'
 include '../../../../../dll.inc'
+include '../kosgl.inc'
 include '../opengl_const.inc'
 
 @use_library
 
 align 4
 start:
-	load_library name_tgl, library_path, system_path, import_lib_tinygl
+	load_library name_tgl, library_path, system_path, import_tinygl
 	cmp eax,SF_TERMINATE_PROCESS
 	jz button.exit
 
@@ -34,11 +39,11 @@ red_win:
 align 16
 still:
 	mcall SF_WAIT_EVENT
-	cmp al,1
+	cmp al,EV_REDRAW
 	jz red_win
-	cmp al,2
+	cmp al,EV_KEY
 	jz key
-	cmp al,3
+	cmp al,EV_BUTTON
 	jz button
 	jmp still
 
@@ -99,7 +104,7 @@ caption db 'Test tinygl library, [Esc] - exit, [<-] and [->] - rotate',0
 
 align 4
 draw_3d:
-stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT ;очистим буфер цвета и глубины
+stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT ;clear the color and depth buffer
 
 call [glPushMatrix]
 	stdcall [glRotatef], [angle_z],0.0,0.0,1.0
@@ -136,30 +141,15 @@ angle_z dd 15.0
 delt_size dd 3.0
 
 ;--------------------------------------------------
-align 4
-import_lib_tinygl:
+include '../import.inc' ;tinygl
 
-macro E_LIB n
-{
-	n dd sz_#n
-}
-include '../export.inc'
-	dd 0,0
-macro E_LIB n
-{
-	sz_#n db `n,0
-}
-include '../export.inc'
-
-;--------------------------------------------------
 system_path db '/sys/lib/'
 name_tgl db 'tinygl.obj',0
 ;--------------------------------------------------
 
 align 16
 i_end:
-ctx1 rb 28 ;TinyGLContext or KOSGLContext
-;sizeof.TinyGLContext = 28
+ctx1 TinyGLContext
 cur_dir_path rb 4096
 library_path rb 4096
 	rb 1024

programs/develop/libraries/TinyGL/asm_fork/examples/test_array1.asm

@@ -1,3 +1,7 @@
+; SPDX-License-Identifier: GPL-2.0-only
+; Test array1 - example of using vertex array functions
+; Copyright (C) 2014-2025 KolibriOS team
+
 use32
 	org 0
 	db 'MENUET01'
@@ -8,6 +12,7 @@ include '../../../../../macros.inc'
 include '../../../../../KOSfuncs.inc'
 include '../../../../../load_lib.mac'
 include '../../../../../dll.inc'
+include '../kosgl.inc'
 include '../opengl_const.inc'
 
 @use_library
@@ -191,29 +196,15 @@ align 4
 Indices rb FACES_COUNT*6 ;3 points per edge, point index 2 bytes
 
 ;--------------------------------------------------
-align 4
-import_tinygl:
+include '../import.inc' ;tinygl
 
-macro E_LIB n
-{
-	n dd sz_#n
-}
-include '../export.inc'
-	dd 0,0
-macro E_LIB n
-{
-	sz_#n db `n,0
-}
-include '../export.inc'
-
-;--------------------------------------------------
 system_path db '/sys/lib/'
 name_tgl db 'tinygl.obj',0
 ;--------------------------------------------------
 
 align 4
 i_end:
-	ctx1 rb 28 ;sizeof.TinyGLContext = 28
+ctx1 TinyGLContext
 cur_dir_path rb 4096
 library_path rb 4096
 	rb 4096

programs/develop/libraries/TinyGL/asm_fork/examples/test_glu1.asm

@@ -490,127 +490,9 @@ white_light dd 0.8, 0.8, 0.8, 1.0 ; Цвет и интенсивность ос
 lmodel_ambient dd 0.2, 0.2, 0.2, 1.0 ; Параметры фонового освещения
 
 ;--------------------------------------------------
-align 4
-import_tinygl:
-
-macro E_LIB n
-{
-if defined sz_#n
-	n dd sz_#n
-end if
-}
-include '../export.inc'
-	dd 0,0
-macro E_LIB n
-{
-if used n
-	sz_#n db `n,0
-end if
-}
-include '../export.inc'
-
-align 4
-import_buf2d:
-	dd sz_init0
-	buf2d_create dd sz_buf2d_create
-	buf2d_create_f_img dd sz_buf2d_create_f_img
-	buf2d_clear dd sz_buf2d_clear
-	buf2d_draw dd sz_buf2d_draw
-	buf2d_delete dd sz_buf2d_delete
-	buf2d_resize dd sz_buf2d_resize
-	buf2d_line dd sz_buf2d_line
-	buf2d_rect_by_size dd sz_buf2d_rect_by_size
-	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
-	buf2d_circle dd sz_buf2d_circle
-	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
-	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
-	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
-	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
-	buf2d_bit_blt dd sz_buf2d_bit_blt
-	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
-	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
-	buf2d_curve_bezier dd sz_buf2d_curve_bezier
-	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
-	buf2d_draw_text dd sz_buf2d_draw_text
-	buf2d_crop_color dd sz_buf2d_crop_color
-	buf2d_offset_h dd sz_buf2d_offset_h
-	buf2d_flood_fill dd sz_buf2d_flood_fill
-	buf2d_set_pixel dd sz_buf2d_set_pixel
-	dd 0,0
-	sz_init0 db 'lib_init',0
-	sz_buf2d_create db 'buf2d_create',0
-	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
-	sz_buf2d_clear db 'buf2d_clear',0
-	sz_buf2d_draw db 'buf2d_draw',0
-	sz_buf2d_delete db 'buf2d_delete',0
-	sz_buf2d_resize db 'buf2d_resize',0
-	sz_buf2d_line db 'buf2d_line',0
-	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
-	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
-	sz_buf2d_circle db 'buf2d_circle',0
-	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
-	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
-	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
-	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
-	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
-	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
-	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
-	sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
-	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
-	sz_buf2d_draw_text db 'buf2d_draw_text',0
-	sz_buf2d_crop_color db 'buf2d_crop_color',0
-	sz_buf2d_offset_h db 'buf2d_offset_h',0
-	sz_buf2d_flood_fill db 'buf2d_flood_fill',0
-	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
-
-align 4
-import_libimg:
-	dd alib_init1
-;	img_is_img  dd aimg_is_img
-;	img_info    dd aimg_info
-;	img_from_file dd aimg_from_file
-;	img_to_file dd aimg_to_file
-;	img_from_rgb dd aimg_from_rgb
-;	img_to_rgb  dd aimg_to_rgb
-	img_to_rgb2 dd aimg_to_rgb2
-	img_decode  dd aimg_decode
-;	img_encode  dd aimg_encode
-;	img_create  dd aimg_create
-	img_destroy dd aimg_destroy
-;	img_destroy_layer dd aimg_destroy_layer
-;	img_count   dd aimg_count
-;	img_lock_bits dd aimg_lock_bits
-;	img_unlock_bits dd aimg_unlock_bits
-;	img_flip    dd aimg_flip
-;	img_flip_layer dd aimg_flip_layer
-;	img_rotate  dd aimg_rotate
-;	img_rotate_layer dd aimg_rotate_layer
-;	img_draw    dd aimg_draw
-;	img_convert dd aimg_convert
-
-	dd 0,0
-	alib_init1   db 'lib_init',0
-;	aimg_is_img  db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение
-;	aimg_info    db 'img_info',0
-;	aimg_from_file db 'img_from_file',0
-;	aimg_to_file db 'img_to_file',0
-;	aimg_from_rgb db 'img_from_rgb',0
-;	aimg_to_rgb  db 'img_to_rgb',0 ;преобразование изображения в данные RGB
-	aimg_to_rgb2 db 'img_to_rgb2',0
-	aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных
-;	aimg_encode  db 'img_encode',0
-;	aimg_create  db 'img_create',0
-	aimg_destroy db 'img_destroy',0
-;	aimg_destroy_layer db 'img_destroy_layer',0
-;	aimg_count   db 'img_count',0
-;	aimg_lock_bits db 'img_lock_bits',0
-;	aimg_unlock_bits db 'img_unlock_bits',0
-;	aimg_flip    db 'img_flip',0
-;	aimg_flip_layer db 'img_flip_layer',0
-;	aimg_rotate  db 'img_rotate',0
-;	aimg_rotate_layer db 'img_rotate_layer',0
-;	aimg_draw    db 'img_draw',0
-;	aimg_convert db 'img_convert',0
+include '../import.inc' ;tinygl
+include '../../../buf2d/import.inc'
+include '../../../libs-dev/libimg/import.inc'
 
 ;--------------------------------------------------
 system_dir_0 db '/sys/lib/'

programs/develop/libraries/TinyGL/asm_fork/examples/test_glu2.asm

@@ -473,127 +473,9 @@ white_light dd 0.8, 0.8, 0.8, 1.0 ; Цвет и интенсивность ос
 lmodel_ambient dd 0.2, 0.2, 0.2, 1.0 ; Параметры фонового освещения
 
 ;--------------------------------------------------
-align 4
-import_tinygl:
-
-macro E_LIB n
-{
-if defined sz_#n
-	n dd sz_#n
-end if
-}
-include '../export.inc'
-	dd 0,0
-macro E_LIB n
-{
-if used n
-	sz_#n db `n,0
-end if
-}
-include '../export.inc'
-
-align 4
-import_buf2d:
-	dd sz_init0
-	buf2d_create dd sz_buf2d_create
-	buf2d_create_f_img dd sz_buf2d_create_f_img
-	buf2d_clear dd sz_buf2d_clear
-	buf2d_draw dd sz_buf2d_draw
-	buf2d_delete dd sz_buf2d_delete
-	buf2d_resize dd sz_buf2d_resize
-	buf2d_line dd sz_buf2d_line
-	buf2d_rect_by_size dd sz_buf2d_rect_by_size
-	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
-	buf2d_circle dd sz_buf2d_circle
-	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
-	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
-	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
-	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
-	buf2d_bit_blt dd sz_buf2d_bit_blt
-	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
-	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
-	buf2d_curve_bezier dd sz_buf2d_curve_bezier
-	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
-	buf2d_draw_text dd sz_buf2d_draw_text
-	buf2d_crop_color dd sz_buf2d_crop_color
-	buf2d_offset_h dd sz_buf2d_offset_h
-	buf2d_flood_fill dd sz_buf2d_flood_fill
-	buf2d_set_pixel dd sz_buf2d_set_pixel
-	dd 0,0
-	sz_init0 db 'lib_init',0
-	sz_buf2d_create db 'buf2d_create',0
-	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
-	sz_buf2d_clear db 'buf2d_clear',0
-	sz_buf2d_draw db 'buf2d_draw',0
-	sz_buf2d_delete db 'buf2d_delete',0
-	sz_buf2d_resize db 'buf2d_resize',0
-	sz_buf2d_line db 'buf2d_line',0
-	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
-	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
-	sz_buf2d_circle db 'buf2d_circle',0
-	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
-	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
-	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
-	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
-	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
-	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
-	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
-	sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
-	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
-	sz_buf2d_draw_text db 'buf2d_draw_text',0
-	sz_buf2d_crop_color db 'buf2d_crop_color',0
-	sz_buf2d_offset_h db 'buf2d_offset_h',0
-	sz_buf2d_flood_fill db 'buf2d_flood_fill',0
-	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
-
-align 4
-import_libimg:
-	dd alib_init1
-;	img_is_img  dd aimg_is_img
-;	img_info    dd aimg_info
-;	img_from_file dd aimg_from_file
-;	img_to_file dd aimg_to_file
-;	img_from_rgb dd aimg_from_rgb
-;	img_to_rgb  dd aimg_to_rgb
-	img_to_rgb2 dd aimg_to_rgb2
-	img_decode  dd aimg_decode
-;	img_encode  dd aimg_encode
-;	img_create  dd aimg_create
-	img_destroy dd aimg_destroy
-;	img_destroy_layer dd aimg_destroy_layer
-;	img_count   dd aimg_count
-;	img_lock_bits dd aimg_lock_bits
-;	img_unlock_bits dd aimg_unlock_bits
-;	img_flip    dd aimg_flip
-;	img_flip_layer dd aimg_flip_layer
-;	img_rotate  dd aimg_rotate
-;	img_rotate_layer dd aimg_rotate_layer
-;	img_draw    dd aimg_draw
-;	img_convert dd aimg_convert
-
-	dd 0,0
-	alib_init1   db 'lib_init',0
-;	aimg_is_img  db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение
-;	aimg_info    db 'img_info',0
-;	aimg_from_file db 'img_from_file',0
-;	aimg_to_file db 'img_to_file',0
-;	aimg_from_rgb db 'img_from_rgb',0
-;	aimg_to_rgb  db 'img_to_rgb',0 ;преобразование изображения в данные RGB
-	aimg_to_rgb2 db 'img_to_rgb2',0
-	aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных
-;	aimg_encode  db 'img_encode',0
-;	aimg_create  db 'img_create',0
-	aimg_destroy db 'img_destroy',0
-;	aimg_destroy_layer db 'img_destroy_layer',0
-;	aimg_count   db 'img_count',0
-;	aimg_lock_bits db 'img_lock_bits',0
-;	aimg_unlock_bits db 'img_unlock_bits',0
-;	aimg_flip    db 'img_flip',0
-;	aimg_flip_layer db 'img_flip_layer',0
-;	aimg_rotate  db 'img_rotate',0
-;	aimg_rotate_layer db 'img_rotate_layer',0
-;	aimg_draw    db 'img_draw',0
-;	aimg_convert db 'img_convert',0
+include '../import.inc' ;tinygl
+include '../../../buf2d/import.inc'
+include '../../../libs-dev/libimg/import.inc'
 
 ;--------------------------------------------------
 system_dir_0 db '/sys/lib/'

programs/develop/libraries/TinyGL/asm_fork/examples/textures0.asm

@@ -433,127 +433,9 @@ white_light dd 0.8, 0.8, 0.8, 1.0 ; Цвет и интенсивность ос
 lmodel_ambient dd 0.2, 0.2, 0.2, 1.0 ; Параметры фонового освещения
 
 ;--------------------------------------------------
-align 4
-import_tinygl:
-
-macro E_LIB n
-{
-if defined sz_#n
-	n dd sz_#n
-end if
-}
-include '../export.inc'
-	dd 0,0
-macro E_LIB n
-{
-if used n
-	sz_#n db `n,0
-end if
-}
-include '../export.inc'
-
-align 4
-import_buf2d:
-	dd sz_init0
-	buf2d_create dd sz_buf2d_create
-	buf2d_create_f_img dd sz_buf2d_create_f_img
-	buf2d_clear dd sz_buf2d_clear
-	buf2d_draw dd sz_buf2d_draw
-	buf2d_delete dd sz_buf2d_delete
-	buf2d_resize dd sz_buf2d_resize
-	buf2d_line dd sz_buf2d_line
-	buf2d_rect_by_size dd sz_buf2d_rect_by_size
-	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
-	buf2d_circle dd sz_buf2d_circle
-	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
-	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
-	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
-	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
-	buf2d_bit_blt dd sz_buf2d_bit_blt
-	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
-	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
-	buf2d_curve_bezier dd sz_buf2d_curve_bezier
-	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
-	buf2d_draw_text dd sz_buf2d_draw_text
-	buf2d_crop_color dd sz_buf2d_crop_color
-	buf2d_offset_h dd sz_buf2d_offset_h
-	buf2d_flood_fill dd sz_buf2d_flood_fill
-	buf2d_set_pixel dd sz_buf2d_set_pixel
-	dd 0,0
-	sz_init0 db 'lib_init',0
-	sz_buf2d_create db 'buf2d_create',0
-	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
-	sz_buf2d_clear db 'buf2d_clear',0
-	sz_buf2d_draw db 'buf2d_draw',0
-	sz_buf2d_delete db 'buf2d_delete',0
-	sz_buf2d_resize db 'buf2d_resize',0
-	sz_buf2d_line db 'buf2d_line',0
-	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
-	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
-	sz_buf2d_circle db 'buf2d_circle',0
-	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
-	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
-	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
-	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
-	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
-	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
-	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
-	sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
-	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
-	sz_buf2d_draw_text db 'buf2d_draw_text',0
-	sz_buf2d_crop_color db 'buf2d_crop_color',0
-	sz_buf2d_offset_h db 'buf2d_offset_h',0
-	sz_buf2d_flood_fill db 'buf2d_flood_fill',0
-	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
-
-align 4
-import_libimg:
-	dd alib_init1
-;	img_is_img  dd aimg_is_img
-;	img_info    dd aimg_info
-;	img_from_file dd aimg_from_file
-;	img_to_file dd aimg_to_file
-;	img_from_rgb dd aimg_from_rgb
-;	img_to_rgb  dd aimg_to_rgb
-	img_to_rgb2 dd aimg_to_rgb2
-	img_decode  dd aimg_decode
-;	img_encode  dd aimg_encode
-;	img_create  dd aimg_create
-	img_destroy dd aimg_destroy
-;	img_destroy_layer dd aimg_destroy_layer
-;	img_count   dd aimg_count
-;	img_lock_bits dd aimg_lock_bits
-;	img_unlock_bits dd aimg_unlock_bits
-;	img_flip    dd aimg_flip
-;	img_flip_layer dd aimg_flip_layer
-;	img_rotate  dd aimg_rotate
-;	img_rotate_layer dd aimg_rotate_layer
-;	img_draw    dd aimg_draw
-;	img_convert dd aimg_convert
-
-	dd 0,0
-	alib_init1   db 'lib_init',0
-;	aimg_is_img  db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение
-;	aimg_info    db 'img_info',0
-;	aimg_from_file db 'img_from_file',0
-;	aimg_to_file db 'img_to_file',0
-;	aimg_from_rgb db 'img_from_rgb',0
-;	aimg_to_rgb  db 'img_to_rgb',0 ;преобразование изображения в данные RGB
-	aimg_to_rgb2 db 'img_to_rgb2',0
-	aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных
-;	aimg_encode  db 'img_encode',0
-;	aimg_create  db 'img_create',0
-	aimg_destroy db 'img_destroy',0
-;	aimg_destroy_layer db 'img_destroy_layer',0
-;	aimg_count   db 'img_count',0
-;	aimg_lock_bits db 'img_lock_bits',0
-;	aimg_unlock_bits db 'img_unlock_bits',0
-;	aimg_flip    db 'img_flip',0
-;	aimg_flip_layer db 'img_flip_layer',0
-;	aimg_rotate  db 'img_rotate',0
-;	aimg_rotate_layer db 'img_rotate_layer',0
-;	aimg_draw    db 'img_draw',0
-;	aimg_convert db 'img_convert',0
+include '../import.inc' ;tinygl
+include '../../../buf2d/import.inc'
+include '../../../libs-dev/libimg/import.inc'
 
 ;--------------------------------------------------
 system_dir_0 db '/sys/lib/'

programs/develop/libraries/TinyGL/asm_fork/examples/textures1.asm

@@ -364,127 +364,9 @@ angle_y dd 0.0
 delt_size dd 3.0
 
 ;--------------------------------------------------
-align 4
-import_tinygl:
-
-macro E_LIB n
-{
-if defined sz_#n
-	n dd sz_#n
-end if
-}
-include '../export.inc'
-	dd 0,0
-macro E_LIB n
-{
-if used n
-	sz_#n db `n,0
-end if
-}
-include '../export.inc'
-
-align 4
-import_buf2d:
-	dd sz_init0
-	buf2d_create dd sz_buf2d_create
-	buf2d_create_f_img dd sz_buf2d_create_f_img
-	buf2d_clear dd sz_buf2d_clear
-	buf2d_draw dd sz_buf2d_draw
-	buf2d_delete dd sz_buf2d_delete
-	buf2d_resize dd sz_buf2d_resize
-	buf2d_line dd sz_buf2d_line
-	buf2d_rect_by_size dd sz_buf2d_rect_by_size
-	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
-	buf2d_circle dd sz_buf2d_circle
-	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
-	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
-	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
-	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
-	buf2d_bit_blt dd sz_buf2d_bit_blt
-	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
-	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
-	buf2d_curve_bezier dd sz_buf2d_curve_bezier
-	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
-	buf2d_draw_text dd sz_buf2d_draw_text
-	buf2d_crop_color dd sz_buf2d_crop_color
-	buf2d_offset_h dd sz_buf2d_offset_h
-	buf2d_flood_fill dd sz_buf2d_flood_fill
-	buf2d_set_pixel dd sz_buf2d_set_pixel
-	dd 0,0
-	sz_init0 db 'lib_init',0
-	sz_buf2d_create db 'buf2d_create',0
-	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
-	sz_buf2d_clear db 'buf2d_clear',0
-	sz_buf2d_draw db 'buf2d_draw',0
-	sz_buf2d_delete db 'buf2d_delete',0
-	sz_buf2d_resize db 'buf2d_resize',0
-	sz_buf2d_line db 'buf2d_line',0
-	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
-	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
-	sz_buf2d_circle db 'buf2d_circle',0
-	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
-	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
-	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
-	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
-	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
-	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
-	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
-	sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
-	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
-	sz_buf2d_draw_text db 'buf2d_draw_text',0
-	sz_buf2d_crop_color db 'buf2d_crop_color',0
-	sz_buf2d_offset_h db 'buf2d_offset_h',0
-	sz_buf2d_flood_fill db 'buf2d_flood_fill',0
-	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
-
-align 4
-import_libimg:
-	dd alib_init1
-;	img_is_img  dd aimg_is_img
-;	img_info    dd aimg_info
-;	img_from_file dd aimg_from_file
-;	img_to_file dd aimg_to_file
-;	img_from_rgb dd aimg_from_rgb
-;	img_to_rgb  dd aimg_to_rgb
-	img_to_rgb2 dd aimg_to_rgb2
-	img_decode  dd aimg_decode
-;	img_encode  dd aimg_encode
-;	img_create  dd aimg_create
-	img_destroy dd aimg_destroy
-;	img_destroy_layer dd aimg_destroy_layer
-;	img_count   dd aimg_count
-;	img_lock_bits dd aimg_lock_bits
-;	img_unlock_bits dd aimg_unlock_bits
-;	img_flip    dd aimg_flip
-;	img_flip_layer dd aimg_flip_layer
-;	img_rotate  dd aimg_rotate
-;	img_rotate_layer dd aimg_rotate_layer
-;	img_draw    dd aimg_draw
-;	img_convert dd aimg_convert
-
-	dd 0,0
-	alib_init1   db 'lib_init',0
-;	aimg_is_img  db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение
-;	aimg_info    db 'img_info',0
-;	aimg_from_file db 'img_from_file',0
-;	aimg_to_file db 'img_to_file',0
-;	aimg_from_rgb db 'img_from_rgb',0
-;	aimg_to_rgb  db 'img_to_rgb',0 ;преобразование изображения в данные RGB
-	aimg_to_rgb2 db 'img_to_rgb2',0
-	aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных
-;	aimg_encode  db 'img_encode',0
-;	aimg_create  db 'img_create',0
-	aimg_destroy db 'img_destroy',0
-;	aimg_destroy_layer db 'img_destroy_layer',0
-;	aimg_count   db 'img_count',0
-;	aimg_lock_bits db 'img_lock_bits',0
-;	aimg_unlock_bits db 'img_unlock_bits',0
-;	aimg_flip    db 'img_flip',0
-;	aimg_flip_layer db 'img_flip_layer',0
-;	aimg_rotate  db 'img_rotate',0
-;	aimg_rotate_layer db 'img_rotate_layer',0
-;	aimg_draw    db 'img_draw',0
-;	aimg_convert db 'img_convert',0
+include '../import.inc' ;tinygl
+include '../../../buf2d/import.inc'
+include '../../../libs-dev/libimg/import.inc'
 
 ;--------------------------------------------------
 system_dir_0 db '/sys/lib/'

programs/develop/libraries/TinyGL/asm_fork/examples/textures2.asm

@@ -315,127 +315,9 @@ angle_y dd 0.0
 delt_size dd 3.0
 
 ;--------------------------------------------------
-align 4
-import_tinygl:
-
-macro E_LIB n
-{
-if defined sz_#n
-	n dd sz_#n
-end if
-}
-include '../export.inc'
-	dd 0,0
-macro E_LIB n
-{
-if used n
-	sz_#n db `n,0
-end if
-}
-include '../export.inc'
-
-align 4
-import_buf2d:
-	dd sz_init0
-	buf2d_create dd sz_buf2d_create
-	buf2d_create_f_img dd sz_buf2d_create_f_img
-	buf2d_clear dd sz_buf2d_clear
-	buf2d_draw dd sz_buf2d_draw
-	buf2d_delete dd sz_buf2d_delete
-	buf2d_resize dd sz_buf2d_resize
-	buf2d_line dd sz_buf2d_line
-	buf2d_rect_by_size dd sz_buf2d_rect_by_size
-	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
-	buf2d_circle dd sz_buf2d_circle
-	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
-	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
-	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
-	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
-	buf2d_bit_blt dd sz_buf2d_bit_blt
-	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
-	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
-	buf2d_curve_bezier dd sz_buf2d_curve_bezier
-	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
-	buf2d_draw_text dd sz_buf2d_draw_text
-	buf2d_crop_color dd sz_buf2d_crop_color
-	buf2d_offset_h dd sz_buf2d_offset_h
-	buf2d_flood_fill dd sz_buf2d_flood_fill
-	buf2d_set_pixel dd sz_buf2d_set_pixel
-	dd 0,0
-	sz_init0 db 'lib_init',0
-	sz_buf2d_create db 'buf2d_create',0
-	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
-	sz_buf2d_clear db 'buf2d_clear',0
-	sz_buf2d_draw db 'buf2d_draw',0
-	sz_buf2d_delete db 'buf2d_delete',0
-	sz_buf2d_resize db 'buf2d_resize',0
-	sz_buf2d_line db 'buf2d_line',0
-	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
-	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
-	sz_buf2d_circle db 'buf2d_circle',0
-	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
-	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
-	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
-	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
-	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
-	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
-	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
-	sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
-	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
-	sz_buf2d_draw_text db 'buf2d_draw_text',0
-	sz_buf2d_crop_color db 'buf2d_crop_color',0
-	sz_buf2d_offset_h db 'buf2d_offset_h',0
-	sz_buf2d_flood_fill db 'buf2d_flood_fill',0
-	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
-
-align 4
-import_libimg:
-	dd alib_init1
-;	img_is_img  dd aimg_is_img
-;	img_info    dd aimg_info
-;	img_from_file dd aimg_from_file
-;	img_to_file dd aimg_to_file
-;	img_from_rgb dd aimg_from_rgb
-;	img_to_rgb  dd aimg_to_rgb
-	img_to_rgb2 dd aimg_to_rgb2
-	img_decode  dd aimg_decode
-;	img_encode  dd aimg_encode
-;	img_create  dd aimg_create
-	img_destroy dd aimg_destroy
-;	img_destroy_layer dd aimg_destroy_layer
-;	img_count   dd aimg_count
-;	img_lock_bits dd aimg_lock_bits
-;	img_unlock_bits dd aimg_unlock_bits
-;	img_flip    dd aimg_flip
-;	img_flip_layer dd aimg_flip_layer
-;	img_rotate  dd aimg_rotate
-;	img_rotate_layer dd aimg_rotate_layer
-;	img_draw    dd aimg_draw
-;	img_convert dd aimg_convert
-
-	dd 0,0
-	alib_init1   db 'lib_init',0
-;	aimg_is_img  db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение
-;	aimg_info    db 'img_info',0
-;	aimg_from_file db 'img_from_file',0
-;	aimg_to_file db 'img_to_file',0
-;	aimg_from_rgb db 'img_from_rgb',0
-;	aimg_to_rgb  db 'img_to_rgb',0 ;преобразование изображения в данные RGB
-	aimg_to_rgb2 db 'img_to_rgb2',0
-	aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных
-;	aimg_encode  db 'img_encode',0
-;	aimg_create  db 'img_create',0
-	aimg_destroy db 'img_destroy',0
-;	aimg_destroy_layer db 'img_destroy_layer',0
-;	aimg_count   db 'img_count',0
-;	aimg_lock_bits db 'img_lock_bits',0
-;	aimg_unlock_bits db 'img_unlock_bits',0
-;	aimg_flip    db 'img_flip',0
-;	aimg_flip_layer db 'img_flip_layer',0
-;	aimg_rotate  db 'img_rotate',0
-;	aimg_rotate_layer db 'img_rotate_layer',0
-;	aimg_draw    db 'img_draw',0
-;	aimg_convert db 'img_convert',0
+include '../import.inc' ;tinygl
+include '../../../buf2d/import.inc'
+include '../../../libs-dev/libimg/import.inc'
 
 ;--------------------------------------------------
 system_dir_0 db '/sys/lib/'

programs/develop/libraries/TinyGL/asm_fork/import.inc

@@ -0,0 +1,18 @@
+align 4
+import_tinygl:
+
+macro E_LIB n
+{
+if defined sz_#n
+	n dd sz_#n
+end if
+}
+include 'export.inc'
+	dd 0,0
+macro E_LIB n
+{
+if used n
+	sz_#n db `n,0
+end if
+}
+include 'export.inc'

programs/develop/libraries/box_lib/asm/trunk/ctrldemo.asm

@@ -49,9 +49,9 @@ include '../../../../../load_lib.mac'
 ;--- Start of program ----------------------------------------------
 ;---------------------------------------------------------------------
 START:
-	mcall	68,11
-	mcall	66,1,1
-	mcall	40,0x27
+	mcall	SF_SYS_MISC,SSF_HEAP_INIT
+	mcall	SF_KEYBOARD,SSF_SET_INPUT_MODE,1
+	mcall	SF_SET_EVENTS_MASK,0x27
 ;---------------------------------------------------------------------	
 
 load_libraries	l_libs_start,end_l_libs
@@ -84,7 +84,7 @@ load_libraries	l_libs_start,end_l_libs
 
 	copy_path	icons_file_name,path,library_path,0
 	
-	mcall	70,fileinfo
+	mcall	SF_FILE,fileinfo
 
 	mov	[fileinfo+0],dword 0
 
@@ -93,14 +93,14 @@ load_libraries	l_libs_start,end_l_libs
 	mov	[img_size],ecx
 	
 
-	mcall	68,12
+	mcall	SF_SYS_MISC,SSF_MEM_ALLOC
 
 
 	mov	[fileinfo+16],eax
 	mov	[image_file],eax
 
 
-	mcall	70,fileinfo
+	mcall	SF_FILE,fileinfo
 	
 	xor	eax,eax
 	mov	[return_code],eax
@@ -108,8 +108,7 @@ load_libraries	l_libs_start,end_l_libs
 	push	image_file
 	call	[cnv_png_import.Start]
 	
-	mov	ecx,[image_file]
-	mcall	68,13,
+	mcall	SF_SYS_MISC,SSF_MEM_FREE,[image_file]
 	
 	cmp	[return_code],dword 0
 	jne	button.exit
@@ -151,28 +150,28 @@ load_libraries	l_libs_start,end_l_libs
 red:
 	call	draw_window
 still:
-	mcall	10
+	mcall	SF_WAIT_EVENT
 
-	cmp	eax,1
+	cmp	eax,EV_REDRAW
 	je	red
-	cmp	eax,2
+	cmp	eax,EV_KEY
 	je	key
-	cmp	eax,3
+	cmp	eax,EV_BUTTON
 	je	button
-	cmp	eax,6
+	cmp	eax,EV_MOUSE
 	je	mouse
 	jmp	still
 ;---------------------------------------------------------------------
 	key:
-	mcall	2
+	mcall	SF_GET_KEY
 	jmp	still
 ;---------------------------------------------------------------------
 	button:
-	mcall	17
+	mcall	SF_GET_BUTTON
 	cmp	ah,1
 	jne	still
 	.exit:
-	mcall	-1
+	mcall	SF_TERMINATE_PROCESS
 ;---------------------------------------------------------------------
 mouse:
 ;-----------------------------------------------
@@ -184,7 +183,7 @@ mouse:
 	jbe	.horizontal
 ; mouse event for Vertical ScrollBar
 	push	dword scroll_bar_data_vertical
-	call	[scrollbar_ver_mouse]
+	call	[scrollbar_v_mouse]
 	mov	eax,scroll_bar_data_vertical.redraw
 	xor	ebx,ebx
 	cmp	[eax],ebx
@@ -200,7 +199,7 @@ mouse:
 	jbe	.other
 ; mouse event for Horizontal ScrollBar
 	push	dword scroll_bar_data_horizontal
-	call	[scrollbar_hor_mouse]
+	call	[scrollbar_h_mouse]
 	mov	eax,scroll_bar_data_horizontal.redraw
 	xor	ebx,ebx
 	cmp	[eax],ebx	
@@ -240,7 +239,7 @@ mouse:
 .mouse_dinamic_button:
 ; mouse event for Dinamic Button 1
 	push	dword dinamic_button_data_1
-	call	[dinamic_button_mouse]
+	call	[dbutton_mouse]
 	mov	eax,dinamic_button_data_1.click
 	cmp	[eax],dword 1
 	jne	@f
@@ -249,7 +248,7 @@ mouse:
 @@:
 ; mouse event for Dinamic Button 2
 	push	dword dinamic_button_data_2
-	call	[dinamic_button_mouse]
+	call	[dbutton_mouse]
 	mov	eax,dinamic_button_data_2.click
 	cmp	[eax],dword 1
 	jne	still	;@f
@@ -283,7 +282,7 @@ analyse_out_menu_2:
 	jmp	still
 ;---------------------------------------------------------------------
 	about:
-	mcall	51,1,thread3,thread
+	mcall	SF_CREATE_THREAD,1,thread3,thread
 	jmp	still
 ;---------------------------------------------------------------------
 OpenDialog_start_0:
@@ -320,9 +319,9 @@ OpenDialog_start:
 ;---------------------------------------------------------------------
 ;---------------------------------------------------------------------
 draw_window:
-	mcall	12,1
-	mcall	0,<0,400>,<0,400>,0x03AABBCC,0x805080D0,0x005080D0
-	mcall	71,1,header_1
+	mcall	SF_REDRAW,SSF_BEGIN_DRAW
+	mcall	SF_CREATE_WINDOW,<0,400>,<0,400>,0x03AABBCC,0x805080D0,0x005080D0
+	mcall	SF_SET_CAPTION,1,header_1
 ;---------------------------------------------
 ; draw for Menu 1
 	push	dword menu_data_1
@@ -333,15 +332,15 @@ draw_window:
 ;---------------------------------------------
 ; draw for Dinamic Button	1
 	push	dword dinamic_button_data_1
-	call	[dinamic_button_draw]
+	call	[dbutton_draw]
 ; draw for Dinamic Button 2
 	push	dword dinamic_button_data_2
-	call	[dinamic_button_draw]
+	call	[dbutton_draw]
 ;---------------------------------------------
-	mcall	13,<170,200>,<25,15>,0xffffb0
+	mcall	SF_DRAW_RECT,<170,200>,<25,15>,0xffffb0
 ;	mov	bx,28
 ;	add	ebx,2 shl 16
-;	mcall	4,,0xC0000000,text_work_area,,0xffffb0
+;	mcall	SF_DRAW_TEXT,,0xC0000000,text_work_area,,0xffffb0
 ; draw for PathShow
 	push	dword PathShow_data_1
 	call	[PathShow_draw]	
@@ -357,21 +356,21 @@ draw_window:
 	
 ; draw for Vertical ScrollBar
 	push	dword scroll_bar_data_vertical
-	call	[scrollbar_ver_draw]
+	call	[scrollbar_v_draw]
 ; draw for Horizontal ScrollBar
 	push	dword scroll_bar_data_horizontal
-	call	[scrollbar_hor_draw]
+	call	[scrollbar_h_draw]
 ; reset all_redraw flag	
 	xor	eax,eax
 	mov	[scroll_bar_data_vertical.all_redraw],eax
 	mov	[scroll_bar_data_horizontal.all_redraw],eax
 ;---------------------------------------------
 	call	draw_cube
-	mcall	12,2
+	mcall	SF_REDRAW,SSF_END_DRAW
 	ret
 ;---------------------------------------------------------------------
 draw_cube:
-	mcall	13,<30,301>,<50,301>,0xafafaf
+	mcall	SF_DRAW_RECT,<30,301>,<50,301>,0xafafaf
 	mov	ecx,[scroll_bar_data_vertical.position]
 	add	ecx,50
 	shl	ecx,16
@@ -380,7 +379,7 @@ draw_cube:
 	add	ebx,30
 	shl	ebx,16
 	mov	bx,30
-	mcall	13,,,0x0
+	mcall	SF_DRAW_RECT,,,0x0
 	ret
 ;---------------------------------------------------------------------
 include 'data.inc'

programs/develop/libraries/box_lib/asm/trunk/data.inc

@@ -30,7 +30,7 @@ system_dir_ProcLib	db '/sys/lib/proc_lib.obj',0
 align	4
 l_libs_start:
 library01	l_libs system_dir_Boxlib+9, file_name, system_dir_Boxlib,\
- Box_lib_import, plugins_directory
+ import_box_lib, plugins_directory
 
 library02	l_libs system_dir_CnvPNG+9, file_name, system_dir_CnvPNG,\
  cnv_png_import, plugins_directory
@@ -126,91 +126,7 @@ deflate_unpack	dd 0
 ;---------------------------------------------------------------------
 
 ;---------------------------------------------------------------------
-align	4
-Box_lib_import:	
-;init_lib		dd a_init
-;version_lib		dd a_version
-
-
-;edit_box_draw		dd aEdit_box_draw
-;edit_box_key		dd aEdit_box_key
-;edit_box_mouse		dd aEdit_box_mouse
-;version_ed		dd aVersion_ed
-
-;check_box_draw		dd aCheck_box_draw
-;check_box_mouse	dd aCheck_box_mouse
-;version_ch		dd aVersion_ch
-
-;option_box_draw	dd aOption_box_draw
-;option_box_mouse	dd aOption_box_mouse
-;version_op		dd aVersion_op
-
-scrollbar_ver_draw	dd aScrollbar_ver_draw
-scrollbar_ver_mouse	dd aScrollbar_ver_mouse
-scrollbar_hor_draw	dd aScrollbar_hor_draw
-scrollbar_hor_mouse	dd aScrollbar_hor_mouse
-;version_scrollbar	dd aVersion_scrollbar
-
-dinamic_button_draw	dd aDbutton_draw
-dinamic_button_mouse	dd aDbutton_mouse
-;version_dbutton	dd aVersion_dbutton
-
-menu_bar_draw		dd aMenu_bar_draw
-menu_bar_mouse		dd aMenu_bar_mouse
-menu_bar_activate	dd aMenu_bar_activate
-;version_menu_bar	dd aVersion_menu_bar
-
-;FileBrowser_draw	dd aFileBrowser_draw
-;FileBrowser_mouse	dd aFileBrowser_mouse
-;FileBrowser_key	dd aFileBrowser_key
-;Version_FileBrowser	dd aVersion_FileBrowser
-
-PathShow_prepare	dd sz_PathShow_prepare
-PathShow_draw		dd sz_PathShow_draw
-;Version_path_show	dd szVersion_path_show
-			dd 0,0
-
-;a_init			db 'lib_init',0
-;a_version		db 'version',0
-
-;aEdit_box_draw		db 'edit_box_draw',0
-;aEdit_box_key		db 'edit_box_key',0
-;aEdit_box_mouse	db 'edit_box_mouse',0
-;aVersion_ed		db 'version_ed',0
-
-;aCheck_box_draw	db 'check_box_draw',0
-;aCheck_box_mouse	db 'check_box_mouse',0
-;aVersion_ch		db 'version_ch',0
-
-;aOption_box_draw	db 'option_box_draw',0
-;aOption_box_mouse	db 'option_box_mouse',0
-;aVersion_op		db 'version_op',0
-
-aScrollbar_ver_draw	db 'scrollbar_v_draw',0
-aScrollbar_ver_mouse	db 'scrollbar_v_mouse',0
-aScrollbar_hor_draw	db 'scrollbar_h_draw',0
-aScrollbar_hor_mouse	db 'scrollbar_h_mouse',0
-;aVersion_scrollbar	db 'version_scrollbar',0
-
-aDbutton_draw		db 'dbutton_draw',0
-aDbutton_mouse		db 'dbutton_mouse',0
-;aVersion_dbutton	db 'version_dbutton',0
-
-aMenu_bar_draw		db 'menu_bar_draw',0
-aMenu_bar_mouse		db 'menu_bar_mouse',0
-aMenu_bar_activate	db 'menu_bar_activate',0
-;aVersion_menu_bar	db 'version_menu_bar',0
-
-;aFileBrowser_draw	db 'FileBrowser_draw',0
-;aFileBrowser_mouse	db 'FileBrowser_mouse',0
-;aFileBrowser_key	db 'FileBrowser_key',0
-;aVersion_FileBrowser	db 'version_FileBrowser',0
-
-sz_PathShow_prepare	db 'PathShow_prepare',0
-sz_PathShow_draw	db 'PathShow_draw',0
-;szVersion_path_show	db 'version_PathShow',0
-
-;---------------------------------------------------------------------
+include '../../import.inc' ;import_box_lib
 
 ;---------------------------------------------------------------------	
 align	4

programs/develop/libraries/box_lib/asm/trunk/editbox_ex.asm

@@ -18,7 +18,7 @@ include '../../../../../load_lib.mac'
     @use_library         ;use load lib macros
 start:
 ;universal load library/librarys
-sys_load_library  library_name, library_path, system_path, myimport
+sys_load_library  library_name, library_path, system_path, import_box_lib
 ;if return code =-1 then exit, else nornary work
     cmp      eax,-1
     jz       exit
@@ -116,37 +116,7 @@ library_name    db 'box_lib.obj',0
 ;library_name     db 'box_lib.obj',0
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-myimport:
-
-edit_box_draw    dd    aEdit_box_draw
-edit_box_key     dd    aEdit_box_key
-edit_box_mouse   dd    aEdit_box_mouse
-version_ed       dd    aVersion_ed
-
-init_checkbox    dd    aInit_checkbox
-check_box_draw   dd    aCheck_box_draw
-check_box_mouse  dd    aCheck_box_mouse
-version_ch       dd    aVersion_ch
-
-option_box_draw  dd    aOption_box_draw
-option_box_mouse dd    aOption_box_mouse
-version_op       dd    aVersion_op
-
-    dd    0,0
-
-aEdit_box_draw   db 'edit_box_draw',0
-aEdit_box_key    db 'edit_box_key',0
-aEdit_box_mouse  db 'edit_box_mouse',0
-aVersion_ed      db 'version_ed',0
-
-aInit_checkbox   db 'init_checkbox2',0
-aCheck_box_draw  db 'check_box_draw2',0
-aCheck_box_mouse db 'check_box_mouse2',0
-aVersion_ch      db 'version_ch2',0
-
-aOption_box_draw  db 'option_box_draw',0
-aOption_box_mouse db 'option_box_mouse',0
-aVersion_op       db 'version_op',0
+include '../../import.inc' ;creating a function import table
 
 
 check1 check_box2 (10 shl 16 + 12),(45 shl 16 + 12),5,0x80AABBCC,0,0,check_text1,ch_flag_en

programs/develop/libraries/box_lib/asm/trunk/tooltip_demo.asm

@@ -34,14 +34,14 @@ START:
 ;---------------------------------------------------------------------
 ;--- ИНИЦИАЛИЗАЦИЯ ----------------------------------------
 ;---------------------------------------------------------------------
-mcall	68, 11
+mcall	SF_SYS_MISC, SSF_HEAP_INIT
 
-mcall 40, $C0000027 ; маска событий - мышь только в активном окне
+mcall SF_SET_EVENTS_MASK, $C0000027 ; маска событий - мышь только в активном окне
 
-sys_load_library  lib_name, lib_path, sys_path, myimport
+sys_load_library  lib_name, lib_path, sys_path, import_box_lib
 test eax,eax
 jz	@f
-	mcall -1 ; alarm exit
+	mcall SF_TERMINATE_PROCESS
 @@:
 
 
@@ -56,16 +56,16 @@ call draw_window ;
 ;---------------------------------------------------------------------
 
 still:
-mcall 23, 5 ; функция 23 - ждать события Не более чем 0.05с
+mcall SF_WAIT_EVENT_TIMEOUT, 5 ; ждать события не более чем 0.05с
 test eax, eax ; нет событий - проверить рисование тултипов по таймеру
 je yield
-cmp eax,1 ; перерисовать окно ?
+cmp eax,EV_REDRAW
 je red ; если да - на метку red
-cmp eax,2 ; нажата клавиша ?
+cmp eax,EV_KEY
 je key ; если да - на key
-cmp eax,3 ; нажата кнопка ?
+cmp eax,EV_BUTTON
 je button ; если да - на button
-cmp eax,6 ; событие мыши
+cmp eax,EV_MOUSE
 je mouse ; если да - на mouse
 
 jmp still ; если другое событие - в начало цикла
@@ -81,21 +81,21 @@ invoke tooltip_mouse, redbox_tt
 jmp still ; вернуться к началу цикла
 
 key: ; нажата клавиша на клавиатуре
-mcall 2 ; функция 2 - считать код символа (в ah)
+mcall SF_GET_KEY ; считать код символа (в ah)
 
 jmp still ; вернуться к началу цикла
 
 ;---------------------------------------------------------------------
 
 button:
-mcall 17 ; 17 - получить идентификатор нажатой кнопки
+mcall SF_GET_BUTTON ; получить идентификатор нажатой кнопки
 
 cmp ah, 1 ; если НЕ нажата кнопка с номером 1,
 jne still ; вернуться
 
 pexit:
 invoke tooltip_delete, redbox_tt	; освобождаем память
-mcall -1 ; иначе конец программы
+mcall SF_TERMINATE_PROCESS
 
 
 ;---------------------------------------------------------------------
@@ -104,20 +104,20 @@ mcall -1 ;
 
 draw_window:
 
-mcall 12, 1 ; функция 12: сообщить ОС о начале отрисовки
+mcall SF_REDRAW, SSF_BEGIN_DRAW
 
-mcall 48, 3, sc,sizeof.system_colors
+mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, sc, sizeof.system_colors
 
 mov edx, [sc.work] ; цвет фона
 or edx, 0x33000000 ; и тип окна 3
-mcall 0, <200,300>, <200,150>, , ,title
+mcall SF_CREATE_WINDOW, <200,300>, <200,150>, , ,title
 
 ; вывод квадратиков
-mcall 13, <60,50>, <50,50>, $FF0000
-mcall 13, <140,50>, <50,50>, $FF
+mcall SF_DRAW_RECT, <60,50>, <50,50>, $FF0000
+mcall SF_DRAW_RECT, <140,50>, <50,50>, $FF
 
 
-mcall 12, 2 ; функция 12.2, закончили рисовать
+mcall SF_REDRAW, SSF_END_DRAW
 
 ret ; выходим из процедуры
 
@@ -135,22 +135,7 @@ lib_name    db 'box_lib.obj',0
 cur_dir_path    rb 4096
 lib_path    rb 4096
 
-myimport:
-				dd sz_lib_init ;функция запускается макросом 1 раз при подключении 
-;библиотеки, потому в программе метка на нее не нужна
-tooltip_init  	dd sz_tooltip_init
-tooltip_delete	dd sz_tooltip_delete
-tooltip_test_show	dd sz_tooltip_test_show
-tooltip_mouse	dd sz_tooltip_mouse
-get_font_size	dd sz_get_font_size
-    dd    0,0
-
-sz_lib_init 			db 'lib_init',0
-sz_tooltip_init			db 'tooltip_init', 0
-sz_tooltip_delete		db 'tooltip_delete', 0
-sz_tooltip_test_show	db 'tooltip_test_show', 0
-sz_tooltip_mouse		db 'tooltip_mouse', 0
-sz_get_font_size		db 'get_font_size', 0
+include '../../import.inc' ;import_box_lib
 
 
 ;tooltip txt, next, zone_x, zone_w, zone_y, zone_h, col_txt, col_bkg, tm_wait

programs/develop/libraries/box_lib/export.inc

@@ -0,0 +1,117 @@
+;
+; Export functions
+;
+
+E_LIB lib_init
+E_LIB version
+
+E_LIB edit_box_draw
+E_LIB edit_box_key
+E_LIB edit_box_key_safe
+E_LIB edit_box_mouse
+E_LIB edit_box_set_text
+E_LIB version_ed
+
+E_LIB init_checkbox,   init_checkbox2
+E_LIB check_box_draw,  check_box_draw2
+E_LIB check_box_mouse, check_box_mouse2
+E_LIB version_ch,      version_ch2
+
+E_LIB option_box_draw
+E_LIB option_box_mouse
+E_LIB version_op
+
+E_LIB scrollbar_v_draw
+E_LIB scrollbar_v_mouse
+E_LIB scrollbar_h_draw
+E_LIB scrollbar_h_mouse
+E_LIB version_scrollbar
+
+E_LIB dbutton_draw
+E_LIB dbutton_mouse
+E_LIB version_dbutton
+
+E_LIB menu_bar_draw
+E_LIB menu_bar_mouse
+E_LIB menu_bar_activate
+E_LIB version_menu_bar
+
+E_LIB FileBrowser_draw
+E_LIB FileBrowser_mouse
+E_LIB FileBrowser_key
+E_LIB version_FileBrowser
+
+E_LIB tl_data_init
+E_LIB tl_data_clear
+E_LIB tl_info_clear
+E_LIB tl_key
+E_LIB tl_mouse
+E_LIB tl_draw
+E_LIB tl_info_undo
+E_LIB tl_info_redo
+E_LIB tl_node_add
+E_LIB tl_node_set_data
+E_LIB tl_node_get_data
+E_LIB tl_node_delete
+E_LIB tl_cur_beg
+E_LIB tl_cur_next
+E_LIB tl_cur_perv
+E_LIB tl_node_close_open
+E_LIB tl_node_lev_inc
+E_LIB tl_node_lev_dec
+E_LIB tl_node_move_up
+E_LIB tl_node_move_down
+E_LIB tl_node_poi_get_info
+E_LIB tl_node_poi_get_next_info
+E_LIB tl_node_poi_get_data
+E_LIB tl_save_mem
+E_LIB tl_load_mem
+E_LIB tl_get_mem_size
+E_LIB version_tree_list
+
+E_LIB PathShow_prepare
+E_LIB PathShow_draw
+E_LIB version_PathShow
+
+E_LIB ted_but_sumb_upper
+E_LIB ted_but_sumb_lover
+E_LIB ted_but_convert_by_table
+E_LIB ted_can_save
+E_LIB ted_clear
+E_LIB ted_delete
+E_LIB ted_draw
+E_LIB ted_init
+E_LIB ted_init_scroll_bars
+E_LIB ted_init_syntax_file
+E_LIB ted_is_select
+E_LIB ted_key
+E_LIB ted_mouse
+E_LIB ted_open_file
+E_LIB ted_save_file
+E_LIB ted_text_add
+E_LIB ted_but_select_word
+E_LIB ted_but_cut
+E_LIB ted_but_copy
+E_LIB ted_but_paste
+E_LIB ted_but_undo
+E_LIB ted_but_redo
+E_LIB ted_but_reverse
+E_LIB ted_but_find
+E_LIB ted_but_replace
+E_LIB ted_text_colored
+E_LIB ted_go_to_position
+E_LIB version_text_edit
+
+E_LIB frame_draw
+E_LIB version_frame
+
+E_LIB progressbar_draw
+E_LIB progressbar_progress
+
+E_LIB tooltip_init
+E_LIB tooltip_delete
+E_LIB tooltip_test_show
+E_LIB tooltip_mouse
+E_LIB get_font_size
+
+purge E_LIB

programs/develop/libraries/box_lib/import.inc

@@ -0,0 +1,24 @@
+align 4
+import_box_lib:
+
+macro E_LIB n, lfn
+{
+if n eq lib_init
+	dd strz_#n
+else if defined sz_#n
+	n dd sz_#n
+end if
+}
+include 'export.inc'
+	dd 0,0
+macro E_LIB n, lfn
+{
+if used n
+if lfn eq
+	sz_#n db `n,0
+else
+	sz_#n db `lfn,0
+end if
+end if
+}
+include 'export.inc'

programs/develop/libraries/buf2d/export.inc

@@ -0,0 +1,48 @@
+;
+; Export functions
+;
+
+E_LIB lib_init
+E_LIB buf2d_create
+E_LIB buf2d_create_f_img
+E_LIB buf2d_clear
+E_LIB buf2d_draw
+E_LIB buf2d_delete
+E_LIB buf2d_resize
+E_LIB buf2d_rotate
+E_LIB buf2d_line
+E_LIB buf2d_line_sm
+E_LIB buf2d_rect_by_size
+E_LIB buf2d_filled_rect_by_size
+E_LIB buf2d_circle
+E_LIB buf2d_img_hdiv2
+E_LIB buf2d_img_wdiv2
+E_LIB buf2d_conv_24_to_8
+E_LIB buf2d_conv_24_to_32
+E_LIB buf2d_bit_blt
+E_LIB buf2d_bit_blt_transp
+E_LIB buf2d_bit_blt_alpha
+E_LIB buf2d_curve_bezier
+E_LIB buf2d_convert_text_matrix
+E_LIB buf2d_draw_text
+E_LIB buf2d_crop_color
+E_LIB buf2d_offset_h
+E_LIB buf2d_flood_fill
+E_LIB buf2d_set_pixel
+E_LIB buf2d_get_pixel
+E_LIB buf2d_flip_h
+E_LIB buf2d_flip_v
+E_LIB buf2d_filter_dither
+
+E_LIB buf2d_vox_brush_create
+E_LIB buf2d_vox_brush_delete
+E_LIB buf2d_vox_obj_get_img_w_3g
+E_LIB buf2d_vox_obj_get_img_h_3g
+E_LIB buf2d_vox_obj_draw_1g
+E_LIB buf2d_vox_obj_draw_3g
+E_LIB buf2d_vox_obj_draw_3g_scaled
+E_LIB buf2d_vox_obj_draw_pl
+E_LIB buf2d_vox_obj_draw_pl_scaled
+E_LIB buf2d_vox_obj_draw_3g_shadows
+
+purge E_LIB

programs/develop/libraries/buf2d/import.inc

@@ -0,0 +1,20 @@
+align 4
+import_buf2d:
+
+macro E_LIB n
+{
+if n eq lib_init
+	dd strz_#n
+else if defined sz_#n
+	n dd sz_#n
+end if
+}
+include 'export.inc'
+	dd 0,0
+macro E_LIB n
+{
+if used n
+	sz_#n db `n,0
+end if
+}
+include 'export.inc'

programs/develop/libraries/crypt_des/example/crypt_files.asm

@@ -11,7 +11,7 @@ include '../../../../develop/libraries/box_lib/trunk/box_lib.mac'
 include '../../../../dll.inc'
 
 @use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
-caption db 'Шифрование алгоритмом DES 05.03.13',0 ;подпись окна
+caption db 'Шифрование алгоритмом DES 21.05.25',0 ;подпись окна
 
 struct FileInfoBlock
 	Function dd ?
@@ -112,13 +112,13 @@ align 4
 still:
 	mcall SF_WAIT_EVENT
 
-	cmp al,1
+	cmp al,EV_REDRAW
 	jz red_win
-	cmp al,2
+	cmp al,EV_KEY
 	jz key
-	cmp al,3
+	cmp al,EV_BUTTON
 	jz button
-	cmp al,6 ;мышь
+	cmp al,EV_MOUSE
 	jne @f
 		jmp mouse
 	@@:
@@ -410,52 +410,7 @@ l_libs_start:
 	lib_4 l_libs lib_name_4, library_path, system_dir_4, import_box_lib
 l_libs_end:
 
-align 4
-import_libimg:
-	dd alib_init1
-	img_is_img  dd aimg_is_img
-	img_info    dd aimg_info
-	img_from_file dd aimg_from_file
-	img_to_file dd aimg_to_file
-	img_from_rgb dd aimg_from_rgb
-	img_to_rgb  dd aimg_to_rgb
-	img_to_rgb2 dd aimg_to_rgb2
-	img_decode  dd aimg_decode
-	img_encode  dd aimg_encode
-	img_create  dd aimg_create
-	img_destroy dd aimg_destroy
-	img_destroy_layer dd aimg_destroy_layer
-	img_count   dd aimg_count
-	img_lock_bits dd aimg_lock_bits
-	img_unlock_bits dd aimg_unlock_bits
-	img_flip    dd aimg_flip
-	img_flip_layer dd aimg_flip_layer
-	img_rotate  dd aimg_rotate
-	img_rotate_layer dd aimg_rotate_layer
-	img_draw    dd aimg_draw
-
-	dd 0,0
-	alib_init1   db 'lib_init',0
-	aimg_is_img  db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение
-	aimg_info    db 'img_info',0
-	aimg_from_file db 'img_from_file',0
-	aimg_to_file db 'img_to_file',0
-	aimg_from_rgb db 'img_from_rgb',0
-	aimg_to_rgb  db 'img_to_rgb',0 ;преобразование изображения в данные RGB
-	aimg_to_rgb2 db 'img_to_rgb2',0
-	aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных
-	aimg_encode  db 'img_encode',0
-	aimg_create  db 'img_create',0
-	aimg_destroy db 'img_destroy',0
-	aimg_destroy_layer db 'img_destroy_layer',0
-	aimg_count   db 'img_count',0
-	aimg_lock_bits db 'img_lock_bits',0
-	aimg_unlock_bits db 'img_unlock_bits',0
-	aimg_flip    db 'img_flip',0
-	aimg_flip_layer db 'img_flip_layer',0
-	aimg_rotate  db 'img_rotate',0
-	aimg_rotate_layer db 'img_rotate_layer',0
-	aimg_draw    db 'img_draw',0
+include '../../libs-dev/libimg/import.inc'
 
 align 4
 import_proclib: ;описание экспортируемых функций
@@ -465,57 +420,7 @@ dd 0,0
 	aOpenDialog_Init db 'OpenDialog_init',0
 	aOpenDialog_Start db 'OpenDialog_start',0
 
-align 4
-import_buf2d:
-	init dd sz_init
-	buf2d_create dd sz_buf2d_create
-	buf2d_create_f_img dd sz_buf2d_create_f_img
-	buf2d_clear dd sz_buf2d_clear
-	buf2d_draw dd sz_buf2d_draw
-	buf2d_delete dd sz_buf2d_delete
-	;buf2d_line dd sz_buf2d_line
-	;buf2d_rect_by_size dd sz_buf2d_rect_by_size
-	;buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
-	;buf2d_circle dd sz_buf2d_circle
-	;buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
-	;buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
-	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
-	;buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
-	;buf2d_bit_blt dd sz_buf2d_bit_blt
-	;buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
-	;buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
-	;buf2d_curve_bezier dd sz_buf2d_curve_bezier
-	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
-	buf2d_draw_text dd sz_buf2d_draw_text
-	;buf2d_crop_color dd sz_buf2d_crop_color
-	;buf2d_offset_h dd sz_buf2d_offset_h
-	;buf2d_flood_fill dd sz_buf2d_flood_fill
-	;buf2d_set_pixel dd sz_buf2d_set_pixel
-	dd 0,0
-	sz_init db 'lib_init',0
-	sz_buf2d_create db 'buf2d_create',0
-	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
-	sz_buf2d_clear db 'buf2d_clear',0
-	sz_buf2d_draw db 'buf2d_draw',0
-	sz_buf2d_delete db 'buf2d_delete',0
-	;sz_buf2d_line db 'buf2d_line',0
-	;sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
-	;sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
-	;sz_buf2d_circle db 'buf2d_circle',0
-	;sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
-	;sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
-	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
-	;sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
-	;sz_buf2d_bit_blt db 'buf2d_bit_blt',0
-	;sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
-	;sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
-	;sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
-	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
-	sz_buf2d_draw_text db 'buf2d_draw_text',0
-	;sz_buf2d_crop_color db 'buf2d_crop_color',0
-	;sz_buf2d_offset_h db 'buf2d_offset_h',0
-	;sz_buf2d_flood_fill db 'buf2d_flood_fill',0
-	;sz_buf2d_set_pixel db 'buf2d_set_pixel',0
+include '../../buf2d/import.inc'
 
 align 4
 import_des: ;описание экспортируемых функций
@@ -525,22 +430,7 @@ dd 0,0
 	sz_des_encryption db 'des_encryption',0
 	sz_des_decryption db 'des_decryption',0
 
-align 4
-import_box_lib:
-	;dd sz_init1
-	edit_box_draw dd sz_edit_box_draw
-	edit_box_key dd sz_edit_box_key
-	edit_box_mouse dd sz_edit_box_mouse
-	;edit_box_set_text dd sz_edit_box_set_text
-
-	dd 0,0
-	;sz_init1 db 'lib_init',0
-	sz_edit_box_draw db 'edit_box_draw',0
-	sz_edit_box_key db 'edit_box_key',0
-	sz_edit_box_mouse db 'edit_box_mouse',0
-	;sz_edit_box_set_text db 'edit_box_set_text',0
-
-mouse_dd dd 0x0
+include '../../box_lib/import.inc'
 
 align 4
 buf_0: dd 0 ;указатель на буфер изображения
@@ -564,12 +454,13 @@ buf_1:
 edit1 edit_box 58, 140,8, 0xffffff, 0xff, 0x80ff, 0, 0x8000, 8, txt_key, mouse_dd, ed_focus+ed_always_focus,8,8
 
 txt_openfile db 'Откройте файл для шифрования или дешифрования.',0
-txt_buf rb 80
 txt_key db 'des_0123',0
-mem_key rb 120
 
 align 16
 i_end:
+	txt_buf rb 80
+	mem_key rb 120
+	mouse_dd rd 1
 	procinfo process_information
 	sc system_colors 
 	rb 2048

programs/develop/libraries/http/http.asm

@@ -100,6 +100,10 @@ lib_init: ;//////////////////////////////////////////////////////////////////;;
         mov     [mem.alloc], eax
         mov     [mem.free], ebx
         mov     [mem.realloc], ecx
+
+        cmp     [dll.load], edx
+        je      .ok
+
         mov     [dll.load], edx
 
         invoke  dll.load, @IMPORT
@@ -115,6 +119,7 @@ lib_init: ;//////////////////////////////////////////////////////////////////;;
         invoke  ini.get_str, inifile, sec_proxy, key_password, proxyPassword, 256, proxyPassword
         popa
 
+  .ok:
         DEBUGF  1, "HTTP library: init OK\n"
         xor     eax, eax
         ret

programs/develop/libraries/libs-dev/libimg/export.inc

@@ -0,0 +1,34 @@
+;
+; Export functions
+;
+
+E_LIB lib_init
+E_LIB version
+E_LIB img_is_img
+E_LIB img_info
+E_LIB img_from_file
+E_LIB img_to_file
+E_LIB img_from_rgb
+E_LIB img_to_rgb
+E_LIB img_to_rgb2
+E_LIB img_decode
+E_LIB img_encode ;supported formats: PNG 24 32, BMP 24 32, PNM 1 8g 24
+E_LIB img_create
+E_LIB img_destroy
+E_LIB img_destroy_layer
+E_LIB img_count
+E_LIB img_lock_bits
+E_LIB img_unlock_bits
+E_LIB img_flip
+E_LIB img_flip_layer
+E_LIB img_rotate
+E_LIB img_rotate_layer
+E_LIB img_draw
+E_LIB img_scale
+E_LIB img_get_scaled_size
+E_LIB img_convert
+E_LIB img_blend
+E_LIB img_resize_data
+E_LIB img_formats_table
+
+purge E_LIB

programs/develop/libraries/libs-dev/libimg/import.inc

@@ -0,0 +1,20 @@
+align 4
+import_libimg:
+
+macro E_LIB n
+{
+if n eq lib_init
+	dd strz_#n
+else if defined sz_#n
+	n dd sz_#n
+end if
+}
+include 'export.inc'
+	dd 0,0
+macro E_LIB n
+{
+if used n
+	sz_#n db `n,0
+end if
+}
+include 'export.inc'

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

@@ -78,6 +78,10 @@ proc lib_init ;///////////////////////////////////////////////////////////////;;
         mov     [mem.alloc], eax
         mov     [mem.free], ebx
         mov     [mem.realloc], ecx
+
+        cmp     [dll.load], edx
+        je      .ok
+
         mov     [dll.load], edx
 
         or      edx, edx

programs/develop/libraries/libs-dev/libini/libini_p.asm

@@ -34,21 +34,25 @@ proc libini._.init ;////////////////////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< eax = 1 (fail) / 0 (ok) (library initialization result)                                        ;;
 ;;================================================================================================;;
-	mov	[mem.alloc], eax
-	mov	[mem.free], ebx
-	mov	[mem.realloc], ecx
-	mov	[dll.load], edx
+        mov     [mem.alloc], eax
+        mov     [mem.free], ebx
+        mov     [mem.realloc], ecx
 
-	invoke	dll.load, @IMPORT
-	or	eax, eax
-	jz	.ok
+        cmp     [dll.load], edx
+        je      .ok
 
-	xor	eax, eax
-	inc	eax
-	ret
+        mov     [dll.load], edx
 
-  .ok:	xor	eax,eax
-	ret
+        invoke  dll.load, @IMPORT
+        or      eax, eax
+        jz      .ok
+
+        xor     eax, eax
+        inc     eax
+        ret
+
+  .ok:  xor     eax,eax
+        ret
 endp
 
 ;;================================================================================================;;
@@ -60,16 +64,16 @@ proc libini._.unget_char _f ;///////////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	push	eax ecx
-	mov	ecx, [_f]
-	inc	[ecx + IniFile.cnt]
-	dec	esi
-	mov	eax, [ecx + IniFile.bsize]
-	cmp	[ecx + IniFile.cnt], eax
-	jle	@f
-	stdcall libini._.unload_block, [_f]
-    @@: pop	ecx eax
-	ret
+        push    eax ecx
+        mov     ecx, [_f]
+        inc     [ecx + IniFile.cnt]
+        dec     esi
+        mov     eax, [ecx + IniFile.bsize]
+        cmp     [ecx + IniFile.cnt], eax
+        jle     @f
+        stdcall libini._.unload_block, [_f]
+    @@: pop     ecx eax
+        ret
 endp
 
 ;;================================================================================================;;
@@ -81,13 +85,13 @@ proc libini._.get_char _f ;/////////////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	mov	ecx, [_f]
-	dec	[ecx + IniFile.cnt]
-	jns	@f
-	stdcall libini._.preload_block, [_f]
-	dec	[ecx + IniFile.cnt]
+        mov     ecx, [_f]
+        dec     [ecx + IniFile.cnt]
+        jns     @f
+        stdcall libini._.preload_block, [_f]
+        dec     [ecx + IniFile.cnt]
     @@: lodsb
-	ret
+        ret
 endp
 
 ;;================================================================================================;;
@@ -99,22 +103,22 @@ proc libini._.skip_nonblanks _f ;///////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	mov	ecx, [_f]
+        mov     ecx, [_f]
     @@: stdcall libini._.get_char, [_f]
-	cmp	al, 32
-	je	@b
-	cmp	al, 13
-	je	@b
-	cmp	al, 10
-	je	@b
-	cmp	al, 9
-	je	@b
-	cmp	al, ini.COMMENT_CHAR
-	jne	@f
-	stdcall libini._.skip_line, [_f]
-	jmp	@b
+        cmp     al, 32
+        je      @b
+        cmp     al, 13
+        je      @b
+        cmp     al, 10
+        je      @b
+        cmp     al, 9
+        je      @b
+        cmp     al, ini.COMMENT_CHAR
+        jne     @f
+        stdcall libini._.skip_line, [_f]
+        jmp     @b
     @@: stdcall libini._.unget_char, [_f]
-	ret
+        ret
 endp
 
 ;;================================================================================================;;
@@ -126,14 +130,14 @@ proc libini._.skip_spaces _f ;//////////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	mov	ecx, [_f]
+        mov     ecx, [_f]
     @@: stdcall libini._.get_char, [_f]
-	cmp	al, 32
-	je	@b
-	cmp	al, 9
-	je	@b
+        cmp     al, 32
+        je      @b
+        cmp     al, 9
+        je      @b
     @@: stdcall libini._.unget_char, [_f]
-	ret
+        ret
 endp
 
 ;;================================================================================================;;
@@ -145,16 +149,16 @@ proc libini._.skip_line _f ;////////////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	mov	ecx, [_f]
+        mov     ecx, [_f]
     @@: stdcall libini._.get_char, [_f]
-	or	al, al
-	jz	@f
-	cmp	al, 13
-	je	@f
-	cmp	al, 10
-	jne	@b
+        or      al, al
+        jz      @f
+        cmp     al, 13
+        je      @f
+        cmp     al, 10
+        jne     @b
     @@: stdcall libini._.unget_char, [_f]
-	ret
+        ret
 endp
 
 ;;================================================================================================;;
@@ -166,16 +170,16 @@ proc libini._.unload_block _f ;/////////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	push	eax ebx ecx
-	mov	ebx, [_f]
-	mov	eax, [ebx + IniFile.pos]
-	add	eax, -ini.BLOCK_SIZE
-	invoke	file.seek, [ebx + IniFile.fh], eax, SEEK_SET
-	stdcall libini._.preload_block, ebx
-	add	esi, eax
-	mov	[ebx + IniFile.cnt], 0
-	pop	ecx ebx eax
-	ret
+        push    eax ebx ecx
+        mov     ebx, [_f]
+        mov     eax, [ebx + IniFile.pos]
+        add     eax, -ini.BLOCK_SIZE
+        invoke  file.seek, [ebx + IniFile.fh], eax, SEEK_SET
+        stdcall libini._.preload_block, ebx
+        add     esi, eax
+        mov     [ebx + IniFile.cnt], 0
+        pop     ecx ebx eax
+        ret
 endp
 
 ;;================================================================================================;;
@@ -187,25 +191,25 @@ proc libini._.preload_block _f ;////////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	push	eax ebx ecx
-	mov	ebx, [_f]
-    @@: mov	esi, [ebx + IniFile.buf]
-	push	edi
-	mov	edi, esi
-	mov	ecx, ini.BLOCK_SIZE / 4
-	xor	eax, eax
-	rep	stosd
-	pop	edi
-	invoke	file.tell, [ebx + IniFile.fh]
-	mov	[ebx + IniFile.pos], eax
-	invoke	file.read, [ebx + IniFile.fh], esi, ini.BLOCK_SIZE
-	mov	esi,[ebx + IniFile.buf]
-	cmp	eax,ini.BLOCK_SIZE
-	jl	@f
-    @@: mov	[ebx + IniFile.cnt], eax
-	mov	[ebx + IniFile.bsize], eax
-	pop	ecx ebx eax
-	ret
+        push    eax ebx ecx
+        mov     ebx, [_f]
+    @@: mov     esi, [ebx + IniFile.buf]
+        push    edi
+        mov     edi, esi
+        mov     ecx, ini.BLOCK_SIZE / 4
+        xor     eax, eax
+        rep     stosd
+        pop     edi
+        invoke  file.tell, [ebx + IniFile.fh]
+        mov     [ebx + IniFile.pos], eax
+        invoke  file.read, [ebx + IniFile.fh], esi, ini.BLOCK_SIZE
+        mov     esi,[ebx + IniFile.buf]
+        cmp     eax,ini.BLOCK_SIZE
+        jl      @f
+    @@: mov     [ebx + IniFile.cnt], eax
+        mov     [ebx + IniFile.bsize], eax
+        pop     ecx ebx eax
+        ret
 endp
 
 ;;================================================================================================;;
@@ -217,18 +221,18 @@ proc libini._.reload_block _f ;/////////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	push	eax ebx ecx
-	mov	ebx, [_f]
-	push	[ebx + IniFile.bsize]
-	push	esi [ebx + IniFile.cnt]
-	invoke	file.seek, [ebx + IniFile.fh], [ebx + IniFile.pos], SEEK_SET
-	stdcall libini._.preload_block, ebx
-	pop	[ebx + IniFile.cnt] esi
-	pop	eax
-	sub	eax,[ebx + IniFile.bsize]
-	sub	[ebx + IniFile.cnt], eax
-	pop	ecx ebx eax
-	ret
+        push    eax ebx ecx
+        mov     ebx, [_f]
+        push    [ebx + IniFile.bsize]
+        push    esi [ebx + IniFile.cnt]
+        invoke  file.seek, [ebx + IniFile.fh], [ebx + IniFile.pos], SEEK_SET
+        stdcall libini._.preload_block, ebx
+        pop     [ebx + IniFile.cnt] esi
+        pop     eax
+        sub     eax,[ebx + IniFile.bsize]
+        sub     [ebx + IniFile.cnt], eax
+        pop     ecx ebx eax
+        ret
 endp
 
 ; f_info - contains current file block number
@@ -249,91 +253,91 @@ locals
   buf dd ?
 endl
 
-	xor	eax, eax
-	cmp	[_delta], 0
-	je	.skip
+        xor     eax, eax
+        cmp     [_delta], 0
+        je      .skip
 
-	push	ebx ecx
-	invoke	mem.alloc, ini.BLOCK_SIZE
-	or	eax, eax
-	jz	.fail
-	mov	[buf], eax
+        push    ebx ecx
+        invoke  mem.alloc, ini.BLOCK_SIZE
+        or      eax, eax
+        jz      .fail
+        mov     [buf], eax
 
-	cmp	[_delta], 0
-	jl	.down
+        cmp     [_delta], 0
+        jl      .down
 
-	mov	ebx, [_f]
-	mov	ecx, [ebx + IniFile.cnt]
-	mov	ebx, [ebx + IniFile.fh]
-	invoke	file.tell, ebx
-	sub	eax, ecx
-	invoke	file.seek, ebx, eax, SEEK_SET
-    @@: invoke	file.seek, ebx, [_delta], SEEK_CUR
-	invoke	file.eof?, ebx
-	or	eax, eax
-	jnz	.done
-	invoke	file.read, ebx, [buf], ini.BLOCK_SIZE
-	mov	ecx, eax
-	mov	eax, [_delta]
-	neg	eax
-	sub	eax, ecx
-	invoke	file.seek, ebx, eax, SEEK_CUR
-	push	ecx
-	invoke	file.write, ebx, [buf], ecx
-	pop	ecx
-	cmp	eax, ecx
-	jz	@b
+        mov     ebx, [_f]
+        mov     ecx, [ebx + IniFile.cnt]
+        mov     ebx, [ebx + IniFile.fh]
+        invoke  file.tell, ebx
+        sub     eax, ecx
+        invoke  file.seek, ebx, eax, SEEK_SET
+    @@: invoke  file.seek, ebx, [_delta], SEEK_CUR
+        invoke  file.eof?, ebx
+        or      eax, eax
+        jnz     .done
+        invoke  file.read, ebx, [buf], ini.BLOCK_SIZE
+        mov     ecx, eax
+        mov     eax, [_delta]
+        neg     eax
+        sub     eax, ecx
+        invoke  file.seek, ebx, eax, SEEK_CUR
+        push    ecx
+        invoke  file.write, ebx, [buf], ecx
+        pop     ecx
+        cmp     eax, ecx
+        jz      @b
   .fail:
-	or	eax, -1
-	pop	ecx ebx
-	ret
+        or      eax, -1
+        pop     ecx ebx
+        ret
   .done:
-	mov	eax, [_delta]
-	neg	eax
-	invoke	file.seek, ebx, eax, SEEK_CUR
-	invoke	file.seteof, ebx
-	stdcall libini._.reload_block, [_f]
-	invoke	mem.free, [buf]
-	pop	ecx ebx
+        mov     eax, [_delta]
+        neg     eax
+        invoke  file.seek, ebx, eax, SEEK_CUR
+        invoke  file.seteof, ebx
+        stdcall libini._.reload_block, [_f]
+        invoke  mem.free, [buf]
+        pop     ecx ebx
   .skip:
-	ret
+        ret
 
   .down:
-	neg	[_delta]
+        neg     [_delta]
 
-	mov	ebx, [_f]
-	mov	ecx, [ebx + IniFile.cnt]
-	mov	ebx, [ebx + IniFile.fh]
-	invoke	file.tell, ebx
-	sub	eax, ecx
-	lea	edx, [eax - 1]
-	push	edx
-    @@: invoke	file.seek, ebx, edx, SEEK_SET
-	invoke	file.eof?, ebx
-	or	eax, eax
-	jnz	@f
-	add	edx, ini.BLOCK_SIZE
-	jmp	@b
-    @@: cmp	edx, [esp]
-	je	.skip.2
-	add	edx, -ini.BLOCK_SIZE
-	cmp	edx, [esp]
-	jl	@f
-	invoke	file.seek, ebx, edx, SEEK_SET
-	invoke	file.read, ebx, [buf], ini.BLOCK_SIZE
-	mov	ecx, eax
-	mov	eax, [_delta]
-	sub	eax, ecx
-	invoke	file.seek, ebx, eax, SEEK_CUR
-	invoke	file.write, ebx, [buf], ecx
-	jmp	@b
+        mov     ebx, [_f]
+        mov     ecx, [ebx + IniFile.cnt]
+        mov     ebx, [ebx + IniFile.fh]
+        invoke  file.tell, ebx
+        sub     eax, ecx
+        lea     edx, [eax - 1]
+        push    edx
+    @@: invoke  file.seek, ebx, edx, SEEK_SET
+        invoke  file.eof?, ebx
+        or      eax, eax
+        jnz     @f
+        add     edx, ini.BLOCK_SIZE
+        jmp     @b
+    @@: cmp     edx, [esp]
+        je      .skip.2
+        add     edx, -ini.BLOCK_SIZE
+        cmp     edx, [esp]
+        jl      @f
+        invoke  file.seek, ebx, edx, SEEK_SET
+        invoke  file.read, ebx, [buf], ini.BLOCK_SIZE
+        mov     ecx, eax
+        mov     eax, [_delta]
+        sub     eax, ecx
+        invoke  file.seek, ebx, eax, SEEK_CUR
+        invoke  file.write, ebx, [buf], ecx
+        jmp     @b
     @@:
   .skip.2:
-	add	esp, 4
-	stdcall libini._.reload_block, [_f]
-	invoke	mem.free, [buf]
-	pop	ecx ebx
-	ret
+        add     esp, 4
+        stdcall libini._.reload_block, [_f]
+        invoke  mem.free, [buf]
+        pop     ecx ebx
+        ret
 endp
 
 ;;================================================================================================;;
@@ -345,25 +349,25 @@ proc libini._.get_value_length _f ;/////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	push	ebx ecx edx eax
-	mov	ebx, [_f]
-	invoke	file.tell, [ebx + IniFile.fh]
-	push	esi [ebx + IniFile.cnt] [ebx + IniFile.pos]
-	sub	eax, [ebx + IniFile.cnt]
-	mov	edx, eax
+        push    ebx ecx edx eax
+        mov     ebx, [_f]
+        invoke  file.tell, [ebx + IniFile.fh]
+        push    esi [ebx + IniFile.cnt] [ebx + IniFile.pos]
+        sub     eax, [ebx + IniFile.cnt]
+        mov     edx, eax
 
-	stdcall libini._.skip_line, [_f]
-	invoke	file.tell, [ebx + IniFile.fh]
-	sub	eax, [ebx + IniFile.cnt]
-	sub	eax, edx
-	mov	[esp + 4 * 3], eax
+        stdcall libini._.skip_line, [_f]
+        invoke  file.tell, [ebx + IniFile.fh]
+        sub     eax, [ebx + IniFile.cnt]
+        sub     eax, edx
+        mov     [esp + 4 * 3], eax
 
-	pop	eax
-	invoke	file.seek, [ebx + IniFile.fh], eax, SEEK_SET
-	stdcall libini._.preload_block, [_f]
-	pop	[ebx + IniFile.cnt] esi
-	pop	eax edx ecx ebx
-	ret
+        pop     eax
+        invoke  file.seek, [ebx + IniFile.fh], eax, SEEK_SET
+        stdcall libini._.preload_block, [_f]
+        pop     [ebx + IniFile.cnt] esi
+        pop     eax edx ecx ebx
+        ret
 endp
 
 ;;================================================================================================;;
@@ -376,10 +380,10 @@ proc libini._.string_copy ;/////////////////////////////////////////////////////
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
     @@: lodsb
-	or	al, al
-	jz	@f
-	stosb
-	jmp	@b
+        or      al, al
+        jz      @f
+        stosb
+        jmp     @b
     @@: ret
 endp
 
@@ -392,26 +396,26 @@ proc libini._.find_next_section _f ;////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	push	ebx edi
+        push    ebx edi
 
     @@: stdcall libini._.skip_nonblanks, [_f]
-	cmp	al, '['
-	je	@f
-	or	al, al
-	jz	.exit_error
-	stdcall libini._.skip_line, [_f]
-	or	al, al
-	jz	.exit_error
-	jmp	@b
+        cmp     al, '['
+        je      @f
+        or      al, al
+        jz      .exit_error
+        stdcall libini._.skip_line, [_f]
+        or      al, al
+        jz      .exit_error
+        jmp     @b
     @@:
-	pop	edi ebx
-	xor	eax, eax
-	ret
+        pop     edi ebx
+        xor     eax, eax
+        ret
 
   .exit_error:
-	pop	edi ebx
-	or	eax, -1
-	ret
+        pop     edi ebx
+        or      eax, -1
+        ret
 endp
 
 ;;================================================================================================;;
@@ -425,50 +429,50 @@ proc libini._.find_section _f, _sec_name ;//////////////////////////////////////
 ;< eax = -1 (fail) / 0 (ok)                                                                       ;;
 ;< [_f.pos] = new cursor position (right after ']' char if eax = 0, at the end of file otherwise) ;;
 ;;================================================================================================;;
-	push	ebx edi
+        push    ebx edi
 
-	mov	ecx, [_f]
-	invoke	file.seek, [ecx + IniFile.fh], 0, SEEK_SET
-	stdcall libini._.preload_block, [_f]
+        mov     ecx, [_f]
+        invoke  file.seek, [ecx + IniFile.fh], 0, SEEK_SET
+        stdcall libini._.preload_block, [_f]
 
   .next_section:
-	stdcall libini._.find_next_section, [_f]
-	or	eax, eax
-	jnz	.exit_error
+        stdcall libini._.find_next_section, [_f]
+        or      eax, eax
+        jnz     .exit_error
 
-	stdcall libini._.get_char, [_f]
-	stdcall libini._.skip_spaces, [_f]
-	mov	edi, [_sec_name]
+        stdcall libini._.get_char, [_f]
+        stdcall libini._.skip_spaces, [_f]
+        mov     edi, [_sec_name]
     @@: stdcall libini._.get_char, [_f]
-	cmp	al, ']'
-	je	@f
-	or	al, al
-	jz	.exit_error
-	cmp	al, 13
-	je	.next_section
-	cmp	al, 10
-	je	.next_section
-	scasb
-	je	@b
-	cmp	byte[edi - 1], 0
-	jne	.next_section
-	dec	edi
-	stdcall libini._.unget_char, [_f]
-	stdcall libini._.skip_spaces, [_f]
-	stdcall libini._.get_char, [_f]
-	cmp	al, ']'
-	jne	.next_section
+        cmp     al, ']'
+        je      @f
+        or      al, al
+        jz      .exit_error
+        cmp     al, 13
+        je      .next_section
+        cmp     al, 10
+        je      .next_section
+        scasb
+        je      @b
+        cmp     byte[edi - 1], 0
+        jne     .next_section
+        dec     edi
+        stdcall libini._.unget_char, [_f]
+        stdcall libini._.skip_spaces, [_f]
+        stdcall libini._.get_char, [_f]
+        cmp     al, ']'
+        jne     .next_section
     @@:
-	cmp	byte[edi], 0
-	jne	.next_section
-	pop	edi ebx
-	xor	eax, eax
-	ret
+        cmp     byte[edi], 0
+        jne     .next_section
+        pop     edi ebx
+        xor     eax, eax
+        ret
 
   .exit_error:
-	pop	edi ebx
-	or	eax, -1
-	ret
+        pop     edi ebx
+        or      eax, -1
+        ret
 endp
 
 ;;================================================================================================;;
@@ -483,44 +487,44 @@ proc libini._.find_key _f, _key_name ;//////////////////////////////////////////
 ;< [_f.pos] = new cursor position (right after '=' char if eax = 0, at the end of file or right   ;;
 ;<            before '[' char otherwise)                                                          ;;
 ;;================================================================================================;;
-	push	ebx edi
+        push    ebx edi
 
   .next_value:
-	mov	edi, [_key_name]
-	stdcall libini._.skip_line, [_f]
-	stdcall libini._.skip_nonblanks, [_f]
-	or	al, al
-	jz	.exit_error
-	cmp	al, '['
-	je	.exit_error
+        mov     edi, [_key_name]
+        stdcall libini._.skip_line, [_f]
+        stdcall libini._.skip_nonblanks, [_f]
+        or      al, al
+        jz      .exit_error
+        cmp     al, '['
+        je      .exit_error
     @@: stdcall libini._.get_char, [_f]
-	or	al, al
-	jz	.exit_error
-	cmp	al, '='
-	je	@f
-	scasb
-	je	@b
-	cmp	byte[edi - 1], 0
-	jne	.next_value
-	dec	edi
-	stdcall libini._.unget_char, [_f]
-	stdcall libini._.skip_spaces, [_f]
-	stdcall libini._.get_char, [_f]
-	cmp	al, '='
-	je	@f
-	jmp	.next_value
+        or      al, al
+        jz      .exit_error
+        cmp     al, '='
+        je      @f
+        scasb
+        je      @b
+        cmp     byte[edi - 1], 0
+        jne     .next_value
+        dec     edi
+        stdcall libini._.unget_char, [_f]
+        stdcall libini._.skip_spaces, [_f]
+        stdcall libini._.get_char, [_f]
+        cmp     al, '='
+        je      @f
+        jmp     .next_value
     @@:
-	cmp	byte[edi], 0
-	jne	.next_value
+        cmp     byte[edi], 0
+        jne     .next_value
 
-	pop	edi ebx
-	xor	eax, eax
-	ret
+        pop     edi ebx
+        xor     eax, eax
+        ret
 
   .exit_error:
-	pop	edi ebx
-	or	eax, -1
-	ret
+        pop     edi ebx
+        or      eax, -1
+        ret
 endp
 
 ;;================================================================================================;;
@@ -532,31 +536,31 @@ proc libini._.low.read_value _f_addr, _buffer, _buf_len ;///////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	push	edi eax
-	mov	edi, [_buffer]
-	stdcall libini._.skip_spaces, [_f_addr]
-    @@: dec	[_buf_len]
-	jz	@f
-	stdcall libini._.get_char, [_f_addr]
-	cmp	al, 13
-	je	@f
-	cmp	al, 10
-	je	@f
-	stosb
-	or	al, al
-	jnz	@b
+        push    edi eax
+        mov     edi, [_buffer]
+        stdcall libini._.skip_spaces, [_f_addr]
+    @@: dec     [_buf_len]
+        jz      @f
+        stdcall libini._.get_char, [_f_addr]
+        cmp     al, 13
+        je      @f
+        cmp     al, 10
+        je      @f
+        stosb
+        or      al, al
+        jnz     @b
     @@: stdcall libini._.unget_char, [_f_addr]
-	mov	byte[edi], 0
-	dec	edi
-    @@: cmp	edi, [_buffer]
-	jb	@f
-	cmp	byte[edi], 32
-	ja	@f
-	mov	byte[edi], 0
-	dec	edi
-	jmp	@b
-    @@: pop	eax edi
-	ret
+        mov     byte[edi], 0
+        dec     edi
+    @@: cmp     edi, [_buffer]
+        jb      @f
+        cmp     byte[edi], 32
+        ja      @f
+        mov     byte[edi], 0
+        dec     edi
+        jmp     @b
+    @@: pop     eax edi
+        ret
 endp
 
 ;;================================================================================================;;
@@ -568,25 +572,25 @@ proc libini._.str_to_int ;//////////////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< eax = binary number representation (no overflow checks made)                                   ;;
 ;;================================================================================================;;
-	push	edx
+        push    edx
 
-	xor	eax, eax
-	xor	edx, edx
+        xor     eax, eax
+        xor     edx, edx
 
     @@: lodsb
-	cmp	al, '0'
-	jb	@f
-	cmp	al, '9'
-	ja	@f
-	add	eax, -'0'
-	imul	edx, 10
-	add	edx, eax
-	jmp	@b
+        cmp     al, '0'
+        jb      @f
+        cmp     al, '9'
+        ja      @f
+        add     eax, -'0'
+        imul    edx, 10
+        add     edx, eax
+        jmp     @b
 
-    @@: dec	esi
-	mov	eax, edx
-	pop	edx
-	ret
+    @@: dec     esi
+        mov     eax, edx
+        pop     edx
+        ret
 endp
 
 ;;================================================================================================;;
@@ -600,29 +604,29 @@ proc libini._.int_to_str ;//////////////////////////////////////////////////////
 ;;------------------------------------------------------------------------------------------------;;
 ;< --- TBD ---                                                                                    ;;
 ;;================================================================================================;;
-	push	ecx edx
+        push    ecx edx
 
-	or	eax, eax
-	jns	@f
-	mov	byte[edi], '-'
-	inc	edi
-    @@: call	.recurse
-	pop	edx ecx
-	ret
+        or      eax, eax
+        jns     @f
+        mov     byte[edi], '-'
+        inc     edi
+    @@: call    .recurse
+        pop     edx ecx
+        ret
 
   .recurse:
-	cmp	eax,ecx
-	jb	@f
-	xor	edx,edx
-	div	ecx
-	push	edx
-	call	.recurse
-	pop	eax
-    @@: cmp	al,10
-	sbb	al,0x69
-	das
-	stosb
-	retn
+        cmp     eax,ecx
+        jb      @f
+        xor     edx,edx
+        div     ecx
+        push    edx
+        call    .recurse
+        pop     eax
+    @@: cmp     al,10
+        sbb     al,0x69
+        das
+        stosb
+        retn
 endp
 
 ;;================================================================================================;;
@@ -635,50 +639,50 @@ proc libini._.ascii_to_scan ;_ascii_code ;//////////////////////////////////////
 ;< eax = 0 (error) / scancode (success)                                                           ;;
 ;;================================================================================================;;
 ; /sys/keymap.key
-	sub	esp, 256
-	mov	eax, esp
-	push	ebx
-	push	'key'
-	push	'map.'
-	push	'/key'
-	push	'/sys'
-	push	eax	; buffer in the stack
-	push	0x100	; read 0x100 bytes
-	push	0
-	push	0	; from position zero
-	push	0	; subfunction: read
-	mov	ebx, esp
-	push	70
-	pop	eax
-	mcall
-	add	esp, 36
-	pop	ebx
-	test	eax, eax
-	jnz	.die
-	mov	al, [esp+256+4]	; get ASCII code
-	push	edi
+        sub     esp, 256
+        mov     eax, esp
+        push    ebx
+        push    'key'
+        push    'map.'
+        push    '/key'
+        push    '/sys'
+        push    eax     ; buffer in the stack
+        push    0x100   ; read 0x100 bytes
+        push    0
+        push    0       ; from position zero
+        push    0       ; subfunction: read
+        mov     ebx, esp
+        push    70
+        pop     eax
+        mcall
+        add     esp, 36
+        pop     ebx
+        test    eax, eax
+        jnz     .die
+        mov     al, [esp+256+4] ; get ASCII code
+        push    edi
 ; first keytable - no modifiers pressed
 ; check scancodes from 1 to 36h (inclusive)
-	lea	edi, [esp+4+1]
-	mov	edx, edi
-	mov	ecx, 36h
-	repnz	scasb
-	jz	.found
+        lea     edi, [esp+4+1]
+        mov     edx, edi
+        mov     ecx, 36h
+        repnz   scasb
+        jz      .found
 ; second keytable - Shift pressed
-	lea	edi, [esp+4+128+1]
-	mov	edx, edi
-	mov	ecx, 36h
-	repnz	scasb
-	jz	.found
-	pop	edi
+        lea     edi, [esp+4+128+1]
+        mov     edx, edi
+        mov     ecx, 36h
+        repnz   scasb
+        jz      .found
+        pop     edi
 .die:
-	xor	eax, eax
-	jmp	.ret
+        xor     eax, eax
+        jmp     .ret
 .found:
-	mov	eax, edi
-	sub	eax, edx
-	pop	edi
+        mov     eax, edi
+        sub     eax, edx
+        pop     edi
 .ret:
-	add	esp, 256
-	ret	4
+        add     esp, 256
+        ret     4
 endp

programs/develop/libraries/proc_lib/trunk/proc_lib.asm

@@ -33,38 +33,39 @@ use_ColorDialog
 ;--------------------------------------------------
 align 16
 lib_init:
-ret
+        xor     eax, eax
+        ret
 
 ;--------------------------------------------------
 align 16
 EXPORTS:
 
 
-dd	sz_init,			lib_init
-dd	sz_version,			0x00000001
+dd      sz_init,                        lib_init
+dd      sz_version,                     0x00000001
 
-dd	sz_OpenDialog_init,	OpenDialog.init
-dd	sz_OpenDialog_start,	OpenDialog.start
-dd	sz_OpenDialog_set_file_name,	OpenDialog.set_file_name
-dd	sz_OpenDialog_set_file_ext,	OpenDialog.set_file_ext
-dd	szVersion_OpenDialog,	0x00010001
+dd      sz_OpenDialog_init,     OpenDialog.init
+dd      sz_OpenDialog_start,    OpenDialog.start
+dd      sz_OpenDialog_set_file_name,    OpenDialog.set_file_name
+dd      sz_OpenDialog_set_file_ext,     OpenDialog.set_file_ext
+dd      szVersion_OpenDialog,   0x00010001
 
-dd	sz_ColorDialog_init,	ColorDialog.init
-dd	sz_ColorDialog_start,	ColorDialog.start
-dd	szVersion_ColorDialog,	0x00010001
+dd      sz_ColorDialog_init,    ColorDialog.init
+dd      sz_ColorDialog_start,   ColorDialog.start
+dd      szVersion_ColorDialog,  0x00010001
 
-dd	0,0
+dd      0,0
 ;-----------------------------------------------------------------------------
-sz_init 			db 'lib_init',0
-sz_version			db 'version',0
+sz_init                         db 'lib_init',0
+sz_version                      db 'version',0
 
-sz_OpenDialog_init 		db 'OpenDialog_init',0
-sz_OpenDialog_start		db 'OpenDialog_start',0
-sz_OpenDialog_set_file_name	db 'OpenDialog_set_file_name',0
-sz_OpenDialog_set_file_ext	db 'OpenDialog_set_file_ext',0
-szVersion_OpenDialog		db 'Version_OpenDialog',0
+sz_OpenDialog_init              db 'OpenDialog_init',0
+sz_OpenDialog_start             db 'OpenDialog_start',0
+sz_OpenDialog_set_file_name     db 'OpenDialog_set_file_name',0
+sz_OpenDialog_set_file_ext      db 'OpenDialog_set_file_ext',0
+szVersion_OpenDialog            db 'Version_OpenDialog',0
 
-sz_ColorDialog_init 		db 'ColorDialog_init',0
-sz_ColorDialog_start		db 'ColorDialog_start',0
-szVersion_ColorDialog		db 'Version_ColorDialog',0
+sz_ColorDialog_init             db 'ColorDialog_init',0
+sz_ColorDialog_start            db 'ColorDialog_start',0
+szVersion_ColorDialog           db 'Version_ColorDialog',0
 ;-----------------------------------------------------------------------------

programs/emulator/uxn/.gitignore

@@ -0,0 +1,6 @@
+# SPDX-FileCopyrightText: 2025 iyzsong@envs.net
+#
+# SPDX-License-Identifier: MPL-2.0
+
+zig-out
+.zig-cache

programs/emulator/uxn/README

@@ -0,0 +1,17 @@
+// SPDX-FileCopyrightText: 2025 iyzsong@envs.net
+//
+// SPDX-License-Identifier: MPL-2.0
+
+Uxn/Varvara emulator for Kolibri OS
+
+Based on https://github.com/chmod222/zuxn
+
+compile: zig build --release=fast
+result: zig-out/bin/uxn
+run: uxn SOME.rom
+control:
+  Up/Down/Left/Right
+  Ctrl/Shift/Alt/Home
+  F1: change scale (1x, 2x, 3x)
+
+TODO: file/directory stat, audio latency, open dialog?

programs/emulator/uxn/build.zig

@@ -0,0 +1,36 @@
+// SPDX-FileCopyrightText: 2025 iyzsong@envs.net
+//
+// SPDX-License-Identifier: MPL-2.0
+
+const std = @import("std");
+
+pub fn build(b: *std.Build) void {
+    const target_query = std.Target.Query{
+        .cpu_arch = std.Target.Cpu.Arch.x86,
+        .os_tag = std.Target.Os.Tag.freestanding,
+        .abi = std.Target.Abi.none,
+        .cpu_model = std.Target.Query.CpuModel{ .explicit = &std.Target.x86.cpu.i586 },
+    };
+    const target = b.resolveTargetQuery(target_query);
+    const optimize = b.standardOptimizeOption(.{});
+    const zuxn = b.dependency("zuxn", .{
+        .target = target,
+        .optimize = optimize,
+    });
+    const elf = b.addExecutable(.{
+        .name = "uxn.elf",
+        .root_source_file = b.path("src/main.zig"),
+        .target = target,
+        .optimize = optimize,
+        .unwind_tables = .none,
+    });
+    elf.root_module.addImport("uxn-core", zuxn.module("uxn-core"));
+    elf.root_module.addImport("uxn-varvara", zuxn.module("uxn-varvara"));
+    elf.setLinkerScript(b.path("src/linker.ld"));
+    const bin = elf.addObjCopy(.{
+        .format = .bin,
+    });
+    const install_bin = b.addInstallBinFile(bin.getOutput(), "uxn");
+    b.getInstallStep().dependOn(&install_bin.step);
+    b.installArtifact(elf);
+}

programs/emulator/uxn/build.zig.zon

@@ -0,0 +1,21 @@
+// SPDX-FileCopyrightText: 2025 iyzsong@envs.net
+//
+// SPDX-License-Identifier: MPL-2.0
+
+.{
+    .name = .uxn_kolibrios,
+    .version = "0.0.0",
+    .fingerprint = 0x3aef20f25c0a0218,
+    .minimum_zig_version = "0.14.0",
+    .dependencies = .{
+        .zuxn = .{
+            .url = "git+https://github.com/chmod222/zuxn.git#fc3a76724fa87dd08039438b56fc326ac3d51e4d",
+            .hash = "zuxn-0.0.1-XnoOpbqsAgD-fU6rv_AoLffA1utIzXuae2cmnHj6SzE6",
+        },
+    },
+    .paths = .{
+        "build.zig",
+        "build.zig.zon",
+        "src",
+    },
+}

programs/emulator/uxn/src/kolibri.zig

@@ -0,0 +1,604 @@
+// SPDX-FileCopyrightText: 2025 iyzsong@envs.net
+//
+// SPDX-License-Identifier: MPL-2.0
+
+const std = @import("std");
+
+pub const SYS = enum(i32) {
+    terminate_process = -1,
+    create_window = 0,
+    put_pixel = 1,
+    get_key = 2,
+    get_sys_time = 3,
+    draw_text = 4,
+    sleep = 5,
+    put_image = 7,
+    define_button = 8,
+    thread_info = 9,
+    wait_event = 10,
+    check_event = 11,
+    redraw = 12,
+    draw_rect = 13,
+    get_screen_size = 14,
+    get_button = 17,
+    system = 18,
+    screen_put_image = 25,
+    system_get = 26,
+    get_sys_date = 29,
+    mouse_get = 37,
+    set_events_mask = 40,
+    style_settings = 48,
+    create_thread = 51,
+    board = 63,
+    keyboard = 66,
+    change_window = 67,
+    sys_misc = 68,
+    file = 70,
+    blitter = 73,
+};
+
+pub const Event = enum(u32) {
+    none = 0,
+    redraw = 1,
+    key = 2,
+    button = 3,
+    background = 5,
+    mouse = 6,
+    ipc = 7,
+};
+
+pub inline fn syscall0(number: SYS) u32 {
+    return asm volatile ("int $0x40"
+        : [ret] "={eax}" (-> u32),
+        : [number] "{eax}" (@intFromEnum(number)),
+    );
+}
+
+pub inline fn syscall1(number: SYS, arg1: u32) u32 {
+    return asm volatile ("int $0x40"
+        : [ret] "={eax}" (-> u32),
+        : [number] "{eax}" (@intFromEnum(number)),
+          [arg1] "{ebx}" (arg1),
+    );
+}
+
+pub inline fn syscall2(number: SYS, arg1: u32, arg2: u32) u32 {
+    return asm volatile ("int $0x40"
+        : [ret] "={eax}" (-> u32),
+        : [number] "{eax}" (@intFromEnum(number)),
+          [arg1] "{ebx}" (arg1),
+          [arg2] "{ecx}" (arg2),
+    );
+}
+
+pub inline fn syscall3(number: SYS, arg1: u32, arg2: u32, arg3: u32) u32 {
+    return asm volatile ("int $0x40"
+        : [ret] "={eax}" (-> u32),
+        : [number] "{eax}" (@intFromEnum(number)),
+          [arg1] "{ebx}" (arg1),
+          [arg2] "{ecx}" (arg2),
+          [arg3] "{edx}" (arg3),
+    );
+}
+
+pub inline fn syscall4(number: SYS, arg1: u32, arg2: u32, arg3: u32, arg4: u32) u32 {
+    return asm volatile ("int $0x40"
+        : [ret] "={eax}" (-> u32),
+        : [number] "{eax}" (@intFromEnum(number)),
+          [arg1] "{ebx}" (arg1),
+          [arg2] "{ecx}" (arg2),
+          [arg3] "{edx}" (arg3),
+          [arg4] "{esi}" (arg4),
+    );
+}
+
+pub inline fn syscall5(number: SYS, arg1: u32, arg2: u32, arg3: u32, arg4: u32, arg5: u32) u32 {
+    return asm volatile ("int $0x40"
+        : [ret] "={eax}" (-> u32),
+        : [number] "{eax}" (@intFromEnum(number)),
+          [arg1] "{ebx}" (arg1),
+          [arg2] "{ecx}" (arg2),
+          [arg3] "{edx}" (arg3),
+          [arg4] "{esi}" (arg4),
+          [arg5] "{edi}" (arg5),
+    );
+}
+
+pub fn terminateProcess() noreturn {
+    _ = syscall0(SYS.terminate_process);
+    unreachable;
+}
+
+pub const WindowFlags = struct {
+    skinned: bool = true,
+    fixed: bool = true,
+    no_title: bool = false,
+    relative_coordinates: bool = false,
+    no_fill: bool = false,
+    unmovable: bool = false,
+};
+
+pub fn createWindow(x: u16, y: u16, width: u16, height: u16, bgcolor: u24, flags: WindowFlags, title: [*:0]const u8) void {
+    var f1: u32 = 0x00000000;
+    if (flags.no_fill)
+        f1 |= 0x40000000;
+    if (flags.relative_coordinates)
+        f1 |= 0x20000000;
+    if (!flags.no_title)
+        f1 |= 0x10000000;
+    if (flags.skinned) {
+        if (flags.fixed) {
+            f1 |= 0x04000000;
+        } else {
+            f1 |= 0x03000000;
+        }
+    } else {
+        f1 |= 0x01000000;
+    }
+    var f2: u32 = 0x00000000;
+    if (flags.unmovable)
+        f2 = 0x01000000;
+    _ = syscall5(SYS.create_window, @as(u32, x) * 0x10000 + width, @as(u32, y) * 0x10000 + height, f1 | @as(u32, bgcolor), f2 | @as(u32, bgcolor), @intFromPtr(title));
+}
+
+pub fn putPixel(x: u16, y: u16, color: u24) void {
+    _ = syscall3(SYS.put_pixel, x, y, color);
+}
+
+pub fn invertPixel(x: u16, y: u16) void {
+    _ = syscall3(SYS.put_pixel, x, y, 0x01000000);
+}
+
+pub const Key = packed struct(u32) {
+    _unused: u8 = 0,
+    key: u8 = 0,
+    scancode: u8 = 0,
+    empty: u8 = 1,
+
+    pub fn pressed(self: *const Key) bool {
+        return self.key & 0x80 > 0;
+    }
+};
+
+pub fn getKey() Key {
+    return @bitCast(syscall0(SYS.get_key));
+}
+
+pub fn getSysTime() u24 {
+    return @intCast(syscall0(SYS.get_sys_time));
+}
+
+pub fn getButton() u32 {
+    return syscall0(SYS.get_button);
+}
+
+pub fn terminateThreadId(id: u32) void {
+    _ = syscall2(SYS.system, 18, id);
+}
+
+pub fn drawText(x: u16, y: u16, color: u24, text: [*:0]const u8) void {
+    _ = syscall5(SYS.draw_text, @as(u32, x) * 0x10000 + y, 0x80000000 | @as(u32, color), @intFromPtr(text), 0, 0);
+}
+
+pub fn sleep(centisecond: u32) void {
+    _ = syscall1(SYS.sleep, centisecond);
+}
+
+pub fn beginDraw() void {
+    _ = syscall1(SYS.redraw, 1);
+}
+
+pub fn endDraw() void {
+    _ = syscall1(SYS.redraw, 2);
+}
+
+pub fn putImage(image: [*]const u8, width: u16, height: u16, x: u16, y: u16) void {
+    _ = syscall3(SYS.put_image, @intFromPtr(image), @as(u32, width) * 0x10000 + height, @as(u32, x) * 0x10000 + y);
+}
+
+pub fn drawRect(x: u16, y: u16, width: u16, height: u16, color: u24) void {
+    _ = syscall3(SYS.draw_rect, @as(u32, x) * 0x10000 + width, @as(u32, y) * 0x10000 + height, color);
+}
+
+pub fn getScreenSize() packed struct(u32) { height: u16, width: u16 } {
+    return @bitCast(syscall0(SYS.get_screen_size));
+}
+
+pub fn waitEvent() Event {
+    return @enumFromInt(syscall0(SYS.wait_event));
+}
+
+pub fn checkEvent() Event {
+    return @enumFromInt(syscall0(SYS.check_event));
+}
+
+pub fn createThread(entry: *const fn () void, stack: []u8) u32 {
+    return syscall3(SYS.create_thread, 1, @intFromPtr(entry), @intFromPtr(stack.ptr) + stack.len);
+}
+
+pub fn debugWrite(byte: u8) void {
+    _ = syscall2(SYS.board, 1, byte);
+}
+
+pub fn debugWriteText(bytes: []const u8) void {
+    for (bytes) |byte| {
+        debugWrite(byte);
+    }
+}
+
+pub const EventsMask = packed struct(u32) {
+    redraw: bool = true, // 0
+    key: bool = true,
+    button: bool = true,
+    _reserved: bool = false,
+    background: bool = false,
+    mouse: bool = false,
+    ipc: bool = false,
+    network: bool = false,
+    debug: bool = false,
+    _unused: u23 = 0,
+};
+
+pub fn setEventsMask(mask: EventsMask) EventsMask {
+    return @bitCast(syscall1(SYS.set_events_mask, @bitCast(mask)));
+}
+
+pub fn getSkinHeight() u16 {
+    return @intCast(syscall1(SYS.style_settings, 4));
+}
+
+pub fn screenPutImage(image: [*]const u32, width: u16, height: u16, x: u16, y: u16) void {
+    _ = syscall3(SYS.screen_put_image, @intFromPtr(image), @as(u32, width) * 0x10000 + height, @as(u32, x) * 0x10000 + y);
+}
+
+pub fn systemGetTimeCount() u32 {
+    return syscall1(SYS.system_get, 9);
+}
+
+pub fn getSysDate() u24 {
+    return @intCast(syscall0(SYS.get_sys_date));
+}
+
+pub fn mouseGetScreenPosition() packed struct(u32) { y: u16, x: u16 } {
+    return @bitCast(syscall1(SYS.mouse_get, 0));
+}
+
+pub fn mouseGetWindowPosition() packed struct(u32) { y: u16, x: u16 } {
+    return @bitCast(syscall1(SYS.mouse_get, 1));
+}
+
+pub fn loadCursorIndirect(image: *const [32 * 32]u32, spotx: u5, spoty: u5) u32 {
+    return syscall3(SYS.mouse_get, 4, @intFromPtr(image), 0x0002 | (@as(u32, spotx) << 24) | (@as(u32, spoty) << 16));
+}
+
+pub fn setCursor(cursor: u32) u32 {
+    return syscall2(SYS.mouse_get, 5, cursor);
+}
+
+pub const MouseEvents = packed struct(u32) {
+    left_hold: bool = false,
+    right_hold: bool = false,
+    middle_hold: bool = false,
+    button4_hold: bool = false,
+    button5_hold: bool = false,
+    _unused0: u3 = 0,
+    left_pressed: bool = false,
+    right_pressed: bool = false,
+    middle_pressed: bool = false,
+    _unused1: u4 = 0,
+    vertical_scroll: bool = false,
+    left_released: bool = false,
+    right_released: bool = false,
+    middle_released: bool = false,
+    _unused2: u4 = 0,
+    horizontal_scroll: bool = false,
+    left_double_clicked: bool = false,
+    _unused3: u7 = 0,
+};
+
+pub fn mouseGetEvents() MouseEvents {
+    return @bitCast(syscall1(SYS.mouse_get, 3));
+}
+
+pub fn heapInit() u32 {
+    return syscall1(SYS.sys_misc, 11);
+}
+
+pub fn memAlloc(size: u32) *anyopaque {
+    return @ptrFromInt(syscall2(SYS.sys_misc, 12, size));
+}
+
+pub fn memFree(ptr: *anyopaque) void {
+    _ = syscall2(SYS.sys_misc, 13, @intFromPtr(ptr));
+}
+
+pub fn memRealloc(size: u32, ptr: *anyopaque) *anyopaque {
+    return @ptrFromInt(syscall3(SYS.sys_misc, 20, size, @intFromPtr(ptr)));
+}
+
+fn alloc(ctx: *anyopaque, len: usize, alignment: std.mem.Alignment, ret_addr: usize) ?[*]u8 {
+    _ = ctx;
+    _ = alignment;
+    _ = ret_addr;
+    return @ptrCast(memAlloc(len));
+}
+
+fn free(ctx: *anyopaque, memory: []u8, alignment: std.mem.Alignment, ret_addr: usize) void {
+    _ = ctx;
+    _ = alignment;
+    _ = ret_addr;
+    memFree(@ptrCast(memory.ptr));
+}
+
+fn resize(ctx: *anyopaque, memory: []u8, alignment: std.mem.Alignment, new_len: usize, ret_addr: usize) bool {
+    _ = ctx;
+    _ = alignment;
+    _ = ret_addr;
+    _ = memRealloc(new_len, @ptrCast(memory.ptr));
+    return true;
+}
+
+fn remap(ctx: *anyopaque, memory: []u8, alignment: std.mem.Alignment, new_len: usize, ret_addr: usize) ?[*]u8 {
+    _ = ctx;
+    _ = memory;
+    _ = alignment;
+    _ = new_len;
+    _ = ret_addr;
+    return null;
+}
+
+pub const allocator: std.mem.Allocator = .{
+    .ptr = undefined,
+    .vtable = &.{
+        .alloc = alloc,
+        .free = free,
+        .resize = resize,
+        .remap = remap,
+    },
+};
+
+pub fn loadDriver(name: [*:0]const u8) u32 {
+    return syscall2(SYS.sys_misc, 16, @intFromPtr(name));
+}
+
+pub fn controlDriver(drv: u32, func: u32, in: ?[]const u32, out: ?[]const *anyopaque) u32 {
+    const ioctl: packed struct(u192) {
+        drv: u32,
+        func: u32,
+        inptr: u32,
+        insize: u32,
+        outptr: u32,
+        outsize: u32,
+    } = .{
+        .drv = drv,
+        .func = func,
+        .inptr = if (in) |v| @intFromPtr(v.ptr) else 0,
+        .insize = if (in) |v| v.len * 4 else 0,
+        .outptr = if (out) |v| @intFromPtr(v.ptr) else 0,
+        .outsize = if (out) |v| v.len * 4 else 0,
+    };
+    return syscall2(SYS.sys_misc, 17, @intFromPtr(&ioctl));
+}
+
+pub const Signal = packed struct(u192) {
+    kind: u32,
+    data0: u32,
+    data1: u32,
+    data2: u32,
+    data3: u32,
+    data4: u32,
+};
+
+pub fn waitSignal(sig: *Signal) void {
+    _ = syscall2(SYS.sys_misc, 14, @intFromPtr(sig));
+}
+
+pub const Sound = struct {
+    drv: u32,
+
+    pub const Buffer = struct {
+        drv: u32,
+        handle: u32,
+
+        pub fn play(self: *const Buffer, flags: u32) void {
+            _ = controlDriver(self.drv, 10, &.{ self.handle, flags }, null);
+        }
+
+        pub fn set(self: *const Buffer, src: []u8, offset: u32) void {
+            _ = controlDriver(self.drv, 8, &.{ self.handle, @intFromPtr(src.ptr), offset, src.len }, null);
+        }
+    };
+
+    pub fn init() Sound {
+        return .{
+            .drv = loadDriver("INFINITY"),
+        };
+    }
+
+    pub fn createBuffer(self: *const Sound, format: u32, size: u32) Buffer {
+        var ret: u32 = 0;
+        _ = controlDriver(self.drv, 1, &.{ format, size }, &.{&ret});
+        return .{
+            .drv = self.drv,
+            .handle = ret,
+        };
+    }
+};
+
+pub const InputMode = enum(u32) {
+    normal = 0,
+    scancodes = 1,
+};
+
+pub fn setInputMode(mode: InputMode) void {
+    _ = syscall2(SYS.keyboard, 1, @intFromEnum(mode));
+}
+
+pub fn changeWindow(x: u32, y: u32, width: u32, height: u32) void {
+    _ = syscall4(SYS.change_window, x, y, width, height);
+}
+
+pub const ControlKeys = packed struct(u32) {
+    left_shift: bool,
+    right_shift: bool,
+    left_ctrl: bool,
+    right_ctrl: bool,
+    left_alt: bool,
+    right_alt: bool,
+    caps_lock: bool,
+    num_lock: bool,
+    scroll_lock: bool,
+    left_win: bool,
+    right_win: bool,
+    _unused: u21,
+};
+
+pub fn getControlKeys() ControlKeys {
+    return @bitCast(syscall1(SYS.keyboard, 3));
+}
+
+const FileInfo = packed struct(u200) {
+    subfn: u32,
+    offset: u64,
+    size: u32,
+    buffer: u32,
+    path0: u8 = 0,
+    pathptr: *const u8,
+};
+
+pub fn readFile(pathname: [*:0]const u8, offset: u64, buffer: []u8) !u32 {
+    const info: FileInfo = .{
+        .subfn = 0,
+        .offset = offset,
+        .size = buffer.len,
+        .buffer = @intFromPtr(buffer.ptr),
+        .pathptr = @ptrCast(pathname),
+    };
+    const err = asm volatile ("int $0x40"
+        : [ret] "={eax}" (-> u32),
+        : [number] "{eax}" (SYS.file),
+          [info] "{ebx}" (&info),
+    );
+    const size = asm volatile (""
+        : [ret] "={ebx}" (-> u32),
+    );
+    return switch (err) {
+        0 => size,
+        10 => error.AccessDenied,
+        6 => size,
+        else => error.Unexpected,
+    };
+}
+
+pub fn createFile(pathname: [*:0]const u8, buffer: []u8) !u32 {
+    const info: FileInfo = .{
+        .subfn = 2,
+        .offset = 0,
+        .size = buffer.len,
+        .buffer = @intFromPtr(buffer.ptr),
+        .pathptr = @ptrCast(pathname),
+    };
+    const err = asm volatile ("int $0x40"
+        : [ret] "={eax}" (-> u32),
+        : [number] "{eax}" (SYS.file),
+          [info] "{ebx}" (&info),
+    );
+    const size = asm volatile (""
+        : [ret] "={ebx}" (-> u32),
+    );
+    return switch (err) {
+        0 => size,
+        10 => error.AccessDenied,
+        8 => size,
+        else => error.Unexpected,
+    };
+}
+
+pub fn writeFile(pathname: [*:0]const u8, offset: u64, buffer: []u8) !u32 {
+    const info: FileInfo = .{
+        .subfn = 3,
+        .offset = offset,
+        .size = buffer.len,
+        .buffer = @intFromPtr(buffer.ptr),
+        .pathptr = @ptrCast(pathname),
+    };
+    const err = asm volatile ("int $0x40"
+        : [ret] "={eax}" (-> u32),
+        : [number] "{eax}" (SYS.file),
+          [info] "{ebx}" (&info),
+    );
+    const size = asm volatile (""
+        : [ret] "={ebx}" (-> u32),
+    );
+    return switch (err) {
+        0 => size,
+        10 => error.AccessDenied,
+        5 => error.FileNotFound,
+        else => error.Unexpected,
+    };
+}
+
+pub fn fileGetSize(pathname: [*:0]const u8) !u64 {
+    var ret: [10]u32 = undefined;
+    const info: FileInfo = .{
+        .subfn = 5,
+        .offset = 0,
+        .size = 0,
+        .buffer = @intFromPtr(&ret),
+        .pathptr = @ptrCast(pathname),
+    };
+    if (syscall1(SYS.file, @intFromPtr(&info)) != 0)
+        return error.Unexpected;
+    return ret[8] | (@as(u64, ret[9]) << 32);
+}
+
+pub fn deleteFile(pathname: [*:0]const u8) !void {
+    const info: FileInfo = .{
+        .subfn = 8,
+        .offset = 0,
+        .size = 0,
+        .buffer = 0,
+        .pathptr = @ptrCast(pathname),
+    };
+    const err = syscall1(SYS.file, @intFromPtr(&info));
+    if (err != 0)
+        return error.Unexpected;
+}
+
+pub const File = struct {
+    pathname: [*:0]const u8,
+    offset: u64 = 0,
+
+    pub fn reader(file: *File) std.io.GenericReader(*File, anyerror, struct {
+        fn read(context: *File, buffer: []u8) !usize {
+            const size = try readFile(context.pathname, context.offset, buffer);
+            context.offset += size;
+            return size;
+        }
+    }.read) {
+        return .{ .context = file };
+    }
+};
+
+pub const BlitterFlags = packed struct(u32) {
+    rop: u4 = 0,
+    background: bool = false,
+    transparent: bool = false,
+    reserved1: u23 = 0,
+    client_relative: bool = true,
+    reserved2: u2 = 0,
+};
+
+pub fn blitter(dstx: u32, dsty: u32, dstw: u32, dsth: u32, srcx: u32, srcy: u32, srcw: u32, srch: u32, src: *const u8, pitch: u32, flags: BlitterFlags) void {
+    _ = syscall2(SYS.blitter, @bitCast(flags), @intFromPtr(&[_]u32{ dstx, dsty, dstw, dsth, srcx, srcy, srcw, srch, @intFromPtr(src), pitch }));
+}
+
+pub const DebugWriter = std.io.GenericWriter(void, anyerror, struct {
+    fn write(context: void, bytes: []const u8) !usize {
+        _ = context;
+        debugWriteText(bytes);
+        return bytes.len;
+    }
+}.write);
+
+pub const debug_writer: DebugWriter = .{ .context = {} };

programs/emulator/uxn/src/linker.ld

@@ -0,0 +1,42 @@
+/*
+ * SPDX-FileCopyrightText: 2025 iyzsong@envs.net
+ *
+ * SPDX-License-Identifier: MPL-2.0
+ */
+
+SECTIONS
+{
+  .text 0x00000000 :
+  {
+    /* MENUET01 header */
+    LONG(0x554e454d);
+    LONG(0x31305445);
+    LONG(1);
+    LONG(_start);
+    LONG(_image_end);
+    LONG(_memory_end);
+    LONG(_stack_top);
+    LONG(_cmdline);
+    LONG(0);
+    *(.text)
+    *(.text.*)
+  }
+  .rodata : ALIGN(8)
+  {
+    *(.rodata)
+    *(.rodata.*)
+  }
+  .data : ALIGN(8)
+  {
+    *(.data)
+  }
+  _image_end = .;
+
+  .bss : ALIGN(8)
+  {
+    *(.bss)
+    . = . + 4K;
+    _stack_top = .;
+  }
+  _memory_end = .;
+}

programs/emulator/uxn/src/main.zig

@@ -0,0 +1,418 @@
+// SPDX-FileCopyrightText: 2025 iyzsong@envs.net
+//
+// SPDX-License-Identifier: MPL-2.0
+
+const std = @import("std");
+const kos = @import("kolibri.zig");
+const uxn = @import("uxn-core");
+const varvara = @import("uxn-varvara");
+
+const allocator = kos.allocator;
+export var _cmdline: [1024]u8 = undefined;
+
+pub const std_options: std.Options = .{
+    .log_level = .info,
+    .logFn = struct {
+        fn log(comptime level: std.log.Level, comptime scope: @Type(.enum_literal), comptime format: []const u8, args: anytype) void {
+            _ = level;
+            _ = scope;
+            kos.debug_writer.print(format, args) catch return;
+        }
+    }.log,
+};
+
+const VarvaraDefault = varvara.VarvaraSystem(kos.DebugWriter, kos.DebugWriter);
+const emu = struct {
+    var cpu: uxn.Cpu = undefined;
+    var sys: VarvaraDefault = undefined;
+    var rom: *[0x10000]u8 = undefined;
+    var pixels: []u8 = undefined;
+    var screen_width: u32 = undefined;
+    var screen_height: u32 = undefined;
+    var null_cursor: u32 = undefined;
+    var hide_cursor: bool = false;
+    var audio_thread: ?u32 = null;
+    var scale: u4 = 1;
+
+    fn init(rompath: [*:0]const u8) !void {
+        const screen = &emu.sys.screen_device;
+        var rom_file = kos.File{ .pathname = rompath };
+        emu.rom = try uxn.loadRom(allocator, rom_file.reader());
+        emu.cpu = uxn.Cpu.init(emu.rom);
+        emu.sys = try VarvaraDefault.init(allocator, kos.debug_writer, kos.debug_writer);
+        emu.cpu.device_intercept = struct {
+            var file_offsets: [2]u64 = .{ 0, 0 };
+
+            fn bcd8(x: u8) u8 {
+                return (x & 0xf) + 10 * ((x & 0xf0) >> 4);
+            }
+
+            fn getFilePortSlice(dev: *varvara.file.File, comptime port: comptime_int) []u8 {
+                const ports = varvara.file.ports;
+                const ptr: usize = dev.loadPort(u16, &cpu, port);
+
+                return if (port == ports.name)
+                    std.mem.sliceTo(cpu.mem[ptr..], 0x00)
+                else
+                    return cpu.mem[ptr..ptr +| dev.loadPort(u16, &cpu, ports.length)];
+            }
+
+            pub fn intercept(self: *uxn.Cpu, addr: u8, kind: uxn.Cpu.InterceptKind, data: ?*anyopaque) !void {
+                _ = data;
+                const port: u4 = @truncate(addr & 0x0f);
+                if (audio_thread == null and addr >= 0x30 and addr < 0x70) {
+                    audio_thread = kos.createThread(&audio, allocator.alloc(u8, 32 * 1024) catch unreachable);
+                }
+                switch (addr >> 4) {
+                    0xa, 0xb => {
+                        if (kind != .output)
+                            return;
+
+                        const idx = (addr >> 4) - 0xa;
+                        const dev = &sys.file_devices[idx];
+                        const ports = varvara.file.ports;
+                        switch (port) {
+                            ports.stat + 1 => {
+                                // TODO: file/directory stat
+                                dev.storePort(u16, &cpu, ports.success, 0);
+                            },
+                            ports.delete => {
+                                const name_slice = getFilePortSlice(dev, ports.name);
+                                _ = kos.deleteFile(@ptrCast(name_slice)) catch {};
+                                dev.storePort(u16, &cpu, ports.success, 0);
+                            },
+                            ports.name + 1 => {
+                                file_offsets[idx] = 0;
+                                dev.storePort(u16, &cpu, ports.success, 1);
+                            },
+                            ports.read + 1 => {
+                                const name_slice = getFilePortSlice(dev, ports.name);
+                                const data_slice = getFilePortSlice(dev, ports.read);
+                                const ret: u32 = kos.readFile(@ptrCast(name_slice), file_offsets[idx], data_slice) catch 0;
+                                file_offsets[idx] += ret;
+                                dev.storePort(u16, &cpu, ports.success, @intCast(ret));
+                            },
+                            ports.write + 1 => {
+                                const append = dev.loadPort(u8, &cpu, ports.append) == 0x01;
+                                const pathname: [*:0]const u8 = @ptrCast(getFilePortSlice(dev, ports.name));
+                                const buffer = getFilePortSlice(dev, ports.write);
+                                var ret: u32 = 0;
+                                if (append) {
+                                    const offset: u32 = @intCast(kos.fileGetSize(pathname) catch 0);
+                                    ret = kos.writeFile(pathname, offset, buffer) catch |err| blk: {
+                                        if (err == error.FileNotFound) {
+                                            break :blk kos.createFile(pathname, buffer) catch 0;
+                                        } else {
+                                            break :blk 0;
+                                        }
+                                    };
+                                } else {
+                                    ret = kos.createFile(pathname, buffer) catch 0;
+                                }
+                                dev.storePort(u16, &cpu, ports.success, @intCast(ret));
+                            },
+                            else => {},
+                        }
+                    },
+                    0xc => {
+                        if (kind != .input)
+                            return;
+
+                        const dev = &sys.datetime_device;
+                        const date = kos.getSysDate();
+                        const time = kos.getSysTime();
+                        switch (port) {
+                            0x0, 0x1 => {
+                                const year: u8 = bcd8(@truncate(date & 0xff));
+                                dev.storePort(u16, &cpu, 0x0, @as(u16, 2000) + bcd8(year));
+                            },
+                            0x02 => {
+                                const month: u8 = bcd8(@truncate((date & 0xff00) >> 8));
+                                dev.storePort(u8, &cpu, port, month);
+                            },
+                            0x03 => {
+                                const day: u8 = bcd8(@truncate((date & 0xff0000) >> 16));
+                                dev.storePort(u8, &cpu, port, day);
+                            },
+                            0x04 => {
+                                const hour: u8 = bcd8(@truncate(time & 0xff));
+                                dev.storePort(u8, &cpu, port, hour);
+                            },
+                            0x05 => {
+                                const minute: u8 = bcd8(@truncate((time & 0xff00) >> 8));
+                                dev.storePort(u8, &cpu, port, minute);
+                            },
+                            0x06 => {
+                                const second: u8 = bcd8(@truncate((time & 0xff0000) >> 16));
+                                dev.storePort(u8, &cpu, port, second);
+                            },
+                            else => {},
+                        }
+                    },
+                    else => try emu.sys.intercept(self, addr, kind),
+                }
+            }
+        }.intercept;
+        emu.cpu.output_intercepts = varvara.full_intercepts.output;
+        emu.cpu.input_intercepts = varvara.full_intercepts.input;
+
+        try emu.cpu.evaluateVector(0x0100);
+        screen_width = screen.width * emu.scale;
+        screen_height = screen.height * emu.scale;
+        emu.pixels = try allocator.alloc(u8, @as(usize, 4) * screen_width * screen_height);
+    }
+
+    fn exit() void {
+        if (audio_thread) |tid| {
+            kos.terminateThreadId(tid);
+        }
+        kos.terminateProcess();
+    }
+
+    fn audio() void {
+        var samples: [8192]i16 = undefined;
+        var sig: kos.Signal = undefined;
+        const buf = kos.Sound.init().createBuffer(3 | 0x10000000, 0);
+        buf.play(0);
+        while (true) {
+            kos.waitSignal(&sig);
+            if (sig.kind != 0xFF000001) continue;
+            @memset(&samples, 0);
+            for (0..samples.len / 512) |i| {
+                const w = samples[i * 512 .. (i + 1) * 512];
+                for (&sys.audio_devices) |*poly| {
+                    if (poly.duration <= 0) {
+                        poly.evaluateFinishVector(&cpu) catch unreachable;
+                    }
+                    poly.updateDuration();
+                    poly.renderAudio(w);
+                }
+            }
+            for (0..samples.len) |i| {
+                samples[i] <<= 6;
+            }
+            buf.set(@ptrCast(&samples), sig.data2);
+        }
+    }
+
+    fn update() !void {
+        const screen = &sys.screen_device;
+        const colors = &sys.system_device.colors;
+        if (sys.system_device.exit_code) |_| {
+            exit();
+        }
+        if (screen_width != screen.width * scale or screen_height != screen.height * scale) {
+            const skin_height = kos.getSkinHeight();
+            allocator.free(emu.pixels);
+            screen_width = screen.width * scale;
+            screen_height = screen.height * scale;
+            emu.pixels = try allocator.alloc(u8, @as(usize, 4) * screen_width * screen_height);
+            kos.changeWindow(100, 100, screen_width + 9, screen_height + skin_height + 4);
+        }
+        try screen.evaluateFrame(&cpu);
+        if (screen.dirty_region) |region| {
+            for (region.y0..region.y1) |y| {
+                for (region.x0..region.x1) |x| {
+                    const idx = y * screen.width + x;
+                    const pal = (@as(u4, screen.foreground[idx]) << 2) | screen.background[idx];
+                    const color = colors[if ((pal >> 2) > 0) (pal >> 2) else (pal & 0x3)];
+                    for (0..scale) |sy| {
+                        for (0..scale) |sx| {
+                            pixels[4 * ((y * scale + sy) * screen.width * scale + (x * scale + sx)) + 2] = color.r;
+                            pixels[4 * ((y * scale + sy) * screen.width * scale + (x * scale + sx)) + 1] = color.g;
+                            pixels[4 * ((y * scale + sy) * screen.width * scale + (x * scale + sx)) + 0] = color.b;
+                        }
+                    }
+                }
+            }
+            const ix = region.x0 * scale;
+            const iy = region.y0 * scale;
+            const iw = (region.x1 - region.x0) * scale;
+            const ih = (region.y1 - region.y0) * scale;
+            kos.blitter(ix, iy, iw, ih, ix, iy, iw, ih, @ptrCast(emu.pixels.ptr), screen.width * scale * 4, .{});
+            screen.dirty_region = null;
+        }
+    }
+
+    fn changeScale() void {
+        const screen = &sys.screen_device;
+        scale = switch (scale) {
+            1 => 2,
+            2 => 3,
+            3 => 1,
+            else => 1,
+        };
+        screen.forceRedraw();
+    }
+};
+
+export fn _start() noreturn {
+    const cursor: [32 * 32]u32 = .{0} ** (32 * 32);
+    var counter: u32 = 0;
+    var last_tick = kos.systemGetTimeCount();
+
+    _ = kos.heapInit();
+    _ = kos.setEventsMask(.{ .mouse = true });
+    kos.setInputMode(.scancodes);
+    emu.null_cursor = kos.loadCursorIndirect(&cursor, 0, 0);
+    emu.init(@ptrCast(&_cmdline)) catch unreachable;
+
+    const screen = &emu.sys.screen_device;
+    const controller = &emu.sys.controller_device;
+
+    const callbacks = struct {
+        fn redraw() void {
+            const skin_height = kos.getSkinHeight();
+            kos.beginDraw();
+            kos.createWindow(300, 300, screen.width * emu.scale + 9, screen.height * emu.scale + skin_height + 4, 0x000000, .{ .skinned = true, .no_fill = true, .relative_coordinates = true }, "UXN");
+            kos.endDraw();
+        }
+
+        fn key() void {
+            const symtab: [0x80]u8 = .{
+                // 0x0*
+                0,   27,  '1', '2', '3', '4', '5', '6', '7',  '8', '9', '0',  '-',  '=', 8,   '\t',
+                // 0x1*
+                'q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o',  'p', '[', ']',  '\r', 0,   'a', 's',
+                // 0x2*
+                'd', 'f', 'g', 'h', 'j', 'k', 'l', ';', '\'', '`', 0,   '\\', 'z',  'x', 'c', 'v',
+                // 0x3*
+                'b', 'n', 'm', ',', '.', '/', 0,   0,   0,    ' ', 0,   0,    0,    0,   0,   0,
+                // 0x00* + SHIFT
+                0,   27,  '!', '@', '#', '$', '%', '^', '&',  '*', '(', ')',  '_',  '+', 8,   '\t',
+                // 0x10* + SHIFT
+                'Q', 'W', 'E', 'R', 'T', 'Y', 'U', 'I', 'O',  'P', '{', '}',  '\r', 0,   'A', 'S',
+                // 0x20* + SHIFT
+                'D', 'F', 'G', 'H', 'J', 'K', 'L', ':', '"',  '~', 0,   '|',  'Z',  'X', 'C', 'V',
+                // 0x30* + SHIFT,
+                'B', 'N', 'M', '<', '>', '?', 0,   0,   0,    ' ', 0,   0,    0,    0,   0,   0,
+            };
+            const scancode1 = kos.getKey().key;
+            const input: ?union(enum) {
+                button: struct {
+                    flags: varvara.controller.ButtonFlags,
+                    pressed: bool,
+                },
+                key: u8,
+            } = switch (scancode1) {
+                0xe0 => blk: {
+                    const scancode2 = kos.getKey().key;
+                    break :blk switch (scancode2) {
+                        0x1d => .{ .button = .{ .flags = .{ .ctrl = true }, .pressed = true } },
+                        0x9d => .{ .button = .{ .flags = .{ .ctrl = true }, .pressed = false } },
+                        0x38 => .{ .button = .{ .flags = .{ .alt = true }, .pressed = true } },
+                        0xb8 => .{ .button = .{ .flags = .{ .alt = true }, .pressed = false } },
+                        0x47 => .{ .button = .{ .flags = .{ .start = true }, .pressed = true } },
+                        0xc7 => .{ .button = .{ .flags = .{ .start = true }, .pressed = false } },
+                        0x48 => .{ .button = .{ .flags = .{ .up = true }, .pressed = true } },
+                        0xc8 => .{ .button = .{ .flags = .{ .up = true }, .pressed = false } },
+                        0x50 => .{ .button = .{ .flags = .{ .down = true }, .pressed = true } },
+                        0xd0 => .{ .button = .{ .flags = .{ .down = true }, .pressed = false } },
+                        0x4b => .{ .button = .{ .flags = .{ .left = true }, .pressed = true } },
+                        0xcb => .{ .button = .{ .flags = .{ .left = true }, .pressed = false } },
+                        0x4d => .{ .button = .{ .flags = .{ .right = true }, .pressed = true } },
+                        0xcd => .{ .button = .{ .flags = .{ .right = true }, .pressed = false } },
+                        else => null,
+                    };
+                },
+                0x3b => blk: {
+                    emu.changeScale();
+                    break :blk null;
+                },
+                0x1d => .{ .button = .{ .flags = .{ .ctrl = true }, .pressed = true } },
+                0x9d => .{ .button = .{ .flags = .{ .ctrl = true }, .pressed = false } },
+                0x38 => .{ .button = .{ .flags = .{ .alt = true }, .pressed = true } },
+                0xb8 => .{ .button = .{ .flags = .{ .alt = true }, .pressed = false } },
+                0x2a, 0x36 => .{ .button = .{ .flags = .{ .shift = true }, .pressed = true } },
+                0xaa, 0xb6 => .{ .button = .{ .flags = .{ .shift = true }, .pressed = false } },
+                else => blk: {
+                    if (scancode1 > 0x40) {
+                        break :blk null;
+                    }
+                    const ctrls = kos.getControlKeys();
+                    const k = if (ctrls.left_shift or ctrls.right_shift) symtab[scancode1 + 0x40] else symtab[scancode1];
+                    break :blk if (k > 0) .{ .key = k } else null;
+                },
+            };
+
+            if (input) |v| {
+                switch (v) {
+                    .button => {
+                        if (v.button.pressed) {
+                            controller.pressButtons(&emu.cpu, v.button.flags, 0) catch unreachable;
+                        } else {
+                            controller.releaseButtons(&emu.cpu, v.button.flags, 0) catch unreachable;
+                        }
+                    },
+                    .key => {
+                        controller.pressKey(&emu.cpu, v.key) catch unreachable;
+                    },
+                }
+            }
+        }
+
+        fn button() void {
+            const btn = kos.getButton();
+            if (btn >> 8 == 1)
+                emu.exit();
+        }
+
+        fn mouse() void {
+            const dev = &emu.sys.mouse_device;
+            const pos = kos.mouseGetWindowPosition();
+            const events = kos.mouseGetEvents();
+            const mouse_pressed: varvara.mouse.ButtonFlags = .{
+                .left = events.left_pressed,
+                .middle = events.middle_pressed,
+                .right = events.right_pressed,
+                ._unused = 0,
+            };
+            const mouse_released: varvara.mouse.ButtonFlags = .{
+                .left = events.left_released,
+                .middle = events.middle_released,
+                .right = events.right_released,
+                ._unused = 0,
+            };
+            if (emu.hide_cursor and pos.y > emu.screen_height) {
+                _ = kos.setCursor(0);
+                emu.hide_cursor = false;
+            }
+            if (!emu.hide_cursor and pos.y < emu.screen_height) {
+                _ = kos.setCursor(emu.null_cursor);
+                emu.hide_cursor = true;
+            }
+            dev.updatePosition(&emu.cpu, pos.x / emu.scale, pos.y / emu.scale) catch unreachable;
+            if (@as(u8, @bitCast(mouse_pressed)) > 0) {
+                dev.pressButtons(&emu.cpu, mouse_pressed) catch unreachable;
+            }
+            if (@as(u8, @bitCast(mouse_released)) > 0) {
+                dev.releaseButtons(&emu.cpu, mouse_released) catch unreachable;
+            }
+        }
+    };
+
+    callbacks.redraw();
+    while (true) {
+        while (true) {
+            const event = kos.checkEvent();
+            switch (event) {
+                .none => break,
+                .redraw => callbacks.redraw(),
+                .key => callbacks.key(),
+                .button => callbacks.button(),
+                .mouse => callbacks.mouse(),
+                else => {},
+            }
+        }
+        const tick = kos.systemGetTimeCount();
+        counter += (tick - last_tick) * 3;
+        last_tick = tick;
+
+        if (counter > 5) {
+            counter -= 5;
+            emu.update() catch unreachable;
+        } else {
+            kos.sleep(1);
+        }
+    }
+}

programs/games/floppybird/README.md

@@ -1,7 +0,0 @@
-## Floppy Bird for KolibriOS
-
-* [Forum topic](http://board.kolibrios.org/viewtopic.php?f=41&t=4471) <br>
-* [Directory in official KolibriOS GIT repository] kolibrios\programs\games\floppybird
-
-<img src="https://i.ibb.co/kMsv8pB/menu.jpg" alt="Screenshot" width="400"> <img src="https://i.ibb.co/7NP1yHZ/screen1.jpg" alt="Screenshot" width="400">
-<img src="https://i.ibb.co/Y2FwxDG/screen2.jpg" alt="Screenshot" width="400"> <img src="https://i.ibb.co/3W8yCYn/gameover.jpg" alt="Screenshot" width="400">

programs/games/floppybird/flappybird.vcxproj

@@ -1,73 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<Project DefaultTargets="Build" ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-  <ItemGroup Label="ProjectConfigurations">
-    <ProjectConfiguration Include="Release|Win32">
-      <Configuration>Release</Configuration>
-      <Platform>Win32</Platform>
-    </ProjectConfiguration>
-  </ItemGroup>
-  <PropertyGroup Label="Globals">
-    <ProjectGuid>{0556BA3E-9447-4000-8613-91AD1CD750D7}</ProjectGuid>
-    <RootNamespace>floppybird</RootNamespace>
-  </PropertyGroup>
-  <Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
-  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">
-    <ConfigurationType>Application</ConfigurationType>
-    <UseDebugLibraries>false</UseDebugLibraries>
-    <WholeProgramOptimization>true</WholeProgramOptimization>
-    <CharacterSet>MultiByte</CharacterSet>
-  </PropertyGroup>
-  <Import Project="$(VCTargetsPath)\Microsoft.Cpp.props" />
-  <ImportGroup Label="ExtensionSettings">
-  </ImportGroup>
-  <ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
-    <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
-  </ImportGroup>
-  <PropertyGroup Label="UserMacros" />
-  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
-    <GenerateManifest>false</GenerateManifest>
-    <EmbedManifest>false</EmbedManifest>
-  </PropertyGroup>
-  <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
-    <ClCompile>
-      <WarningLevel>Level3</WarningLevel>
-      <Optimization>MinSpace</Optimization>
-      <FunctionLevelLinking>true</FunctionLevelLinking>
-      <IntrinsicFunctions>true</IntrinsicFunctions>
-      <BufferSecurityCheck>false</BufferSecurityCheck>
-      <RuntimeLibrary>MultiThreaded</RuntimeLibrary>
-      <AdditionalIncludeDirectories>smalllibc</AdditionalIncludeDirectories>
-      <OmitFramePointers>true</OmitFramePointers>
-      <FavorSizeOrSpeed>Size</FavorSizeOrSpeed>
-      <RuntimeTypeInfo>false</RuntimeTypeInfo>
-    </ClCompile>
-    <Link>
-      <GenerateDebugInformation>false</GenerateDebugInformation>
-      <EnableCOMDATFolding>true</EnableCOMDATFolding>
-      <OptimizeReferences>true</OptimizeReferences>
-      <IgnoreAllDefaultLibraries>true</IgnoreAllDefaultLibraries>
-      <EntryPointSymbol>fakeEntry</EntryPointSymbol>
-      <SubSystem>Native</SubSystem>
-      <AdditionalOptions>/merge:.data=.text /merge:.rdata=.text /merge:.1seg=.text /section:.bss,E %(AdditionalOptions)</AdditionalOptions>
-      <GenerateMapFile>true</GenerateMapFile>
-    </Link>
-    <PostBuildEvent>
-      <Command>set EXENAME=$(TargetPath)
-"C:\kolibri\fasm\FASM.EXE" $(ProjectDir)smalllibc\doexe2.asm $(TargetDir)$(TargetName)</Command>
-    </PostBuildEvent>
-  </ItemDefinitionGroup>
-  <ItemGroup>
-    <ClCompile Include="floppybird.cpp" />
-  </ItemGroup>
-  <ItemGroup>
-    <ProjectReference Include="smalllibc\smalllibc.vcxproj">
-      <Project>{0D291390-1953-4E1F-BBE2-57F12AFF3214}</Project>
-    </ProjectReference>
-  </ItemGroup>
-  <ItemGroup>
-    <ClInclude Include="images.hpp" />
-  </ItemGroup>
-  <Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" />
-  <ImportGroup Label="ExtensionTargets">
-  </ImportGroup>
-</Project>

programs/games/floppybird/flappybird.vcxproj.filters

@@ -1,27 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-  <ItemGroup>
-    <Filter Include="Файлы исходного кода">
-      <UniqueIdentifier>{4FC737F1-C7A5-4376-A066-2A32D752A2FF}</UniqueIdentifier>
-      <Extensions>cpp;c;cc;cxx;def;odl;idl;hpj;bat;asm;asmx</Extensions>
-    </Filter>
-    <Filter Include="Заголовочные файлы">
-      <UniqueIdentifier>{93995380-89BD-4b04-88EB-625FBE52EBFB}</UniqueIdentifier>
-      <Extensions>h;hpp;hxx;hm;inl;inc;xsd</Extensions>
-    </Filter>
-    <Filter Include="Файлы ресурсов">
-      <UniqueIdentifier>{67DA6AB6-F800-4c08-8B7A-83BB121AAD01}</UniqueIdentifier>
-      <Extensions>rc;ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe;resx;tiff;tif;png;wav;mfcribbon-ms</Extensions>
-    </Filter>
-  </ItemGroup>
-  <ItemGroup>
-    <ClCompile Include="floppybird.cpp">
-      <Filter>Файлы исходного кода</Filter>
-    </ClCompile>
-  </ItemGroup>
-  <ItemGroup>
-    <ClInclude Include="images.hpp">
-      <Filter>Файлы исходного кода</Filter>
-    </ClInclude>
-  </ItemGroup>
-</Project>

programs/games/floppybird/floppybird.cpp

@@ -1,436 +0,0 @@
-#include <kosSyst.h>
-#include <kosFile.h>
-#include "images.hpp"
-
-//Global const strings
-const char HEADER_STRING[] = "Floppy bird";
-const char CONTROL_STRING[] = "SPACEBAR TO JUMP";
-const char GAMEOVER_STRING[] = "GAMEOVER";
-const char ANY_KEY_STRING[] = "Press any key for restart";
-const char SELECT_SPEED_STRING[] = "select the speed of the game";
-const char FAST_STRING[] = "1 FAST";
-const char SLOW_STRING[] = "2 SLOW";
-
-//Global const variables
-const int WINDOW_WIDTH = 400;
-const int WINDOW_HEIGHT = 400;
-const int BORDER_TOP = 24;
-const int BORDER_LEFT = 5;
-const int BORDER_RIGHT = 5;
-const int BORDER_DOWN = 5;
-
-enum GameState
-{
-	GAMESTATE_MENU,
-	GAMESTATE_STARTED,
-	GAMESTATE_GAMEOVER
-};
-
-struct ScreenSize
-{
-	int width;
-	int height;
-};
-
-class Bird
-{
-public:
-	static const int sizeX = 19;
-	static const int sizeY = 20;
-	static const int x = 100;
-	int prev_y;
-	int y;
-	int acceleration;
-
-	inline void initialize()
-	{
-		y = WINDOW_HEIGHT / 2;
-		acceleration = 0;
-	}
-
-	inline void move()
-	{
-		if (acceleration <= 30)
-			acceleration += 2;
-		prev_y = y;
-		y += acceleration / 10;
-	}
-
-	inline void jump()
-	{
-		acceleration = -50;
-	}
-
-	inline void draw()
-	{
-		kos_PutImage(birdImage, sizeX, sizeY, x, y);
-	}
-};
-
-class Tube
-{
-public:
-	static const int width = 50;
-	static const int gapHeight = 100;
-	static const int headHeight = 18;
-	int x;
-	int gapY;
-
-	inline void randomize()
-	{
-		x = WINDOW_WIDTH + 1;
-		gapY = rtlRand() % 200 + 50;
-	}
-
-	inline void move()
-	{
-		x -= 2;
-		if (x < -width - 2)
-			randomize();
-	}
-
-	void draw()
-	{
-		//cleanup
-		int pixels = (WINDOW_WIDTH - (BORDER_LEFT + BORDER_RIGHT - 1)) - (x + width + 2);
-		if (pixels >= -1)
-		{
-			pixels = (pixels == -1) ? 1 : 2;
-			kos_DrawBar(x + width, gapY - headHeight, pixels, headHeight, 0x00FFFF);
-			kos_DrawBar(x + width, gapY + gapHeight, pixels, headHeight, 0x00FFFF);
-		}
-
-		int offset = x >= 0 ? 0 : -x;
-		int trim = x + width >= WINDOW_WIDTH - (BORDER_LEFT + BORDER_RIGHT - 1) ? WINDOW_WIDTH - x - width - (BORDER_LEFT + BORDER_RIGHT - 1) : 0;
-		int trimHead = x + width >= WINDOW_WIDTH - (BORDER_LEFT + BORDER_RIGHT - 1) ? WINDOW_WIDTH - x - width - (BORDER_LEFT + BORDER_RIGHT - 1) : 0;
-
-		//top
-		for (int y = 0; y < gapY - headHeight; ++y)
-			kos_PutImage(tubeBodyImage + offset, width - offset + trim, 1, x + offset, y);
-		//head top
-		for (int y = gapY - headHeight; y < gapY; ++y)
-			kos_PutImage(tubeHeadImage + width * (y - (gapY - headHeight)) + offset, width - offset + trimHead, 1, x + offset, y);
-		//head down
-		for (int y = gapY + gapHeight; y < gapY + gapHeight + headHeight; ++y)
-			kos_PutImage(tubeHeadImage + width * (y - (gapY + gapHeight)) + offset, width - offset + trimHead, 1, x + offset, y);
-		//down
-		for (int y = gapY + gapHeight + headHeight; y < WINDOW_HEIGHT - (BORDER_TOP + BORDER_DOWN - 1); ++y)
-			kos_PutImage(tubeBodyImage + offset, width - offset + trim, 1, x + offset, y);
-
-	}
-};
-
-//Global variables
-int loopDelay;
-GameState gameState;
-char scoreString[] = "Score:    ";
-bool scoreChanged;
-int score;
-Bird bird;
-int tubeNumber;
-Tube tubes[3];
-int windowX;
-int windowY;
-
-//Function prototypes
-void kos_Main();
-void startGame();
-ScreenSize getScreenSize();
-void updateScoreString();
-void WriteBorderedText(Word x, Word y, Byte fontType, Dword textColor, const char* textPtr, Dword textLen, Dword borderColor, int borderSize);
-inline bool checkAddScore(Tube tube);
-inline bool checkCollision(Tube tube);
-
-void drawMenuWindow();
-void drawGameWindow();
-void redrawGameWindow();
-void drawGameoverWindow();
-
-//Functions
-
-void startGame()
-{
-	kos_SetMaskForEvents(0x7); /// 111 in binary
-
-	bird.initialize();
-
-	score = 0;
-	memset((Byte*)scoreString + 6, ' ', 3);
-	updateScoreString();
-
-	tubeNumber = 1;
-	tubes[0].randomize();
-
-	gameState = GAMESTATE_STARTED;
-	drawGameWindow();
-}
-
-ScreenSize getScreenSize()
-{
-	Dword result;
-	__asm {
-		push 14		//System function 14
-		pop eax
-		int 0x40
-		mov result, eax
-	}
-	ScreenSize screenSize;
-	screenSize.height = (result & 0xFFFF) + 1;	//last two bytes
-	screenSize.width = (result >> 16) + 1;		//first two bytes
-	return screenSize;
-}
-
-void kos_Main()
-{
-	rtlSrand( kos_GetSystemClock() );
-
-	//Centring window
-	ScreenSize screenSize = getScreenSize();
-	windowX = (screenSize.width - WINDOW_WIDTH) / 2;
-	windowY = (screenSize.height - WINDOW_HEIGHT) / 2;
-
-	gameState = GAMESTATE_MENU;
-
-	kos_SetMaskForEvents(0x27); // 100111 in binary
-
-	while( true )
-	{
-		switch (gameState)
-		{
-		case GAMESTATE_STARTED:
-			kos_Pause(loopDelay);
-
-			bird.move();
-
-			//Adding new tubes
-			if ((tubeNumber == 1 || tubeNumber == 2) && (tubes[tubeNumber - 1].x < (WINDOW_WIDTH - WINDOW_WIDTH / 3)))
-				tubes[tubeNumber++].randomize();
-
-			//Processing all tubes
-			scoreChanged = false;
-			for (int i = 0; i < tubeNumber; ++i)
-			{
-				//Adding score
-				if (checkAddScore(tubes[i]))
-				{
-					++score;
-					scoreChanged = true;
-				}
-
-				//Check collision with bird
-				if (checkCollision(tubes[i]))
-				{
-					gameState = GAMESTATE_GAMEOVER;
-					continue;
-				}
-
-				//Move tube
-				tubes[i].move();
-			}
-
-			if (scoreChanged)
-				updateScoreString();
-
-			//Cheking the bird is too high or low 
-			if (bird.y + bird.sizeY > WINDOW_HEIGHT - (BORDER_TOP + BORDER_DOWN - 1) || bird.y < 0)
-			{
-				gameState = GAMESTATE_GAMEOVER;
-				continue;
-			}
-
-			redrawGameWindow();
-
-			switch (kos_CheckForEvent())
-			{
-			case 1:
-				drawGameWindow();
-				break;
-
-			case 2: // key pressed
-				Byte keyCode;
-				kos_GetKey(keyCode);
-				if (keyCode == 32) //if pressed key is spacebar
-					bird.jump();
-				break;
-
-			case 3: // button pressed; we have only one button, close
-				kos_ExitApp();
-			}
-			break;
-
-		case GAMESTATE_GAMEOVER:
-			drawGameoverWindow();
-
-			switch (kos_WaitForEvent())
-			{
-			case 1:
-				drawGameoverWindow();
-				break;
-
-			case 2:
-				startGame();
-				break;
-
-			case 3:
-				kos_ExitApp();
-			}
-			break;
-
-		case GAMESTATE_MENU:
-			switch (kos_WaitForEvent())
-			{
-			case 1:
-				drawMenuWindow();
-				break;
-
-			case 2:
-				Byte keyCode;
-				kos_GetKey(keyCode);
-				if (keyCode == 0x31 || keyCode == 0x61)	//1 or NumPad1
-				{
-					loopDelay = 1;
-					startGame();
-				}
-				else if (keyCode == 0x32 || keyCode == 0x62) //2 or NumPad2
-				{
-					loopDelay = 2;
-					startGame();
-				}
-				break;
-
-			case 3:
-				kos_ExitApp();
-
-			case 6:
-				Dword result;
-				__asm {
-					push 37 //Function 37 - work with mouse
-					pop eax
-					mov ebx, 3 //Subfunction 3 - states and events of the mouse buttons 
-					int 0x40
-					mov result, eax
-				}
-				result &= 0x100; //bit 8 is set = left button is pressed
-				if ( result )
-				{
-					Dword coordinates;
-					__asm {
-						push 37	//Function 37 - work with mouse
-						pop eax
-						mov ebx, 1 //Subfunction 1 - coordinates of the mouse relative to the window 
-						int		0x40
-						mov coordinates, eax
-					}
-					int clickX = coordinates >> 16;
-					int clickY = coordinates & 0xFFFF;
-					if (clickX >= 100 && clickX < 390 && clickY >= 170 && clickY < 230)
-					{
-						loopDelay = 1;
-						startGame();
-					}
-					else if (clickX >= 100 && clickX < 390 && clickY >= 270 && clickY < 330)
-					{
-						loopDelay = 2;
-						startGame();
-					}
-				}
-				break;
-			}
-			break;
-		}
-	}
-}
-
-void drawGameWindow()
-{
-	kos_DefineAndDrawWindow(windowX, windowY, WINDOW_WIDTH, WINDOW_HEIGHT, 0x33, 0x00FFFF, 0, 0, (Dword)HEADER_STRING);
-	bird.draw();
-	for (int i = 0; i < tubeNumber; ++i)
-		tubes[i].draw();
-	kos_WriteTextToWindow(10, 10, 0x81, 0x000000, scoreString, 0);
-	kos_WriteTextToWindow(10, 30, 0x81, 0x000000, CONTROL_STRING, 0);
-}
-void redrawGameWindow()
-{
-	//cleaning the screen
-	if (scoreChanged)
-		kos_DrawBar(80, 10, 50, 15, 0x00FFFF);
-	if (bird.y > bird.prev_y)
-		kos_DrawBar(bird.x, bird.prev_y, bird.sizeX, bird.y - bird.prev_y, 0x00FFFF);
-	else
-		kos_DrawBar(bird.x, bird.y + bird.sizeY, bird.sizeX, bird.prev_y - bird.y, 0x00FFFF);
-
-	bird.draw();
-	for (int i = 0; i < tubeNumber; ++i)
-		tubes[i].draw();
-
-	kos_WriteTextToWindow(10, 10, 0x81, 0x000000, scoreString, 0);
-	kos_WriteTextToWindow(10, 30, 0x81, 0x000000, CONTROL_STRING, 0);
-}
-
-void drawGameoverWindow()
-{
-	kos_DefineAndDrawWindow(windowX, windowY, WINDOW_WIDTH, WINDOW_HEIGHT, 0x33, 0x000000, 0, 0, (Dword)HEADER_STRING);
-	kos_WriteTextToWindow(125, 50, 0x82, 0xFFFFFF, GAMEOVER_STRING, 0);
-	kos_WriteTextToWindow(135, 100, 0x81, 0xFFFFFF, scoreString, 0);
-	kos_WriteTextToWindow(50, 150, 0x81, 0xFFFFFF, ANY_KEY_STRING, 0);
-}
-
-void WriteBorderedText(Word x, Word y, Byte fontType, Dword textColor, const char *textPtr, Dword textLen, Dword borderColor, int borderSize)
-{
-	kos_WriteTextToWindow(x - borderSize, y - borderSize, fontType, borderColor, textPtr, textLen);
-	kos_WriteTextToWindow(x - borderSize, y + borderSize, fontType, borderColor, textPtr, textLen);
-	kos_WriteTextToWindow(x + borderSize, y - borderSize, fontType, borderColor, textPtr, textLen);
-	kos_WriteTextToWindow(x + borderSize, y + borderSize, fontType, borderColor, textPtr, textLen);
-	kos_WriteTextToWindow(x, y, fontType, textColor, textPtr, textLen);
-}
-
-void drawMenuWindow()
-{
-	kos_DefineAndDrawWindow(windowX, windowY, WINDOW_WIDTH, WINDOW_HEIGHT, 0x33, 0x00FFFF, 0, 0, (Dword)HEADER_STRING);
-	
-	WriteBorderedText(85, 40, 0x4, 0xFFFFFF, HEADER_STRING, 6, 0x000000, 2);
-	WriteBorderedText(185, 80, 0x84, 0xFFFFFF, HEADER_STRING + 7, 0, 0x000000, 2);
-
-	RGB* pos = &tubeHeadImage[0];
-	for (int x = 100 - 1; x >= 100 - Tube::headHeight; --x)
-		for (int y = 170; y < 170 + Tube::width; ++y)
-		{
-			kos_PutPixel(x, y, (pos->r << 16) + (pos->g << 8) + (pos->b));	//first tube
-			kos_PutPixel(x, y+100, (pos->r << 16) + (pos->g << 8) + (pos->b)); //second tube
-			++pos;
-		}
-
-	//First button
-	for(int x = 100; x < WINDOW_WIDTH - (BORDER_LEFT + BORDER_RIGHT - 1); ++x)
-		kos_PutImage(tubeBodyImage, 1, Tube::width, x, 170);
-	WriteBorderedText(140, 185, 0x82, 0x000000, FAST_STRING, 0, 0xFFFFFF, 1);
-	
-	//Second button
-	for (int x = 100; x < WINDOW_WIDTH - (BORDER_LEFT + BORDER_RIGHT - 1); ++x)
-		kos_PutImage(tubeBodyImage, 1, Tube::width, x, 270);
-	WriteBorderedText(140, 285, 0x82, 0x000000, SLOW_STRING, 0, 0xFFFFFF, 1);
-}
-
-inline bool checkCollision(Tube tube)
-{
-	return ((tube.x <= (bird.x + bird.sizeX) && tube.x + tube.width >= bird.x)
-		&& (bird.y <= tube.gapY || bird.y + bird.sizeY >= tube.gapY + tube.gapHeight));
-}
-
-inline bool checkAddScore(Tube tube)
-{
-	//int diff = bird.x - (tube.x + tube.width);
-	//return diff == 0 || diff == 1;
-	return ((bird.x - (tube.x + tube.width)) >> 1) == 0;
-}
-
-void updateScoreString()
-{
-	int temp = score;
-	int index = 9;
-	do {
-		scoreString[index--] = temp % 10 + '0';
-		temp /= 10;
-	} while (temp > 0);
-}

programs/games/floppybird/floppybird.sln

@@ -1,20 +0,0 @@
-Microsoft Visual Studio Solution File, Format Version 11.00
-# Visual Studio 2010
-Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "floppybird", "floppybird.vcxproj", "{0556BA3E-9447-4000-8613-91AD1CD750D7}"
-	ProjectSection(ProjectDependencies) = postProject
-		{0D291390-1953-4E1F-BBE2-57F12AFF3214} = {0D291390-1953-4E1F-BBE2-57F12AFF3214}
-	EndProjectSection
-EndProject
-Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "smalllibc", "smalllibc\smalllibc.vcxproj", "{0D291390-1953-4E1F-BBE2-57F12AFF3214}"
-EndProject
-Global
-	GlobalSection(SolutionConfigurationPlatforms) = preSolution
-		Release|Win32 = Release|Win32
-	EndGlobalSection
-	GlobalSection(ProjectConfigurationPlatforms) = postSolution
-		{0556BA3E-9447-4000-8613-91AD1CD750D7}.Release|Win32.ActiveCfg = Release|Win32
-		{0556BA3E-9447-4000-8613-91AD1CD750D7}.Release|Win32.Build.0 = Release|Win32
-		{0D291390-1953-4E1F-BBE2-57F12AFF3214}.Release|Win32.ActiveCfg = Release|Win32
-		{0D291390-1953-4E1F-BBE2-57F12AFF3214}.Release|Win32.Build.0 = Release|Win32
-	EndGlobalSection
-EndGlobal

programs/games/floppybird/images.hpp

@@ -1,51 +0,0 @@
-#pragma once
-
-#include <kosSyst.h>
-
-static RGB birdImage[] = {
-0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0xC08040, 0xC08040, 0xC08040, 0x608080, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF,
-0x00FFFF, 0x40C0C0, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0xC08040, 0xE0C080, 0xC08040, 0xE0C080, 0x806040, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF,
-0xC0DCC0, 0xA06040, 0x80C0C0, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x80C0C0, 0xE0A040, 0xE0E080, 0xE0C080, 0xE0E080, 0x806040, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF,
-0xC08040, 0xE0C080, 0xA06040, 0x20C0C0, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0xC06040, 0xE0C080, 0xC0A080, 0xC0A080, 0xA0A080, 0x806040, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF,
-0xC08040, 0xE0C080, 0xE0E080, 0xA06040, 0x20C0C0, 0x00FFFF, 0x00FFFF, 0xA06040, 0xC08040, 0x800040, 0x800040, 0xE02080, 0xE060C0, 0x40C0C0, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF,
-0xA06040, 0xC08040, 0xE0E080, 0xC0DCC0, 0xA06040, 0x20C0C0, 0x20C0C0, 0xC06040, 0x808080, 0xE02080, 0xE020C0, 0xE02080, 0xE0A0C0, 0x804080, 0x40C0C0, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF,
-0xC08040, 0xE0A040, 0xE0C080, 0xE0E080, 0xFFFBF0, 0x806040, 0xC06040, 0xC0DCC0, 0x800040, 0xE040C0, 0xE040C0, 0x002040, 0xE0E080, 0xA0A080, 0x404040, 0x404040, 0x806080, 0x806080, 0xA08080,
-0xA06040, 0xE0A040, 0xC08040, 0xE0C080, 0xFFFBF0, 0xC0DCC0, 0xA06040, 0xC0DCC0, 0xE020C0, 0xE0C080, 0xE0C080, 0xE0E080, 0xE0E000, 0xA0A0A4, 0xC0A080, 0x20A080, 0x40A0C0, 0x40A0C0, 0x60C0C0,
-0x20C0C0, 0xA06040, 0xE0A040, 0xC08040, 0xE0C040, 0xFFFBF0, 0xC0C080, 0x80A040, 0xC00080, 0xFFFF00, 0xFFFF00, 0xE0E080, 0xC0A040, 0xA0A080, 0x60A080, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF,
-0x00FFFF, 0x80A080, 0xC08040, 0xE0A040, 0xE0A040, 0xE0C080, 0xFFFBF0, 0xC0C0C0, 0xE0C040, 0xE0E040, 0xC0E000, 0xC0C080, 0xA0A080, 0xC0C0C0, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF,
-0x00FFFF, 0x40C0C0, 0x80A080, 0xE0A040, 0xE0C080, 0xE0C040, 0xE0E080, 0x80E080, 0xC0E000, 0xE0E080, 0xE0E080, 0xE0E080, 0xC0A080, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF,
-0x00FFFF, 0x00FFFF, 0x40C0C0, 0xA06040, 0xA0C040, 0xA0A040, 0xA0C080, 0xC0E000, 0xC0E000, 0xE0E080, 0xE0E080, 0xE0E080, 0xE0E080, 0x40C080, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF,
-0x60E080, 0xC0DCC0, 0x00FFFF, 0x80C0C0, 0x606080, 0x606080, 0xA0E040, 0xC0E000, 0xE0E000, 0xE0E080, 0xE0E080, 0xE0E080, 0xC0C040, 0x60A040, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF,
-0xC0E080, 0xC0C000, 0xE0E000, 0xC0DCC0, 0x80A040, 0xA0E040, 0xA0C040, 0xC0E000, 0xE0E080, 0xE0E080, 0xE0E080, 0xC0E000, 0xC0C000, 0x60A040, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF,
-0xA0A0A4, 0xA0A080, 0xA0E040, 0xC0E000, 0x80A080, 0xA0C040, 0xC0E000, 0xE0E040, 0xE0E080, 0xE0E080, 0xC0E000, 0xA0E040, 0x808040, 0x20C0C0, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF,
-0xC0E080, 0xE0E000, 0xA0A080, 0x80A080, 0xA0C040, 0xE0E040, 0xE0E040, 0xE0E040, 0xC0E040, 0xC0E000, 0xA0E040, 0x808040, 0xA0C080, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF,
-0x80A080, 0xA0C000, 0xC0E000, 0xA0E040, 0xA0C040, 0xC0E000, 0xC0E000, 0xC0E000, 0xC0E000, 0xA0E040, 0x80A040, 0x80C0C0, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF,
-0xA0C000, 0x6080C0, 0xA0C040, 0xC0E000, 0xC0E000, 0xC0E000, 0xC0E000, 0xA0C040, 0x80A040, 0x808040, 0xA0C0C0, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF,
-0x80A080, 0xA0C080, 0xC0E000, 0xA0E040, 0xC0E040, 0x808040, 0x808040, 0x808040, 0xA0C0C0, 0x20C0C0, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF,
-0xA0E080, 0x808040, 0xA0A040, 0x808040, 0x808040, 0x80C0C0, 0xA0C0C0, 0x20C0C0, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF, 0x00FFFF
-};
-
-static RGB tubeBodyImage[] = {
-0x00FFFF, 0x00FFFF, 0x000000, 0x608040, 0x80E040, 0xE0E080, 0xA0E040, 0xA0E040, 0x80C040, 0x80C040, 0x80C040, 0x80C040, 0x80E040, 0x60A000, 0x60A000, 0x80E040, 0x80E040, 0x60A000, 0x40A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x40A000, 0x60A000, 0x408000, 0x408000, 0x204000, 0x60A000, 0x408000, 0x408000, 0x204000, 0x206000, 0x204000, 0x200040, 0x00FFFF, 0x00FFFF
-};
-
-static RGB tubeHeadImage[] = {
-0x200040, 0x200040, 0x200040, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040,
-0x402000, 0x408000, 0x408000, 0x608040, 0x80A040, 0xC0C080, 0xC0C080, 0xC0C080, 0xC0C080, 0xC0C080, 0xC0C080, 0xC0C080, 0xC0C080, 0xC0C080, 0xC0C080, 0xC0C080, 0xC0C080, 0xC0C080, 0xC0C080, 0xC0C080, 0xC0C080, 0xC0C080, 0xC0C080, 0xC0C080, 0xC0C080, 0xC0C080, 0xC0C080, 0xC0C080, 0xA0C040, 0x60A040, 0x60A040, 0xA0C080, 0xA0C080, 0x60A040, 0x60A040, 0x80A040, 0x60A040, 0x60A040, 0x60A040, 0x60A040, 0x60A040, 0x80A040, 0x80A040, 0x80A040, 0x80A040, 0x608000, 0x406000, 0x204000, 0x204000, 0x402000,
-0x402000, 0x60C000, 0x60C000, 0x80C040, 0xA0E040, 0xE0E080, 0xE0E080, 0xE0E080, 0xE0E080, 0xC0E080, 0xC0E080, 0xC0E080, 0xE0E080, 0xC0E080, 0xC0E080, 0xC0E080, 0xC0E080, 0xC0E080, 0xC0E080, 0xC0E080, 0xC0E080, 0xC0E080, 0xC0E080, 0xC0E080, 0xC0E080, 0xC0E080, 0xC0E080, 0xC0E080, 0xC0E080, 0x80C040, 0x80C040, 0xC0E080, 0xC0E080, 0x80C040, 0x80C040, 0x80E040, 0x80C040, 0x80C040, 0x80E040, 0x80E040, 0x80E040, 0x80C040, 0x80C040, 0x80C040, 0x80E040, 0x60A000, 0x408000, 0x206000, 0x206000, 0x402000,
-0x402040, 0x80E040, 0x80E040, 0xC0E080, 0xE0E080, 0x80C040, 0x80C040, 0x80C040, 0x80C040, 0x40A000, 0x60A000, 0x60A000, 0x80E040, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x204000, 0x406000, 0x406000, 0x60A000, 0x206000, 0x204000, 0x206000, 0x206000, 0x402000,
-0x402040, 0x80E040, 0x80E040, 0xC0E080, 0xE0E080, 0x80C040, 0x80C040, 0x80C040, 0x80C040, 0x60A000, 0x60A000, 0x60A000, 0x80E040, 0x60A000, 0x40A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x206000, 0x406000, 0x406000, 0x60A000, 0x206000, 0x206000, 0x206000, 0x206000, 0x402000,
-0x402040, 0x80E040, 0x80E040, 0xC0E080, 0xE0E080, 0x80C040, 0x80C040, 0x80C040, 0x80C040, 0x60A000, 0x60A000, 0x60A000, 0x80E040, 0x60A000, 0x40A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x206000, 0x406000, 0x406000, 0x60A000, 0x206000, 0x204000, 0x206000, 0x206000, 0x402000,
-0x402040, 0x80E040, 0x80E040, 0xC0E080, 0xE0E080, 0x80C040, 0x80C040, 0x80C040, 0x80C040, 0x60A000, 0x60A000, 0x60A000, 0x80E040, 0x60A000, 0x40A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x206000, 0x406000, 0x406000, 0x60A000, 0x206000, 0x204000, 0x206000, 0x206000, 0x402000,
-0x402040, 0x80E040, 0x80E040, 0xC0E080, 0xE0E080, 0x80C040, 0x80C040, 0x80C040, 0x80C040, 0x60A000, 0x60A000, 0x60A000, 0x80E040, 0x60A000, 0x40A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x206000, 0x406000, 0x406000, 0x60A000, 0x206000, 0x204000, 0x206000, 0x206000, 0x402000,
-0x402040, 0x80E040, 0x80E040, 0xC0E080, 0xE0E080, 0x80C040, 0x80C040, 0x80C040, 0x80C040, 0x60A000, 0x60A000, 0x60A000, 0x80E040, 0x60A000, 0x40A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x206000, 0x406000, 0x406000, 0x60A000, 0x206000, 0x204000, 0x206000, 0x206000, 0x402000,
-0x402040, 0x80E040, 0x80E040, 0xC0E080, 0xE0E080, 0x80C040, 0x80C040, 0x80C040, 0x80C040, 0x60A000, 0x60A000, 0x60A000, 0x80E040, 0x60A000, 0x40A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x206000, 0x406000, 0x406000, 0x60A000, 0x206000, 0x204000, 0x206000, 0x206000, 0x402000,
-0x402040, 0x80E040, 0x80E040, 0xC0E080, 0xE0E080, 0x80C040, 0x80C040, 0x80C040, 0x80C040, 0x60A000, 0x60A000, 0x60A000, 0x80E040, 0x60A000, 0x40A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x206000, 0x406000, 0x406000, 0x60A000, 0x206000, 0x204000, 0x206000, 0x206000, 0x402000,
-0x402040, 0x80E040, 0x80E040, 0xC0E080, 0xE0E080, 0x80C040, 0x80C040, 0x80C040, 0x80C040, 0x60A000, 0x60A000, 0x60A000, 0x80E040, 0x60A000, 0x40A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x206000, 0x406000, 0x406000, 0x60A000, 0x206000, 0x204000, 0x206000, 0x206000, 0x402000,
-0x402040, 0x80E040, 0x80E040, 0xC0E080, 0xE0E080, 0x80C040, 0x80C040, 0x80C040, 0x80C040, 0x60A000, 0x60A000, 0x60A000, 0x80E040, 0x60A000, 0x40A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x206000, 0x406000, 0x406000, 0x60A000, 0x206000, 0x204000, 0x206000, 0x206000, 0x402000,
-0x402040, 0x80E040, 0x80E040, 0xC0E080, 0xE0E080, 0x80C040, 0x80C040, 0x80C040, 0x80C040, 0x40A000, 0x60A000, 0x60A000, 0x80E040, 0x60A000, 0x40A000, 0x60A000, 0x60A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x40A000, 0x60A000, 0x206000, 0x406000, 0x406000, 0x60A000, 0x206000, 0x204000, 0x206000, 0x206000, 0x402000,
-0x402040, 0x80E040, 0x80E040, 0xC0E080, 0xE0E080, 0x80E040, 0x80E040, 0x80E040, 0x80E040, 0x60A000, 0x60C000, 0x60C000, 0xA0E040, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x60A000, 0x206000, 0x406000, 0x406000, 0x60A000, 0x206000, 0x204000, 0x206000, 0x206000, 0x402000,
-0x402000, 0x408000, 0x408000, 0x608000, 0x608040, 0x408000, 0x408000, 0x408000, 0x408000, 0x406000, 0x408000, 0x408000, 0x408000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x406000, 0x206000, 0x206000, 0x206000, 0x406000, 0x206000, 0x206000, 0x206000, 0x206000, 0x402000,
-0x402000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x204000, 0x206000, 0x206000, 0x402000,
-0x200040, 0x200040, 0x200040, 0x200040, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x200040, 0x200040, 0x000000, 0x000000, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040, 0x200040
-};

programs/games/floppybird/smalllibc/doexe2.asm

@@ -1,68 +0,0 @@
-filename equ '%EXENAME%'
-
-virtual at 0
-file filename:3Ch,4
-load pehea dword from 0
-file filename:pehea,0F8h+28h*3
-load NumberOfSections word from 4+6
-load SizeOfOptionalHeader word from 4+14h
-if NumberOfSections<>3
-error Expected three sections, .text, .bss and .reloc
-end if
-if SizeOfOptionalHeader<>0E0h
-error Nonstandard PE header
-end if
-load RelocsRVA dword from 4+0A0h
-load RelocsSize dword from 4+0A4h
-load ImageBase dword from 4+34h
-load TextRVA dword from 4+0F8h+0Ch
-load TextSize dword from 4+0F8h+8
-load TextOffs dword from 4+0F8h+14h
-load BSSSize dword from 4+0F8h+28h+10h
-load RelocRVA dword from 4+0F8h+28h*2+0Ch
-load RelocOffs dword from 4+0F8h+28h*2+14h
-if BSSSize
-error Second section expected to be .bss
-end if
-if RelocRVA<>RelocsRVA
-error Third section expected to be .reloc
-end if
-;file 'test.exe':pehea+0F8h,28h
-;load physofs dword from 4+14h
-;load mem dword from 4+8
-;file 'test.exe':physofs+16,4
-;load sz dword from $-4
-end virtual
-
-file filename:TextOffs,TextSize
-
-while RelocsSize>8
-virtual at 0
-file filename:RelocOffs,8
-load CurRelocPage dword from 0
-load CurRelocChunkSize dword from 4
-end virtual
-RelocsSize=RelocsSize-CurRelocChunkSize
-CurRelocChunkSize = CurRelocChunkSize-8
-RelocOffs=RelocOffs+8
-while CurRelocChunkSize
-virtual at 0
-file filename:RelocOffs,2
-RelocOffs=RelocOffs+2
-CurRelocChunkSize=CurRelocChunkSize-2
-load s word from 0
-end virtual
-CurRelocType = s shr 12
-RelocItem = CurRelocPage + (s and 0xFFF)
-if CurRelocType=0
-else if CurRelocType=3
-load z dword from RelocItem-TextRVA
-store dword z-(TextRVA+ImageBase) at RelocItem-TextRVA
-else
-error Unexpected relocation type
-end if
-end while
-end while
-
-store dword TextSize at 10h
-store dword RelocRVA-TextRVA at 14h

programs/games/floppybird/smalllibc/func.cpp

@@ -1,501 +0,0 @@
-
-
-#include "func.h"
-
-int convert_error = 0;
-int SysColor = 0;
-char debuf[50] = "";
-
-
-// яюўхьє-Єю эх с√ыю т ёЄрэфрЁЄэющ сшсышюЄхъх
-void kos_DrawLine( Word x1, Word y1, Word x2, Word y2, Dword colour, Dword invert )
-{
-	Dword arg1, arg2, arg3;
-
-	//
-	arg1 = ( x1 << 16 ) | x2;
-	arg2 = ( y1 << 16 ) | y2;
-	arg3 = (invert)?0x01000000:colour;
-	//
-	__asm{
-		mov eax, 38
-		mov ebx, arg1
-		mov ecx, arg2
-		mov edx, arg3
-		int 0x40
-	}
-}
-
-// яюїш∙хэю шч сшсышюЄхъш ъ C--
-void DrawRegion(Dword x,Dword y,Dword width,Dword height,Dword color1)
-{
-	kos_DrawBar(x,y,width,1,color1); //яюыюёр уюЁ ётхЁїє
-	kos_DrawBar(x,y+height,width,1,color1); //яюыюёр уюЁ ёэшчє
-	kos_DrawBar(x,y,1,height,color1); //яюыюёр тхЁЄ ёыхтр
-	kos_DrawBar(x+width,y,1,height+1,color1); //яюыюёр тхЁЄ ёяЁртр
-}
-
-
-// фр, ¤Єю ср э
-int atoi(const char* string)
-{
-	int res=0;
-	int sign=0;
-	const char* ptr;
-	for (ptr=string; *ptr && *ptr<=' ';ptr++);
-	if (*ptr=='-') {sign=1;++ptr;}
-	while (*ptr >= '0' && *ptr <= '9')
-	{
-		res = res*10 + *ptr++ - '0';
-	}
-	if (sign) res = -res;
-	return res;
-}
-
-/*int abs(int n)
-{
-	return (n<0)?-n:n;
-}*/
-
-
-
-
-
-double fabs(double x)
-{
-	__asm	fld	x
-	__asm	fabs
-}
-#define M_PI       3.14159265358979323846
-double cos(double x)
-{
-	__asm	fld	x
-	__asm	fcos
-}
-double sin(double x)
-{
-	__asm	fld	x
-	__asm	fsin
-}
-
-bool isalpha(char c)
-{
-	return (c==' ' || c=='\n' || c=='\t' || c=='\r');
-}
-
-// ¤Єр ЇєэъЎш  - тхыюёшяхф. эю яЁю∙х с√ыю эряшёрЄ№ ўхь эрщЄш.
-double convert(char *s, int *len)
-{
-
-	int i;
-
-
-	double sign,res, tail, div;
-
-	convert_error = 0;
-
-	res = 0.0;
-
-	i=0;
-	while (s[i] && isalpha(s[i])) i++;
-	if (len) *len=i;
-	if (s[i] == '\0')
-	{
-		convert_error = ERROR_END;
-		return 0.0;
-	}
-
-	sign=1.0;
-	if (s[i] == '-')
-	{
-		sign=-1.0;
-		i++;
-	}
-	while (s[i] && s[i] >= '0' && s[i] <= '9')
-	{
-		res *= 10.0;
-		res += id(s[i] - '0');
-		i++;
-	}
-	if (len) *len=i;
-	if (!s[i] || isalpha(s[i]))
-		return sign*res;
-	if (s[i] != '.' && s[i] != ',')
-	{
-		convert_error = ERROR;
-		return 0;
-	}
-	i++;
-	if (len) *len=i;
-	if (!s[i])
-		return sign*res;
-	
-	div = 1.0;
-	tail = 0.0;
-	while (s[i] && s[i] >= '0' && s[i] <= '9')
-	{
-		tail *= 10.0;
-		tail += id(s[i] - '0');
-		div *= 10.0;
-		i++;		
-	}
-	res += tail/div;
-	if (len) *len=i;
-	return sign*res;
-}
-
-/*
-#define PREC 2
-
-double double_tab[]={1e0, 1e1, 1e2, 1e3, 1e4, 1e5, 1e6, 1e7, 1e8, 1e9, 1e10, 1e11, 1e12, 1e13, 1e14, 1e15};
-
-// ¤Єю sprintf, єьх■∙шщ ЇюЁьрЄшЁютрЄ№ _Єюы№ъю_ тх∙хёЄтхээ√х ўшёыр (double) %f
-void format( char *Str, int len, char* Format, ... )
-{
-	int i, fmtlinesize, j, k, flag;
-	char c;
-	va_list arglist;
-	//
-	va_start(arglist, Format);
-
-	//
-	fmtlinesize = strlen( Format );
-	//
-	if( fmtlinesize == 0 ) return;
-
-	for (i = 0; i < len; i++)
-		Str[i] = 0;
-  
-	//
-	for( i = 0, j = 0; i < fmtlinesize; i++ )
-	{
-		//
-		c = Format[i];
-		//
-		if( c != '%' )
-		{
-			Str[j++] = c;
-			continue;
-		}
-		//
-		i++;
-		//
-		if( i >= fmtlinesize ) break;
-
-		//
-		flag = 0;
-		//
-		c = Format[i];
-		//
-		switch( c )
-		{
-		//
-		case '%':
-			Str[j++] = c;
-			break;
-		// auaia aauanoaaiiiai ?enea
-		case 'f':
-			// ii?aaaeeou ?enei oeo? ai oi?ee
-			double val, w;
-			int p;
-			val = va_arg(arglist, double);
-			if (val < 0.0)
-			{
-				Str[j++] = '-';
-				val = -val;
-			}
-			for (k = 0; k < 15; k++)
-				if (val < double_tab[k])
-					break;
-
-			if (val < 1.0)
-			{
-				Str[j++] = '0';
-			}
-			
-			for (p = 1; p < k + 1; p++)
-			{
-				Str[j++] = '0' + di(val / double_tab[k - p] - 0.499) % 10;
-			}
-			Str[j++] = '.';
-			w = 0.1;
-			for (p = 0; p < 2; p++)
-			{
-				val-=floor(val);
-				Str[j++] = '0' + di(val / w - 0.499) % 10;
-				w /= 10.0;
-			}
-
-		//
-		default:
-			break;
-		}
-	}
-	//
-	Str[j] = 0;
-}
-
-void *memcpy(void *dst, const void *src, unsigned size)
-{
-	while (size--)
-		*((char*)dst+size) = *((char*)src+size);
-	return dst;
-}
-*/
-int strcmp(const char *s1, const char *s2)
-{
-	int i;
-
-	if (s1 == NULL)
-		if (s2 == NULL)
-			return 0;
-		else
-			return 1;
-	else
-		if (s2 == NULL)
-			return 1;
-
-	for (i = 0;;i++)
-	{
-		if (s1[i] == '\0')
-			if (s2[i] == '\0')
-				return 0;
-			else
-				return 1;
-		else
-			if (s2[i] == '\0')
-				return 1;
-			else
-			{
-				if (s1[i] != s2[i])
-					return 1;
-			}
-	}
-	return 0;
-}
-
-kol_struct_import* kol_cofflib_load(char *name)
-{
-//asm ("int $0x40"::"a"(68), "b"(19), "c"(name));
-	__asm
-	{
-		mov eax, 68
-		mov ebx, 19
-		mov ecx, name
-		int 0x40
-	}
-}
-
-
-void* kol_cofflib_procload (kol_struct_import *imp, char *name)
-{
-	
-int i;
-for (i=0;;i++)
-	if ( NULL == ((imp+i) -> name))
-		break;
-	else
-		if ( 0 == strcmp(name, (imp+i)->name) )
-			return (imp+i)->data;
-return NULL;
-
-}
-
-
-unsigned kol_cofflib_procnum (kol_struct_import *imp)
-{
-	
-unsigned i, n;
-
-for (i=n=0;;i++)
-	if ( NULL == ((imp+i) -> name))
-		break;
-	else
-		n++;
-
-return n;
-
-}
-
-
-void kol_cofflib_procname (kol_struct_import *imp, char *name, unsigned n)
-{
-	
-unsigned i;
-*name = 0;
-
-for (i=0;;i++)
-	if ( NULL == ((imp+i) -> name))
-		break;
-	else
-		if ( i == n )
-			{
-			strcpy(name, ((imp+i)->name));
-			break;
-			}
-
-}
-
-
-
-/*
-end of system part
-*/
-
-
-// яюёъюы№ъє   яюЁЄшЁютры ё фЁхтэхую фюёр...
-void line( int x1, int y1, int x2, int y2)
-{
-	kos_DrawLine(x1,y1,x2,y2,SysColor,0);
-}
-
-void outtextxy( int x, int y, char *s, int len)
-{
-	kos_WriteTextToWindow(x,y,0,SysColor,s,len);
-}
-
-double textwidth( char *s, int len)
-{
-	int i;
-	for (i = 0; i < len; i++)
-		if (s[i] == 0)
-			break;
-	return id(i * 6);
-}
-
-double textheight( char *s, int len)
-{
-	return 8.0;
-}
-
-void setcolor( DWORD color)
-{
-	SysColor = color;
-}
-
-void rectangle( int x1, int y1, int x2, int y2)
-{
-	kos_DrawBar(x1,y1,x2-x1,y2-y1,SysColor);
-}
-
-
-
-Dword kos_GetSkinHeight()
-{
-	__asm{
-		mov		eax, 48
-		mov		ebx, 4
-		int		0x40
-	}
-}
-
-Dword kos_GetSpecialKeyState()
-{
-	__asm{
-		mov		eax, 66
-		mov		ebx, 3
-		int		0x40
-	}
-}
-
-
-
-Dword kos_GetSlotByPID(Dword PID)
-{
-	__asm
-	{
-		push ebx
-		push ecx
-		mov eax, 18
-		mov ebx, 21
-		mov ecx, PID
-		int	0x40
-		pop ecx
-		pop ebx
-	}
-}
-
-
-Dword kos_GetActiveSlot()
-{
-	__asm
-	{
-		push ebx
-		mov eax, 18
-		mov ebx, 7
-		int	0x40
-		pop ebx
-	}
-}
-
-
-
-void kos_GetScrollInfo(int &vert, int &hor)
-{
-	short v, h;
-	__asm
-	{
-		mov eax, 37
-		mov ebx, 7
-		int	0x40
-		mov ebx, eax
-		and eax, 0xffff
-		mov v, ax
-		shr ebx, 16
-		mov h, bx
-	}
-	vert = v;
-	hor = h;
-}
-
-
-// яюыєўхэшх шэЇюЁьрЎшш ю ёюёЄю эшш "ь√°ш" ЇєэъЎш  37/1
-void kos_GetMouseStateWnd( Dword & buttons, int & cursorX, int & cursorY )
-{
-	Dword mB;
-	Word curX;
-	Word curY;
-	sProcessInfo sPI;
-
-	//
-	__asm{
-		mov		eax, 37
-		mov		ebx, 1
-		int		0x40
-		mov		curY, ax
-		shr		eax, 16
-		mov		curX, ax
-		mov		eax, 37
-		mov		ebx, 2
-		int		0x40
-		mov		mB, eax
-	}
-	//
-	kos_ProcessInfo( &sPI );
-	//
-	buttons = mB;
-	cursorX = curX - sPI.processInfo.x_start;
-	cursorY = curY - sPI.processInfo.y_start;
-}
-
-double atof(char *s)
-{
-	return convert(s, NULL);
-}
-
-
-int di(double x)
-{
-	int a;
-	__asm fld x
-	__asm fistp a
-	return a;
-}
-
-double id(int x)
-{
-	double a;
-	__asm fild x
-	__asm fstp a
-	return a;
-}

programs/games/floppybird/smalllibc/func.h

@@ -1,129 +0,0 @@
-
-#pragma once
-
-#include "kosSyst.h"
-#include "kosFile.h"
-#include "MCSMEMM.H"
-
-#include <stdarg.h>
-
-
-#define min(a,b) (((a)<(b))?(a):(b))
-#define max(a,b) (((a)>(b))?(a):(b))
-
-
-#define ERROR -1
-#define ERROR_END -2
-
-extern int convert_error;
-
-typedef int HDC;
-typedef int DWORD;
-
-extern int SysColor;
-extern char debuf[50];
-
-typedef double (*function_t)(double);
-
-typedef struct
-{
-  double x, y;
-} TCoord;
-
-struct kosBDVK 
-{
-	Dword attrib;
-	Dword name_type;
-	Dword create_time;
-	Dword create_date;
-	Dword access_time;
-	Dword access_date;
-	Dword modify_time;
-	Dword modify_date;
-	Dword size_low;
-	Dword size_high;	
-};
-
-Dword kos_GetSlotByPID(Dword PID);
-Dword kos_GetActiveSlot();
-Dword kos_GetSkinHeight();
-Dword kos_GetSpecialKeyState();
-void kos_GetMouseStateWnd( Dword & buttons, int & cursorX, int & cursorY );
-void kos_DrawLine( Word x1, Word y1, Word x2, Word y2, Dword colour, Dword invert);
-void DrawRegion(Dword x,Dword y,Dword width,Dword height,Dword color1);
-int atoi(const char* string);
-void kos_GetScrollInfo(int &vert, int &hor);
-
-
-Dword kos_GetSlotByPID(Dword PID);
-Dword kos_GetActiveSlot();
-Dword kos_GetSkinHeight();
-Dword kos_GetSpecialKeyState();
-
-
-double fabs(double x);
-double cos(double x);
-double sin(double x);
-bool isalpha(char c);
-double convert(char *s, int *len=NULL);
-void format( char *Str, int len, char* Format, ... );
-
-void line( int x1, int y1, int x2, int y2);
-
-void outtextxy( int x, int y, char *s, int len);
-void settextstyle( int a1, int a2, int a3);
-
-
-double textwidth( char *s, int len);
-double textheight( char *s, int len);
-void setcolor( DWORD color);
-void unsetcolor(HDC hdc);
-void rectangle( int x1, int y1, int x2, int y2);
-
-typedef struct 
-{
-unsigned	p00 ;
-unsigned	p04 ;
-unsigned	p08 ;
-unsigned	p12 ;
-unsigned	p16 ;
-char		p20 ;
-char		*p21 ;
-} kol_struct70 ;
-
-
-typedef struct
-{
-unsigned	p00 ;
-char		p04 ;
-char		p05[3] ;
-unsigned	p08 ;
-unsigned	p12 ;
-unsigned	p16 ;
-unsigned	p20 ;
-unsigned	p24 ;
-unsigned	p28 ;
-unsigned	p32[2] ;
-unsigned	p40 ;
-} kol_struct_BDVK ;
-
-typedef struct
-{
-char	*name ;
-void	*data ;
-} kol_struct_import ;
-
-
-
-kol_struct_import* kol_cofflib_load(char *name);
-void* kol_cofflib_procload (kol_struct_import *imp, char *name);
-unsigned kol_cofflib_procnum (kol_struct_import *imp);
-void kol_cofflib_procname (kol_struct_import *imp, char *name, unsigned n);
-int strcmp(const char* string1, const char* string2);
-
-char *ftoa(double d);
-double atof(char *s);
-
-
-int di(double x); 
-double id(int x);

programs/games/floppybird/smalllibc/init.asm

@@ -1,31 +0,0 @@
-format MS COFF
-
-StackSize = 16384
-
-; must be alphabetically first in the image
-section '.1seg' data readable writable
-extrn _crtStartUp	; real entry point
-extrn _kosCmdLine
-extrn _kosExePath
-extrn _exeStack
-public fakeEntry
-
-kos_header:
-	db	'MENUET01'	; header
-	dd	1		; headerver
-	dd	_crtStartUp	; entry
-	dd	0		; i_end, filled by doexe2.asm
-	dd	0		; memsize, filled by doexe2.asm
-	dd	_exeStack + StackSize	; stack
-	dd	_kosCmdLine	; params
-	dd	_kosExePath	; icon
-fakeEntry:	; only for linker, to force including this obj file
-		; real entry is crtStartUp
-
-; initializers
-section '.CRT$XCA' data readable writable
-public ___xc_a
-___xc_a:
-section '.CRT$XCZ' data readable writable
-public ___xc_z
-___xc_z:

programs/games/floppybird/smalllibc/kosFile.cpp

@@ -1,132 +0,0 @@
-#include "kosSyst.h"
-#include "kosFile.h"
-//#include "string.h"
-
-
-CKosFile::CKosFile(char *fileName)
-{
-	//
-	this->fileInfo.bufferPtr = new Byte[FILE_BUFFER_SIZE];
-	//
-	this->filePointer = 0;
-	this->bufferPointer = 0;
-	this->validBuffer = false;
-	//
-	strcpy( this->fileInfo.fileURL, fileName );
-}
-
-
-CKosFile::~CKosFile(void)
-{
-	//
-	delete this->fileInfo.bufferPtr;
-}
-
-
-void CKosFile::ValidateBuffer()
-{
-	//
-	if ( this->validBuffer )
-	{
-		//
-		if ( this->filePointer < this->bufferPointer
-			|| this->filePointer >= (this->bufferPointer + FILE_BUFFER_SIZE) )
-		{
-			//
-			this->validBuffer = false;
-		}
-	}
-}
-
-
-void CKosFile::UpdateBuffer(void)
-{
-	//
-	if ( ! this->validBuffer )
-	{
-		//
-		this->fileInfo.OffsetLow = this->filePointer / OS_BLOCK_SIZE;
-		this->fileInfo.OffsetHigh = 0;
-		//
-		this->bufferPointer = this->fileInfo.OffsetLow * OS_BLOCK_SIZE;
-		//
-		this->fileInfo.dataCount = FILE_BUFFER_BLOCKS;
-		//
-		this->fileInfo.rwMode = 0;
-		//
-		Dword rr = kos_FileSystemAccess( &(this->fileInfo) );
-		this->validBuffer = ( rr == 0 );
-	}
-}
-
-
-int CKosFile::Seek(int seekFrom, int seekStep)
-{
-	//
-	switch ( seekFrom )
-	{
-	//
-	case SEEK_SET:
-		//
-		this->filePointer = seekStep;
-		break;
-	//
-	case SEEK_CUR:
-		//
-		this->filePointer += seekStep;
-		break;
-	}
-	//
-	this->ValidateBuffer();
-	//
-	return this->filePointer;
-}
-
-
-int	CKosFile::Read(Byte *targetPtr, int readCount)
-{
-	int bufferLeast, result;
-
-	//
-	result = 0;
-	//
-	do
-	{
-		//
-		this->UpdateBuffer();
-		//
-		if ( ! this->validBuffer ) return result;
-		//
-		bufferLeast = FILE_BUFFER_SIZE - (this->filePointer - this->bufferPointer);
-		//
-		if ( bufferLeast > readCount ) bufferLeast = readCount;
-		//
-		if ( bufferLeast )
-		{
-			//
-			memcpy(
-				targetPtr,
-				this->fileInfo.bufferPtr + (this->filePointer - this->bufferPointer),
-				bufferLeast
-				);
-			//
-			targetPtr += bufferLeast;
-			readCount -= bufferLeast;
-			this->filePointer += bufferLeast;
-			//
-			result += bufferLeast;
-		}
-		//
-		this->ValidateBuffer();
-	}
-	while ( readCount > 0 );
-	//
-	return result;
-}
-
-
-int CKosFile::Write(Byte *sourcePtr, int writeCount)
-{
-	return 0;
-}
-

programs/games/floppybird/smalllibc/kosFile.h

@@ -1,26 +0,0 @@
-#pragma once
-
-#define SEEK_SET			0
-#define SEEK_CUR			1
-
-#define FILE_BUFFER_SIZE	512
-#define OS_BLOCK_SIZE		1
-#define FILE_BUFFER_BLOCKS	(FILE_BUFFER_SIZE / OS_BLOCK_SIZE)
-
-
-class CKosFile
-{
-public:
-	CKosFile(char *fileName);
-	~CKosFile(void);
-	int	Read(Byte *targetPtr, int readCount);
-	int Write(Byte *sourcePtr, int writeCount);
-	int Seek(int seekFrom, int seekStep);
-protected:
-	int filePointer;
-	int bufferPointer;
-	bool validBuffer;
-	kosFileInfo fileInfo;
-	void ValidateBuffer(void);
-	void UpdateBuffer(void);
-};

programs/games/floppybird/smalllibc/kosSyst.cpp

@@ -1,695 +0,0 @@
-#include "kosSyst.h"
-#include "func.h"
-#include <stdarg.h>
-
-char kosCmdLine[257];
-char kosExePath[1024];
-extern "C" char exeStack[];
-char exeStack[16384];
-
-#define atexitBufferSize	32
-
-#ifndef SMALLLIBC_NO_ATEXIT
-//
-void (__cdecl *atExitList[atexitBufferSize])();
-int atExitFnNum = 0;
-//
-int __cdecl atexit( void (__cdecl *func )( void ))
-{
-	//
-	if ( atExitFnNum < atexitBufferSize )
-	{
-		//
-		atExitList[atExitFnNum++] = func;
-		return 0;
-	}
-	else
-	{
-		return 1;
-	}
-}
-#endif
-
-//
-Dword RandomSeed = 0;
-//
-void rtlSrand( Dword seed )
-{
-	RandomSeed = seed;
-}
-//
-Dword rtlRand( void )
-{
-  //ьрёър 0x80000776
-
-  Dword dwi, i;
-
-  for ( i = 0; i < 32; i++ )
-  {
-
-    dwi = RandomSeed & 0x80000776;
-  
-      __asm{
-            mov   eax, dwi
-            mov   edx, eax
-            bswap eax
-            xor   eax, edx
-            xor   al, ah
-            setpo al
-            movzx eax, al
-            mov   dwi, eax
-    }
-
-    RandomSeed = ( RandomSeed << 1 ) | ( dwi & 1 );
-  }
-  
- return RandomSeed;
-}
-
-void* __cdecl memcpy( void *dst, const void *src, size_t bytesCount )
-{
-	__asm{
-		mov edi, dst
-		mov eax, dst
-		mov esi, src
-		mov ecx, bytesCount
-		rep movsb
-	}
-}
-
-//
-void memset( Byte *dst, Byte filler, Dword count )
-{
-	//
-	__asm{
-		mov edi, dst
-		mov al, filler
-		mov ecx, count
-		rep stosb
-	}
-}
-
-
-//
-Dword rtlInterlockedExchange( Dword *target, Dword value )
-{
-//	Dword result;
-
-	//
-	__asm{
-		mov eax, value
-		mov ebx, target
-		xchg eax, [ebx]
-//		mov result, eax
-	}
-	//
-//	return result;
-}
-
-
-//////////////////////////////////////////////////////////////////////
-//
-// ъюяшЁютрэшх ёЄЁюъш
-//
-
-char * __cdecl strcpy( char *target, const char *source )
-{
-	char *result = target;
-
-	while( target[0] = source[0] )
-	{
-		target++;
-		source++;
-	}
-
-	return result;
-}
-
-
-//////////////////////////////////////////////////////////////////////
-//
-// ЁхтхЁёштэ√щ яюшёъ ёшьтюыр
-//
-
-char * __cdecl strrchr( const char * string, int c )
-{
-	char *cPtr;
-
-	//
-	for ( cPtr = (char *)string + strlen( string ); cPtr >= string; cPtr-- )
-	{
-		//
-		if ( *cPtr == c ) return cPtr;
-	}
-	//
-	return NULL;
-}
-
-
-//////////////////////////////////////////////////////////////////////
-//
-// юяЁхфхыхэшх фышэ√ ёЄЁюъш
-//
-
-int __cdecl strlen( const char *line )
-{
-  int i;
-
-  for( i=0; line[i] != 0; i++ );
-  return i;
-}
-
-
-
-//////////////////////////////////////////////////////////////////////
-//
-// яхЁхтюф °хёЄэрфЎрЄшЁшўэюую ўшёыр т ёшьтюы
-//
-
-unsigned int num2hex( unsigned int num )
-{
-  if( num < 10 )
-    return num + '0';
-  return num - 10 + 'A';
-}
-
-
-inline void __declspec(noreturn) kos_sysfuncm1(void)
-{
-	__asm or eax, -1
-	__asm int 0x40
-}
-
-// ЇєэъЎш  -1 чртхЁ°хэш  яЁюЎхёёр
-void kos_ExitApp()
-{
-#ifndef SMALLLIBC_NO_ATEXIT
-	int i;
-
-	//
-	for ( i = atExitFnNum - 1; i >= 0; i-- )
-	{
-		//
-		atExitList[i]();
-	}
-#endif
-	//
-	kos_sysfuncm1();
-}
-
-static void __declspec(noinline) __fastcall kos_sysfunc0(Dword _ecx, Dword _edx, Dword _ebx, Dword _esi, Dword _edi)
-{
-	__asm xor eax, eax
-	__asm mov ebx, _ebx
-	__asm mov esi, _esi
-	__asm mov edi, _edi
-	__asm int 0x40
-}
-
-// ЇєэъЎш  0
-void kos_DefineAndDrawWindow(
-	Word x, Word y,
-	Word sizeX, Word sizeY,
-	Byte mainAreaType,
-	Dword mainAreaColour,
-	Byte headerType,
-	Dword headerColour,
-	Dword borderColour
-	)
-{
-	Dword arg1, arg2, arg3, arg4;
-
-	//
-	arg1 = ( x << 16 ) + sizeX;
-	arg2 = ( y << 16 ) + sizeY;
-	arg3 = ( mainAreaType << 24 ) | mainAreaColour;
-	arg4 = ( headerType << 24 ) | headerColour;
-	//
-	kos_sysfunc0(arg2, arg3, arg1, arg4, borderColour);
-}
-
-
-// ЇєэъЎш  1 яюёЄртшЄ№ Єюўъє
-void kos_PutPixel( Dword x, Dword y, Dword colour )
-{
-	//
-	__asm{
-		push 1
-		pop eax
-		mov ebx, x
-		mov ecx, y
-		mov edx, colour
-		int 0x40
-	}
-}
-
-inline Dword kos_sysfunc2(void)
-{
-	__asm push 2
-	__asm pop eax
-	__asm int 0x40
-}
-
-// ЇєэъЎш  2 яюыєўшЄ№ ъюф эрцрЄющ ъыртш°ш
-bool kos_GetKey( Byte &keyCode )
-{
-	Dword result = kos_sysfunc2();
-	//
-	keyCode = result >> 8;
-	//
-	return ( result & 0xFF ) == 0;
-}
-
-
-// ЇєэъЎш  3 яюыєўшЄ№ тЁхь 
-Dword kos_GetSystemClock()
-{
-//	Dword result;
-
-	//
-	__asm{
-		push 3
-		pop eax
-		int 0x40
-//		mov result, eax
-	}
-	//
-//	return result;
-}
-
-static void __declspec(noinline) __fastcall kos_sysfunc4(Dword _ecx, const char* _edx, Dword _ebx, Dword _esi)
-{
-	__asm push 4
-	__asm pop eax
-	__asm mov ebx, [_ebx]
-	__asm mov esi, [_esi]
-	__asm int 0x40
-}
-
-// ЇєэъЎш  4
-void kos_WriteTextToWindow(
-	Word x,
-	Word y,
-	Byte fontType,
-	Dword textColour,
-	const char *textPtr,
-	Dword textLen
-	)
-{
-	Dword arg1, arg2;
-
-	//
-	arg1 = ( x << 16 ) | y;
-	arg2 = ( fontType << 24 ) | textColour;
-	//
-	kos_sysfunc4(arg2, textPtr, arg1, textLen);
-}
-
-
-// ЇєэъЎш  5 ярєчр, т ёюЄ√ї фюы ї ёхъєэф√
-void kos_Pause( Dword value )
-{
-	//
-	__asm{
-		push 5
-		pop eax
-		mov ebx, value
-		int 0x40
-	}
-}
-
-
-// ЇєэъЎш  7 эрЁшёютрЄ№ шчюсЁрцхэшх
-void kos_PutImage( RGB * imagePtr, Word sizeX, Word sizeY, Word x, Word y )
-{
-	Dword arg1, arg2;
-
-	//
-	arg1 = ( sizeX << 16 ) | sizeY;
-	arg2 = ( x << 16 ) | y;
-	//
-	__asm{
-		push 7
-		pop eax
-		mov ebx, imagePtr
-		mov ecx, arg1
-		mov edx, arg2
-		int 0x40
-	}
-}
-
-
-
-// ЇєэъЎш  8 юяЁхфхышЄ№ ъэюяъє
-void kos_DefineButton( Word x, Word y, Word sizeX, Word sizeY, Dword buttonID, Dword colour )
-{
-	Dword arg1, arg2;
-
-	//
-	arg1 = ( x << 16 ) | sizeX;
-	arg2 = ( y << 16 ) | sizeY;
-	//
-	__asm{
-		push 8
-		pop eax
-		mov ebx, arg1
-		mov ecx, arg2
-		mov edx, buttonID
-		mov esi, colour
-		int 0x40
-	}
-}
-
-
-// ЇєэъЎш  9 - шэЇюЁьрЎш  ю яЁюЎхёёх
-Dword kos_ProcessInfo( sProcessInfo *targetPtr, Dword processID )
-{
-//	Dword result;
-
-	//
-	__asm{
-		push 9
-		pop eax
-		mov ebx, targetPtr
-		mov ecx, processID
-		int 0x40
-//		mov result, eax
-	}
-	//
-//	return result;
-}
-
-
-// ЇєэъЎш  10
-Dword kos_WaitForEvent()
-{
-//	Dword result;
-
-	__asm{
-		push 10
-		pop eax
-		int 0x40
-//		mov result, eax
-	}
-	
-//	return result;
-}
-
-
-// ЇєэъЎш  11
-Dword kos_CheckForEvent()
-{
-	Dword result; //
-
-	__asm{
-		push 11
-		pop eax
-		int 0x40
-		mov result, eax //
-	}
-	
-	return result; //
-}
-
-
-// ЇєэъЎш  12
-void kos_WindowRedrawStatus( Dword status )
-{
-	__asm{
-		push 12
-		pop eax
-		mov ebx, status
-		int 0x40
-	}
-}
-
-
-// ЇєэъЎш  13 эрЁшёютрЄ№ яюыюёє
-void kos_DrawBar( Word x, Word y, Word sizeX, Word sizeY, Dword colour )
-{
-	Dword arg1, arg2;
-
-	//
-	arg1 = ( x << 16 ) | sizeX;
-	arg2 = ( y << 16 ) | sizeY;
-	//
-	__asm{
-		push 13
-		pop eax
-		mov ebx, arg1
-		mov ecx, arg2
-		mov edx, colour
-		int 0x40
-	}
-}
-
-
-// ЇєэъЎш  17
-bool kos_GetButtonID( Dword &buttonID )
-{
-	Dword result;
-
-	//
-	__asm{
-		push 17
-		pop eax
-		int 0x40
-		mov result, eax
-	}
-	//
-	buttonID = result >> 8;
-	//
-	return (result & 0xFF) == 0;
-}
-
-
-// ЇєэъЎш  23
-Dword kos_WaitForEventTimeout( Dword timeOut )
-{
-//	Dword result;
-
-	__asm{
-		push 23
-		pop eax
-		mov ebx, timeOut
-		int 0x40
-//		mov result, eax
-	}
-	
-//	return result;
-}
-
-
-// яюыєўхэшх шэЇюЁьрЎшш ю ёюёЄю эшш "ь√°ш" ЇєэъЎш  37
-void kos_GetMouseState( Dword & buttons, int & cursorX, int & cursorY )
-{
-	Dword mB;
-	Word curX;
-	Word curY;
-	sProcessInfo sPI;
-
-	//
-	__asm{
-		push 37
-		pop eax
-		xor ebx, ebx
-		int		0x40
-		mov		curY, ax
-		shr		eax, 16
-		mov		curX, ax
-		push 37
-		pop eax
-		push 2
-		pop ebx
-		int		0x40
-		mov		mB, eax
-	}
-	//
-	kos_ProcessInfo( &sPI );
-	//
-	buttons = mB;
-	cursorX = curX - sPI.processInfo.x_start;
-	cursorY = curY - sPI.processInfo.y_start;
-}
-
-
-// ЇєэъЎш  40 єёЄрэютшЄ№ ьрёъє ёюс√Єшщ
-void kos_SetMaskForEvents( Dword mask )
-{
-	//
-	__asm{
-		push 40
-		pop eax
-		mov ebx, mask
-		int 0x40
-	}
-}
-
-
-// ЇєэъЎш  47 т√тхёЄш т юъэю яЁшыюцхэш  ўшёыю
-void kos_DisplayNumberToWindow(
-   Dword value,
-   Dword digitsNum,
-   Word x,
-   Word y,
-   Dword colour,
-   eNumberBase nBase,
-   bool valueIsPointer
-   )
-{
-	Dword arg1, arg2;
-
-	//
-	arg1 = ( valueIsPointer ? 1 : 0 ) |
-		( ((Byte)nBase) << 8 ) |
-		( ( digitsNum & 0x1F ) << 16 );
-	arg2 = ( x << 16 ) | y;
-	//
-	__asm{
-		push 47
-		pop eax
-		mov ebx, arg1
-		mov ecx, value
-		mov edx, arg2
-		mov esi, colour
-		int 0x40
-	}
-}
-
-
-// ЇєэъЎш  70 фюёЄєя ъ Їрщыютющ ёшёЄхьх
-Dword kos_FileSystemAccess( kosFileInfo *fileInfo )
-{
-//	Dword result;
-
-	//
-	__asm{
-		push 70
-		pop eax
-		mov ebx, fileInfo
-		int 0x40
-//		mov result, eax
-	}
-	//
-//	return result;
-}
-
-
-// ЇєэъЎш  63 т√тюф ёшьтюы  т юъэю юЄырфъш
-void kos_DebugOutChar( char ccc )
-{
-	//
-	__asm{
-		push 63
-		pop eax
-		push 1
-		pop ebx
-		mov cl, ccc
-		int 0x40
-	}
-}
-
-
-// ЇєэъЎш  66 Ёхцшь яюыєўхэш  фрээ√ї юЄ ъыртшрЄєЁ√
-void kos_SetKeyboardDataMode( Dword mode )
-{
-	//
-	__asm{
-		push 66
-		pop eax
-		push 1
-		pop ebx
-		mov ecx, mode
-		int 0x40
-	}
-}
-
-
-// т√тюф ёЄЁюъш т юъэю юЄырфъш
-void rtlDebugOutString( char *str )
-{
-	//
-	for ( ; str[0] != 0; str++ )
-	{
-		kos_DebugOutChar( str[0] );
-	}
-	//
-	kos_DebugOutChar( 13 );
-	kos_DebugOutChar( 10 );
-}
-
-
-// ЇєэъЎш  64 шчьхэхэшх ъюышўхёЄтр ярь Єш, т√фхыхээющ фы  яЁюуЁрьь√
-bool kos_ApplicationMemoryResize( Dword targetSize )
-{
-	Dword result;
-
-	//
-	__asm{
-		push 64
-		pop eax
-		push 1
-		pop ebx
-		mov ecx, targetSize
-		int 0x40
-		mov result, eax
-	}
-	//
-	return result == 0;
-}
-
-
-// ЇєэъЎш  67 шчьхэшЄ№ ярЁрьхЄЁ√ юъэр, ярЁрьхЄЁ == -1 эх ьхэ хЄё 
-void kos_ChangeWindow( Dword x, Dword y, Dword sizeX, Dword sizeY )
-{
-	//
-	__asm{
-		push 67
-		pop eax
-		mov ebx, x
-		mov ecx, y
-		mov edx, sizeX
-		mov esi, sizeY
-		int 0x40
-	}
-}
-
-void kos_InitHeap()
-{
-	__asm{
-		push 68
-		pop eax
-		push 11
-		pop ebx
-		int 0x40
-	}
-}
-
-
-
-// т√чют ёЄрЄшўхёъшї шэшЎшрышчрЄюЁют
-typedef void (__cdecl *_PVFV)(void);
-extern "C" _PVFV __xc_a[];
-extern "C" _PVFV __xc_z[];
-#pragma comment(linker, "/merge:.CRT=.rdata")
-//
-void __cdecl crtStartUp()
-{
-#ifndef SMALLLIBC_NO_INIT
-	// т√ч√трхь шэшЎшрышчрЄюЁ√ яю ёяшёъє
-	for ( _PVFV *pbegin = __xc_a; pbegin < __xc_z; pbegin++ )
-	{
-		//
-		(**pbegin)();
-	}
-#endif
-	// шэшЎшрышчшЁєхь ухэхЁрЄюЁ ёыєўрщэ√ї ўшёхы
-	// хёыш эрфю фы  яЁшыюцхэш , фхырЄ№ ¤Єю т kos_Main()
-	//rtlSrand( kos_GetSystemClock() );
-	// т√чют уыртэющ ЇєэъЎшш яЁшыюцхэш 
-	kos_Main();
-	// т√їюф
-	kos_ExitApp();
-}
-
-

programs/games/floppybird/smalllibc/kosSyst.h

@@ -1,217 +0,0 @@
-
-#pragma once
-
-typedef unsigned __int32 Dword;
-typedef unsigned __int16 Word;
-typedef unsigned __int8 Byte;
-//typedef unsigned __int32 size_t;
-
-extern "C" char kosCmdLine[];	// command line initialized by OS
-extern "C" char kosExePath[];	// path to binary initialized by OS
-
-#define NULL 0
-
-#define MAX_PATH				256
-
-#define FO_READ					0
-#define FO_WRITE				2
-
-#define EM_WINDOW_REDRAW		1
-#define EM_KEY_PRESS			2
-#define EM_BUTTON_CLICK			4
-#define EM_APP_CLOSE			8
-#define EM_DRAW_BACKGROUND		16
-#define EM_MOUSE_EVENT			32
-#define EM_IPC					64
-#define EM_NETWORK				256
-
-#define KM_CHARS				0
-#define KM_SCANS				1
-
-#define WRS_BEGIN				1
-#define WRS_END					2
-
-#define PROCESS_ID_SELF			-1
-
-#define abs(a) (a<0?0-a:a)
-
-extern "C" double __cdecl acos(double x);
-extern "C" double __cdecl asin(double x);
-extern "C" double __cdecl floor(double x);
-extern "C" double __cdecl round(double x);
-#pragma function(acos,asin)
-#if _MSC_VER > 1200
-#pragma function(floor)
-#endif
-
-
-struct kosFileInfo
-{
-	Dword rwMode;
-	Dword OffsetLow;
-	Dword OffsetHigh;
-	Dword dataCount;
-	Byte *bufferPtr;
-	char fileURL[MAX_PATH];
-};
-
-
-struct RGB
-{
-	Byte b;
-	Byte g;
-	Byte r;
-	//
-	RGB() {};
-	//
-	RGB( Dword value )
-	{
-		r = (Byte)(value >> 16);
-		g = (Byte)(value >> 8);
-		b = (Byte)value;
-	};
-	//
-	bool operator != ( RGB &another )
-	{
-		return this->b != another.b || this->g != another.g || this->r != another.r;
-	};
-	//
-	bool operator == ( RGB &another )
-	{
-		return this->b == another.b && this->g == another.g && this->r == another.r;
-	};
-};
-
-
-#pragma pack(push, 1)
-union sProcessInfo
-{
-	Byte rawData[1024];
-	struct
-	{
-		Dword cpu_usage;
-		Word window_stack_position;
-		Word window_stack_value;
-		Word reserved1;
-		char process_name[12];
-		Dword memory_start;
-		Dword used_memory;
-		Dword PID;
-		Dword x_start;
-		Dword y_start;
-		Dword x_size;
-		Dword y_size;
-		Word slot_state;
-	} processInfo;
-};
-#pragma pack(pop)
-
-//
-extern "C" void __cdecl crtStartUp();
-//
-int __cdecl _purecall();
-//
-int __cdecl atexit( void (__cdecl *func )( void ));
-//
-void rtlSrand( Dword seed );
-Dword rtlRand( void );
-//
-char * __cdecl strcpy( char *target, const char *source );
-int __cdecl strlen( const char *line );
-char * __cdecl strrchr( const char * string, int c );
-
-#if _MSC_VER < 1400
-extern "C" void * __cdecl memcpy( void *dst, const void *src, size_t bytesCount );
-extern "C" void memset( Byte *dst, Byte filler, Dword count );
-//#pragma intrinsic(memcpy,memset)
-#else
-void * __cdecl memcpy( void *dst, const void *src, size_t bytesCount );
-void memset( Byte *dst, Byte filler, Dword count );
-#endif
-
-unsigned int num2hex( unsigned int num );
-void sprintf( char *Str, char* Format, ... );
-//
-Dword rtlInterlockedExchange( Dword *target, Dword value );
-// ЇєэъЎш  -1 чртхЁ°хэш  яЁюЎхёёр
-void __declspec(noreturn) kos_ExitApp();
-// ЇєэъЎш  0
-void kos_DefineAndDrawWindow(
-	Word x, Word y,
-	Word sizeX, Word sizeY,
-	Byte mainAreaType, Dword mainAreaColour,
-	Byte headerType, Dword headerColour,
-	Dword borderColour
-	);
-// ЇєэъЎш  1 яюёЄртшЄ№ Єюўъє
-void kos_PutPixel( Dword x, Dword y, Dword colour );
-// ЇєэъЎш  2 яюыєўшЄ№ ъюф эрцрЄющ ъыртш°ш
-bool kos_GetKey( Byte &keyCode );
-// ЇєэъЎш  3 яюыєўшЄ№ тЁхь 
-Dword kos_GetSystemClock();
-// ЇєэъЎш  4
-void kos_WriteTextToWindow(
-	Word x, Word y,
-	Byte fontType,
-	Dword textColour,
-	const char *textPtr,
-	Dword textLen
-	);
-// ЇєэъЎш  7 эрЁшёютрЄ№ шчюсЁрцхэшх
-void kos_PutImage( RGB * imagePtr, Word sizeX, Word sizeY, Word x, Word y );
-// ЇєэъЎш  8 юяЁхфхышЄ№ ъэюяъє
-void __declspec(noinline) kos_DefineButton( Word x, Word y, Word sizeX, Word sizeY, Dword buttonID, Dword colour );
-// ЇєэъЎш  5 ярєчр, т ёюЄ√ї фюы ї ёхъєэф√
-void kos_Pause( Dword value );
-// ЇєэъЎш  9 - шэЇюЁьрЎш  ю яЁюЎхёёх
-Dword kos_ProcessInfo( sProcessInfo *targetPtr, Dword processID = PROCESS_ID_SELF );
-// ЇєэъЎш  10
-Dword kos_WaitForEvent();
-// ЇєэъЎш  11
-Dword kos_CheckForEvent();
-// ЇєэъЎш  12
-void kos_WindowRedrawStatus( Dword status );
-// ЇєэъЎш  13 эрЁшёютрЄ№ яюыюёє
-void __declspec(noinline) kos_DrawBar( Word x, Word y, Word sizeX, Word sizeY, Dword colour );
-// ЇєэъЎш  17
-bool kos_GetButtonID( Dword &buttonID );
-// ЇєэъЎш  23
-Dword kos_WaitForEventTimeout( Dword timeOut );
-//
-enum eNumberBase
-{
-	nbDecimal = 0,
-	nbHex,
-	nbBin
-};
-// яюыєўхэшх шэЇюЁьрЎшш ю ёюёЄю эшш "ь√°ш" ЇєэъЎш  37
-void kos_GetMouseState( Dword & buttons, int & cursorX, int & cursorY );
-// ЇєэъЎш  40 єёЄрэютшЄ№ ьрёъє ёюс√Єшщ
-void kos_SetMaskForEvents( Dword mask );
-// ЇєэъЎш  47 т√тхёЄш т юъэю яЁшыюцхэш  ўшёыю
-void kos_DisplayNumberToWindow(
-   Dword value,
-   Dword digitsNum,
-   Word x,
-   Word y,
-   Dword colour,
-   eNumberBase nBase = nbDecimal,
-   bool valueIsPointer = false
-   );
-// ЇєэъЎш  58 фюёЄєя ъ Їрщыютющ ёшёЄхьх
-Dword kos_FileSystemAccess( kosFileInfo *fileInfo );
-// ЇєэъЎш  63
-void kos_DebugOutChar( char ccc );
-//
-void rtlDebugOutString( char *str );
-// ЇєэъЎш  64 шчьхэшЄ№ ярЁрьхЄЁ√ юъэр, ярЁрьхЄЁ == -1 эх ьхэ хЄё 
-void kos_ChangeWindow( Dword x, Dword y, Dword sizeX, Dword sizeY );
-// ЇєэъЎш  67 шчьхэхэшх ъюышўхёЄтр ярь Єш, т√фхыхээющ фы  яЁюуЁрьь√
-bool kos_ApplicationMemoryResize( Dword targetSize );
-// ЇєэъЎш  66 Ёхцшь яюыєўхэш  фрээ√ї юЄ ъыртшрЄєЁ√
-void kos_SetKeyboardDataMode( Dword mode );
-
-void kos_InitHeap();
-
-//
-void kos_Main();

programs/games/floppybird/smalllibc/math2.cpp

@@ -1,83 +0,0 @@
-#include <math.h>
-#include "kosSyst.h"
-extern "C" int _fltused = 0;
-double __cdecl acos(double x)
-{
-	__asm {
-		fld	qword ptr [esp+4]
-		fld1
-		fadd	st, st(1)
-		fld1
-		fsub	st, st(2)
-		fmulp	st(1), st
-		fsqrt
-		fxch	st(1)
-		fpatan
-	}
-}
-double __cdecl asin(double x)
-{
-	__asm {
-		fld	qword ptr [esp+4]
-		fld1
-		fadd	st, st(1)
-		fld1
-		fsub	st, st(2)
-		fmulp	st(1), st
-		fsqrt
-		fpatan
-		ret
-	}
-}
-#if _MSC_VER <= 1200
-extern "C" double _ftol(double x)
-{
-	__asm {
-		fld	qword ptr [esp+4]
-		push	1F3Fh
-		fstcw	word ptr [esp+2]
-		fldcw	word ptr [esp]
-		frndint
-		fldcw	word ptr [esp+2]
-		add	esp, 4
-	}
-}
-#endif
-double __cdecl ceil(double x)
-{
-	__asm {
-		fld	qword ptr [esp+4]
-		push	1B3Fh
-		fstcw	word ptr [esp+2]
-		fldcw	word ptr [esp]
-		frndint
-		fldcw	word ptr [esp+2]
-		add	esp, 4
-	}
-}
-
-double __cdecl floor(double x)
-{
-	__asm {
-		fld	qword ptr [esp+4]
-		push	173Fh
-		fstcw	word ptr [esp+2]
-		fldcw	word ptr [esp]
-		frndint
-		fldcw	word ptr [esp+2]
-		add	esp, 4
-	}
-}
-
-double __cdecl round(double x)
-{
-	__asm {
-		fld	qword ptr [esp+4]
-		push	133Fh
-		fstcw	word ptr [esp+2]
-		fldcw	word ptr [esp]
-		frndint
-		fldcw	word ptr [esp+2]
-		add	esp, 4
-	}
-}

programs/games/floppybird/smalllibc/mcsmemm.cpp

@@ -1,373 +0,0 @@
-// memman.cpp : Defines the entry point for the console application.
-//
-
-#include "kosSyst.h"
-#include "mcsmemm.h"
-
-
-void * __cdecl operator new ( size_t count, size_t element_size )
-{
-	return allocmem( (Dword)(count * element_size) );
-}
-
-void * __cdecl operator new [] ( size_t amount )
-{
-	return allocmem( (Dword)amount );
-}
-
-void * __cdecl operator new ( size_t amount )
-{
-	return allocmem( (Dword)amount );
-}
-
-void __cdecl operator delete ( void *pointer )
-{
-	if ( pointer != NULL ) freemem( pointer );
-}
-
-void __cdecl operator delete [] ( void *pointer )
-{
-	if ( pointer != NULL ) freemem( pointer );
-}
-
-void __cdecl initHeap(void)
-{
-	__asm
-	{
-		push	68
-		pop	eax
-		push	11
-		pop	ebx
-		int	0x40
-	}
-}
-
-#pragma data_seg(".CRT$XCB")
-__declspec(allocate(".CRT$XCB")) void (__cdecl *initHeapPtr)(void) = &initHeap;
-
-__declspec(noinline) Byte* __fastcall allocmem( Dword reqsize )
-{
-	initHeapPtr;	// force dependency
-	__asm
-	{
-		push	68
-		pop	eax
-		push	12
-		pop	ebx
-		int 0x40
-	}
-
-}
-
-__declspec(noinline) void __fastcall freemem( void *vaddress )
-{
-	initHeapPtr;	// force dependency
-	__asm
-	{
-		push	68
-		pop	eax
-		push	13
-		pop	ebx
-		int 0x40
-	}
-
-}
-/*
-
-//
-Dword mmMutex = FALSE;
-MemBlock *rootfree = NULL;
-MemBlock *rootuser = NULL;
-bool mmInitialized = false;
-Byte *mmHeapTop = NULL;
-
-
-//
-Byte * AllocMemFromSystem( Dword reqSize )
-{
-	Byte *result;
-	sProcessInfo pInfo;
-	
-	//
-	if ( mmInitialized )
-	{
-		result = mmHeapTop;
-	}
-	else
-	{
-		//
-		kos_ProcessInfo( &pInfo );
-		//
-		result = (Byte *)(pInfo.processInfo.used_memory + 1);
-		//
-		mmInitialized = true;
-	}
-	//
-	if ( ! kos_ApplicationMemoryResize( ((Dword)result) + reqSize ) )
-	{
-		result = NULL;
-	}
-	//
-	mmHeapTop = result + reqSize;
-	//
-	return result;
-}
-
-
-//
-Byte *allocmem( Dword reqsize )
-{
-  MemBlock *BlockForCheck;
-  MemBlock *LastKnownGood;
-  Dword tail;
-  Byte *address;
-
-  //яюфЁютэ хь ЁрчьхЁ
-  if( ( tail = reqsize % SIZE_ALIGN ) != 0 )
-  {
-    reqsize += SIZE_ALIGN - tail;
-  }
-
-  LastKnownGood = NULL;
-
-  // цф╕ь юётюсюцфхэш  ь№■Єхъёр
-  while ( rtlInterlockedExchange( &mmMutex, TRUE ) )
-  {
-	  //
-	  kos_Pause( 1 );
-  }
-
-  //ш∙хь яюфїюф ∙шщ ётюсюфэ√щ сыюъ
-  if( rootfree != NULL )
-  {
-    for ( BlockForCheck = rootfree; ; BlockForCheck = BlockForCheck->Next )
-    {
-      if ( BlockForCheck->Size >= reqsize )
-      {
-        //эр°ыш
-        if ( LastKnownGood != NULL )
-        {
-          if ( LastKnownGood->Size >= BlockForCheck->Size )
-            LastKnownGood = BlockForCheck;
-        }
-        else
-          LastKnownGood = BlockForCheck;
-        if ( LastKnownGood->Size == reqsize )
-          break;
-      }
-      if ( BlockForCheck->Next == NULL )
-        break;
-    }
-  }
-
-  if ( LastKnownGood != NULL )
-  {
-    //яЁютхЁшь эрщфхээ√щ сыюъ эр тючьюцэюёЄ№ фхыхэш 
-    tail = LastKnownGood->Size - reqsize;
-    if ( tail >= ( sizeof(MemBlock) + SIZE_ALIGN ) )
-    {
-      //сєфхь ЁрчсштрЄ№
-      BlockForCheck = (MemBlock *)( ( (Byte *)LastKnownGood ) + tail );
-      BlockForCheck->Size = reqsize;
-      //тёЄртшь чрэ Є√щ сыюъ т эрўрыю ёяшёър чрэрЄ√ї сыюъют
-      if( rootuser != NULL )
-      {
-        BlockForCheck->Next = rootuser;
-        rootuser->Previous = BlockForCheck;
-        BlockForCheck->Previous = NULL;
-        rootuser = BlockForCheck;
-      }
-      else
-      {
-        rootuser = BlockForCheck;
-        BlockForCheck->Next = NULL;
-        BlockForCheck->Previous = NULL;
-      }
-
-      //шчьхэшь ЁрчьхЁ юёЄрт°хщё  ўрёЄш
-      LastKnownGood->Size = tail - sizeof(MemBlock);
-      address = ( (Byte *)BlockForCheck ) + sizeof(MemBlock);
-
-	  // юЄяєёЄшь ь№■Єхъё
-      rtlInterlockedExchange( &mmMutex, FALSE );
-
-      return address;
-    }
-    else
-    {
-      //яхЁхьхёЄш сыюъ шч юўхЁхфш ётюсюфэ√ї т эрўрыю юўхЁхфш чрэ Є√ї
-      //ёэрўрыр т√ъшэхь хую шч юўхЁхфш ётюсюфэ√ї
-      if ( LastKnownGood->Previous != NULL )
-      {
-        LastKnownGood->Previous->Next = LastKnownGood->Next;
-      }
-      else
-      {
-        //сыюъ ёЄюшЄ т эрўрых юўхЁхфш
-        rootfree = LastKnownGood->Next;
-      }
-      if( LastKnownGood->Next != NULL )
-      {
-        LastKnownGood->Next->Previous = LastKnownGood->Previous;
-      }
-      //ЄхяхЁ№ тёЄртшь хую т юўхЁхф№ чрэ Є√ї
-      if( rootuser != NULL )
-      {
-        LastKnownGood->Next = rootuser;
-        rootuser->Previous = LastKnownGood;
-        LastKnownGood->Previous = NULL;
-        rootuser = LastKnownGood;
-      }
-      else
-      {
-        rootuser = LastKnownGood;
-        LastKnownGood->Next = NULL;
-        LastKnownGood->Previous = NULL;
-      }
-	  //
-      address = ( (Byte *)LastKnownGood ) + sizeof(MemBlock);
-
-	  // юЄяєёЄшь ь№■Єхъё
-      rtlInterlockedExchange( &mmMutex, FALSE );
-
-      return address;
-    }
-  }
-  else
-  {
-    //эрфю яюыєўшЄ№ х∙╕ ъєёюўхъ ярь Єш
-    LastKnownGood = (MemBlock *)AllocMemFromSystem( reqsize + sizeof(MemBlock) );
-	//
-    if( LastKnownGood != NULL )
-    {
-      LastKnownGood->Size = reqsize;
-      //ЄхяхЁ№ тёЄртшь хую т юўхЁхф№ чрэ Є√ї
-      if( rootuser != NULL )
-      {
-        LastKnownGood->Next = rootuser;
-        rootuser->Previous = LastKnownGood;
-        LastKnownGood->Previous = NULL;
-        rootuser = LastKnownGood;
-      }
-      else
-      {
-        rootuser = LastKnownGood;
-        LastKnownGood->Next = NULL;
-        LastKnownGood->Previous = NULL;
-      }
-      address = ( (Byte *)LastKnownGood ) + sizeof(MemBlock);
-
-	  // юЄяєёЄшь ь№■Єхъё
-      rtlInterlockedExchange( &mmMutex, FALSE );
-
-      return address;
-    }
-  }
-
-  // юЄяєёЄшь ь№■Єхъё
-  rtlInterlockedExchange( &mmMutex, FALSE );
-
-  //
-  rtlDebugOutString( "allocmem failed." );
-  kos_ExitApp();
-  //
-  return NULL;
-}
-
-//
-Dword freemem( void *vaddress )
-{
-  Dword result;
-
-  Byte *checknext, *address = (Byte *)vaddress;
-                               
-  // цф╕ь юётюсюцфхэш  ь№■Єхъёр
-  while ( rtlInterlockedExchange( &mmMutex, TRUE ) )
-  {
-	  //
-	  kos_Pause( 1 );
-  }
-
-  MemBlock *released = (MemBlock *)( address - sizeof(MemBlock) );
-
-  result = released->Size;
-
-  //єсшЁрхь сыюъ шч ёяшёър чрэ Є√ї
-  if ( released->Previous != NULL )
-  {
-    released->Previous->Next = released->Next;
-  }
-  else
-  {
-    rootuser = released->Next;
-  }
-  if ( released->Next != NULL )
-  {
-    released->Next->Previous = released->Previous;
-  }
-  //чръшэхь ЄхяхЁ№ ¤ЄюЄ сыюъ т ёяшёюъ ётюсюфэ√ї
-  released->Next = rootfree;
-  released->Previous = NULL;
-  rootfree = released;
-  if ( released->Next != NULL )
-  {
-    released->Next->Previous = released;
-  }
-
-  //ЄхяхЁ№ яюш∙хь ёьхцэ√х ётюсюфэ√х сыюъш
-  checknext = (Byte *)(rootfree) + ( rootfree->Size + sizeof(MemBlock) );
-  //
-  for ( released = rootfree->Next; released != NULL; released = released->Next )
-  {
-    if ( checknext == (Byte *)released )
-    {
-      //ёюсшЁрхь сыюъш тьхёЄх
-      //ёэрўрыр т√ъшэхь шч юўхЁхфш ётюсюфэ√ї
-      released->Previous->Next = released->Next;
-      if( released->Next != NULL )
-      {
-        released->Next->Previous = released->Previous;
-      }
-      //ЄхяхЁ№ єтхышўшь ЁрчьхЁ ъюЁэхтюую сыюър
-      rootfree->Size += released->Size + sizeof(MemBlock);
-      break;
-    }
-  }
-  //хёыш эрфю, яюш∙хь сыюъш яхЁхф Єхъ∙шь.
-  checknext = (Byte *)(rootfree);
-  //
-  if ( released == NULL )
-  {
-    for ( released = rootfree->Next; released != NULL; released = released->Next )
-    {
-      if ( checknext == (Byte *)released + ( released->Size + sizeof(MemBlock) ) )
-      {
-        //ёюсшЁрхь сыюъш тьхёЄх
-        //єтхышўшь ЁрчьхЁ сыюър
-        released->Size += rootfree->Size + sizeof(MemBlock);
-        //ЄхяхЁ№ т√ъшэхь шч юўхЁхфш ётюсюфэ√ї
-        released->Previous->Next = released->Next;
-        if ( released->Next != NULL )
-        {
-          released->Next->Previous = released->Previous;
-        }
-        //ш чръшэхь хую т эрўрыю юўхЁхфш тьхёЄю яЁшёюхфшэ╕ээюую сыюър шч ъюЁэ  ёяшёър
-        if ( rootfree->Next != NULL )
-        {
-          rootfree->Next->Previous = released;
-        }
-        released->Next = rootfree->Next;
-        released->Previous = NULL;
-        rootfree = released;
-        break;
-      }
-    }
-  }
-
-  // юЄяєёЄшь ь№■Єхъё
-  rtlInterlockedExchange( &mmMutex, FALSE );
-
-  return result;
-}
-
-*/

programs/games/floppybird/smalllibc/mcsmemm.h

@@ -1,28 +0,0 @@
-//
-
-struct MemBlock
-{
-  Dword Size;
-  Dword Addr;
-  MemBlock *Next;
-  MemBlock *Previous;
-};
-
-
-#define INITIALQUEUESIZE  (32 * 4)
-
-#define FALSE   0
-#define TRUE    -1
-
-#define MB_FREE   0
-#define MB_USER   1
-
-#define SIZE_ALIGN  4
-
-
-
-Byte * __fastcall allocmem( Dword reqsize );
-void __fastcall freemem( void *vaddress );
-
-
-

programs/games/floppybird/smalllibc/mymath.h

@@ -1,95 +0,0 @@
-/* Rocket Forces
- * Filename: mymath.h
- * Version 0.1
- * Copyright (c) Serial 2007
- */
-
-
-extern "C" int _fltused = 0;
-
-#define M_PI 3.14159265358979323846
-
-inline double sin(double x)
-{
-	__asm	fld	x
-	__asm	fsin
-}
-
-inline double cos(double x)
-{
-	__asm	fld	x
-	__asm	fcos
-}
-
-inline double sqrt(double x)
-{
-	__asm	fld	x
-	__asm	fsqrt
-}
-
-inline double acos(double x)
-{
-	__asm	fld x
-	__asm	fld st(0)
-	__asm	fmul st,st(1)
-	__asm	fld1 
-	__asm	fsubrp st(1),st(0)
-	__asm	fsqrt 
-	__asm	fxch st(1) 
-	__asm	fpatan
-}
-
-inline double atan(double x)
-{
-	double res = acos(1 / sqrt(1 + x * x));
-	if (x < 0)
-	{
-		res *= -1;
-	}
-	return res;
-}
-
-inline int round_int(double x)
-{
-	int i;
-	static const float round_to_nearest = 0.5f;
-	__asm
-	{
-		fld      x
-		fadd     st, st(0)
-		fadd     round_to_nearest
-		fistp    i
-		sar      i, 1
-	}
-	return i;
-}
-
-inline int floor_int(double x)
-{
-	int i;
-	static const float round_toward_m_i = -0.5f;
-	__asm
-	{
-		fld      x
-		fadd     st, st (0)
-		fadd     round_toward_m_i
-		fistp    i
-		sar      i, 1
-	}
-	return i;
-}
-
-inline int ceil_int(double x)
-{
-	int i;
-	static const float round_toward_p_i = -0.5f;
-	__asm
-	{
-		fld      x
-		fadd     st, st (0)
-		fsubr    round_toward_p_i
-		fistp    i
-		sar      i, 1
-	}
-	return (-i);
-}

programs/games/floppybird/smalllibc/purecall.cpp

@@ -1,11 +0,0 @@
-#include "kosSyst.h"
-static char pureCallMessage[] = "PURE function call!";
-
-// т√чют рсёЄЁръЄэюую ьхЄюфр
-int __cdecl _purecall()
-{
-	rtlDebugOutString( pureCallMessage );
-	kos_ExitApp();
-	return 0;
-}
-

programs/games/floppybird/smalllibc/smalllibc.vcxproj

@@ -1,72 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<Project DefaultTargets="Build" ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-  <ItemGroup Label="ProjectConfigurations">
-    <ProjectConfiguration Include="Release|Win32">
-      <Configuration>Release</Configuration>
-      <Platform>Win32</Platform>
-    </ProjectConfiguration>
-  </ItemGroup>
-  <PropertyGroup Label="Globals">
-    <ProjectGuid>{0D291390-1953-4E1F-BBE2-57F12AFF3214}</ProjectGuid>
-    <Keyword>Win32Proj</Keyword>
-    <RootNamespace>smalllibc</RootNamespace>
-  </PropertyGroup>
-  <Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
-  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">
-    <ConfigurationType>StaticLibrary</ConfigurationType>
-    <UseDebugLibraries>false</UseDebugLibraries>
-    <WholeProgramOptimization>true</WholeProgramOptimization>
-    <CharacterSet>Unicode</CharacterSet>
-  </PropertyGroup>
-  <Import Project="$(VCTargetsPath)\Microsoft.Cpp.props" />
-  <ImportGroup Label="ExtensionSettings">
-  </ImportGroup>
-  <ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
-    <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
-  </ImportGroup>
-  <PropertyGroup Label="UserMacros" />
-  <PropertyGroup />
-  <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
-    <ClCompile>
-      <WarningLevel>Level3</WarningLevel>
-      <PrecompiledHeader>
-      </PrecompiledHeader>
-      <Optimization>MinSpace</Optimization>
-      <FunctionLevelLinking>true</FunctionLevelLinking>
-      <IntrinsicFunctions>true</IntrinsicFunctions>
-      <PreprocessorDefinitions>NDEBUG;_LIB;%(PreprocessorDefinitions)</PreprocessorDefinitions>
-      <RuntimeLibrary>MultiThreaded</RuntimeLibrary>
-      <BufferSecurityCheck>false</BufferSecurityCheck>
-      <OmitFramePointers>true</OmitFramePointers>
-      <FavorSizeOrSpeed>Size</FavorSizeOrSpeed>
-    </ClCompile>
-    <Link>
-      <SubSystem>Windows</SubSystem>
-      <GenerateDebugInformation>true</GenerateDebugInformation>
-      <EnableCOMDATFolding>true</EnableCOMDATFolding>
-      <OptimizeReferences>true</OptimizeReferences>
-    </Link>
-  </ItemDefinitionGroup>
-  <ItemGroup>
-    <ClInclude Include="func.h" />
-    <ClInclude Include="kosFile.h" />
-    <ClInclude Include="kosSyst.h" />
-    <ClInclude Include="mcsmemm.h" />
-    <ClInclude Include="mymath.h" />
-  </ItemGroup>
-  <ItemGroup>
-    <ClCompile Include="func.cpp" />
-    <ClCompile Include="kosFile.cpp" />
-    <ClCompile Include="kosSyst.cpp" />
-    <ClCompile Include="math2.cpp" />
-    <ClCompile Include="mcsmemm.cpp" />
-    <ClCompile Include="purecall.cpp" />
-    <ClCompile Include="sprintf.cpp" />
-  </ItemGroup>
-  <ItemGroup>
-    <Object Include="init.obj" />
-  </ItemGroup>
-  <Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" />
-  <ImportGroup Label="ExtensionTargets">
-  </ImportGroup>
-</Project>

programs/games/floppybird/smalllibc/smalllibc.vcxproj.filters

@@ -1,60 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-  <ItemGroup>
-    <Filter Include="Файлы исходного кода">
-      <UniqueIdentifier>{4FC737F1-C7A5-4376-A066-2A32D752A2FF}</UniqueIdentifier>
-      <Extensions>cpp;c;cc;cxx;def;odl;idl;hpj;bat;asm;asmx</Extensions>
-    </Filter>
-    <Filter Include="Заголовочные файлы">
-      <UniqueIdentifier>{93995380-89BD-4b04-88EB-625FBE52EBFB}</UniqueIdentifier>
-      <Extensions>h;hpp;hxx;hm;inl;inc;xsd</Extensions>
-    </Filter>
-    <Filter Include="Файлы ресурсов">
-      <UniqueIdentifier>{67DA6AB6-F800-4c08-8B7A-83BB121AAD01}</UniqueIdentifier>
-      <Extensions>rc;ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe;resx;tiff;tif;png;wav;mfcribbon-ms</Extensions>
-    </Filter>
-  </ItemGroup>
-  <ItemGroup>
-    <ClInclude Include="func.h">
-      <Filter>Заголовочные файлы</Filter>
-    </ClInclude>
-    <ClInclude Include="kosFile.h">
-      <Filter>Заголовочные файлы</Filter>
-    </ClInclude>
-    <ClInclude Include="kosSyst.h">
-      <Filter>Заголовочные файлы</Filter>
-    </ClInclude>
-    <ClInclude Include="mcsmemm.h">
-      <Filter>Заголовочные файлы</Filter>
-    </ClInclude>
-    <ClInclude Include="mymath.h">
-      <Filter>Заголовочные файлы</Filter>
-    </ClInclude>
-  </ItemGroup>
-  <ItemGroup>
-    <ClCompile Include="func.cpp">
-      <Filter>Файлы исходного кода</Filter>
-    </ClCompile>
-    <ClCompile Include="kosFile.cpp">
-      <Filter>Файлы исходного кода</Filter>
-    </ClCompile>
-    <ClCompile Include="kosSyst.cpp">
-      <Filter>Файлы исходного кода</Filter>
-    </ClCompile>
-    <ClCompile Include="math2.cpp">
-      <Filter>Файлы исходного кода</Filter>
-    </ClCompile>
-    <ClCompile Include="mcsmemm.cpp">
-      <Filter>Файлы исходного кода</Filter>
-    </ClCompile>
-    <ClCompile Include="sprintf.cpp">
-      <Filter>Файлы исходного кода</Filter>
-    </ClCompile>
-    <ClCompile Include="purecall.cpp">
-      <Filter>Файлы исходного кода</Filter>
-    </ClCompile>
-  </ItemGroup>
-  <ItemGroup>
-    <Object Include="init.obj" />
-  </ItemGroup>
-</Project>

programs/games/floppybird/smalllibc/sprintf.cpp

@@ -1,228 +0,0 @@
-#include "kosSyst.h"
-#include "func.h"
-#include <stdarg.h>
-
-//////////////////////////////////////////////////////////////////////
-//
-// т√тюф ёЄЁюъш эр яхўрЄ№. barsuk фюсртшы %f 
-
-//#define PREC 2
-//#define HALF 0.499
-#define PREC 6
-#define HALF 0.4999999
-
-static double double_tab[]={1e0, 1e1, 1e2, 1e3, 1e4, 1e5, 1e6, 1e7, 1e8, 1e9, 1e10, 1e11, 1e12, 1e13, 1e14, 1e15,
-1e16, 1e17, 1e18, 1e19, 1e20, 1e21, 1e22, 1e23, 1e24, 1e25, 1e26, 1e27, 1e28, 1e29, 1e30};
-
-
-//
-
-static Dword dectab[] = { 1000000000, 100000000, 10000000, 1000000, 100000,
-                   10000, 1000, 100, 10, 0 };
-
-//
-void sprintf( char *Str, char* Format, ... )
-{
-	int i, fmtlinesize, j, k, flag;
-	Dword head, tail;
-	char c;
-	va_list arglist;
-	//
-	va_start(arglist, Format);
-
-	//
-	fmtlinesize = strlen( Format );
-	//
-	if( fmtlinesize == 0 ) return;
-  
-	//
-	for( i = 0, j = 0; i < fmtlinesize; i++ )
-	{
-		//
-		c = Format[i];
-		//
-		if( c != '%' )
-		{
-			Str[j++] = c;
-			continue;
-		}
-		//
-		i++;
-		//
-		if( i >= fmtlinesize ) break;
-
-		//
-		flag = 0;
-		//
-		c = Format[i];
-		//
-		switch( c )
-		{
-		//
-		case '%':
-			Str[j++] = c;
-			break;
-		// т√тюф ёЄЁюъш
-		case 'S':
-			Byte* str;
-			str = va_arg(arglist, Byte*);
-			for( k = 0; ( c = str[k] ) != 0; k++ )
-			{
-				Str[j++] = c;
-			}
-			break;
-		// т√тюф срщЄр
-		case 'B':
-			k = va_arg(arglist, int) & 0xFF;
-			Str[j++] = num2hex( ( k >> 4 ) & 0xF );
-			Str[j++] = num2hex( k & 0xF );
-			break;
-		// т√тюф ёшьтюыр
-		case 'C':
-			Str[j++] = va_arg(arglist, int) & 0xFF;
-			break;
-		// т√тюф фтющэюую ёыютр т °хёЄэрфЎрЄшЁшўэюь тшфх
-		case 'X':
-			Dword val;
-			val = va_arg(arglist, Dword);
-			for( k = 7; k >= 0; k-- )
-			{
-				//
-				c = num2hex ( ( val >> (k * 4) ) & 0xF );
-				//
-				if( c == '0' )
-				{
-					if( flag ) Str[j++] = c;
-				}
-				else
-				{
-					flag++;
-					Str[j++] = c;
-				}
-			}
-			//
-			if( flag == 0 ) Str[j++] = '0';
-			break;
-		// т√тюф фтющэюую ёыютр т фхё Єшўэюь тшфх
-		case 'U':
-			head = va_arg(arglist, Dword);
-			tail = 0;
-			for( k = 0; dectab[k] != 0; k++ )
-			{
-				tail = head % dectab[k];
-				head /= dectab[k];
-				c = head + '0';
-				if( c == '0' )
-				{
-					if( flag ) Str[j++] = c;
-				}
-				else
-				{
-					flag++;
-					Str[j++] = c;
-				}
-				//
-				head = tail;
-			}
-			//
-			c = head + '0';
-			Str[j++] = c;
-			break;
-		// тх∙хёЄтхээюх ўшёыю т ЇюЁьрЄх 7.2
-		case 'f':
-		case 'F':
-		case 'g':
-		case 'G':
-			{
-			double val, w;
-			int p;
-			val = va_arg(arglist, double);
-			if (val < 0.0)
-			{
-				Str[j++] = '-';
-				val = -val;
-			}
-			for (k = 0; k < 30; k++)
-				if (val < double_tab[k])
-					break;
-
-			if (val < 1.0)
-			{
-				Str[j++] = '0';
-			}
-			
-			for (p = 1; p < k + 1; p++)
-			{
-				int d = (int)di(val / double_tab[k - p] - HALF) % 10;
-				Str[j++] = '0' + d;
-				val -= d * double_tab[k - p];
-			}
-			Str[j++] = '.';
-			w = 0.1;
-			for (p = 0; p < PREC - 1; p++)
-			{
-				val-=floor(val);
-				Str[j++] = '0' + di(val / w - HALF) % 10;
-				w /= 10.0;
-			}
-			}
-			break;
-
-		// т√тюф 64-сшЄэюую ёыютр т °хёЄэрфЎрЄшЁшўэюь тшфх
-		case 'Q':
-			unsigned int low_dword, high_dword;
-			low_dword = va_arg(arglist, unsigned int);
-			high_dword = va_arg(arglist, unsigned int);
-			for( k = 7; k >= 0; k-- )
-			{
-				//
-				c = num2hex ( ( ( high_dword + 1) >> (k * 4) ) & 0xF );
-				//
-				if( c == '0' )
-				{
-					if( flag ) Str[j++] = c;
-				}
-				else
-				{
-					flag++;
-					Str[j++] = c;
-				}
-			}
-			//
-			for( k=7; k >= 0; k-- )
-			{
-				//
-				c = num2hex ( ( low_dword >> (k * 4) ) & 0xF );
-				//
-				if( c == '0' )
-				{
-					if( flag ) Str[j++] = c;
-				}
-				else
-				{
-					flag++;
-					Str[j++] = c;
-				}
-			}
-			//
-			if( flag == 0 ) Str[j++] = '0';
-			//
-			break;
-		//
-		default:
-			break;
-		}
-	}
-	//
-	Str[j] = 0;
-}
-
-char *ftoa(double d)
-{
-	char buffer[256], *p;
-	sprintf(buffer, "%f", d);
-	p = (char*)allocmem(strlen(buffer)+1);
-	strcpy(p, buffer);
-	return p;
-}
-

programs/games/flpybird/README.md

@@ -0,0 +1,25 @@
+## Floppy Bird for KolibriOS
+
+Simple clone of world-famous Flappy Bird game for KolibriOS, written in C.
+
+### Links
+
+* [Forum topic](http://board.kolibrios.org/viewtopic.php?t=4471)
+
+### Controls
+
+* Main menu:
+  * 1 - fast game mode
+  * 2 - slow game mode
+* Game:
+  * Space - jump
+* Game over:
+  * Space - restart
+  * Escape - return to main menu
+
+### Authors
+
+* zorggish - initial author, all game code
+* Burer - rewrite to C, some tweaks
+
+<img src="https://i.ibb.co/JW3MCHmM/showcase.png" alt="Showcase" width="100%">

programs/games/flpybird/Tupfile.lua

@@ -0,0 +1,12 @@
+if tup.getconfig("NO_TCC") ~= "" then return end
+if tup.getconfig("HELPERDIR") == ""
+then
+  HELPERDIR = "../../../programs"
+end
+tup.include(HELPERDIR .. "/use_tcc.lua")
+
+SRCS = {
+    "flpybird.c"
+}
+
+link_tcc(SRCS, "flpybird");

programs/games/flpybird/flpybird.c

@@ -0,0 +1,352 @@
+// SPDX-License-Identifier: GPL-2.0-only
+//
+// Floppy Bird - Infinite flopping game
+// Copyright (C) 2021-2025 KolibriOS team
+//
+// Contributor zorggish - Main code
+// Contributor Burer - Rewrite to C
+
+#include <sys/ksys.h>
+
+#include "images.h"
+
+/* ===== Global const strings ===== */
+
+static const char HEADER_STRING[]   = "Floppy Bird";
+static const char CONTROL_STRING[]  = "SPACEBAR TO JUMP";
+static const char GAMEOVER_STRING[] = "GAME OVER";
+static const char SPA_KEY_STRING[]  = "PRESS SPACEBAR FOR RESTART";
+static const char ESC_KEY_STRING[]  = "PRESS ESCAPE FOR MENU";
+static const char FAST_STRING[]     = "1 - FAST";
+static const char SLOW_STRING[]     = "2 - SLOW";
+
+/* ===== Global window variables ===== */
+
+#define WIN_W 400
+#define WIN_H 376
+#define WIN_B 5
+#define WIN_S 10
+
+static int WIN_X;
+static int WIN_Y;
+static int WIN_T;
+
+/* ===== Global game variables ===== */
+
+#define GAMESTATE_MENU     0
+#define GAMESTATE_STARTED  1
+#define GAMESTATE_GAMEOVER 2
+
+static int  game_rng;
+static int  game_speed = 1;
+static int  game_pause = 0;
+static char game_score[] = "Score: 000";
+static int  game_state;
+
+/* ===== Bird ===== */
+
+#define BIRD_W 19
+#define BIRD_H 20
+#define BIRD_X 100
+
+static int bird_pos;
+static int bird_acc;
+
+static void Bird_initialize(void) {
+    bird_pos = (WIN_H + WIN_T) / 2;
+    bird_acc = 0;
+}
+
+static void Bird_move(void) {
+    bird_acc += (bird_acc <= 30) * 2; // 2 or 0
+    bird_pos += bird_acc / 10;
+}
+
+static void Bird_jump(void) {
+    bird_acc = -50;
+}
+
+/* ===== Tube ===== */
+
+#define TUBE_WIDTH      50
+#define TUBE_GAPHEIGHT  100
+#define TUBE_HEADHEIGHT 18
+
+#define tube_num        3
+
+static int tube_pos[tube_num];
+static int tube_gap[tube_num];
+
+static void Tube_randomize(int t) {
+    int x = game_rng; x ^= x << 13; x ^= x >> 17; x ^= x << 5; game_rng = x;
+    int r = x & 255u;
+    if (r >= WIN_H / 2)
+        r -= 256 - WIN_H / 2;
+    tube_pos[t] = WIN_W + 1;
+    tube_gap[t] = r + (WIN_H / 2 - TUBE_GAPHEIGHT - WIN_B) / 2;
+}
+
+static void Tube_move(int t) {
+    tube_pos[t] -= 2;
+    if (tube_pos[t] < -TUBE_WIDTH - 2)
+        Tube_randomize(t);
+}
+
+static void Tube_draw(int t) {
+    /* cleanup */
+    int pixels = WIN_W - WIN_S - TUBE_WIDTH - tube_pos[t];
+    if (pixels > 0) {
+        if (pixels > 2)
+            pixels = 2;
+        _ksys_draw_bar(tube_pos[t] + TUBE_WIDTH, tube_gap[t] - TUBE_HEADHEIGHT, pixels, TUBE_HEADHEIGHT, GAME_PALETTE[0]);
+        _ksys_draw_bar(tube_pos[t] + TUBE_WIDTH, tube_gap[t] + TUBE_GAPHEIGHT , pixels, TUBE_HEADHEIGHT, GAME_PALETTE[0]);
+    }
+    if (tube_pos[t] < 0) {
+        int w = -tube_pos[t];
+        if (w > 2)
+            w = 2;
+        _ksys_draw_bar(0, tube_gap[t] - TUBE_HEADHEIGHT, w, TUBE_HEADHEIGHT, GAME_PALETTE[0]);
+        _ksys_draw_bar(0, tube_gap[t] + TUBE_GAPHEIGHT , w, TUBE_HEADHEIGHT, GAME_PALETTE[0]);
+    }
+
+    int offset = tube_pos[t] >= 0 ? 0 : -tube_pos[t];
+    int trim   = (tube_pos[t] + TUBE_WIDTH >= WIN_W - WIN_S)
+               ? WIN_W - tube_pos[t] - TUBE_WIDTH - WIN_S : 0;
+
+    if (offset >= TUBE_WIDTH + trim)
+        return;
+
+    /* top */
+    for (int y = 0; y < tube_gap[t] - TUBE_HEADHEIGHT; ++y)
+        ksys_draw_bitmap_palette(
+            TUBE_BODY_IMAGE + offset,
+            tube_pos[t] + offset, y, TUBE_WIDTH - offset + trim, 1, 8, GAME_PALETTE, 0
+        );
+
+    /* head top */
+    for (int y = tube_gap[t] - TUBE_HEADHEIGHT; y < tube_gap[t]; ++y)
+        ksys_draw_bitmap_palette(
+            TUBE_HEAD_IMAGE + TUBE_WIDTH * (y - tube_gap[t] + TUBE_HEADHEIGHT) + offset,
+            tube_pos[t] + offset, y, TUBE_WIDTH - offset + trim, 1, 8, GAME_PALETTE, 0
+        );
+    /* head down */
+    for (int y = tube_gap[t] + TUBE_GAPHEIGHT; y < tube_gap[t] + TUBE_GAPHEIGHT + TUBE_HEADHEIGHT; ++y)
+        ksys_draw_bitmap_palette(
+            TUBE_HEAD_IMAGE + TUBE_WIDTH * (y - tube_gap[t] - TUBE_GAPHEIGHT) + offset,
+            tube_pos[t] + offset, y, TUBE_WIDTH - offset + trim, 1, 8, GAME_PALETTE, 0
+        );
+    /* down */
+    for (int y = tube_gap[t] + TUBE_GAPHEIGHT + TUBE_HEADHEIGHT; y < WIN_H - WIN_B; ++y)
+        ksys_draw_bitmap_palette(
+            TUBE_BODY_IMAGE + offset,
+            tube_pos[t] + offset, y, TUBE_WIDTH - offset + trim, 1, 8, GAME_PALETTE, 0
+        );
+}
+
+/* ===== Functions - Helpers ===== */
+
+static void WriteBorderedText(int x, int y, const char* textPtr, int textLen, int fontType) {
+    for (int bx = x + 2; bx >= x - 2; --bx) {
+        for (int by = y + 2; by >= y - 2; --by) {
+            _ksys_draw_text(textPtr, bx, by, textLen, fontType);
+        }
+    }
+    _ksys_draw_text(textPtr, x, y, textLen, fontType | 0x00FFFFFF);
+}
+
+/* ===== Functions - Game Logic ===== */
+
+static inline int checkCollision(int t) {
+    return ((tube_pos[t] <= (BIRD_X + BIRD_W) && tube_pos[t] + TUBE_WIDTH >= BIRD_X)
+        && (bird_pos <= tube_gap[t] || bird_pos + BIRD_H >= tube_gap[t] + TUBE_GAPHEIGHT)) ? 1 : 0;
+}
+
+static inline int checkAddScore(int t) {
+    int r = tube_pos[t] + TUBE_WIDTH;
+    return (r + 2 >= BIRD_X) & (r < BIRD_X);
+}
+
+static void updateScoreString(void) {
+    for (int i = 9; i >= 6; --i) {
+        if (++game_score[i] <= '9') return;
+        game_score[i] = '0';
+    }
+}
+
+/* ===== Functions - Game Drawing ===== */
+
+static inline void createGameWindow(void) {
+    _ksys_create_window(WIN_X, WIN_Y, WIN_W, WIN_H + WIN_T, HEADER_STRING, GAME_PALETTE[0], 0x34);
+}
+
+static void redrawGameWindow(void) {
+    /* cleaning the score area */
+
+    int move = bird_acc / 10;
+    if (move < 0)
+        move = -move;
+    _ksys_draw_bar(BIRD_X, bird_pos - move, BIRD_W, move * 2 + BIRD_H, GAME_PALETTE[0]);
+
+    ksys_draw_bitmap_palette(BIRD_IMAGE, BIRD_X, bird_pos, BIRD_W, BIRD_H, 8, GAME_PALETTE, 0);
+
+    Tube_draw(0); Tube_draw(1); Tube_draw(2);
+
+    WriteBorderedText(10, 10, game_score, 0, 0x81000000);
+}
+
+static void drawGameOverWindow(void) {
+    createGameWindow();
+
+    WriteBorderedText(116, 100, GAMEOVER_STRING, 0, 0x82000000);
+    WriteBorderedText(136, 157,      game_score, 0, 0x81000000);
+    WriteBorderedText( 40, 207,  SPA_KEY_STRING, 0, 0x81000000);
+    WriteBorderedText( 70, 241,  ESC_KEY_STRING, 0, 0x81000000);
+}
+
+static void drawMenuWindow(void) {
+    createGameWindow();
+
+    WriteBorderedText( 88, 34, HEADER_STRING,     6, 0x04000000);
+    WriteBorderedText(188, 87, HEADER_STRING + 7, 4, 0x04000000);
+
+    char* pos = &TUBE_HEAD_IMAGE[0];
+    for (int x = 50 - 1; x >= 50 - TUBE_HEADHEIGHT; --x) {
+        for (int y = 156; y < 156 + TUBE_WIDTH; ++y) {
+            ksys_draw_bitmap_palette(pos, x, y     , 1, 1, 8, GAME_PALETTE, 0);
+            ksys_draw_bitmap_palette(pos, x, y + 82, 1, 1, 8, GAME_PALETTE, 0);
+            ++pos;
+        }
+    }
+
+    for (int x = 50; x < WIN_W - WIN_S; ++x)
+    {
+        ksys_draw_bitmap_palette(TUBE_BODY_IMAGE, x, 156, 1, TUBE_WIDTH, 8, GAME_PALETTE, 0);
+        ksys_draw_bitmap_palette(TUBE_BODY_IMAGE, x, 238, 1, TUBE_WIDTH, 8, GAME_PALETTE, 0);
+    }
+
+    WriteBorderedText(139, 171,    FAST_STRING, 0, 0x82000000);
+    WriteBorderedText(139, 253,    SLOW_STRING, 0, 0x82000000);
+
+    // Control hint
+    WriteBorderedText(100, 322, CONTROL_STRING, 0, 0x81000000);
+}
+
+/* ===== Functions - Game Main ===== */
+
+static void startGame(void) {
+    createGameWindow();
+
+    game_score[7] = game_score[8] = game_score[9] = '0';
+
+    Bird_initialize();
+
+    const int spacing = (WIN_W + TUBE_WIDTH) / 3;
+    for (int i = tube_num - 1; i >= 0; --i) {
+        Tube_randomize(i);
+        tube_pos[i] = WIN_W + i * spacing;
+    }
+
+    game_state = GAMESTATE_STARTED;
+}
+
+static void frameGame(void) {
+    Bird_move();
+
+    /* Processing all tubes */
+    for (int i = tube_num - 1; i >= 0; --i) {
+        /* Adding score */
+        if (checkAddScore(i)) {
+           updateScoreString();
+           _ksys_draw_bar(92, 8, 38, 18, GAME_PALETTE[0]);
+        }
+
+        /* Check collision with bird */
+        if (checkCollision(i))
+            goto game_over;
+
+        /* Move tube */
+        Tube_move(i);
+    }
+
+    /* Checking bird is too high or low */
+    if (bird_pos + BIRD_H > WIN_H - WIN_B || bird_pos < 0)
+        goto game_over;
+
+    redrawGameWindow();
+    return;
+
+    game_over:
+    game_state = GAMESTATE_GAMEOVER;
+    drawGameOverWindow();
+    return;
+}
+
+int main(void) {
+    /* Setting RNG seed */
+    ksys_time_t t = _ksys_get_time();
+    game_rng = (int)t.val | 1u;
+
+    /* Centering window */
+    ksys_pos_t screen = _ksys_screen_size();
+    WIN_X = (screen.x - WIN_W) / 2;
+    WIN_Y = (screen.y - WIN_H) / 2;
+    WIN_T = _ksys_get_skin_height();
+
+    game_state = GAMESTATE_MENU;
+
+    for (;;) {
+        _ksys_delay(game_speed);
+
+        switch (_ksys_check_event()) {
+            case KSYS_EVENT_NONE:
+                if (game_state == GAMESTATE_STARTED)
+                    frameGame();
+                break;
+
+            case KSYS_EVENT_REDRAW: {
+                switch (game_state) {
+                    case GAMESTATE_MENU:     drawMenuWindow();     break;
+                    case GAMESTATE_STARTED:  redrawGameWindow();   break;
+                    case GAMESTATE_GAMEOVER: drawGameOverWindow(); break;
+                }
+                break;
+            }
+
+            case KSYS_EVENT_KEY: {
+                ksys_oskey_t k = _ksys_get_key();
+                switch (game_state) {
+                    case GAMESTATE_MENU: {
+                        unsigned kc = k.code - 49; // 1 or 2
+                        if (kc <= 1) {
+                            game_speed = kc + 1;
+                            startGame();
+                        }
+                        break;
+                    }
+                    case GAMESTATE_STARTED: {
+                        if (k.code == 32) // SPACE
+                            Bird_jump();
+                        break;
+                    }
+                    case GAMESTATE_GAMEOVER: {
+                        if (k.code == 32) // SPACE
+                            startGame();
+                        if (k.code == 27) // ESCAPE
+                        {
+                            game_state = GAMESTATE_MENU;
+                            drawMenuWindow();
+                        }
+                        break;
+                    }
+                }
+                break;
+            }
+
+            case KSYS_EVENT_BUTTON:
+                _ksys_exit();
+                break;
+        }
+    }
+
+    return 0;
+}

programs/games/flpybird/images.h

@@ -0,0 +1,74 @@
+// SPDX-License-Identifier: GPL-2.0-only
+//
+// Floppy Bird - Infinite flopping game
+// Copyright (C) 2021-2025 KolibriOS team
+//
+// Contributor zorggish - Main code
+// Contributor Burer - Rewrite to C
+
+#pragma once
+
+static const int GAME_PALETTE[77] = {
+    // Shared colors
+    0x0000FFFF, 0x00E0E080, 0x00C0C080, 0x0080A040, 0x00A0C040, 0x00A0C080, 0x00A0E040, 0x0060A040,
+    0x00C0E080,
+    // Bird-only colors
+    0x00C08040, 0x00608080, 0x0040C0C0, 0x00E0C080, 0x00806040, 0x00C0DCC0, 0x00A06040, 0x0080C0C0,
+    0x00E0A040, 0x0020C0C0, 0x00C06040, 0x00C0A080, 0x00A0A080, 0x00800040, 0x00E02080, 0x00E060C0,
+    0x00808080, 0x00E020C0, 0x00E0A0C0, 0x00804080, 0x00FFFBF0, 0x00E040C0, 0x00002040, 0x00404040,
+    0x00806080, 0x00A08080, 0x00E0E000, 0x00A0A0A4, 0x0020A080, 0x0040A0C0, 0x0060C0C0, 0x00E0C040,
+    0x00C00080, 0x00FFFF00, 0x00C0A040, 0x0060A080, 0x0080A080, 0x00C0C0C0, 0x00E0E040, 0x00C0E000,
+    0x0080E080, 0x00A0A040, 0x0040C080, 0x0060E080, 0x00606080, 0x00C0C040, 0x00C0C000, 0x00808040,
+    0x00C0E040, 0x00A0C000, 0x006080C0, 0x00A0C0C0, 0x00A0E080,
+    // Tube-only colors
+    0x00000000, 0x00608040,
+    0x0080E040, 0x0080C040, 0x0060A000, 0x0040A000, 0x00408000, 0x00204000, 0x00206000, 0x00200040,
+    0x00402000, 0x00608000, 0x00406000, 0x0060C000, 0x00402040
+};
+
+static const char BIRD_IMAGE[380] = {
+     0,  0,  0,  0,  0,  0,  0,  0,  0,  9,  9,  9, 10,  0,  0,  0,  0,  0,  0,  0,
+    11,  0,  0,  0,  0,  0,  0,  9, 12,  9, 12, 13,  0,  0,  0,  0,  0,  0, 14, 15,
+    16,  0,  0,  0,  0, 16, 17,  1, 12,  1, 13,  0,  0,  0,  0,  0,  0,  9, 12, 15,
+    18,  0,  0,  0, 19, 12, 20, 20, 21, 13,  0,  0,  0,  0,  0,  0,  9, 12,  1, 15,
+    18,  0,  0, 15,  9, 22, 22, 23, 24, 11,  0,  0,  0,  0,  0, 15,  9,  1, 14, 15,
+    18, 18, 19, 25, 23, 26, 23, 27, 28, 11,  0,  0,  0,  0,  9, 17, 12,  1, 29, 13,
+    19, 14, 22, 30, 30, 31,  1, 21, 32, 32, 33, 33, 34, 15, 17,  9, 12, 29, 14, 15,
+    14, 26, 12, 12,  1, 35, 36, 20, 37, 38, 38, 39, 18, 15, 17,  9, 40, 29,  2,  3,
+    41, 42, 42,  1, 43, 21, 44,  0,  0,  0,  0,  0, 45,  9, 17, 17, 12, 29, 46, 40,
+    47, 48,  2, 21, 46,  0,  0,  0,  0,  0,  0, 11, 45, 17, 12, 40,  1, 49, 48,  1,
+     1,  1, 20,  0,  0,  0,  0,  0,  0,  0,  0, 11, 15,  4, 50,  5, 48, 48,  1,  1,
+     1,  1, 51,  0,  0,  0,  0,  0, 52, 14,  0, 16, 53, 53,  6, 48, 35,  1,  1,  1,
+    54,  7,  0,  0,  0,  0,  0,  8, 55, 35, 14,  3,  6,  4, 48,  1,  1,  1, 48, 55,
+     7,  0,  0,  0,  0,  0, 36, 21,  6, 48, 45,  4, 48, 47,  1,  1, 48,  6, 56, 18,
+     0,  0,  0,  0,  0,  8, 35, 21, 45,  4, 47, 47, 47, 57, 48,  6, 56,  5,  0,  0,
+     0,  0,  0,  0, 45, 58, 48,  6,  4, 48, 48, 48, 48,  6,  3, 16,  0,  0,  0,  0,
+     0,  0,  0, 58, 59,  4, 48, 48, 48, 48,  4,  3, 56, 60,  0,  0,  0,  0,  0,  0,
+     0,  0, 45,  5, 48,  6, 57, 56, 56, 56, 60, 18,  0,  0,  0,  0,  0,  0,  0,  0,
+     0, 61, 56, 50, 56, 56, 16, 60, 18,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0
+};
+
+static const char TUBE_BODY_IMAGE[50] = {
+     0,  0, 62, 63, 64,  1,  6,  6, 65, 65, 65, 65, 64, 66, 66, 64, 64, 66, 67, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 67, 66, 68, 68, 69, 66, 68, 68, 69, 70, 69, 71,  0,  0
+};
+
+static const char TUBE_HEAD_IMAGE[900] = {
+    71, 71, 71, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, 71, 71, 71, 71, 71,
+    72, 68, 68, 63,  3,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  2,  4,  7,  7,  5,  5,  7,  7,  3,  7,  7,  7,  7,  7,  3,  3,  3,  3, 73, 74, 69, 69, 72,
+    72, 75, 75, 65,  6,  1,  1,  1,  1,  8,  8,  8,  1,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8,  8, 65, 65,  8,  8, 65, 65, 64, 65, 65, 64, 64, 64, 65, 65, 65, 64, 66, 68, 70, 70, 72,
+    76, 64, 64,  8,  1, 65, 65, 65, 65, 67, 66, 66, 64, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 69, 74, 74, 66, 70, 69, 70, 70, 72,
+    76, 64, 64,  8,  1, 65, 65, 65, 65, 66, 66, 66, 64, 66, 67, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 70, 74, 74, 66, 70, 70, 70, 70, 72,
+    76, 64, 64,  8,  1, 65, 65, 65, 65, 66, 66, 66, 64, 66, 67, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 70, 74, 74, 66, 70, 69, 70, 70, 72,
+    76, 64, 64,  8,  1, 65, 65, 65, 65, 66, 66, 66, 64, 66, 67, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 70, 74, 74, 66, 70, 69, 70, 70, 72,
+    76, 64, 64,  8,  1, 65, 65, 65, 65, 66, 66, 66, 64, 66, 67, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 70, 74, 74, 66, 70, 69, 70, 70, 72,
+    76, 64, 64,  8,  1, 65, 65, 65, 65, 66, 66, 66, 64, 66, 67, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 70, 74, 74, 66, 70, 69, 70, 70, 72,
+    76, 64, 64,  8,  1, 65, 65, 65, 65, 66, 66, 66, 64, 66, 67, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 70, 74, 74, 66, 70, 69, 70, 70, 72,
+    76, 64, 64,  8,  1, 65, 65, 65, 65, 66, 66, 66, 64, 66, 67, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 70, 74, 74, 66, 70, 69, 70, 70, 72,
+    76, 64, 64,  8,  1, 65, 65, 65, 65, 66, 66, 66, 64, 66, 67, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 70, 74, 74, 66, 70, 69, 70, 70, 72,
+    76, 64, 64,  8,  1, 65, 65, 65, 65, 66, 66, 66, 64, 66, 67, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 70, 74, 74, 66, 70, 69, 70, 70, 72,
+    76, 64, 64,  8,  1, 65, 65, 65, 65, 67, 66, 66, 64, 66, 67, 66, 66, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 67, 66, 70, 74, 74, 66, 70, 69, 70, 70, 72,
+    76, 64, 64,  8,  1, 64, 64, 64, 64, 66, 75, 75,  6, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 66, 70, 74, 74, 66, 70, 69, 70, 70, 72,
+    72, 68, 68, 73, 63, 68, 68, 68, 68, 74, 68, 68, 68, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 70, 70, 70, 74, 70, 70, 70, 70, 72,
+    72, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, 70, 70, 72,
+    71, 71, 71, 71, 62, 62, 62, 62, 62, 62, 62, 62, 62, 71, 71, 62, 62, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, 71
+};

programs/games/whowtbam/wwtbam.cpp

@@ -1,4 +1,4 @@
-// ╚ёїюфэшъ шуЁ√ "╩Єю їюўхЄ с√Є№ ьшыышюэхЁюь?" фы  ╩юышсЁш ╬╤
+// ╚ёїюфэшъ шуЁ√ "╩Єю їюўхЄ с√Є№ ьшыышюэхЁюь?" фы  ╩юышсЁш╬╤
 // by └эфЁхщ ╠шїрщыютшў (Dron2004)
 
 #include <kosSyst.h>
@@ -83,7 +83,7 @@ void getFilePathName(){
 	for (tmpcnt=0; tmpcnt<strlen(ourfilename); tmpcnt++){
 		filepathname[tmpcnt+lastslashindex+1]=ourfilename[tmpcnt];
 	}
-	
+
 }
 
 void prepareFileData() { //╧ЁхфтрЁшЄхы№э√х яюфёў╕Є√
@@ -105,22 +105,22 @@ void loadquestion(){
 	int qcodee;
 
 	int skipsleft;
-	
+
 regenerate:
-	qcodee=(rtlRand()%questioncount)+1; 
-   
+	qcodee=(rtlRand()%questioncount)+1;
+
 	Byte inputbyte[1]={0x00};
-   
+
 	//╧хЁт√щ яЁюїюф - яЁютхЁ хь ёыюцэюёЄ№ ш ёўшЄрхь фышэ√ ёЄЁюъ
 	tempquestionlength = 0;
 	tempanswerAlength = 0;
 	tempanswerBlength = 0;
 	tempanswerClength = 0;
 	tempanswerDlength = 0;
-	
 
-	skipsleft=qcodee; 
-	CKosFile basefile(filepathname);	
+
+	skipsleft=qcodee;
+	CKosFile basefile(filepathname);
 	//═рщф╕ь Єю ьхёЄю, юЄъєфр эрўшэрхЄё  эр° тюяЁюё
 	while (skipsleft>0){
 		basefile.Read (inputbyte,1);
@@ -132,7 +132,7 @@ regenerate:
 
 	//╧ЁютхЁшь ёыюцэюёЄ№
 	basefile.Read (inputbyte,1);
-	
+
 	// ═рь эєцэю, ўЄюс√ ёыюцэюёЄ№ чрфртрхьюую тюяЁюёр ёююЄтхЄёЄтютрыр эюьхЁє чрфртрхьюую
 	// т шуЁх тюяЁюёр (эр ъръє■ ёєььє ь√ шуЁрхь; тюяЁюё эр 1000000 фюыцхэ с√Є№ яюёыюцэхх,
 	// ўхь тюяЁюё эр 100 Ёєсыхщ :-)))
@@ -155,7 +155,7 @@ regenerate:
 			goto regenerate;
 		}
 	}
-	
+
 
 	for (int counter=0; counter <currentquestion; counter++){
 		if (askedquestions[counter]==qcodee){goto regenerate;}
@@ -163,7 +163,7 @@ regenerate:
 
 
 	askedquestions[currentquestion-1]=qcodee;
-	
+
 
 	inputbyte[0]=0x00;
 	//╤ўшЄрхь, ёъюы№ъю ёшьтюыют т тюяЁюёх
@@ -210,12 +210,12 @@ regenerate:
 	tempanswerD = new char[tempanswerDlength+1];
 
 
- 
+
 	// ┬╥╬╨╬╔ ╧╨╬╒╬─: ╘╬╨╠╚╨╙┼╠ ┬ ╧└╠▀╥╚ ┬╬╧╨╬╤ ╚ ┬└╨╚└═╥█ ╬╥┬┼╥└
 	CKosFile basefile2(filepathname);
 	inputbyte[0]=0x00;
-	skipsleft=qcodee; 
-	
+	skipsleft=qcodee;
+
 	//═рщф╕ь Єю ьхёЄю, юЄъєфр эрўшэрхЄё  эр° тюяЁюё
 	while (skipsleft>0){
 		basefile2.Read (inputbyte,1);
@@ -224,11 +224,11 @@ regenerate:
 		}
 		inputbyte[0]=0x00;
 	}
-	
+
 	basefile2.Read (inputbyte,1); // ▌Єю - ёыюцэюёЄ№ тюяЁюёр. ╠√ х╕ єцх яЁютхЁшыш.
 
 	//╫шЄрхь тюяЁюё
-	int currentbyte=0; 
+	int currentbyte=0;
 	while (inputbyte[0]!=0x01){
 		basefile2.Read (inputbyte,1);
 		if (inputbyte[0]!=0x01){tempquestion[currentbyte]=inputbyte[0];}
@@ -237,7 +237,7 @@ regenerate:
 	tempquestion[currentbyte]='\n';
 
 	//╫шЄрхь юЄтхЄ A
-	currentbyte=0; 
+	currentbyte=0;
 	while (inputbyte[0]!=0x02){
 		basefile2.Read (inputbyte,1);
 		if (inputbyte[0]!=0x02){tempanswerA[currentbyte]=inputbyte[0];}
@@ -246,7 +246,7 @@ regenerate:
 	tempanswerA[currentbyte]='\n';
 
 	//╫шЄрхь юЄтхЄ B
-	currentbyte=0; 
+	currentbyte=0;
 	while (inputbyte[0]!=0x03){
 		basefile2.Read (inputbyte,1);
 		if (inputbyte[0]!=0x03){tempanswerB[currentbyte]=inputbyte[0];}
@@ -255,7 +255,7 @@ regenerate:
 	tempanswerB[currentbyte]='\n';
 
 	//╫шЄрхь юЄтхЄ C
-	currentbyte=0; 
+	currentbyte=0;
 	while (inputbyte[0]!=0x04){
 		basefile2.Read (inputbyte,1);
 		if (inputbyte[0]!=0x04){tempanswerC[currentbyte]=inputbyte[0];}
@@ -264,7 +264,7 @@ regenerate:
 	tempanswerC[currentbyte]='\n';
 
 	//╫шЄрхь юЄтхЄ D
-	currentbyte=0; 
+	currentbyte=0;
 	while (inputbyte[0]!=0x08){
 		basefile2.Read (inputbyte,1);
 		if (inputbyte[0]!=0x08){tempanswerD[currentbyte]=inputbyte[0];}
@@ -275,7 +275,7 @@ regenerate:
 	basefile2.Read (inputbyte,1); // ▌Єю-яЁртшы№э√щ юЄтхЄ
 	tempcorrectanswer=inputbyte[0];
 	// ┬╤и!!!!!! ├╬╥╬┬╬!!!! ╙╨└!
-	
+
 	//╤ўшЄрыш. ╥хяхЁ№ эрфю яхЁхЄрёютрЄ№ тюяЁюё√.
 	questionlength = 0;
 	answerAlength = 0;
@@ -297,7 +297,7 @@ regenerate:
 	bool answerDfree = true;
 
 	int tmpvalue=0;
-	
+
 	//╧хЁт√щ тюяЁюё
 regenA:
 	tmpvalue = (rtlRand() % 4) +1;
@@ -306,7 +306,7 @@ regenA:
 			answerAfree=false;
 			answerAlength=tempanswerAlength;
 			answerA= new char [answerAlength];
-			
+
 			for (int c=0; c<answerAlength; c++){
 				answerA[c]=tempanswerA[c];
 			}
@@ -322,7 +322,7 @@ regenA:
 			answerBfree=false;
 			answerBlength=tempanswerAlength;
 			answerB= new char [answerBlength];
-			
+
 			for (int c=0; c<answerBlength; c++){
 				answerB[c]=tempanswerA[c];
 			}
@@ -338,7 +338,7 @@ regenA:
 			answerCfree=false;
 			answerClength=tempanswerAlength;
 			answerC= new char [answerClength];
-			
+
 			for (int c=0; c<answerClength; c++){
 				answerC[c]=tempanswerA[c];
 			}
@@ -354,7 +354,7 @@ regenA:
 			answerDfree=false;
 			answerDlength=tempanswerAlength;
 			answerD= new char [answerDlength];
-			
+
 			for (int c=0; c<answerDlength; c++){
 				answerD[c]=tempanswerA[c];
 			}
@@ -374,7 +374,7 @@ regenB:
 			answerAfree=false;
 			answerAlength=tempanswerBlength;
 			answerA= new char [answerAlength];
-			
+
 			for (int c=0; c<answerAlength; c++){
 				answerA[c]=tempanswerB[c];
 			}
@@ -390,7 +390,7 @@ regenB:
 			answerBfree=false;
 			answerBlength=tempanswerBlength;
 			answerB= new char [answerBlength];
-			
+
 			for (int c=0; c<answerBlength; c++){
 				answerB[c]=tempanswerB[c];
 			}
@@ -406,7 +406,7 @@ regenB:
 			answerCfree=false;
 			answerClength=tempanswerBlength;
 			answerC= new char [answerClength];
-			
+
 			for (int c=0; c<answerClength; c++){
 				answerC[c]=tempanswerB[c];
 			}
@@ -422,7 +422,7 @@ regenB:
 			answerDfree=false;
 			answerDlength=tempanswerBlength;
 			answerD= new char [answerDlength];
-			
+
 			for (int c=0; c<answerDlength; c++){
 				answerD[c]=tempanswerB[c];
 			}
@@ -442,7 +442,7 @@ regenC:
 			answerAfree=false;
 			answerAlength=tempanswerClength;
 			answerA= new char [answerAlength];
-			
+
 			for (int c=0; c<answerAlength; c++){
 				answerA[c]=tempanswerC[c];
 			}
@@ -458,7 +458,7 @@ regenC:
 			answerBfree=false;
 			answerBlength=tempanswerClength;
 			answerB= new char [answerBlength];
-			
+
 			for (int c=0; c<answerBlength; c++){
 				answerB[c]=tempanswerC[c];
 			}
@@ -474,7 +474,7 @@ regenC:
 			answerCfree=false;
 			answerClength=tempanswerClength;
 			answerC= new char [answerClength];
-			
+
 			for (int c=0; c<answerClength; c++){
 				answerC[c]=tempanswerC[c];
 			}
@@ -490,7 +490,7 @@ regenC:
 			answerDfree=false;
 			answerDlength=tempanswerClength;
 			answerD= new char [answerDlength];
-			
+
 			for (int c=0; c<answerDlength; c++){
 				answerD[c]=tempanswerC[c];
 			}
@@ -510,7 +510,7 @@ regenD:
 			answerAfree=false;
 			answerAlength=tempanswerDlength;
 			answerA= new char [answerAlength];
-			
+
 			for (int c=0; c<answerAlength; c++){
 				answerA[c]=tempanswerD[c];
 			}
@@ -526,7 +526,7 @@ regenD:
 			answerBfree=false;
 			answerBlength=tempanswerDlength;
 			answerB= new char [answerBlength];
-			
+
 			for (int c=0; c<answerBlength; c++){
 				answerB[c]=tempanswerD[c];
 			}
@@ -542,7 +542,7 @@ regenD:
 			answerCfree=false;
 			answerClength=tempanswerDlength;
 			answerC= new char [answerClength];
-			
+
 			for (int c=0; c<answerClength; c++){
 				answerC[c]=tempanswerD[c];
 			}
@@ -558,7 +558,7 @@ regenD:
 			answerDfree=false;
 			answerDlength=tempanswerDlength;
 			answerD= new char [answerDlength];
-			
+
 			for (int c=0; c<answerDlength; c++){
 				answerD[c]=tempanswerD[c];
 			}
@@ -585,7 +585,7 @@ void draw_window(void){ //
 	kos_WindowRedrawStatus(1);
 	kos_DefineAndDrawWindow(10,10,619,179+kos_GetSkinHeight(),0x74, 0xDDDDFF, 0,0, (Dword)header);
 	kos_WindowRedrawStatus(2);
-	
+
 	kos_ProcessInfo( &sPI );
 	if (sPI.rawData[70]&0x04) return; //эшўхую эх фхырЄ№ хёыш юъэю ёїыюяэєЄю т чруюыютюъ
 
@@ -593,9 +593,9 @@ void draw_window(void){ //
 	if (status==0){ //╠хэ■
 		kos_DrawBar(0,0,610,175,0xFFFFBB);
                 kos_WriteTextToWindow (10,10,0x80,0x000000, "Кто хочет быть миллионером?", 3);
-		
+
 		kos_WriteTextToWindow (10,25,0x80,0x000000, sVersion, 3);
-		
+
                 kos_WriteTextToWindow (10,70,0x80,0x770000, "<ENTER> - начать игру", 0);
                 kos_WriteTextToWindow (10,85,0x80,0x770000, "<ESC> - выход", 0);
 
@@ -607,7 +607,7 @@ void draw_window(void){ //
 		kos_DrawBar(0,0,610,175,0xEEEEFF);
 
 		kos_WriteTextToWindow (10,10,0x0,0x000000, question, questionlength-1);
-		
+
 		if (drawA==true){
 			kos_WriteTextToWindow (10,40,0x80,0x000000, "A. ", 0);
 			kos_WriteTextToWindow (30,40,0x0,0x000000, answerA, answerAlength-1);
@@ -637,12 +637,12 @@ void draw_window(void){ //
 		kos_WriteTextToWindow (500,150,0x80,0x000000, summs[currentquestion-1], 0);
 
 
-	
+
 	}
 	if (status==2){ //╬ъэю "▌Єю - яЁртшы№э√щ юЄтхЄ"
 		kos_DrawBar(0,0,610,175,0xDDFFDD);
                 kos_WriteTextToWindow (10,10,0x80,0x000000, "Да, это правильный ответ!", 0);
-		
+
                 kos_WriteTextToWindow (10,150,0x80,0x000000, "<ENTER> - продолжить", 0);
 	}
 	if (status==3){ //┬√ т√шуЁрыш ьшыышюэ, юфэръю ц!!!
@@ -683,7 +683,7 @@ void draw_window(void){ //
 
 
 
-	
+
                 kos_WriteTextToWindow (10,150,0x80,0x000000, "<ENTER> - продолжить", 0);
 	}
 
@@ -696,7 +696,7 @@ void draw_window(void){ //
 	if (status==-1){ //┬√ ю°шсышё№ :-(
 		kos_DrawBar(0,0,610,175,0xFF8888);
                 kos_WriteTextToWindow (10,10,0x80,0x000000, "К сожалению, вы ошиблись... Правильный ответ -", 0);
-		
+
 		switch (correctanswer){
 		case 0x01:
 			kos_WriteTextToWindow (10,25,0x80,0x000000, "A. ", 0);
@@ -716,7 +716,7 @@ void draw_window(void){ //
 			break;
 		}
         kos_WriteTextToWindow (10,50,0x80,0x000000, "В результате вы выиграли:", 0);
-	
+
 	if (currentquestion<6) {kos_WriteTextToWindow (220,50,0x80,0x000000,summs[0], 0);}
 	if ((currentquestion>5)&&(currentquestion<11)) {kos_WriteTextToWindow (220,50,0x80,0x000000,summs[5], 0);}
 	if (currentquestion>10) {kos_WriteTextToWindow (220,50,0x80,0x000000,summs[10], 0);}
@@ -733,9 +733,9 @@ void draw_window(void){ //
 
 void call_friend(){
 	int tmpcodee;
-						
+
 	recode5:
-	tmpcodee =(rtlRand()%10)+1; 
+	tmpcodee =(rtlRand()%10)+1;
 	int tmpbyte;
 
 	if (currentquestion < 6 ){
@@ -747,7 +747,7 @@ void call_friend(){
 		}
 		else //─Ёєу уютюЁшЄ эрєурф
 		{
-			
+
 			int tmpbyte2=0;
 			recode51:
 			int tmpcodee2=(rtlRand()%4)+1;
@@ -779,7 +779,7 @@ void call_friend(){
 		}
 		else //─Ёєу уютюЁшЄ эрєурф
 		{
-			
+
 			int tmpbyte2=0;
 			recode52:
 			int tmpcodee2=(rtlRand()%4)+1;
@@ -917,7 +917,7 @@ void call_zal(){ //
 				zalA=100-zalD;
 			}
 		}
-		
+
 		if ((drawB==true)&&(drawC==true)){
 			if (correctanswer==0x02){
 				zalB=maxpercent;
@@ -940,7 +940,7 @@ void call_zal(){ //
 				zalB=100-zalD;
 			}
 		}
-		
+
 		if ((drawC==true)&&(drawD==true)){
 			if (correctanswer==0x03){
 				zalC=maxpercent;
@@ -1005,7 +1005,7 @@ void kos_Main(){
 					drawB = true;
 					drawC = true;
 					drawD = true;
-					
+
 					draw_window();
 			}
 			}
@@ -1023,8 +1023,8 @@ void kos_Main(){
 					drawB = true;
 					drawC = true;
 					drawD = true;
-					
-					draw_window();					
+
+					draw_window();
 				}
 			}
 			if (drawC==true){
@@ -1040,8 +1040,8 @@ void kos_Main(){
 					drawB = true;
 					drawC = true;
 					drawD = true;
-					
-					draw_window();					
+
+					draw_window();
 				}
 			}
 			if (drawD==true){
@@ -1057,11 +1057,11 @@ void kos_Main(){
 					drawB = true;
 					drawC = true;
 					drawD = true;
-					
+
 					draw_window();
 			}
 			}
-			
+
 			if (callfriendavailable==true){ //╨хрышчрЎш  яюфёърчъш "╟тюэюъ фЁєує"
 				if (keyCode==56){
 					callfriendavailable=false;
@@ -1082,17 +1082,17 @@ void kos_Main(){
 
 			if (na50available==true){ //╨хрышчрЎш  яюфёърчъш "50 эр 50"
 			if (keyCode==55){
-				
+
 				if (correctanswer==0x01){
 					drawA=true;
 
 						int tmpcodee;
-						
+
 						recode1:
-						tmpcodee =(rtlRand()%3)+1; 
-	
+						tmpcodee =(rtlRand()%3)+1;
+
 						int tmpbyte;
-						
+
 						switch(tmpcodee){
 						case 1:
 							drawB=true;
@@ -1107,19 +1107,19 @@ void kos_Main(){
 							drawB=false;
 							drawC=false;
 							drawD=true;
-						
+
 						}
 				}
 				if (correctanswer==0x02){
 					drawB=true;
 
 						int tmpcodee;
-						
+
 						recode2:
-						tmpcodee =(rtlRand()%3)+1; 
-	
+						tmpcodee =(rtlRand()%3)+1;
+
 						int tmpbyte;
-					
+
 
 						switch(tmpcodee){
 						case 1:
@@ -1135,18 +1135,18 @@ void kos_Main(){
 							drawA=false;
 							drawC=false;
 							drawD=true;
-						
+
 						}
 				}
 				if (correctanswer==0x03){
 					drawC=true;
 
 						int tmpcodee;
-						
+
 						recode3:
-						tmpcodee =(rtlRand()%3)+1; 
+						tmpcodee =(rtlRand()%3)+1;
 						int tmpbyte;
-						
+
 
 						switch(tmpcodee){
 						case 1:
@@ -1162,19 +1162,19 @@ void kos_Main(){
 							drawB=false;
 							drawA=false;
 							drawD=true;
-						
+
 						}
 				}
 				if (correctanswer==0x04){
 					drawA=true;
 
 						int tmpcodee;
-						
+
 						recode4:
-						tmpcodee =(rtlRand()%3)+1; 
-						
+						tmpcodee =(rtlRand()%3)+1;
+
 						int tmpbyte;
-						
+
 
 						switch(tmpcodee){
 						case 1:
@@ -1190,7 +1190,7 @@ void kos_Main(){
 							drawB=false;
 							drawC=false;
 							drawA=true;
-						
+
 						}
 				}
 				na50available=false;

programs/hd_load/usb_boot_old/usb_boot_1251.txt

@@ -1,12 +1,12 @@
-└тЄюЁ: Mario79 
-xx.01.2006 - эрсюЁ ёЄрЄ№ш 
-20.03.2006 - яєсышърЎш  ёЄрЄ№ш 
+└тЄюЁ: Mario79
+xx.01.2006 - эрсюЁ ёЄрЄ№ш
+20.03.2006 - яєсышърЎш  ёЄрЄ№ш
 23.03.2006 - шёяЁртыхэшх ш фюяюыэхэшх ёЄрЄ№ш
 26.02.2007 - яхЁхЁрсюЄрэю ш фюяюыэхэю т ёт чш ё шчьхэшт°шьшё  Ёхрыш ьш
 
-╟руЁєчър ╬╤ ╩юышсЁш ё USB Flash Drive
-═р ёхуюфэ °эшщ фхэ№ ╬╤ ╩юышсЁш эх шьххЄ яюффхЁцъш USB єёЄЁющёЄт эр єЁютэх ёрьющ ёшёЄхь√, яю ¤Єющ яЁшўшэх фы  чряєёър ё USB Flash эръюяшЄхыхщ яЁшїюфшЄё  шфЄш эр юяЁхфхыхээ√х їшЄЁюёЄш.
-╤є∙хёЄтєхЄ 2 шчтхёЄэ√ї ёяюёюср чряєёЄшЄ№ ╬╤ ╩юышсЁш ё лЇых°ъш╗.
+╟руЁєчър ╩юышсЁш╬╤ ё USB Flash Drive
+═р ёхуюфэ °эшщ фхэ№ ╩юышсЁш╬╤ эх шьххЄ яюффхЁцъш USB єёЄЁющёЄт эр єЁютэх ёрьющ ёшёЄхь√, яю ¤Єющ яЁшўшэх фы  чряєёър ё USB Flash эръюяшЄхыхщ яЁшїюфшЄё  шфЄш эр юяЁхфхыхээ√х їшЄЁюёЄш.
+╤є∙хёЄтєхЄ 2 шчтхёЄэ√ї ёяюёюср чряєёЄшЄ№ ╩юышсЁш╬╤ ё лЇых°ъш╗.
 
 1) ▌ьєы Ўш  Їыюяяш фшёър т BIOS.
 ╠хЄюф яЁюёЄ фю ЄєяюёЄш эр лЇых°ъє╗ чряшё√трхЄё  IMG юсЁрч, ё яюыэющ ¤ьєы Ўшхщ, Єю хёЄ№ 0 ёхъЄюЁ IMG юсЁрчр ёЄрэютшЄё  0 ёхъЄюЁюь лЇых°ъш╗, ш Єръ фрыхх яюър тёх ёхъЄюЁр юсЁрчр эх сєфєЄ ёъюяшЁютрэ√ эр эръюяшЄхы№. ╚ч эхфюёЄрЄъют ¤Єюую ёяюёюср ёЁрчє ьюцэю чрьхЄшЄ№ яюЄхЁ■ Ёрсюўхую яЁюёЄЁрэёЄтр т√°х 1,44 ╠с. ╬ёюсхээю юсшфэ√ь ¤Єю  ты хЄё  фы  эръюяшЄхыхщ, хьъюёЄ№ ъюЄюЁ√ї эрьэюую яЁхт√°рхЄ ¤ЄюЄ ЁрчьхЁ.
@@ -23,7 +23,7 @@ xx.01.2006 -
 ╧юёъюы№ъє эр фрээ√щ ьюьхэЄ ╩юышсЁш эх  ты хЄё  яюыэюёЄ№■ ёрьюёЄю Єхы№эющ ╬╤, Єю яютёхьхёЄэю юэр яЁшьхэ хЄё  ярЁрыыхы№эю ё фЁєушьш ╬╤. ▌Єр ёшЄєрЎш  яЁштхыр ъ Єюьє, ўЄю ёюсёЄтхээюую эхчртшёшьюую чруЁєчўшър (хёыш эх ёўшЄрЄ№ Їыюяяш фшёъш) є ╩юышсЁш ЇръЄшўхёъш эхЄ.
 ═р ёхуюфэ °эшщ фхэ№ юёЄрышё№ ръЄєры№э√ьш Єюы№ъю 2 чруЁєчўшър: meosload.com ш mtldr.
 ╬ср ьюуєЄ чряєёърЄ№ё  шч ёЁхф√ DOS.
-╙ёЄрэютър ╩юышсЁш эр Їых°ъє т ьюхь трЁшрэЄх эрўшэрхЄё  ё єёЄрэютъш DOS эр Їых°ъє, ъръ яхЁтшўэющ ёшёЄхьющ, шч-яюф ъюЄюЁющ сєфєЄ чряє∙хэ√ чруЁєчўшъш ╩юышсЁш. ╩юэхўэю, т ¤Єюь ёыєўрх ё Єюўъш чЁхэш  ышЎхэчшш ыєў°х шёяюы№чютрЄ№ яюыэ√х рэрыюуш DOS, ъюЄюЁ√х шьх■Є ётюсюфэє■ ышЎхэчш■ эр шёяюы№чютрэшх, эю эх т ¤Єюь ёєЄ№, Єръ ўЄю эх сєфхь юЄтыхърЄ№ё  эр ьхыюўш.
+╙ёЄрэютър ╩юышсЁш╬╤ эр Їых°ъє т ьюхь трЁшрэЄх эрўшэрхЄё  ё єёЄрэютъш DOS эр Їых°ъє, ъръ яхЁтшўэющ ёшёЄхьющ, шч-яюф ъюЄюЁющ сєфєЄ чряє∙хэ√ чруЁєчўшъш ╩юышсЁш╬╤. ╩юэхўэю, т ¤Єюь ёыєўрх ё Єюўъш чЁхэш  ышЎхэчшш ыєў°х шёяюы№чютрЄ№ яюыэ√х рэрыюуш DOS, ъюЄюЁ√х шьх■Є ётюсюфэє■ ышЎхэчш■ эр шёяюы№чютрэшх, эю эх т ¤Єюь ёєЄ№, Єръ ўЄю эх сєфхь юЄтыхърЄ№ё  эр ьхыюўш.
 
 ╙ёЄрэютшЄ№ DOS эр лЇых°ъє╗ ьюцэю эхёъюы№ъшьш ёяюёюсрьш:
 р) ╬╤ Windows яЁш ЇюЁьрЄшЁютрэшш Їых°ъш т√сЁрЄ№ яєэъЄ ёъюяшЁютрЄ№ ёшёЄхьэ√х Їрщы√, т юс∙хь, Єю цх ёрьюх ўЄю ш фы  Їыюяяш фшёъхЄ√. ╩ ёюцрыхэш■, ¤ЄюЄ ьхЄюф яюфїюфшЄ Єюы№ъю фы  ышэхщъш 9ї, эр 2╩ эх яЁютхЁ ы, эю т ╒╨ ¤ЄюЄ яєэъЄ эхфюёЄєяхэ.
@@ -54,4 +54,4 @@ xx.01.2006 -
 
 P.S.
 1) ╒юўє т√ЁрчшЄ№ сюы№°є■ яЁшчэрЄхы№эюёЄ№ чр яюью∙№ т яюфуюЄютъх ьрЄхЁшрыр └эфЁх■ (NoName), ▌фєрЁфє (DoomEdArchangel) ш ╤хЁух■ (Serge).
-2) ┬ рЁїштх ё ¤Єшь Їрщыюь ёюфхЁцрЄ№ё  єяюь эєЄ√х т ЄхъёЄх enable.exe ш meosload.com ш шї шёїюфэ√х ъюф√.
+2) ┬ рЁїштх ё ¤Єшь Їрщыюь ёюфхЁцрЄ№ё  єяюь эєЄ√х т ЄхъёЄх enable.exe ш meosload.com ш шї шёїюфэ√х ъюф√.

programs/hd_load/usb_boot_old/usb_boot_866.txt

@@ -1,12 +1,12 @@
-Автор: Mario79 
-xx.01.2006 - набор статьи 
-20.03.2006 - публикация статьи 
+Автор: Mario79
+xx.01.2006 - набор статьи
+20.03.2006 - публикация статьи
 23.03.2006 - исправление и дополнение статьи
 26.02.2007 - переработано и дополнено в связи с изменившимися реалиями
 
-Загрузка ОС Колибри с USB Flash Drive
-На сегодняшний день ОС Колибри не имеет поддержки USB устройств на уровне самой системы, по этой причине для запуска с USB Flash накопителей приходится идти на определенные хитрости.
-Существует 2 известных способа запустить ОС Колибри с лфлешки╗.
+Загрузка КолибриОС с USB Flash Drive
+На сегодняшний день КолибриОС не имеет поддержки USB устройств на уровне самой системы, по этой причине для запуска с USB Flash накопителей приходится идти на определенные хитрости.
+Существует 2 известных способа запустить КолибриОС с лфлешки╗.
 
 1) Эмуляция флоппи диска в BIOS.
 Метод прост до тупости на лфлешку╗ записывается IMG образ, с полной эмуляцией, то есть 0 сектор IMG образа становится 0 сектором лфлешки╗, и так далее пока все сектора образа не будут скопированы на накопитель. Из недостатков этого способа сразу можно заметить потерю рабочего пространства выше 1,44 Мб. Особенно обидным это является для накопителей, емкость которых намного превышает этот размер.
@@ -23,7 +23,7 @@ xx.01.2006 -
 Поскольку на данный момент Колибри не является полностью самостоятельной ОС, то повсеместно она применяется параллельно с другими ОС. Эта ситуация привела к тому, что собственного независимого загрузчика (если не считать флоппи диски) у Колибри фактически нет.
 На сегодняшний день остались актуальными только 2 загрузчика: meosload.com и mtldr.
 Оба могут запускаться из среды DOS.
-Установка Колибри на флешку в моем варианте начинается с установки DOS на флешку, как первичной системой, из-под которой будут запущены загрузчики Колибри. Конечно, в этом случае с точки зрения лицензии лучше использовать полные аналоги DOS, которые имеют свободную лицензию на использование, но не в этом суть, так что не будем отвлекаться на мелочи.
+Установка КолибриОС на флешку в моем варианте начинается с установки DOS на флешку, как первичной системой, из-под которой будут запущены загрузчики КолибриОС. Конечно, в этом случае с точки зрения лицензии лучше использовать полные аналоги DOS, которые имеют свободную лицензию на использование, но не в этом суть, так что не будем отвлекаться на мелочи.
 
 Установить DOS на лфлешку╗ можно несколькими способами:
 а) ОС Windows при форматировании флешки выбрать пункт скопировать системные файлы, в общем, то же самое что и для флоппи дискеты. К сожалению, этот метод подходит только для линейки 9х, на 2К не проверял, но в ХР этот пункт недоступен.
@@ -54,4 +54,4 @@ xx.01.2006 -
 
 P.S.
 1) Хочу выразить большую признательность за помощь в подготовке материала Андрею (NoName), Эдуарду (DoomEdArchangel) и Сергею (Serge).
-2) В архиве с этим файлом содержаться упомянутые в тексте enable.exe и meosload.com и их исходные коды.
+2) В архиве с этим файлом содержаться упомянутые в тексте enable.exe и meosload.com и их исходные коды.

programs/load_lib.mac

@@ -23,6 +23,9 @@ library_fun_memory_free equ mem_free
 library_fun_memory_realloc equ mem_realloc
 library_fun_dll_load equ dll_load
 
+align 4
+strz_lib_init db 'lib_init',0
+
 align 4
 arrea_xx dd 0
 file_name db '/sys/@notify',0
@@ -214,7 +217,7 @@ end if
 		jmp		i_error
 align 4
 	i_begin:
-		import_boxlib myimport
+		import_some_library myimport
 		test	eax,eax
 		jz		i_exit
 	i_error:
@@ -234,13 +237,13 @@ macro load_library library_name__, library_path__, system_path__, myimport, poin
 local i_begin
 local i_error
 local i_exit
-	push ebx
 if point_dir_name__ eq
 		copy_path   library_name__, [32], library_path__,0
 else
 		;the macros making way /current path a program/ + name system library
 		copy_path   library_name__, [32], library_path__,point_dir_name__
 end if
+	push ebx
 		mcall	SF_SYS_MISC,SSF_LOAD_DLL,library_path__ ; load of alternative
 		test	eax,eax
 		jnz		i_begin
@@ -251,7 +254,7 @@ end if
 		jmp		i_error
 align 4
 	i_begin:
-		import_boxlib myimport
+		import_some_library myimport
 		test	eax,eax
 		jz		i_exit
 	i_error:
@@ -309,7 +312,7 @@ align 4
 align 4
 	end_steep:
 		mov		adr_load_lib,eax        ;save adr lib in memory
-		import_boxlib my_import
+		import_some_library my_import
 		test	eax,eax
 		jz		cycle0n
 		or		status_lib,2          ; status of code - enable error - import error
@@ -387,7 +390,7 @@ align 4
 align 4
 	end_steep:
 		mov		adr_load_lib,eax        ;save adr lib in memory
-		import_boxlib my_import
+		import_some_library my_import
 		test	eax,eax
 		jz		cycle0n
 		or		status_lib,2          ; status of code - enable error - import error
@@ -451,7 +454,7 @@ pop ebx eax
 ;output:
 ; eax - если удачно то 0 или указатель на имя функции которую не удалось загрузить
 ; ebx - разрушается
-macro import_boxlib myimport
+macro import_some_library myimport
 {
 local import_loop
 local import_find

programs/media/img_transform/img_transform.asm

@@ -1,3 +1,7 @@
+; SPDX-License-Identifier: GPL-2.0-only
+; ImgTransform - utility for creating textures from images
+; Copyright (C) 2020-2025 KolibriOS team
+
 use32
 	org 0
 	db 'MENUET01'
@@ -9,23 +13,23 @@ include '../../proc32.inc'
 include '../../KOSfuncs.inc'
 include '../../load_img.inc'
 include '../../load_lib.mac'
+include '../../develop/libraries/TinyGL/asm_fork/kosgl.inc'
 include '../../develop/libraries/TinyGL/asm_fork/opengl_const.inc'
 include '../../develop/libraries/TinyGL/asm_fork/zbuffer.inc'
 include '../../develop/libraries/libs-dev/libimg/libimg.inc'
 include '../../develop/info3ds/info_fun_float.inc'
 
 @use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
-caption db 'Image transform 08.12.20',0 ;подпись окна
+caption db 'Image transform 21.05.25',0
 
 BUF_STRUCT_SIZE equ 21
-buf2d_data equ dword[edi] ;данные буфера изображения
-buf2d_w equ dword[edi+8] ;ширина буфера
-buf2d_h equ dword[edi+12] ;высота буфера
-buf2d_l equ word[edi+4]
-buf2d_t equ word[edi+6] ;отступ сверху
-buf2d_size_lt equ dword[edi+4] ;отступ слева и справа для буфера
-buf2d_color equ dword[edi+16] ;цвет фона буфера
-buf2d_bits equ byte[edi+20] ;количество бит в 1-й точке изображения
+buf2d_data equ dword[edi] ;image buffer data
+buf2d_w equ dword[edi+8] ;buffer width
+buf2d_h equ dword[edi+12] ;buffer height
+buf2d_l equ word[edi+4] ;left space
+buf2d_t equ word[edi+6] ;top space
+buf2d_color equ dword[edi+16] ;buffer background color
+buf2d_bits equ byte[edi+20] ;number of bits in 1 image pixel
 
 NAV_WND_L equ 145
 NAV_WND_T equ 1
@@ -88,13 +92,13 @@ still:
 	cmp eax,0
 	je timer_funct
 
-	cmp al,1
+	cmp al,EV_REDRAW
 	jz red_win
-	cmp al,2
+	cmp al,EV_KEY
 	jz key
-	cmp al,3
+	cmp al,EV_BUTTON
 	jz button
-	cmp al,6
+	cmp al,EV_MOUSE
 	jne @f
 		mcall SF_THREAD_INFO,procinfo,-1
 		cmp ax,word[procinfo.window_stack_position]
@@ -1428,56 +1432,9 @@ l_libs_start:
 	lib_0 l_libs lib_name_0, file_name, system_dir_0, import_proclib
 	lib_1 l_libs lib_name_1, file_name, system_dir_1, import_libimg
 	lib_2 l_libs lib_name_2, library_path, system_dir_2, import_buf2d
-	lib_3 l_libs lib_name_3, library_path, system_dir_3, import_lib_tinygl
+	lib_3 l_libs lib_name_3, library_path, system_dir_3, import_tinygl
 l_libs_end:
 
-align 4
-import_libimg:
-	dd alib_init1
-	img_is_img  dd aimg_is_img
-	img_info    dd aimg_info
-	img_from_file dd aimg_from_file
-	img_to_file dd aimg_to_file
-	img_from_rgb dd aimg_from_rgb
-	img_to_rgb  dd aimg_to_rgb
-	img_to_rgb2 dd aimg_to_rgb2
-	img_decode  dd aimg_decode
-	img_encode  dd aimg_encode
-	img_create  dd aimg_create
-	img_destroy dd aimg_destroy
-	img_destroy_layer dd aimg_destroy_layer
-	img_count   dd aimg_count
-	img_lock_bits dd aimg_lock_bits
-	img_unlock_bits dd aimg_unlock_bits
-	img_flip    dd aimg_flip
-	img_flip_layer dd aimg_flip_layer
-	img_rotate  dd aimg_rotate
-	img_rotate_layer dd aimg_rotate_layer
-	img_draw    dd aimg_draw
-
-	dd 0,0
-	alib_init1   db 'lib_init',0
-	aimg_is_img  db 'img_is_img',0 ;определяет по данным, может ли библиотека сделать из них изображение
-	aimg_info    db 'img_info',0
-	aimg_from_file db 'img_from_file',0
-	aimg_to_file db 'img_to_file',0
-	aimg_from_rgb db 'img_from_rgb',0
-	aimg_to_rgb  db 'img_to_rgb',0 ;преобразование изображения в данные RGB
-	aimg_to_rgb2 db 'img_to_rgb2',0
-	aimg_decode  db 'img_decode',0 ;автоматически определяет формат графических данных
-	aimg_encode  db 'img_encode',0
-	aimg_create  db 'img_create',0
-	aimg_destroy db 'img_destroy',0
-	aimg_destroy_layer db 'img_destroy_layer',0
-	aimg_count   db 'img_count',0
-	aimg_lock_bits db 'img_lock_bits',0
-	aimg_unlock_bits db 'img_unlock_bits',0
-	aimg_flip    db 'img_flip',0
-	aimg_flip_layer db 'img_flip_layer',0
-	aimg_rotate  db 'img_rotate',0
-	aimg_rotate_layer db 'img_rotate_layer',0
-	aimg_draw    db 'img_draw',0
-
 align 4
 import_proclib:
 	OpenDialog_Init dd aOpenDialog_Init
@@ -1490,76 +1447,9 @@ dd 0,0
 	aOpenDialog_Set_file_name db 'OpenDialog_set_file_name',0
 	aOpenDialog_Set_file_ext db 'OpenDialog_set_file_ext',0
 
-align 4
-import_buf2d:
-	init dd sz_init
-	buf2d_create dd sz_buf2d_create
-	buf2d_create_f_img dd sz_buf2d_create_f_img
-	buf2d_clear dd sz_buf2d_clear
-	buf2d_draw dd sz_buf2d_draw
-	buf2d_delete dd sz_buf2d_delete
-	buf2d_resize dd sz_buf2d_resize
-	buf2d_line dd sz_buf2d_line
-	buf2d_rect_by_size dd sz_buf2d_rect_by_size
-	buf2d_filled_rect_by_size dd sz_buf2d_filled_rect_by_size
-	buf2d_circle dd sz_buf2d_circle
-	buf2d_img_hdiv2 dd sz_buf2d_img_hdiv2
-	buf2d_img_wdiv2 dd sz_buf2d_img_wdiv2
-	buf2d_conv_24_to_8 dd sz_buf2d_conv_24_to_8
-	buf2d_conv_24_to_32 dd sz_buf2d_conv_24_to_32
-	buf2d_bit_blt dd sz_buf2d_bit_blt
-	buf2d_bit_blt_transp dd sz_buf2d_bit_blt_transp
-	buf2d_bit_blt_alpha dd sz_buf2d_bit_blt_alpha
-	buf2d_curve_bezier dd sz_buf2d_curve_bezier
-	buf2d_convert_text_matrix dd sz_buf2d_convert_text_matrix
-	buf2d_draw_text dd sz_buf2d_draw_text
-	buf2d_crop_color dd sz_buf2d_crop_color
-	buf2d_offset_h dd sz_buf2d_offset_h
-	buf2d_flood_fill dd sz_buf2d_flood_fill
-	buf2d_set_pixel dd sz_buf2d_set_pixel
-	buf2d_get_pixel dd sz_buf2d_get_pixel
-	dd 0,0
-	sz_init db 'lib_init',0
-	sz_buf2d_create db 'buf2d_create',0
-	sz_buf2d_create_f_img db 'buf2d_create_f_img',0
-	sz_buf2d_clear db 'buf2d_clear',0
-	sz_buf2d_draw db 'buf2d_draw',0
-	sz_buf2d_delete db 'buf2d_delete',0
-	sz_buf2d_resize db 'buf2d_resize',0
-	sz_buf2d_line db 'buf2d_line',0
-	sz_buf2d_rect_by_size db 'buf2d_rect_by_size',0
-	sz_buf2d_filled_rect_by_size db 'buf2d_filled_rect_by_size',0
-	sz_buf2d_circle db 'buf2d_circle',0
-	sz_buf2d_img_hdiv2 db 'buf2d_img_hdiv2',0
-	sz_buf2d_img_wdiv2 db 'buf2d_img_wdiv2',0
-	sz_buf2d_conv_24_to_8 db 'buf2d_conv_24_to_8',0
-	sz_buf2d_conv_24_to_32 db 'buf2d_conv_24_to_32',0
-	sz_buf2d_bit_blt db 'buf2d_bit_blt',0
-	sz_buf2d_bit_blt_transp db 'buf2d_bit_blt_transp',0
-	sz_buf2d_bit_blt_alpha db 'buf2d_bit_blt_alpha',0
-	sz_buf2d_curve_bezier db 'buf2d_curve_bezier',0
-	sz_buf2d_convert_text_matrix db 'buf2d_convert_text_matrix',0
-	sz_buf2d_draw_text db 'buf2d_draw_text',0
-	sz_buf2d_crop_color db 'buf2d_crop_color',0
-	sz_buf2d_offset_h db 'buf2d_offset_h',0
-	sz_buf2d_flood_fill db 'buf2d_flood_fill',0
-	sz_buf2d_set_pixel db 'buf2d_set_pixel',0
-	sz_buf2d_get_pixel db 'buf2d_get_pixel',0
-
-align 4
-import_lib_tinygl:
-
-macro E_LIB n
-{
-	n dd sz_#n
-}
-include '../../../programs/develop/libraries/TinyGL/asm_fork/export.inc'
-	dd 0,0
-macro E_LIB n
-{
-	sz_#n db `n,0
-}
-include '../../../programs/develop/libraries/TinyGL/asm_fork/export.inc'
+include '../../develop/libraries/libs-dev/libimg/import.inc'
+include '../../develop/libraries/buf2d/import.inc'
+include '../../develop/libraries/TinyGL/asm_fork/import.inc'
 
 align 4
 buf_0: dd 0

programs/media/scrshoot/srectwin.inc

@@ -259,99 +259,10 @@ aOpenDialog_Init	db 'OpenDialog_init',0
 aOpenDialog_Start	db 'OpenDialog_start',0
 ;aOpenDialog_Version	db 'Version_OpenDialog',0
 ;---------------------------------------------------------------------
-align 4
-Box_lib_import:
-;init_lib		dd a_init
-;version_lib		dd a_version
 
-edit_box_draw		dd aEdit_box_draw
-edit_box_key		dd aEdit_box_key
-edit_box_mouse		dd aEdit_box_mouse
-edit_box_set_text	dd aEdit_box_set_text
-;version_ed		dd aVersion_ed
-
-init_checkbox		dd aInit_checkbox
-check_box_draw		dd aCheck_box_draw
-check_box_mouse 	dd aCheck_box_mouse
-;version_ch	dd	aVersion_ch
-
-option_box_draw	dd aOption_box_draw
-option_box_mouse	dd aOption_box_mouse
-;version_op		dd aVersion_op
-
-PathShow_prepare	dd sz_PathShow_prepare
-PathShow_draw		dd sz_PathShow_draw
-;Version_path_show	dd szVersion_path_show
-			dd 0,0
-
-;a_init			db 'lib_init',0
-;a_version		db 'version',0
-
-aEdit_box_draw		db 'edit_box_draw',0
-aEdit_box_key		db 'edit_box_key',0
-aEdit_box_mouse		db 'edit_box_mouse',0
-aEdit_box_set_text	db 'edit_box_set_text',0
-;aVersion_ed		db 'version_ed',0
-
-
-aInit_checkbox	 db 'init_checkbox2',0
-aCheck_box_draw  db 'check_box_draw2',0
-aCheck_box_mouse db 'check_box_mouse2',0
-;aVersion_ch	 db 'version_ch2',0
-
-aOption_box_draw	db 'option_box_draw',0
-aOption_box_mouse	db 'option_box_mouse',0
-;aVersion_op		db 'version_op',0
-
-sz_PathShow_prepare	db 'PathShow_prepare',0
-sz_PathShow_draw	db 'PathShow_draw',0
-;szVersion_path_show	db 'version_PathShow',0
-;---------------------------------------------------------------------
-align 4
-import_libimg:
-	dd alib_init1
-	img_is_img  dd aimg_is_img
-	img_info    dd aimg_info
-	img_from_file dd aimg_from_file
-	img_to_file dd aimg_to_file
-	img_from_rgb dd aimg_from_rgb
-	img_to_rgb  dd aimg_to_rgb
-	img_to_rgb2 dd aimg_to_rgb2
-	img_decode  dd aimg_decode
-	img_encode  dd aimg_encode
-	img_create  dd aimg_create
-	img_destroy dd aimg_destroy
-	img_destroy_layer dd aimg_destroy_layer
-	img_count   dd aimg_count
-	img_lock_bits dd aimg_lock_bits
-	img_unlock_bits dd aimg_unlock_bits
-	img_flip    dd aimg_flip
-	img_flip_layer dd aimg_flip_layer
-	img_rotate  dd aimg_rotate
-	img_rotate_layer dd aimg_rotate_layer
-	img_draw    dd aimg_draw
-dd 0,0
-	alib_init1   db 'lib_init',0
-	aimg_is_img  db 'img_is_img',0
-	aimg_info    db 'img_info',0
-	aimg_from_file db 'img_from_file',0
-	aimg_to_file db 'img_to_file',0
-	aimg_from_rgb db 'img_from_rgb',0
-	aimg_to_rgb  db 'img_to_rgb',0
-	aimg_to_rgb2 db 'img_to_rgb2',0
-	aimg_decode  db 'img_decode',0
-	aimg_encode  db 'img_encode',0
-	aimg_create  db 'img_create',0
-	aimg_destroy db 'img_destroy',0
-	aimg_destroy_layer db 'img_destroy_layer',0
-	aimg_count   db 'img_count',0
-	aimg_lock_bits db 'img_lock_bits',0
-	aimg_unlock_bits db 'img_unlock_bits',0
-	aimg_flip    db 'img_flip',0
-	aimg_flip_layer db 'img_flip_layer',0
-	aimg_rotate  db 'img_rotate',0
-	aimg_rotate_layer db 'img_rotate_layer',0
-	aimg_draw    db 'img_draw',0
+Box_lib_import equ import_box_lib
+include '../../develop/libraries/box_lib/import.inc'
+include '../../develop/libraries/libs-dev/libimg/import.inc'
 ;---------------------------------------------------------------------
 ;width,left,top,color,shift_color,focus_border_color,\
 ;       blur_border_color,text_color,max,text,mouse_variable,flags,size,pos

programs/network/ftpd/ftpd.asm

@@ -238,7 +238,7 @@ end if
         mov     [ebp + thread_data.buffer_ptr], eax
         mov     [ebp + thread_data.passivesocknum], -1
 
-        sendFTP " 220 Welcome to KolibriOS FTP daemon"  ; fix output code
+        sendFTP "220 Welcome to KolibriOS FTP daemon"  ; fix output code
 
         diff16  "threadloop", 0, $
 threadloop: