/programs/media/img_transform/img_transform.asm |
---|
8,13 → 8,14 |
include '../../proc32.inc' |
include '../../KOSfuncs.inc' |
include '../../load_img.inc' |
include '../../load_lib.mac' |
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 mem.Alloc,mem.Free,mem.ReAlloc,dll.Load |
caption db 'Image transform 02.10.20',0 ;¯®¤¯¨áì ®ª |
@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load |
caption db 'Image transform 08.12.20',0 ;¯®¤¯¨áì ®ª |
BUF_STRUCT_SIZE equ 21 |
buf2d_data equ dword[edi] ;¤ ë¥ ¡ãä¥à ¨§®¡à ¦¥¨ï |
1423,39 → 1424,11 |
lib_name_3 db 'tinygl.obj',0 |
align 4 |
head_f_i: |
if lang eq ru |
head_f_l db '"¨á⥬ ï ®è¨¡ª ',0 |
err_message_found_lib_0 db '¥ ©¤¥ ¡¨¡«¨®â¥ª ',39,'proc_lib.obj',39,'" -tE',0 |
err_message_import_0 db '訡ª ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,'" -tE',0 |
err_message_found_lib_1 db '¥ ©¤¥ ¡¨¡«¨®â¥ª ',39,'libimg.obj',39,'" -tE',0 |
err_message_import_1 db '訡ª ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'libimg.obj',39,'" -tE',0 |
err_msg_found_lib_2 db '¥ ©¤¥ ¡¨¡«¨®â¥ª ',39,'buf2d.obj',39,'" -tE',0 |
err_msg_import_2 db '訡ª ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'buf2d',39,'" -tE',0 |
err_msg_found_lib_3 db '¥ ©¤¥ ¡¨¡«¨®â¥ª ',39,'tinygl.obj',39,'" -tE',0 |
err_msg_import_3 db '訡ª ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'tinygl',39,'" -tE',0 |
else |
head_f_l db '"System error',0 |
err_message_found_lib_0 db 'Sorry I cannot found library ',39,'proc_lib.obj',39,'" -tE',0 |
err_message_import_0 db 'Error on load import library ',39,'proc_lib.obj',39,'" -tE',0 |
err_message_found_lib_1 db 'Sorry I cannot found library ',39,'libimg.obj',39,'" -tE',0 |
err_message_import_1 db 'Error on load import library ',39,'libimg.obj',39,'" -tE',0 |
err_msg_found_lib_2 db 'Sorry I cannot found library ',39,'buf2d.obj',39,'" -tE',0 |
err_msg_import_2 db 'Error on load import library ',39,'buf2d',39,'" -tE',0 |
err_msg_found_lib_3 db 'Sorry I cannot found library ',39,'tinygl.obj',39,'" -tE',0 |
err_msg_import_3 db 'Error on load import library ',39,'tinygl',39,'" -tE',0 |
end if |
align 4 |
l_libs_start: |
lib_0 l_libs lib_name_0, sys_path, file_name, system_dir_0,\ |
err_message_found_lib_0, head_f_l, proclib_import,err_message_import_0, head_f_i |
lib_1 l_libs lib_name_1, sys_path, file_name, system_dir_1,\ |
err_message_found_lib_1, head_f_l, import_libimg, err_message_import_1, head_f_i |
lib_2 l_libs lib_name_2, sys_path, library_path, system_dir_2,\ |
err_msg_found_lib_2,head_f_l,import_buf2d,err_msg_import_2,head_f_i |
lib_3 l_libs lib_name_3, sys_path, library_path, system_dir_3,\ |
err_msg_found_lib_3,head_f_l,import_lib_tinygl,err_msg_import_3,head_f_i |
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 |
l_libs_end: |
align 4 |
1506,7 → 1479,7 |
aimg_draw db 'img_draw',0 |
align 4 |
proclib_import: ;®¯¨á ¨¥ íªá¯®àâ¨à㥬ëå äãªæ¨© |
import_proclib: |
OpenDialog_Init dd aOpenDialog_Init |
OpenDialog_Start dd aOpenDialog_Start |
OpenDialog_Set_file_name dd aOpenDialog_Set_file_name |
1656,8 → 1629,7 |
align 16 |
stacktop: |
sys_path rb 1024 |
file_name: |
rb 1024 ;4096 |
file_name rb 1024 ;4096 |
library_path rb 1024 |
plugin_path rb 4096 |
openfile_path rb 4096 |
/programs/media/midamp/trunk/midamp.asm |
---|
1,9 → 1,9 |
; MIDI PLAYER FOR MENUET v1.0 |
; MIDI PLAYER FOR KOLIBRI v1.0 |
; Written in pure assembler by Ivushkin Andrey aka Willow |
; |
; |
; Created: December 7, 2004 |
; Last changed: July 29, 2005 |
; Last changed: December 8, 2020 |
; |
; COMPILE WITH FASM |
53,16 → 53,13 |
FL_MULSEL equ 0x8000 |
use32 |
org 0x0 |
org 0 |
db 'MENUET01' |
dd 0x01 |
dd START |
dd IM_END |
dd 1, START, IM_END |
dd I_END ;APP_MEM |
dd stacktop ;APP_MEM - 1024 |
dd I_PARAM |
dd cur_dir_path |
dd I_PARAM, cur_dir_path |
listsel dd 0 |
channel dd 0 |
69,7 → 66,8 |
COLOR_ORDER equ MENUETOS |
include '../../../config.inc' ;for nightbuild |
include '../../../macros.inc' ; decrease code size (optional) |
include '../../../develop/libraries/box_lib/load_lib.mac' |
include '../../../KOSfuncs.inc' |
include '../../../load_lib.mac' |
@use_library |
86,7 → 84,7 |
btns: |
file 'buttons.gif' |
START: |
mcall 68, 11 |
mcall SF_SYS_MISC, SSF_HEAP_INIT |
load_libraries l_libs_start,end_l_libs |
105,7 → 103,7 |
or [flag],FL_BOTTRED;+FL_MUTE |
mov ecx,ipcarea |
call init_ipc |
mcall 40,1000111b |
mcall SF_SET_EVENTS_MASK,1000111b |
mov esi,btns |
mov edi,btn_raw |
call ReadGIF |
116,7 → 114,7 |
mov edi,bottom_raw |
call ReadGIF |
call respawn |
mcall 9,prcinfo,-1 |
mcall SF_THREAD_INFO,prcinfo,-1 |
mov edx,[ebx+30] |
mov [parentPID],edx |
mov esi,I_PARAM |
190,9 → 188,7 |
mov esi,filename |
mov edi,I_PARAM |
rep movsd |
mov eax,70 |
mov ebx,file_info |
mcall |
mcall SF_FILE,file_info |
add ebx,workarea |
mov [midi_limit],ebx |
mov edi,I_PARAM |
245,7 → 241,7 |
test [flag],FL_PLAY |
jz .noplay |
call draw_window |
mcall 5,100 |
mcall SF_SLEEP,100 |
mov eax,IPC_PLAY |
call ipc_send |
.noplay: |
263,8 → 259,7 |
still: |
mov ecx,ipcarea |
call init_ipc |
mov eax,10 |
mcall |
mcall SF_WAIT_EVENT |
prc_event: |
test eax,eax |
jz still |
290,7 → 285,7 |
xor edx,edx |
test [flag],FL_SHUFFLE |
jz .noshuf |
mcall 26,9 |
mcall SF_SYSTEM_GET,SSF_TIME_COUNT |
movzx ebx,byte[list_count] |
div ebx |
mov eax,edx |
424,12 → 419,6 |
;--------------------------------------------------------------------- |
system_dir_ProcLib db '/sys/lib/proc_lib.obj',0 |
head_f_i: |
head_f_l db 'error',0 |
err_message_found_lib2 db 'proc_lib.obj - Not found!',0 |
err_message_import2 db 'proc_lib.obj - Wrong import!',0 |
;--------------------------------------------------------------------- |
align 4 |
ProcLib_import: |
444,8 → 433,8 |
;--------------------------------------------------------------------- |
l_libs_start: |
library01 l_libs system_dir_ProcLib+9, cur_dir_path, temp_dir_pach, system_dir_ProcLib, \ |
err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i |
library01 l_libs system_dir_ProcLib+9, temp_dir_pach, system_dir_ProcLib, \ |
ProcLib_import |
end_l_libs: |
;--------------------------------------------------------------------- |
/programs/media/scrshoot/label.inc |
---|
8,13 → 8,8 |
mov ah,[edx+esi] |
inc esi |
test ah,ah |
jz @f |
jmp .check_next |
@@: |
mov eax,4 |
mov ebx,[edi] |
mov ecx,[edi+4] |
mcall |
jnz .check_next |
mcall SF_DRAW_TEXT,[edi],[edi+4] |
popa |
ret |
} |
/programs/media/scrshoot/scrshoot.asm |
---|
21,7 → 21,7 |
format binary as "" |
title equ 'Screenshooter v1.21' ; £®«®¢®ª ®ª |
include '../../develop/libraries/box_lib/load_lib.mac' |
include '../../load_lib.mac' |
include '../../develop/libraries/box_lib/trunk/box_lib.mac' |
include '../../config.inc' ;for nightbuild |
include '../../proc32.inc' |
34,21 → 34,15 |
include 'scrshoot.mac' |
use32 |
org 0x0 |
org 0 |
db 'MENUET01' |
dd 0x1 |
dd start |
dd IM_END |
dd i_end |
dd stacktop |
dd cmdstr |
dd cur_dir_path |
dd 1, start, IM_END, i_end, stacktop, cmdstr, cur_dir_path |
include 'lang.inc' |
include '../../dll.inc' |
align 4 |
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load |
@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load |
use_txt_button ; | |
use_label ; |-- GUI ª®¬¯®¥âë ¨ ¥ª®â®àë¥ ¯à®æ¥¤ãàë |
use_text_work ; / |
607,14 → 601,14 |
;--------------------------------------------------------------------- |
l_libs_start: |
library01 l_libs system_dir_Boxlib+9, cur_dir_path, library_path, system_dir_Boxlib, \ |
err_message_found_lib1, head_f_l, Box_lib_import, err_message_import1, head_f_i |
library01 l_libs system_dir_Boxlib+9, library_path, system_dir_Boxlib, \ |
Box_lib_import |
library02 l_libs system_dir_ProcLib+9, cur_dir_path, library_path, system_dir_ProcLib, \ |
err_message_found_lib2, head_f_l, ProcLib_import, err_message_import2, head_f_i |
library02 l_libs system_dir_ProcLib+9, library_path, system_dir_ProcLib, \ |
ProcLib_import |
library03 l_libs system_dir_LibImg+9, cur_dir_path, library_path, system_dir_LibImg, \ |
err_message_found_lib3, head_f_l, import_libimg, err_message_import3, head_f_i |
library03 l_libs system_dir_LibImg+9, library_path, system_dir_LibImg, \ |
import_libimg |
end_l_libs: |
;--------------------------------------------------------------------- |
/programs/media/scrshoot/scrshoot.mac |
---|
14,24 → 14,15 |
macro start_draw_window |
{ |
;mov eax,12 |
push 12 |
pop eax |
xor ebx,ebx |
inc ebx |
mcall |
mcall SF_REDRAW |
} |
;--- ñîîáùèòü ñèñòåìå î çàâåðøåíèè ïåðåðèñîâêè îêíà --- |
macro stop_draw_window |
{ |
;mov eax,12 |
push 12 |
pop eax |
;mov ebx,2 |
push 2 |
pop ebx |
mcall |
mcall SF_REDRAW, SSF_END_DRAW |
} |
;--- óñòàíîâèòü ìàñêó îæèäàåìûõ ñîáûòèé --- |
39,8 → 30,7 |
;--- îæèäàòü ñîáûòèÿ --- |
macro wait_event redraw,key,button,mouse,ipc,other |
{ |
mov eax,10 |
mcall |
mcall SF_WAIT_EVENT |
dec ax |
if redraw eq |
else |
77,76 → 67,25 |
;--- óñòàíîâèòü ìàñêó îæèäàåìûõ ñîáûòèé --- |
macro set_events_mask mask |
{ |
;mov eax,40 |
push 40 |
pop eax |
;mov ebx,mask |
push mask |
pop ebx |
mcall |
mcall SF_SET_EVENTS_MASK, mask |
} |
;macro check_boxes_set_sys_color start,end,color_table |
;{ |
;ch_left equ [edi] ;êîîðäèíàòà íà÷àëà ðèñîâàíèÿ ïî õ |
;ch_top equ [edi+4] ;êîîðäèíàòà íà÷àëà ðèñîâàíèÿ ïî ó |
;ch_text_margin equ [edi+8] ;=4 ðàññòîÿíèå îò ïðÿìîóãîëüíèêà ÷åê áîêñà äî íàäïèñè |
;ch_size equ [edi+8] ;12 ðàçìåð êâàäðàòà ÷åê áîêñà |
;ch_color equ [edi+12] ;öâåò âíóòðè checkbox |
;ch_border_color equ [edi+16] ; or [edi+4] ;öâåò ðàìêè checkbox åå ìîæíî çàäàòü ñàìîñòîÿòåëüíî |
;ch_text_color equ [edi+20];[edi+4] ;öâåò òåêñòà |
;ch_text_ptr equ [edi+24] ;óêàçàòåëü íà íà÷àëî òåêñòîâîé ñòðîêè |
;ch_text_length equ [edi+28] |
;ch_flags equ [edi+32] ;ôëàãè |
;ch_left equ [edi] ;êîîðäèíàòà íà÷àëà ðèñîâàíèÿ ïî õ |
;ch_top equ [edi+2] ;êîîðäèíàòà íà÷àëà ðèñîâàíèÿ ïî ó |
;ch_color equ [edi+4] ;öâåò âíóòðè checkbox |
;ch_border_color equ [edi+8] ;öâåò ðàìêè checkbox |
;ch_text_color equ [edi+12] ;öâåò òåêñòà |
;ch_text_ptr equ [edi+16] ;óêàçàòåëü íà íà÷àëî òåêñòîâîé ñòðîêè |
;ch_text_length equ [edi+20] ;äëèíà íàäïèñè (2^64 òàêîé äëèíû ìîæåò áûòü òåêñò) |
;ch_flags equ [edi+24] ;ôëàãè |
; mov edi,start |
; mov ecx,((end-start)/ch_struc_size) |
; mov esi,color_table |
;@@: |
; push dword [esi+32] |
; pop dword ch_text_color |
; push dword [esi+36] |
; pop dword ch_border_color |
; add edi,ch_struc_size |
; loop @b |
;} |
macro get_key |
{ |
;mov eax,2 |
push 2 |
pop eax |
mcall |
mcall SF_GET_KEY |
} |
;--- ïîëó÷èòü êîä íàæàòîé êíîïêè --- |
macro get_pressed_button |
{ |
;mov eax,17 |
push 17 |
pop eax |
mcall |
mcall SF_GET_BUTTON |
} |
macro get_active_window |
{ |
mov eax,18 |
mov ebx,7 |
mcall |
mcall SF_SYSTEM,SSF_GET_ACTIVE_WINDOW |
} |
;--- ¯®«ãç¨âì ¨ä®à¬ æ¨î ® ¯à®æ¥áᥠ--- |
;--- ïîëó÷èòü èíôîðìàöèþ î ïðîöåññå --- |
macro get_procinfo proc_inf_buf,slot_num |
{ |
;mov eax,9 |
push 9 |
pop eax |
;mov ebx,proc_inf_buf |
push proc_inf_buf |
pop ebx |
158,11 → 97,11 |
push slot_num |
pop ecx |
end if |
mcall |
mcall SF_THREAD_INFO |
} |
macro get_screen_prop struc_ptr |
{ |
mov eax,61 |
mov eax,SF_GET_GRAPHICAL_PARAMS |
push eax eax |
xor ebx,ebx |
inc ebx |
179,39 → 118,31 |
} |
macro min_window |
{ |
mov eax,18 |
mov ebx,10 |
mcall |
mcall SF_SYSTEM,SSF_MINIMIZE_WINDOW |
} |
macro app_close |
{ |
or eax,-1 |
mcall |
mcall SF_TERMINATE_PROCESS |
} |
macro get_skin_height |
{ |
mov eax,48 |
mov ebx,4 |
mcall |
mcall SF_STYLE_SETTINGS,SSF_GET_SKIN_HEIGHT |
} |
macro delay time |
{ |
mov eax,5 |
if time eq |
else |
mov ebx,time |
end if |
mcall |
mcall SF_SLEEP |
} |
macro activ_window slot_n |
{ |
mov eax,18 |
mov ebx,3 |
if slot_n eq |
else |
mov ecx,slot_n |
end if |
mcall |
mcall SF_SYSTEM,SSF_FOCUS_WINDOW |
} |
struc screen_prop |
{ |
261,7 → 192,7 |
.messages: rb size |
} |
;--- 梥â --- |
;--- öâåòà --- |
cl_white=0xffffff |
cl_black=0x000000 |
/programs/media/scrshoot/srectwin.inc |
---|
55,6 → 55,7 |
jmp .still |
align 4 |
.draw_window: |
start_draw_window |
130,8 → 131,9 |
call [edit_box_set_text] ;ecx,edi |
ret |
;-------------------------------------------------------------------- |
;--- ç¨âë¢ ¨¥ ®¡« ⨠---------------------------------------------- |
;--- ç¨âë¢ ¨¥ ®¡« á⨠--------------------------------------------- |
;-------------------------------------------------------------------- |
align 4 |
read_rect: |
bt dword [use_rect_active_window.flags],1 |
jc read_rect_from_active_window |
173,6 → 175,7 |
mov [rect.height],ax |
ret |
align 4 |
read_rect_from_active_window: |
call get_active_window_info |
188,6 → 191,7 |
mov [rect.height],ax |
ret |
align 4 |
draw_rect_on_screen: |
xor edx,edx |
237,37 → 241,11 |
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> |
;DATA ¤ ë¥ |
;ᥣ¤ ᮡ«î¤ âì ¯®á«¥¤®¢ ⥫ì®áâì ¢ ¨¬¥¨. |
system_dir_Boxlib db '/sys/lib/box_lib.obj',0 |
system_dir_ProcLib db '/sys/lib/proc_lib.obj',0 |
system_dir_LibImg db '/sys/lib/libimg.obj',0 |
if lang eq ru |
head_f_i: |
head_f_l db '¨á⥬ ï ®è¨¡ª ',0 |
err_message_found_lib1 db 'box_lib.obj - ¥ ©¤¥ !',0 |
err_message_found_lib2 db 'proc_lib.obj - ¥ ©¤¥ !',0 |
err_message_found_lib3 db 'libimg.obj - ¥ ©¤¥ !',0 |
err_message_import1 db 'box_lib.obj - ®è¨¡ª ¨¬¯®àâ !',0 |
err_message_import2 db 'proc_lib.obj - ®è¨¡ª ¨¬¯®àâ !',0 |
err_message_import3 db 'libimg.obj - ®è¨¡ª ¨¬¯®àâ !',0 |
else |
head_f_i: |
head_f_l db 'System error',0 |
err_message_found_lib1 db 'box_lib.obj - Not found!',0 |
err_message_found_lib2 db 'proc_lib.obj - Not found!',0 |
err_message_found_lib3 db 'libimg.obj - Not found!',0 |
err_message_import1 db 'box_lib.obj - Wrong import!',0 |
err_message_import2 db 'proc_lib.obj - Wrong import!',0 |
err_message_import3 db 'libimg.obj - Wrong import!',0 |
end if |
;--------------------------------------------------------------------- |
align 4 |
ProcLib_import: |