Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 8408 → Rev 8407

/programs/develop/libraries/TinyGL/asm_fork/examples/test_glu1.asm
7,13 → 7,14
include '../../../../../macros.inc'
include '../../../../../KOSfuncs.inc'
include '../../../../../load_img.inc'
include '../../../../../load_lib.mac'
include '../opengl_const.inc'
include '../zbuffer.inc'
include '../../../../../develop/info3ds/info_fun_float.inc'
 
@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 
align 4
image_data_toolbar dd 0
IMAGE_TOOLBAR_ICON_SIZE equ 21*21*3
 
;Макрос для параметров типа double (8 байт)
365,7 → 366,7
 
;--------------------------------------------------
align 4
import_tinygl:
import_lib_tinygl:
 
macro E_LIB n
{
489,6 → 490,14
lib_name_1 db 'buf2d.obj',0
system_dir_2 db '/sys/lib/'
lib_name_2 db 'libimg.obj',0
err_msg_found_lib_0 db 'Sorry I cannot load library ',39,'tinygl.obj',39,'" -tE',0
err_msg_found_lib_1 db 'Sorry I cannot load library ',39,'buf2d.obj',39,'" -tE',0
err_msg_found_lib_2 db 'Sorry I cannot load library ',39,'libimg.obj',39,'" -tE',0
head_f_i:
head_f_l db '"System error',0
err_msg_import_0 db 'Error on load import library ',39,'tinygl.obj',39,'" -tE',0
err_msg_import_1 db 'Error on load import library ',39,'buf2d.obj',39,'" -tE',0
err_msg_import_2 db 'Error on load import library ',39,'libimg.obj',39,'" -tE',0
;--------------------------------------------------
 
txt_scale:
526,21 → 535,23
 
align 4
l_libs_start:
lib_0 l_libs lib_name_0, file_name, system_dir_0, import_tinygl
lib_1 l_libs lib_name_1, file_name, system_dir_1, import_buf2d
lib_2 l_libs lib_name_2, file_name, system_dir_2, import_libimg
lib_0 l_libs lib_name_0, cur_dir_path, file_name, system_dir_0,\
err_msg_found_lib_0, head_f_l, import_lib_tinygl,err_msg_import_0,head_f_i
lib_1 l_libs lib_name_1, cur_dir_path, file_name, system_dir_1,\
err_msg_found_lib_1, head_f_l, import_buf2d, err_msg_import_1,head_f_i
lib_2 l_libs lib_name_2, cur_dir_path, file_name, system_dir_2,\
err_msg_found_lib_2, head_f_l, import_libimg, err_msg_import_2, head_f_i
l_libs_end:
 
align 4
i_end:
ctx1 rb 28 ;sizeof.TinyGLContext = 28
image_data_toolbar dd 0
qObj dd 0
run_file_70 FileInfoBlock
sc system_colors
align 16
rb 4096
stacktop:
cur_dir_path rb 4096
file_name rb 4096
rb 4096
stacktop:
mem:
/programs/develop/libraries/TinyGL/asm_fork/examples/test_glu2.asm
7,13 → 7,14
include '../../../../../macros.inc'
include '../../../../../KOSfuncs.inc'
include '../../../../../load_img.inc'
include '../../../../../load_lib.mac'
include '../opengl_const.inc'
include '../zbuffer.inc'
include '../../../../../develop/info3ds/info_fun_float.inc'
 
@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 
align 4
image_data_toolbar dd 0
IMAGE_TOOLBAR_ICON_SIZE equ 21*21*3
 
;Макрос для параметров типа double (8 байт)
356,7 → 357,7
 
;--------------------------------------------------
align 4
import_tinygl:
import_lib_tinygl:
 
macro E_LIB n
{
480,6 → 481,14
lib_name_1 db 'buf2d.obj',0
system_dir_2 db '/sys/lib/'
lib_name_2 db 'libimg.obj',0
err_msg_found_lib_0 db 'Sorry I cannot load library ',39,'tinygl.obj',39,'" -tE',0
err_msg_found_lib_1 db 'Sorry I cannot load library ',39,'buf2d.obj',39,'" -tE',0
err_msg_found_lib_2 db 'Sorry I cannot load library ',39,'libimg.obj',39,'" -tE',0
head_f_i:
head_f_l db '"System error',0
err_msg_import_0 db 'Error on load import library ',39,'tinygl.obj',39,'" -tE',0
err_msg_import_1 db 'Error on load import library ',39,'buf2d.obj',39,'" -tE',0
err_msg_import_2 db 'Error on load import library ',39,'libimg.obj',39,'" -tE',0
;--------------------------------------------------
 
txt_scale:
517,21 → 526,23
 
align 4
l_libs_start:
lib_0 l_libs lib_name_0, file_name, system_dir_0, import_tinygl
lib_1 l_libs lib_name_1, file_name, system_dir_1, import_buf2d
lib_2 l_libs lib_name_2, file_name, system_dir_2, import_libimg
lib_0 l_libs lib_name_0, cur_dir_path, file_name, system_dir_0,\
err_msg_found_lib_0, head_f_l, import_lib_tinygl,err_msg_import_0,head_f_i
lib_1 l_libs lib_name_1, cur_dir_path, file_name, system_dir_1,\
err_msg_found_lib_1, head_f_l, import_buf2d, err_msg_import_1,head_f_i
lib_2 l_libs lib_name_2, cur_dir_path, file_name, system_dir_2,\
err_msg_found_lib_2, head_f_l, import_libimg, err_msg_import_2, head_f_i
l_libs_end:
 
align 4
i_end:
ctx1 rb 28 ;sizeof.TinyGLContext = 28
image_data_toolbar dd 0
qObj dd 0
run_file_70 FileInfoBlock
sc system_colors
align 16
rb 4096
stacktop:
cur_dir_path rb 4096
file_name rb 4096
rb 4096
stacktop:
mem:
/programs/develop/libraries/TinyGL/asm_fork/examples/textures0.asm
7,12 → 7,11
include '../../../../../macros.inc'
include '../../../../../KOSfuncs.inc'
include '../../../../../load_img.inc'
include '../../../../../load_lib.mac'
include '../opengl_const.inc'
include '../zbuffer.inc'
include '../../../../../develop/info3ds/info_fun_float.inc'
 
@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 
;Макрос для параметров типа double (8 байт)
macro glpush GLDoubleVar {
20,6 → 19,8
push dword[GLDoubleVar]
}
 
align 4
image_data_toolbar dd 0
IMAGE_TOOLBAR_ICON_SIZE equ 21*21*3
 
align 4
406,7 → 407,7
 
;--------------------------------------------------
align 4
import_tinygl:
import_lib_tinygl:
 
macro E_LIB n
{
530,6 → 531,14
lib_name_1 db 'buf2d.obj',0
system_dir_2 db '/sys/lib/'
lib_name_2 db 'libimg.obj',0
err_msg_found_lib_0 db 'Sorry I cannot load library ',39,'tinygl.obj',39,'" -tE',0
err_msg_found_lib_1 db 'Sorry I cannot load library ',39,'buf2d.obj',39,'" -tE',0
err_msg_found_lib_2 db 'Sorry I cannot load library ',39,'libimg.obj',39,'" -tE',0
head_f_i:
head_f_l db '"System error',0
err_msg_import_0 db 'Error on load import library ',39,'tinygl.obj',39,'" -tE',0
err_msg_import_1 db 'Error on load import library ',39,'buf2d.obj',39,'" -tE',0
err_msg_import_2 db 'Error on load import library ',39,'libimg.obj',39,'" -tE',0
;--------------------------------------------------
 
txt_scale:
567,15 → 576,17
 
align 4
l_libs_start:
lib_0 l_libs lib_name_0, file_name, system_dir_0, import_tinygl
lib_1 l_libs lib_name_1, file_name, system_dir_1, import_buf2d
lib_2 l_libs lib_name_2, file_name, system_dir_2, import_libimg
lib_0 l_libs lib_name_0, cur_dir_path, file_name, system_dir_0,\
err_msg_found_lib_0, head_f_l, import_lib_tinygl,err_msg_import_0,head_f_i
lib_1 l_libs lib_name_1, cur_dir_path, file_name, system_dir_1,\
err_msg_found_lib_1, head_f_l, import_buf2d, err_msg_import_1,head_f_i
lib_2 l_libs lib_name_2, cur_dir_path, file_name, system_dir_2,\
err_msg_found_lib_2, head_f_l, import_libimg, err_msg_import_2, head_f_i
l_libs_end:
 
align 4
i_end:
ctx1 rb 28 ;sizeof.TinyGLContext = 28
image_data_toolbar dd 0
dr_figure dd 0
qObj dd 0
TexObj dd 0 ;массив указателей на текстуры (в данном случае 1 шт.)
585,8 → 596,8
run_file_70 FileInfoBlock
sc system_colors
align 16
rb 4096
stacktop:
cur_dir_path rb 4096
file_name rb 4096
rb 4096
stacktop:
mem:
/programs/develop/libraries/TinyGL/asm_fork/examples/textures1.asm
7,12 → 7,11
include '../../../../../macros.inc'
include '../../../../../KOSfuncs.inc'
include '../../../../../load_img.inc'
include '../../../../../load_lib.mac'
include '../opengl_const.inc'
include '../zbuffer.inc'
include '../../../../../develop/info3ds/info_fun_float.inc'
 
@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 
;Макрос для параметров типа double (8 байт)
macro glpush GLDoubleVar {
20,6 → 19,8
push dword[GLDoubleVar]
}
 
align 4
image_data_toolbar dd 0
IMAGE_TOOLBAR_ICON_SIZE equ 21*21*3
 
align 4
336,7 → 337,7
 
;--------------------------------------------------
align 4
import_tinygl:
import_lib_tinygl:
 
macro E_LIB n
{
460,6 → 461,14
lib_name_1 db 'buf2d.obj',0
system_dir_2 db '/sys/lib/'
lib_name_2 db 'libimg.obj',0
err_msg_found_lib_0 db 'Sorry I cannot load library ',39,'tinygl.obj',39,'" -tE',0
err_msg_found_lib_1 db 'Sorry I cannot load library ',39,'buf2d.obj',39,'" -tE',0
err_msg_found_lib_2 db 'Sorry I cannot load library ',39,'libimg.obj',39,'" -tE',0
head_f_i:
head_f_l db '"System error',0
err_msg_import_0 db 'Error on load import library ',39,'tinygl.obj',39,'" -tE',0
err_msg_import_1 db 'Error on load import library ',39,'buf2d.obj',39,'" -tE',0
err_msg_import_2 db 'Error on load import library ',39,'libimg.obj',39,'" -tE',0
;--------------------------------------------------
 
txt_scale:
503,15 → 512,17
 
align 4
l_libs_start:
lib_0 l_libs lib_name_0, file_name, system_dir_0, import_tinygl
lib_1 l_libs lib_name_1, file_name, system_dir_1, import_buf2d
lib_2 l_libs lib_name_2, file_name, system_dir_2, import_libimg
lib_0 l_libs lib_name_0, cur_dir_path, file_name, system_dir_0,\
err_msg_found_lib_0, head_f_l, import_lib_tinygl,err_msg_import_0,head_f_i
lib_1 l_libs lib_name_1, cur_dir_path, file_name, system_dir_1,\
err_msg_found_lib_1, head_f_l, import_buf2d, err_msg_import_1,head_f_i
lib_2 l_libs lib_name_2, cur_dir_path, file_name, system_dir_2,\
err_msg_found_lib_2, head_f_l, import_libimg, err_msg_import_2, head_f_i
l_libs_end:
 
align 4
i_end:
ctx1 rb 28 ;sizeof.TinyGLContext = 28
image_data_toolbar dd 0
dr_figure dd 0
qObj dd 0
TexObj dd 0 ;массив указателей на текстуры (в данном случае 1 шт.)
521,8 → 532,8
run_file_70 FileInfoBlock
sc system_colors
align 16
rb 4096
stacktop:
cur_dir_path rb 4096
file_name rb 4096
rb 4096
stacktop:
mem:
/programs/develop/libraries/TinyGL/asm_fork/examples/textures2.asm
7,12 → 7,11
include '../../../../../macros.inc'
include '../../../../../KOSfuncs.inc'
include '../../../../../load_img.inc'
include '../../../../../load_lib.mac'
include '../opengl_const.inc'
include '../zbuffer.inc'
include '../../../../../develop/info3ds/info_fun_float.inc'
 
@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 
;Макрос для параметров типа double (8 байт)
macro glpush GLDoubleVar {
20,6 → 19,8
push dword[GLDoubleVar]
}
 
align 4
image_data_toolbar dd 0
IMAGE_TOOLBAR_ICON_SIZE equ 21*21*3
 
align 4
293,7 → 294,7
 
;--------------------------------------------------
align 4
import_tinygl:
import_lib_tinygl:
 
macro E_LIB n
{
417,6 → 418,14
lib_name_1 db 'buf2d.obj',0
system_dir_2 db '/sys/lib/'
lib_name_2 db 'libimg.obj',0
err_msg_found_lib_0 db 'Sorry I cannot load library ',39,'tinygl.obj',39,'" -tE',0
err_msg_found_lib_1 db 'Sorry I cannot load library ',39,'buf2d.obj',39,'" -tE',0
err_msg_found_lib_2 db 'Sorry I cannot load library ',39,'libimg.obj',39,'" -tE',0
head_f_i:
head_f_l db '"System error',0
err_msg_import_0 db 'Error on load import library ',39,'tinygl.obj',39,'" -tE',0
err_msg_import_1 db 'Error on load import library ',39,'buf2d.obj',39,'" -tE',0
err_msg_import_2 db 'Error on load import library ',39,'libimg.obj',39,'" -tE',0
;--------------------------------------------------
 
txt_scale:
460,15 → 469,17
 
align 4
l_libs_start:
lib_0 l_libs lib_name_0, file_name, system_dir_0, import_tinygl
lib_1 l_libs lib_name_1, file_name, system_dir_1, import_buf2d
lib_2 l_libs lib_name_2, file_name, system_dir_2, import_libimg
lib_0 l_libs lib_name_0, cur_dir_path, file_name, system_dir_0,\
err_msg_found_lib_0, head_f_l, import_lib_tinygl,err_msg_import_0,head_f_i
lib_1 l_libs lib_name_1, cur_dir_path, file_name, system_dir_1,\
err_msg_found_lib_1, head_f_l, import_buf2d, err_msg_import_1,head_f_i
lib_2 l_libs lib_name_2, cur_dir_path, file_name, system_dir_2,\
err_msg_found_lib_2, head_f_l, import_libimg, err_msg_import_2, head_f_i
l_libs_end:
 
align 4
i_end:
ctx1 rb 28 ;sizeof.TinyGLContext = 28
image_data_toolbar dd 0
qObj dd 0
TexObj dd 0 ;массив указателей на текстуры (в данном случае 1 шт.)
texture dd 0 ;указатель на память с текстурой
477,8 → 488,8
run_file_70 FileInfoBlock
sc system_colors
align 16
rb 4096
stacktop:
cur_dir_path rb 4096
file_name rb 4096
rb 4096
stacktop:
mem:
/programs/develop/libraries/TinyGL/asm_fork/examples/gears.asm
6,7 → 6,7
include '../../../../../proc32.inc'
include '../../../../../macros.inc'
include '../../../../../KOSfuncs.inc'
include '../../../../../load_lib.mac'
include '../../../../../develop/libraries/box_lib/load_lib.mac'
include '../../../../../dll.inc'
include '../opengl_const.inc'
include 'fps.inc'
18,7 → 18,8
dia dword[esp-4*(c_param*(c_funct-funct)+(1+c_param-param))]
}
 
;Макрос для параметров типа double (8 байт)
;Так как некоторые извращенческие функции OpenGL воспринимают только параметры
;типа double (8 байт) то придется пихать их в стек макросом glpush
macro glpush GLDoubleVar {
push dword[GLDoubleVar+4]
push dword[GLDoubleVar]
26,7 → 27,8
 
align 4
start:
load_library name_tgl, library_path, system_path, import_tinygl
load_library name_tgl, cur_dir_path, library_path, system_path, \
err_message_found_lib, head_f_l, import_lib_tinygl, err_message_import, head_f_i
cmp eax,SF_TERMINATE_PROCESS
jz button.exit
 
901,7 → 903,7
 
;--------------------------------------------------
align 4
import_tinygl:
import_lib_tinygl:
 
macro E_LIB n
{
918,6 → 920,11
;--------------------------------------------------
system_path db '/sys/lib/'
name_tgl db 'tinygl.obj',0
 
head_f_i:
head_f_l db '"System error',0
err_message_import db 'Error on load import library ',39,'tinygl.obj',39,'" -tE',0
err_message_found_lib db 'Sorry I cannot load library ',39,'tinygl.obj',39,'" -tE',0
;--------------------------------------------------
 
align 16
925,8 → 932,10
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
;sizeof.TinyGLContext = 28
procinfo process_information
cur_dir_path rb 4096
library_path rb 4096
rb 4096
stacktop:
cur_dir_path:
rb 4096
library_path:
rb 4096
mem:
/programs/develop/libraries/TinyGL/asm_fork/examples/test0.asm
6,7 → 6,7
include '../../../../../proc32.inc'
include '../../../../../macros.inc'
include '../../../../../KOSfuncs.inc'
include '../../../../../load_lib.mac'
include '../../../../../develop/libraries/box_lib/load_lib.mac'
include '../../../../../dll.inc'
include '../opengl_const.inc'
 
14,7 → 14,8
 
align 4
start:
load_library name_tgl, library_path, system_path, import_lib_tinygl
load_library name_tgl, cur_dir_path, library_path, system_path, \
err_message_found_lib, head_f_l, import_lib_tinygl, err_message_import, head_f_i
cmp eax,SF_TERMINATE_PROCESS
jz button.exit
 
153,14 → 154,21
;--------------------------------------------------
system_path db '/sys/lib/'
name_tgl db 'tinygl.obj',0
 
head_f_i:
head_f_l db '"System error',0
err_message_import db 'Error on load import library ',39,'tinygl.obj',39,'" -tE',0
err_message_found_lib db 'Sorry I cannot load library ',39,'tinygl.obj',39,'" -tE',0
;--------------------------------------------------
 
align 16
i_end:
ctx1 rb 28 ;TinyGLContext or KOSGLContext
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
;sizeof.TinyGLContext = 28
cur_dir_path rb 4096
library_path rb 4096
rb 1024
stacktop:
cur_dir_path:
rb 4096
library_path:
rb 4096
mem:
/programs/develop/libraries/TinyGL/asm_fork/examples/test1.asm
6,7 → 6,7
include '../../../../../proc32.inc'
include '../../../../../macros.inc'
include '../../../../../KOSfuncs.inc'
include '../../../../../load_lib.mac'
include '../../../../../develop/libraries/box_lib/load_lib.mac'
include '../../../../../dll.inc'
include '../opengl_const.inc'
 
14,7 → 14,8
 
align 4
start:
load_library name_tgl, library_path, system_path, import_lib_tinygl
load_library name_tgl, cur_dir_path, library_path, system_path, \
err_message_found_lib, head_f_l, import_lib_tinygl, err_message_import, head_f_i
cmp eax,SF_TERMINATE_PROCESS
jz button.exit
 
153,14 → 154,21
;--------------------------------------------------
system_path db '/sys/lib/'
name_tgl db 'tinygl.obj',0
 
head_f_i:
head_f_l db '"System error',0
err_message_import db 'Error on load import library ',39,'tinygl.obj',39,'" -tE',0
err_message_found_lib db 'Sorry I cannot load library ',39,'tinygl.obj',39,'" -tE',0
;--------------------------------------------------
 
align 16
i_end:
ctx1 rb 28 ;TinyGLContext or KOSGLContext
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
;sizeof.TinyGLContext = 28
cur_dir_path rb 4096
library_path rb 4096
rb 1024
stacktop:
cur_dir_path:
rb 4096
library_path:
rb 4096
mem:
/programs/develop/libraries/TinyGL/asm_fork/examples/test2.asm
6,7 → 6,7
include '../../../../../proc32.inc'
include '../../../../../macros.inc'
include '../../../../../KOSfuncs.inc'
include '../../../../../load_lib.mac'
include '../../../../../develop/libraries/box_lib/load_lib.mac'
include '../../../../../dll.inc'
include '../opengl_const.inc'
 
14,7 → 14,8
 
align 4
start:
load_library name_tgl, library_path, system_path, import_lib_tinygl
load_library name_tgl, cur_dir_path, library_path, system_path, \
err_message_found_lib, head_f_l, import_lib_tinygl, err_message_import, head_f_i
cmp eax,SF_TERMINATE_PROCESS
jz button.exit
 
162,14 → 163,21
;--------------------------------------------------
system_path db '/sys/lib/'
name_tgl db 'tinygl.obj',0
 
head_f_i:
head_f_l db '"System error',0
err_message_import db 'Error on load import library ',39,'tinygl.obj',39,'" -tE',0
err_message_found_lib db 'Sorry I cannot load library ',39,'tinygl.obj',39,'" -tE',0
;--------------------------------------------------
 
align 16
i_end:
ctx1 rb 28 ;TinyGLContext or KOSGLContext
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
;sizeof.TinyGLContext = 28
cur_dir_path rb 4096
library_path rb 4096
rb 1024
stacktop:
cur_dir_path:
rb 4096
library_path:
rb 4096
mem:
/programs/develop/libraries/TinyGL/asm_fork/examples/test3.asm
6,7 → 6,7
include '../../../../../proc32.inc'
include '../../../../../macros.inc'
include '../../../../../KOSfuncs.inc'
include '../../../../../load_lib.mac'
include '../../../../../develop/libraries/box_lib/load_lib.mac'
include '../../../../../dll.inc'
include '../opengl_const.inc'
 
14,7 → 14,8
 
align 4
start:
load_library name_tgl, library_path, system_path, import_lib_tinygl
load_library name_tgl, cur_dir_path, library_path, system_path, \
err_message_found_lib, head_f_l, import_lib_tinygl, err_message_import, head_f_i
cmp eax,SF_TERMINATE_PROCESS
jz button.exit
 
154,14 → 155,21
;--------------------------------------------------
system_path db '/sys/lib/'
name_tgl db 'tinygl.obj',0
 
head_f_i:
head_f_l db '"System error',0
err_message_import db 'Error on load import library ',39,'tinygl.obj',39,'" -tE',0
err_message_found_lib db 'Sorry I cannot load library ',39,'tinygl.obj',39,'" -tE',0
;--------------------------------------------------
 
align 16
i_end:
ctx1 rb 28 ;TinyGLContext or KOSGLContext
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
;sizeof.TinyGLContext = 28
cur_dir_path rb 4096
library_path rb 4096
rb 1024
stacktop:
cur_dir_path:
rb 4096
library_path:
rb 4096
mem:
/programs/develop/libraries/TinyGL/asm_fork/examples/test_glu0.asm
6,7 → 6,7
include '../../../../../proc32.inc'
include '../../../../../macros.inc'
include '../../../../../KOSfuncs.inc'
include '../../../../../load_lib.mac'
include '../../../../../develop/libraries/box_lib/load_lib.mac'
include '../../../../../dll.inc'
include '../opengl_const.inc'
 
14,7 → 14,8
 
align 4
start:
load_library name_tgl, library_path, system_path, import_tinygl
load_library name_tgl, cur_dir_path, library_path, system_path, \
err_message_found_lib, head_f_l, import_lib_tinygl, err_message_import, head_f_i
cmp eax,SF_TERMINATE_PROCESS
jz button.exit
 
22,7 → 23,7
 
stdcall [kosglMakeCurrent], 10,10,300,225,ctx1
stdcall [glEnable], GL_DEPTH_TEST
call [gluNewQuadric]
stdcall [gluNewQuadric]
mov [qObj],eax
 
stdcall [glClearColor], 0.5,0.5,0.5,0.0
169,7 → 170,7
 
;--------------------------------------------------
align 4
import_tinygl:
import_lib_tinygl:
 
macro E_LIB n
{
186,13 → 187,21
;--------------------------------------------------
system_path db '/sys/lib/'
name_tgl db 'tinygl.obj',0
 
head_f_i:
head_f_l db '"System error',0
err_message_import db 'Error on load import library ',39,'tinygl.obj',39,'" -tE',0
err_message_found_lib db 'Sorry I cannot load library ',39,'tinygl.obj',39,'" -tE',0
;--------------------------------------------------
 
align 16
i_end:
ctx1 rb 28 ;sizeof.TinyGLContext = 28
cur_dir_path rb 4096
library_path rb 4096
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
;sizeof.TinyGLContext = 28
rb 2048
stacktop:
cur_dir_path:
rb 4096
library_path:
rb 4096
mem:
/programs/develop/libraries/TinyGL/asm_fork/examples/test_array1.asm
1,5 → 1,5
use32
org 0
org 0x0
db 'MENUET01'
dd 1,start,i_end,mem,stacktop,0,cur_dir_path
 
6,7 → 6,7
include '../../../../../proc32.inc'
include '../../../../../macros.inc'
include '../../../../../KOSfuncs.inc'
include '../../../../../load_lib.mac'
include '../../../../../develop/libraries/box_lib/load_lib.mac'
include '../../../../../dll.inc'
include '../opengl_const.inc'
 
14,7 → 14,8
 
align 4
start:
load_library name_tgl, library_path, system_path, import_tinygl
load_library name_tgl, cur_dir_path, library_path, system_path, \
err_message_found_lib, head_f_l, import_lib_tinygl, err_message_import, head_f_i
cmp eax,SF_TERMINATE_PROCESS
jz button.exit
 
61,8 → 62,9
pushad
mcall SF_REDRAW,SSF_BEGIN_DRAW
 
mcall SF_CREATE_WINDOW,(50 shl 16)+430,(30 shl 16)+400,0x33ffffff,,caption
call [kosglSwapBuffers]
mov edx,0x33ffffff
mcall SF_CREATE_WINDOW,(50 shl 16)+430,(30 shl 16)+400,,,caption
stdcall [kosglSwapBuffers]
 
mcall SF_REDRAW,SSF_END_DRAW
popad
81,7 → 83,7
fadd dword[delt_sc]
fstp dword[scale]
call draw_3d
call [kosglSwapBuffers]
stdcall [kosglSwapBuffers]
@@:
cmp ah,45 ;-
jne @f
89,7 → 91,7
fsub dword[delt_sc]
fstp dword[scale]
call draw_3d
call [kosglSwapBuffers]
stdcall [kosglSwapBuffers]
@@:
cmp ah,178 ;Up
jne @f
97,7 → 99,7
fadd dword[delt_size]
fstp dword[angle_y]
call draw_3d
call [kosglSwapBuffers]
stdcall [kosglSwapBuffers]
@@:
cmp ah,177 ;Down
jne @f
105,7 → 107,7
fsub dword[delt_size]
fstp dword[angle_y]
call draw_3d
call [kosglSwapBuffers]
stdcall [kosglSwapBuffers]
@@:
cmp ah,176 ;Left
jne @f
113,7 → 115,7
fadd dword[delt_size]
fstp dword[angle_x]
call draw_3d
call [kosglSwapBuffers]
stdcall [kosglSwapBuffers]
@@:
cmp ah,179 ;Right
jne @f
121,7 → 123,7
fsub dword[delt_size]
fstp dword[angle_x]
call draw_3d
call [kosglSwapBuffers]
stdcall [kosglSwapBuffers]
@@:
 
jmp still
137,11 → 139,14
 
align 4
caption db 'Test opengl 1.1 arrays, [Esc] - exit, [<-],[->],[Up],[Down] - rotate',0
align 4
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
;sizeof.TinyGLContext = 28
 
align 4
draw_3d:
stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT ;очистим буфер цвета и глубины
call [glPushMatrix]
stdcall [glPushMatrix]
 
;масштаб и повороты
stdcall [glTranslatef], 0.0,0.0,0.5
150,7 → 155,7
stdcall [glRotatef], [angle_y],0.0,1.0,0.0
stdcall [glRotatef], [angle_x],1.0,0.0,0.0
 
;рисование через индексный массив
;рисование через тндексный массив
mov eax,house_3ds ;начало внедренного файла 3ds
add eax,0xeb ;смещение по которому идут координаты вершин (получено с использованием программы info_3ds)
stdcall [glVertexPointer], 3, GL_FLOAT, 0, eax ;задаем массив для вершин, 3 - число координат для одной вершины
158,7 → 163,7
stdcall [glDrawElements], GL_TRIANGLES, 0x1a6*3, GL_UNSIGNED_SHORT, Indices ;mode, count, type, *indices
stdcall [glDisableClientState], GL_VERTEX_ARRAY ;отключаем режим рисования вершин
 
call [glPopMatrix]
stdcall [glPopMatrix]
ret
 
align 4
194,13 → 199,17
;--------------------------------------------------
system_path db '/sys/lib/'
name_tgl db 'tinygl.obj',0
err_message_found_lib db 'Sorry I cannot load library ',39,'tinygl.obj',39,0
head_f_i:
head_f_l db 'System error',0
err_message_import db 'Error on load import library ',39,'tinygl.obj',39,0
;--------------------------------------------------
 
align 4
i_end:
ctx1 rb 28 ;sizeof.TinyGLContext = 28
cur_dir_path rb 4096
library_path rb 4096
rb 4096
stacktop:
cur_dir_path:
rb 4096
library_path:
rb 4096
mem:
/programs/develop/libraries/TinyGL/asm_fork/examples/test_array0.asm
1,13 → 1,16
use32
org 0
org 0x0
db 'MENUET01'
dd 1,start,i_end,mem,stacktop,0,cur_dir_path
dd 0x1
dd start
dd i_end
dd mem,stacktop
dd 0,cur_dir_path
 
include '../../../../../proc32.inc'
include '../../../../../macros.inc'
include '../../../../../KOSfuncs.inc'
include '../../../../../load_lib.mac'
include '../../../../../dll.inc'
include '../../../../../../programs/proc32.inc'
include '../../../../../../programs/macros.inc'
include '../../../../../../programs/develop/libraries/box_lib/load_lib.mac'
include '../../../../../../programs/dll.inc'
include '../opengl_const.inc'
 
@use_library
14,11 → 17,12
 
align 4
start:
load_library name_tgl, library_path, system_path, import_tinygl
load_library name_tgl, cur_dir_path, library_path, system_path, \
err_message_found_lib, head_f_l, import_lib_tinygl, err_message_import, head_f_i
cmp eax,-1
jz button.exit
 
mcall SF_SET_EVENTS_MASK,0x27
mcall 40,0x27
 
stdcall [kosglMakeCurrent], 10,10,400,350,ctx1
stdcall [glEnable], GL_DEPTH_TEST
33,7 → 37,7
 
align 4
still:
mcall SF_WAIT_EVENT
mcall 10
cmp al,1
jz red_win
cmp al,2
45,18 → 49,19
align 4
draw_window:
pushad
mcall SF_REDRAW,SSF_BEGIN_DRAW
mcall 12,1
 
mcall SF_CREATE_WINDOW,(50 shl 16)+430,(30 shl 16)+400,0x33ffffff,,caption
call [kosglSwapBuffers]
mov edx,0x33ffffff ;0x73ffffff
mcall 0,(50 shl 16)+430,(30 shl 16)+400,,,caption
stdcall [kosglSwapBuffers]
 
mcall SF_REDRAW,SSF_END_DRAW
mcall 12,2
popad
ret
 
align 4
key:
mcall SF_GET_KEY
mcall 2
 
cmp ah,27 ;Esc
je button.exit
67,7 → 72,7
fadd dword[delt_sc]
fstp dword[scale]
call draw_3d
call [kosglSwapBuffers]
stdcall [kosglSwapBuffers]
@@:
cmp ah,45 ;-
jne @f
75,7 → 80,7
fsub dword[delt_sc]
fstp dword[scale]
call draw_3d
call [kosglSwapBuffers]
stdcall [kosglSwapBuffers]
@@:
cmp ah,178 ;Up
jne @f
83,7 → 88,7
fadd dword[delt_size]
fstp dword[angle_y]
call draw_3d
call [kosglSwapBuffers]
stdcall [kosglSwapBuffers]
@@:
cmp ah,177 ;Down
jne @f
91,7 → 96,7
fsub dword[delt_size]
fstp dword[angle_y]
call draw_3d
call [kosglSwapBuffers]
stdcall [kosglSwapBuffers]
@@:
cmp ah,176 ;Left
jne @f
99,7 → 104,7
fadd dword[delt_size]
fstp dword[angle_z]
call draw_3d
call [kosglSwapBuffers]
stdcall [kosglSwapBuffers]
@@:
cmp ah,179 ;Right
jne @f
107,7 → 112,7
fsub dword[delt_size]
fstp dword[angle_z]
call draw_3d
call [kosglSwapBuffers]
stdcall [kosglSwapBuffers]
@@:
 
jmp still
114,20 → 119,23
 
align 4
button:
mcall SF_GET_BUTTON
mcall 17
cmp ah,1
jne still
.exit:
mcall SF_TERMINATE_PROCESS
mcall -1
 
 
align 4
caption db 'Test opengl 1.1 arrays, [Esc] - exit, [<-],[->],[Up],[Down] - rotate',0
align 4
ctx1 db 28 dup (0) ;TinyGLContext or KOSGLContext
;sizeof.TinyGLContext = 28
 
align 4
draw_3d:
stdcall [glClear], GL_COLOR_BUFFER_BIT + GL_DEPTH_BUFFER_BIT ;очистим буфер цвета и глубины
call [glPushMatrix]
stdcall [glPushMatrix]
 
;масштаб и повороты
stdcall [glTranslatef], 0.0,0.0,0.5
144,7 → 152,7
stdcall [glDisableClientState], GL_COLOR_ARRAY ;отключаем режим рисования цветов
stdcall [glDisableClientState], GL_VERTEX_ARRAY ;отключаем режим рисования вершин
 
call [glPopMatrix]
stdcall [glPopMatrix]
ret
 
align 4
160,7 → 168,7
 
;--------------------------------------------------
align 4
import_tinygl:
import_lib_tinygl:
 
macro E_LIB n
{
177,13 → 185,17
;--------------------------------------------------
system_path db '/sys/lib/'
name_tgl db 'tinygl.obj',0
err_message_found_lib db 'Sorry I cannot load library tinygl.obj',0
head_f_i:
head_f_l db 'System error',0
err_message_import db 'Error on load import library tinygl.obj',0
;--------------------------------------------------
 
align 4
i_end:
ctx1 rb 28 ;sizeof.TinyGLContext = 28
cur_dir_path rb 4096
library_path rb 4096
rb 4096
stacktop:
cur_dir_path:
rb 4096
library_path:
rb 4096
mem:
/programs/develop/libraries/TinyGL/asm_fork/tinygl.asm
105,6 → 105,12
end if
 
; ***
glVertex2d: ;(double ,double)
glVertex2dv: ;(double *)
glVertex3d: ;(double ,double ,double)
glVertex3dv: ;(double *)
glVertex4d: ;(double ,double ,double, double )
glVertex4dv: ;(double *)
glColor3d: ;(double ,double ,double)
glColor3dv: ;(double *)
glColor4d: ;(double ,double ,double, double )
/programs/develop/libraries/TinyGL/asm_fork/api.asm
11,21 → 11,6
ret 20 ;=sizeof(dd)*5
 
align 4
proc glVertex4d, x:qword, y:qword, z:qword, w:qword
add esp,-16
fld qword[w]
fstp dword[esp+12]
fld qword[z]
fstp dword[esp+8]
fld qword[y]
fstp dword[esp+4]
fld qword[x]
fstp dword[esp]
call glVertex4f
ret
endp
 
align 4
proc glVertex2f, x:dword, y:dword
stdcall glVertex4f,[x],[y],0.0,1.0
ret
32,19 → 17,6
endp
 
align 4
proc glVertex2d, x:qword, y:qword
push 1.0
push 0.0
add esp,-8
fld qword[y]
fstp dword[esp+4]
fld qword[x]
fstp dword[esp]
call glVertex4f
ret
endp
 
align 4
proc glVertex2fv uses eax, v:dword
mov eax,[v]
stdcall glVertex4f,[eax],[eax+4],0.0,1.0
52,20 → 24,6
endp
 
align 4
proc glVertex2dv uses eax, v:dword
mov eax,[v]
push 1.0
push 0.0
add esp,-8
fld qword[eax+8]
fstp dword[esp+4]
fld qword[eax]
fstp dword[esp]
call glVertex4f
ret
endp
 
align 4
proc glVertex3f, x:dword, y:dword, z:dword
stdcall glVertex4f,[x],[y],[z],1.0
ret
72,20 → 30,6
endp
 
align 4
proc glVertex3d, x:qword, y:qword, z:qword
push 1.0
add esp,-12
fld qword[z]
fstp dword[esp+8]
fld qword[y]
fstp dword[esp+4]
fld qword[x]
fstp dword[esp]
call glVertex4f
ret
endp
 
align 4
proc glVertex3fv uses eax, v:dword
mov eax,[v]
stdcall glVertex4f,[eax],[eax+4],[eax+8],1.0
93,21 → 37,6
endp
 
align 4
proc glVertex3dv uses eax, v:dword
mov eax,[v]
push 1.0
add esp,-12
fld qword[eax+16]
fstp dword[esp+8]
fld qword[eax+8]
fstp dword[esp+4]
fld qword[eax]
fstp dword[esp]
call glVertex4f
ret
endp
 
align 4
proc glVertex4fv uses eax, v:dword
mov eax,[v]
stdcall glVertex4f,[eax],[eax+4],[eax+8],[eax+12]
114,22 → 43,6
ret
endp
 
align 4
proc glVertex4dv uses eax, v:dword
mov eax,[v]
add esp,-16
fld qword[eax+24]
fstp dword[esp+12]
fld qword[eax+16]
fstp dword[esp+8]
fld qword[eax+8]
fstp dword[esp+4]
fld qword[eax]
fstp dword[esp]
call glVertex4f
ret
endp
 
; glNormal
 
align 4
/programs/develop/libraries/TinyGL/asm_fork/info_fun_float.inc
5,7 → 5,7
; Š®«¨ç¥á⢮ §­ ª®¢ ç¨á«  ¯®á«¥ § ¯ï⮩ (1-17)
NumberSymbolsAD DW 5
; Š®­áâ ­âë (10 ¢ á⥯¥­¨ N)
MConst: DQ 1.0E1,1.0E2,1.0E3,1.0E4,1.0E5
MConst DQ 1.0E1,1.0E2,1.0E3,1.0E4,1.0E5
DQ 1.0E6,1.0E7,1.0E8,1.0E9,1.0E10
DQ 1.0E11,1.0E12,1.0E13,1.0E14,1.0E15
DQ 1.0E16,1.0E17,1.0E18,1.0E19,1.0E20
31,7 → 31,6
DQ 1.0E116,1.0E117,1.0E118,1.0E119,1.0E120
DQ 1.0E121,1.0E122,1.0E123,1.0E124,1.0E125
DQ 1.0E126,1.0E127,1.0E128
.end:
; —¨á«® á ¯« ¢ î饩 § ¯ï⮩ ¤¢®©­®© â®ç­®áâ¨
Data_Double DQ ?
; —¨á«® ¢ BCD-ä®à¬ â¥
40,10 → 39,9
Data_Flag DB ?
; ‡­ ª १ã«ìâ â  (¥á«¨ ­¥ 0 - ®âà¨æ â¥«ì­®¥ ç¨á«®)
Data_Sign DB ?
; ‡­ ª १ã«ìâ â  - 0 ¤«ï ..e+.. ¨ 1 ¤«ï ..e-..
Data_Sign_Exp DB ?
 
align 4
 
db 0 ;㪠§ â¥«ì ­  ᤢ¨£ ¢ ¯ ¬ïâ¨
; ‘âப  ¤«ï åà ­¥­¨ï ç¨á«  ¢ ª®¤¥ ASCII
Data_String DB 32 DUP (?)
 
61,11 → 59,10
;* ‚ë室­ë¥ ¯ à ¬¥âàë: *
;* Data_String - áâப -१ã«ìâ â. *
;*******************************************************
align 4
DoubleFloat_to_String:
pushad
; ¥§ã«ìâ â § ¯¨á뢠âì ¢ áâபã Data_String
mov EDI, Data_String
lea EDI, [Data_String]
 
; ‘¤¢¨£ ¥¬ ç¨á«® ¢«¥¢® ­  NumberSymbolsAD
; ¤¥áïâ¨ç­ëå à §à冷¢
77,7 → 74,9
je .NoShifts ;­¥â æ¨äà ¯®á«¥ § ¯ï⮩
jl .Error ;®è¨¡ª 
dec BX
lea ebx,[MConst+8*ebx]
shl BX, 3 ;㬭®¦ ¥¬ ­  8
lea eax,[MConst]
add EBX, eax
fmul qword [EBX] ;㬭®¦¨âì ­  ª®­áâ ­âã
.NoShifts:
; ˆ§¢«¥çì ç¨á«® ¢ ª®¤¥ BCD
131,8 → 130,8
stosb
 
; “¡à âì ­¥§­ ç é¨¥ ­ã«¨ á«¥¢ 
mov EDI, Data_String
mov ESI, Data_String
lea EDI, [Data_String]
lea ESI, [Data_String]
; à®¯ãáâ¨âì §­ ª ç¨á« , ¥á«¨ ®­ ¥áâì
cmp byte [ESI],'-'
jne .N2
152,11 → 151,10
; Žè¨¡ª  - ­¥â §­ ç é¨å æ¨äà
jmp .Error
; ‘ª®¯¨à®¢ âì §­ ç éãî ç áâì ç¨á«  ¢ ­ ç «® áâப¨
align 4
.N4: rep movsb
jmp .End
 
; Žè¨¡ª 
align 4
.Error:
mov AL,'E'
stosb
168,7 → 166,6
stosb
jmp .End
; ¥à¥¯®«­¥­¨¥ à §à來®© á¥âª¨
align 4
.Overflow:
mov AL,'#'
stosb
175,7 → 172,6
xor AL,AL
stosb
; Š®­¥æ ¯à®æ¥¤ãàë
align 4
.End:
popad
ret
188,7 → 184,6
;* ‚ë室­ë¥ ¯ à ¬¥âàë: *
;* Data_Double - ç¨á«® ¢ ¤¢®¨ç­®¬ ª®¤¥. *
;****************************************************
align 4
String_to_DoubleFloat:
pushad
cld
198,200 → 193,110
mov word [Data_BCD+8],0
; Žç¨é ¥¬ ¡ ©â §­ ª 
mov [Data_Sign],0
; ‡ ­®á¨¬ ¢ esi 㪠§ â¥«ì ­  áâபã
mov esi, Data_String
; ‡ ­®á¨¬ ¢ SI 㪠§ â¥«ì ­  áâபã
lea ESI, [Data_String]
; à®¯ã᪠¥¬ ¯à®¡¥«ë ¯¥à¥¤ ç¨á«®¬
mov ecx,64 ;§ é¨â  ®â § æ¨ª«¨¢ ­¨ï
.ShiftIgnore:
lodsb
cmp al,' '
cmp AL,' '
jne .ShiftIgnoreEnd
loop .ShiftIgnore
jmp .Error
align 4
.ShiftIgnoreEnd:
; à®¢¥à塞 §­ ª ç¨á« 
cmp al,'-'
cmp AL,'-'
jne .Positive
mov [Data_Sign],80h
lodsb
.Positive:
mov [Data_Flag],0 ;¯à¨§­ ª ­ «¨ç¨ï â®çª¨
xor edx,edx ;¯®§¨æ¨ï â®çª¨
mov DX,0 ;¯®§¨æ¨ï â®çª¨
mov ecx,18 ;¬ ªá. ç¨á«® à §à冷¢
align 4
.ASCIItoBCDConversion:
cmp al,'.' ;â®çª ?
cmp AL,'.' ;â®çª ?
jne .NotDot
cmp [Data_Flag],0 ;â®çª  ­¥ ¢áâà¥ç « áì?
jne .Error ;¥á«¨ â®çª  㦥 ¡ë« 
jne .Error
mov [Data_Flag],1
lodsb
or al,al ;ª®­¥æ áâப¨?
jnz .NotDot
cmp AL,0 ;ª®­¥æ áâப¨?
jne .NotDot
jmp .ASCIItoBCDConversionEnd
align 4
.NotDot:
; “¢¥«¨ç¨âì ­  1 §­ ç¥­¨¥ ¯®§¨æ¨¨ â®çª¨,
; ¥á«¨ ®­  ¥é¥ ­¥ ¢áâà¥ç « áì
cmp [Data_Flag],0
jnz .Figures
inc edx
inc DX
.Figures:
cmp al,'e'
je .exp_form
cmp al,'E'
jne @f
.exp_form:
call string_ExpForm ;¥á«¨ ç¨á«® ¢ ä®à¬ â¥ ..e..
or al,al
jnz .Error
jmp .ASCIItoBCDConversionEnd
@@:
; ‘¨¬¢®«ë ç¨á«  ¤®«¦­ë ¡ëâì æ¨äà ¬¨
cmp al,'0'
cmp AL,'0'
jb .Error
cmp al,'9'
cmp AL,'9'
ja .Error
; ¨è¥¬ ®ç¥à¥¤­ãî æ¨äàã ¢ ¬« ¤èãî â¥âà ¤ã BCD
and al,15 ;ᨬ¢®«ë 0-9 ¯¥à¥¢®¤¨¬ ¢ ç¨á«®
or byte [Data_BCD],al
and AL,0Fh
or byte [Data_BCD],AL
; à®¢¥àª  ­  ª®­¥æ áâப¨
cmp byte [esi],0
cmp byte [ESI],0
je .ASCIItoBCDConversionEnd
; ‘¤¢¨£ ¥¬ BCD ­  4 à §à鸞 ¢«¥¢®
; (ᤢ¨£ ¥¬ áâ à訥 2 ¡ ©â )
mov ax,word [Data_BCD+6]
shld word [Data_BCD+8],ax,4
mov AX,word [Data_BCD+6]
shld word [Data_BCD+8],AX,4
; (ᤢ¨£ ¥¬ á।­¨¥ 4 ¡ ©â )
mov eax,dword [Data_BCD]
shld dword [Data_BCD+4],eax,4
mov EAX, dword [Data_BCD]
shld dword [Data_BCD+4],EAX,4
; (ᤢ¨£ ¥¬ ¬« ¤è¨¥ 4 ¡ ©â )
shl dword [Data_BCD],4
; ‡ £à㦠¥¬ á«¥¤ãî騩 ᨬ¢®« ¢ AL
lodsb
loop .ASCIItoBCDConversion ;¥á«¨ ­¥ ª®¬¯¨«. â® ¯®áâ ¢¨âì dec ecx, jnz ...
loop .ASCIItoBCDConversion
; …᫨ 19-© ᨬ¢®« ­¥ 0 ¨ ­¥ â®çª ,
; â® ®è¨¡ª  ¯¥à¥¯®«­¥­¨ï
cmp al,'.'
cmp AL,'.'
jne .NotDot2
inc ecx ;¯à®¯ã᪠â®çª¨ ¢ ª®­æ¥ ®ç¥­ì ¡®«ì讣® ç¨á« 
inc ecx
lodsb
.NotDot2:
or al,al ;¯¥à¥¯®«­¥­¨¥ à §à來®© á¥âª¨?
jz .ASCIItoBCDConversionEnd
align 4
.Error: ; à¨ «î¡®© ®è¨¡ª¥ ®¡­ã«¨âì १ã«ìâ â
fldz ;§ ­¥á⨠­®«ì á á⥪ ᮯà®æ¥áá®à 
fstp [Data_Double]
jmp .End
cmp AL,0
jne .Error ;¯¥à¥¯®«­¥­¨¥ à §à來®© á¥âª¨
 
; …Ž€‡Ž‚€’œ —ˆ‘‹Ž ˆ‡ ŠŽ„€ BCD ‚ ‚…™…‘’‚…Ž… —ˆ‘‹Ž
.ASCIItoBCDConversionEnd:
; ‚¯¨á âì §­ ª ¢ áâ à訩 ¡ ©â
mov al,[Data_Sign]
mov byte [Data_BCD+9],al
mov AL,[Data_Sign]
mov byte [Data_BCD+9],AL
; ‘¡à®á¨âì ॣ¨áâàë ᮯà®æ¥áá®à 
fninit
; ‡ £à㧨âì ¢ ᮯà®æ¥áá®à ç¨á«® ¢ BCD-ä®à¬ â¥
fbld [Data_BCD]
; ‚ëç¨á«¨âì ­®¬¥à ¤¥«¨â¥«ï ¨«¨ ¬­®¦¨â¥«ï
lea ebx,[ecx+edx-18]
cmp ebx,0
jle .NoMul ;¥á«¨ ç¨á«® e-..
dec ebx
jz .NoDiv ;¥á«¨ ç¨á«® e+0
dec ebx
lea ebx,[MConst+8*ebx]
cmp ebx,MConst.end
jl @f
ffree st0
fincstp
jmp .Error ;¥á«¨ ®ç¥­ì ¡®«ì讥 ç¨á«® e+**
@@:
fmul qword [ebx] ;㬭®¦¨âì ­  ª®­áâ ­âã (¤«ï ç¨á¥« á ¯à¨áâ ¢ª®© e+..)
jmp .NoDiv
.NoMul:
neg ebx
lea ebx,[MConst+8*ebx]
cmp ebx,MConst.end
jl @f
ffree st0
fincstp
jmp .Error ;¥á«¨ ®ç¥­ì ¬ «¥­ìª®¥ ç¨á«® e-**
@@:
fdiv qword [ebx] ;à §¤¥«¨âì ­  ª®­áâ ­âã
; ‚ëç¨á«¨âì ­®¬¥à ¤¥«¨â¥«ï
mov EBX,18+1
sub BX,CX
sub BX,DX
cmp EBX,0
je .NoDiv
dec EBX
shl EBX,3 ;㬭®¦ ¥¬ ­  8
lea eax,[MConst]
add EBX,eax
fdiv qword [EBX] ;à §¤¥«¨âì ­  ª®­áâ ­âã
.NoDiv: ;‚ë£à㧨âì ç¨á«® ¢ ¤¢®¨ç­®¬ ä®à¬ â¥
fstp [Data_Double]
jmp .End
 
.Error:; à¨ «î¡®© ®è¨¡ª¥ ®¡­ã«¨âì १ã«ìâ â
fldz ;§ ­¥á⨠­®«ì á á⥪ ᮯà®æ¥áá®à 
fstp [Data_Double]
.End:
popad
ret
 
;output:
; eax - 1 if error
; edx += size
align 4
proc string_ExpForm uses ebx
mov [Data_Sign_Exp],0
xor eax,eax
lodsb
cmp al,'+'
jne @f
lodsb
@@:
cmp al,'-'
jne @f
inc [Data_Sign_Exp]
lodsb
@@:
xor ebx,ebx
.cycle0:
cmp al,0
je .cycle0end
cmp al,9
je .cycle0end
cmp al,10
je .cycle0end
cmp al,13
je .cycle0end
cmp al,' '
je .cycle0end
cmp al,'0'
jb .Error
cmp al,'9'
ja .Error
imul ebx,10
and eax,15 ;ᨬ¢®«ë 0-9 ¯¥à¥¢®¤¨¬ ¢ ç¨á«®
add ebx,eax
lodsb
jmp .cycle0
.cycle0end:
cmp ebx,328 ;308 - ¬ ªá. à §¬¥à á⥯¥­¨ ¤«ï double + 20 - ç¨á«® à §à冷¢ ¢ BCD
ja .Error
cmp [Data_Sign_Exp],0
je @f
neg ebx
@@:
cmp [Data_Flag],0 ;â®çª  ­¥ ¢áâà¥ç « áì?
jne @f
dec edx
@@:
add edx,ebx
 
xor eax,eax
jmp @f
.Error:
xor eax,eax
inc eax
@@:
ret
endp
 
align 4
proc str_cat uses eax ecx edi esi, str1:dword, str2:dword
proc str_cat, str1:dword, str2:dword
push eax ecx edi esi
mov esi,dword[str2]
stdcall str_len,esi
mov ecx,eax
401,6 → 306,7
add edi,eax
cld
repne movsb
pop esi edi ecx eax
ret
endp
 
417,34 → 323,4
@@:
sub eax,[str1]
ret
endp
 
align 4
proc String_crop_0 uses eax ebx ecx edi
mov edi,Data_String
mov al,'.'
mov ecx,32
repne scasb
mov ebx,edi
mov edi,Data_String
xor al,al
mov ecx,32
repne scasb
cmp ebx,edi
jg .end_f
dec edi
.cycle0:
dec edi
cmp edi,Data_String
jle .end_f
cmp byte[edi],'0'
jne .cycle0end
mov byte[edi],0
jmp .cycle0
.cycle0end:
cmp byte[edi],'.'
jne .end_f
mov byte[edi],0
.end_f:
ret
endp
/programs/develop/libraries/libs-dev/libimg/png/libpng/png.asm
48,8 → 48,8
png_debug 1, 'in png_set_sig_bytes'
 
mov edi,[png_ptr]
or edi,edi
jz .end_f ;if (..==0) return
cmp edi,0
je .end_f ;if (..==0) return
 
mov eax,[num_bytes]
cmp eax,0
101,10 → 101,13
align 4
proc png_zalloc uses edx ecx, png_ptr:dword, items:dword, size:dword
 
cmp dword[png_ptr],0
jne @f
xor eax,eax
cmp dword[png_ptr],eax
je .end_f ;if (..==0) return 0
jmp .end_f ;if (..==0) return 0
@@:
 
xor eax,eax
not eax
xor edx,edx
mov ecx,[size]
158,8 → 161,8
endl
mov edi,[png_ptr]
PNG_CHUNK_ANCILLARY [edi+png_struct.chunk_name]
or eax,eax ;if (..!=0)
jz @f
cmp eax,0 ;if (..!=0)
je @f
mov eax,[edi+png_struct.flags]
and eax,PNG_FLAG_CRC_ANCILLARY_MASK
cmp eax,PNG_FLAG_CRC_ANCILLARY_USE or PNG_FLAG_CRC_ANCILLARY_NOWARN
337,12 → 340,12
; Call the general version checker (shared with read and write code):
 
stdcall png_user_version_check, ebx, [user_png_ver]
or eax,eax
jz .end0 ;if (..!=0)
cmp eax,0
je .end0 ;if (..!=0)
stdcall png_malloc_warn, ebx, sizeof.png_struct
;eax = png_ptr
or eax,eax
jz .end0 ;if (..!=0)
cmp eax,0
je .end0 ;if (..!=0)
; png_ptr->zstream holds a back-pointer to the png_struct, so
; this can only be done now:
 
376,12 → 379,16
; Allocate the memory for an info_struct for the application.
;png_infop (png_structrp png_ptr)
align 4
proc png_create_info_struct uses ecx edi, png_ptr:dword
proc png_create_info_struct uses ebx ecx edi, png_ptr:dword
png_debug 1, 'in png_create_info_struct'
;ebx - info_ptr dd ? ;png_inforp
 
mov eax,[png_ptr]
or eax,eax
jz .end_f ;if (..==0) return 0
mov edi,[png_ptr]
cmp edi,0
jne @f ;if (..==0) return 0
xor eax,eax
jmp .end_f
@@:
 
; Use the internal API that does not (or at least should not) error out, so
; that this call always returns ok. The application typically sets up the
388,15 → 395,18
; error handling *after* creating the info_struct because this is the way it
; has always been done in 'example.asm'.
 
stdcall png_malloc_base, eax, sizeof.png_info_def
or eax,eax
jz .end_f
push eax
stdcall png_malloc_base, edi, sizeof.png_info_def
mov ebx,eax
 
cmp eax,0
je @f
mov edi,eax
xor eax,eax
mov ecx,sizeof.png_info_def
rep stosb ;memset(...
pop eax
@@:
 
mov eax,ebx
.end_f:
ret
endp
418,8 → 428,8
je .end_f ;if (..==0) return
 
mov edi,[info_ptr_ptr]
or edi,edi ;if (..!=0)
jz .end_f
cmp edi,0 ;if (..!=0)
je .end_f
; Do this first in case of an error below; if the app implements its own
; memory management this can lead to png_free calling png_error, which
; will abort this routine and return control to the app error handler.
480,11 → 490,11
png_debug 1, 'in png_data_freer'
 
mov edi,[png_ptr]
or edi,edi
jz .end_f
cmp edi,0
je .end_f
mov esi,[info_ptr]
or esi,esi
jz .end_f ;if (..==0 || ..==0) return
cmp esi,0
je .end_f ;if (..==0 || ..==0) return
 
; if (freer == PNG_DESTROY_WILL_FREE_DATA)
; info_ptr->free_me |= mask;
504,11 → 514,11
png_debug 1, 'in png_free_data'
 
mov edi,[png_ptr]
or edi,edi
jz .end_f
cmp edi,0
je .end_f
mov esi,[info_ptr]
or esi,esi
jz .end_f ;if (..==0 || ..==0) return
cmp esi,0
je .end_f ;if (..==0 || ..==0) return
 
if PNG_TEXT_SUPPORTED eq 1
; Free text item num or (if num == -1) all text items
712,8 → 722,8
align 4
proc png_get_io_ptr, png_ptr:dword
mov eax,[png_ptr]
or eax,eax
jz @f ;if (..==0) return 0
cmp eax,0
je @f ;if (..==0) return 0
mov eax,[eax+png_struct.io_ptr]
@@:
ret
732,8 → 742,8
png_debug 1, 'in png_init_io'
 
mov edi,[png_ptr]
or edi,edi
jz @f ;if (..==0) return
cmp edi,0
je @f ;if (..==0) return
mov eax,[fp]
mov [edi+png_struct.io_ptr],eax
@@:
957,8 → 967,8
; bytep p, p_end;
 
mov edi,[png_ptr]
or edi,edi
jz .end0
cmp edi,0
je .end0
cmp dword[chunk_name],0
je .end0
cmp dword[edi+png_struct.num_chunk_list],0
1010,8 → 1020,8
align 4
proc png_reset_zstream, png_ptr:dword
mov eax,[png_ptr]
or eax,eax
jnz @f ;if (..==0)
cmp eax,0
jne @f ;if (..==0)
mov eax,Z_STREAM_ERROR
jmp .end_f
@@:
1279,8 → 1289,8
align 4
proc png_colorspace_sync uses ecx edi esi, png_ptr:dword, info_ptr:dword
mov edi,[info_ptr]
or edi,edi
jz @f ;if (..==0) ;reduce code size; check here not in the caller
cmp edi,0
je @f ;if (..==0) ;reduce code size; check here not in the caller
mov ecx,sizeof.png_colorspace
mov esi,[png_ptr]
add esi,png_struct.colorspace
1925,8 → 1935,8
message rb 196 ;char[] ;see below for calculation
endl
mov eax,[colorspace]
or eax,eax
jz @f ;if (..!=0)
cmp eax,0
je @f ;if (..!=0)
or word[eax+png_colorspace.flags], PNG_COLORSPACE_INVALID
@@:
 
2847,8 → 2857,8
@@:
end if
 
or ebx,ebx
jz @f
cmp ebx,0
je @f
png_error edi, 'Invalid IHDR data'
@@:
ret
4422,8 → 4432,8
align 4
proc png_set_option uses ecx, png_ptr:dword, option:dword, onoff:dword
mov eax,[png_ptr]
or eax,eax
jz @f
cmp eax,0
je @f
mov ecx,[option]
cmp ecx,0
jl @f
4685,8 → 4695,8
; png_safe_execute will call this API after the return.
 
mov ebx,[image]
or ebx,ebx
jz @f
cmp ebx,0
je @f
cmp dword[ebx+png_image.opaque],0
je @f
mov eax,[ebx+png_image.opaque]
/programs/other/ha/HACONFIG.ASM
44,9 → 44,8
include '../../macros.inc'
include '../../proc32.inc'
include '../../dll.inc'
include '../../KOSfuncs.inc'
include '../../develop/libraries/box_lib/trunk/box_lib.mac' ;êîìïîíåíòû checkBox è editBox
include '../../load_lib.mac' ;ìàêðîñ äëÿ çàãðóçêè áèáëèîòåê
include '../../develop/libraries/box_lib/load_lib.mac' ;ìàêðîñ äëÿ çàãðóçêè áèáëèîòåê
@use_library
 
KMENUITEM_NORMAL equ 0
1432,6 → 1431,13
valueModeMenu2 db '०¨¬ £®àï祩 ª« ¢¨è¨ ',0
valueModeMenu3 db '०¨¬ ¦¥áâ  ¯® ª« ¢¨è¥  ªâ¨¢ æ¨¨',0
 
head_f_i:
head_f_l db '‘¨á⥬­ ï ®è¨¡ª ',0
err_message_found_lib0 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'proc_lib.obj',39,0
err_message_import0 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'proc_lib.obj',39,0
err_message_found_lib1 db '¥ ­ ©¤¥­  ¡¨¡«¨®â¥ª  ',39,'kmenu.obj',39,0
err_message_import1 db 'Žè¨¡ª  ¯à¨ ¨¬¯®à⥠¡¨¡«¨®â¥ª¨ ',39,'kmenu',39,0
 
hkCaption: db 'Š« ¢¨è :',0
;hkHint: db ' ¦¬¨â¥ «î¡ãî ª« ¢¨èã',0
radiusCaption: db ' ¤¨ãá:',0
1462,6 → 1468,13
valueModeMenu2 db 'hot key mode ',0
valueModeMenu3 db 'activation key gesture mode ',0
 
head_f_i:
head_f_l db 'System error',0
err_message_found_lib0 db 'Could not find library ',39,'proc_lib.obj',39,0
err_message_import0 db 'Error importing library ',39,'proc_lib.obj',39,0
err_message_found_lib1 db 'Could not find library ',39,'kmenu.obj',39,0
err_message_import1 db 'Error importing library ',39,'kmenu',39,0
 
hkCaption: db 'Key:',0
;hkHint: db 'press any key',0
radiusCaption: db 'Radius:',0
1704,9 → 1717,16
.y dw 200
 
 
align 4
proclib_import: ;îïèñàíèå ýêñïîðòèðóåìûõ ôóíêöèé
OpenDialog_Init dd aOpenDialog_Init
OpenDialog_Start dd aOpenDialog_Start
dd 0,0
aOpenDialog_Init db 'OpenDialog_init',0
aOpenDialog_Start db 'OpenDialog_start',0
system_dir0 db '/sys/lib/'
lib0_name db 'proc_lib.obj',0
system_dir1 db '/sys/lib/'
lib1_name db 'kmenu.obj',0
 
symbolDownArrow db 25,0
1713,8 → 1733,8
 
;library structures
l_libs_start:
lib0 l_libs lib0_name, file_name, system_dir0, import_proclib
lib1 l_libs lib1_name, file_name, system_dir1, import_libkmenu
lib0 l_libs lib0_name, sys_path, file_name, system_dir0, err_message_found_lib0, head_f_l, proclib_import,err_message_import0, head_f_i
lib1 l_libs lib1_name, sys_path, file_name, system_dir0, err_message_found_lib1, head_f_l, import_libkmenu,err_message_import1,head_f_i
load_lib_end:
 
 
1729,14 → 1749,6
editRadius edit_box 40,(buttonHotKeyX + buttonHotKeyWidth + 20),buttonModeY, 0xffffff, 0x6a9480, 0, 0xAABBCC, 0x10000000, 4, radiusBuffer.data, mouse_dd, ed_figure_only, edMax, edMax
 
align 4
import_proclib:
OpenDialog_Init dd aOpenDialog_Init
OpenDialog_Start dd aOpenDialog_Start
dd 0,0
aOpenDialog_Init db 'OpenDialog_init',0
aOpenDialog_Start db 'OpenDialog_start',0
 
align 4
import_libkmenu:
kmenu_init dd akmenu_init
kmainmenu_draw dd akmainmenu_draw
/programs/bcc32/examples/tinygl_1/tinygl_1.cpp
File deleted
/programs/bcc32/examples/tinygl_1/tinygl_1_cpp.bat
File deleted
/programs/bcc32/examples/tinygl_1/Makefile
File deleted
/programs/bcc32/include/l_tinygl.h
File deleted
\ No newline at end of file
/programs/media/log_el/trunk/log_el.asm
1,5 → 1,5
use32
org 0
org 0x0
db 'MENUET01' ;¨¤¥­â¨ä. ¨á¯®«­ï¥¬®£® ä ©«  ¢á¥£¤  8 ¡ ©â
dd 1,start,i_end,mem,stacktop,0,sys_path
 
42,12 → 42,11
include '../../../proc32.inc'
include '../../../KOSfuncs.inc'
include '../../../load_img.inc'
include '../../../load_lib.mac'
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
include 'le_pole.inc'
include 'le_signal.inc'
 
@use_library mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
caption db '‹®£¨ç¥áª¨¥ í«¥¬¥­âë 13.02.16',0 ;¯®¤¯¨áì ®ª­ 
 
panel_0_coord_top equ 5 ;¢¥àå­ïï ª®®à¤¨­ â  0-£® à鸞 ¯ ­¥«¨ ¨­áâà㬥­â®¢
172,7 → 171,13
0,-1, 1, 0
 
IMAGE_TOOLBAR_ICON_SIZE equ 16*16*3
image_data_toolbar dd 0
 
icon_tl_sys dd 0 ;㪠§ â¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï á¨á⥬­ëå ¨ª®­®ª
icon_toolbar dd 0 ;㪠§ â¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï ¨ª®­®ª ®¡ê¥ªâ®¢
 
image_data_gray dd 0 ;¯ ¬ïâì á ¢à¥¬¥­­ë¬¨ á¥à묨 ¨§®¡à ¦¥­¨ï¬¨ ¢ ä®à¬ â¥ 24-bit, ¨§ ª®â®àëå ¡ã¤ãâ ᮧ¤ ¢ âìáï âà ä à¥âë
 
cursors_count equ 4
 
ini_name db 'log_el.ini',0 ;¨¬ï ä ©« 
191,7 → 196,7
start:
load_libraries l_libs_start,l_libs_end
;¯à®¢¥àª  ­  ᪮«ìª® 㤠筮 § £ã§¨« áì ¡¨¡«¨®â¥ª 
mov ebp,lib4
mov ebp,lib_7
cmp dword [ebp+ll_struc_size-4],0
jz @f
mcall SF_TERMINATE_PROCESS
200,7 → 205,7
mcall SF_SET_EVENTS_MASK,0x27
 
;*** áç¨â뢠­¨¥ ­ áâ஥ª ¨§ *.ini ä ©« 
copy_path ini_name,sys_path,file_name,0
copy_path ini_name,sys_path,file_name,0x0
 
stdcall dword[ini_get_color],file_name,ini_sec_color,key_color_bkgnd,ini_def_c_bkgnd
mov dword[buf_0.color],eax
637,7 → 642,7
mcall SF_CREATE_WINDOW, (20 shl 16)+580,(20 shl 16)+415
 
; *** ᮧ¤ ­¨¥ ª­®¯®ª ­  ¯ ­¥«ì ***
mcall SF_DEFINE_BUTTON, (5 shl 16)+20, (panel_0_coord_top shl 16)+20, 3, [sc.work_button]
mcall SF_DEFINE_BUTTON, (5 shl 16)+20, (panel_0_coord_top shl 16)+20, 3,, [sc.work_button]
 
add ebx,25 shl 16
mov edx,4
753,26 → 758,27
stdcall pole_draw_pok, pole
 
; *** ᮧ¤ ­¨¥ ª­®¯®ª ãáâ ­®¢ª¨ ᨣ­ «®¢ set_0 ¨ set_1 ***
mcall SF_DEFINE_BUTTON, (5 shl 16)+20, (panel_1_coord_top shl 16)+20, 20, [sc.work_button]
mov esi,[sc.work_button]
mcall SF_DEFINE_BUTTON, (5 shl 16)+20, (panel_1_coord_top shl 16)+20, 20
 
add ebx,25 shl 16
inc edx
mov edx,21
int 0x40
 
add ebx,30 shl 16
inc edx
mov edx,22
int 0x40
 
add ebx,25 shl 16
inc edx
mov edx,23
int 0x40
 
add ebx,25 shl 16
inc edx
mov edx,24
int 0x40
 
add ebx,25 shl 16
inc edx
mov edx,25
int 0x40
 
mov ecx,[sc.work_text]
802,7 → 808,8
int 0x40
 
; *** ᮧ¤ ­¨¥ ª­®¯®ª à¨á®¢ ­¨ï ¯à®¢®¤  ***
mcall SF_DEFINE_BUTTON, (5 shl 16)+20, (panel_2_coord_top shl 16)+20, 30, [sc.work_button]
mov esi,[sc.work_button]
mcall SF_DEFINE_BUTTON, (5 shl 16)+20, (panel_2_coord_top shl 16)+20, 30
 
add ebx,30 shl 16
mov edx,31
1036,6 → 1043,11
color_captions dd 0x808080
 
align 4
open_file_lif:
rb 2*4096 ;®¡« áâì ¤«ï ®âªàëâ¨ï ä ©«®¢
.end:
 
align 4
but_open_file:
pushad
copy_path open_dialog_name,communication_area_default_path,file_name,0
1068,8 → 1080,8
 
mov esi,txt_size
call str_analiz_r
or edi,edi
jz @f
cmp edi,0
je @f
stdcall str_len,esi
add edi,eax
stdcall conv_str_to_int,edi
1092,8 → 1104,8
 
mov esi,txt_elements
call str_analiz_r
or edi,edi
jz .end_elems
cmp edi,0
je .end_elems
stdcall str_len,esi
add edi,eax
stdcall conv_str_to_int,edi
1404,8 → 1416,8
inc edx
push edx
stdcall pole_cell_find, edi
or eax,eax
jz @f
cmp eax,0
je @f
or dword[napr],1
@@:
 
1415,8 → 1427,8
mov edx,[ebx+offs_cell_x]
push edx
stdcall pole_cell_find, edi
or eax,eax
jz @f
cmp eax,0
je @f
or dword[napr],2
@@:
 
1426,8 → 1438,8
dec edx
push edx
stdcall pole_cell_find, edi
or eax,eax
jz @f
cmp eax,0
je @f
or dword[napr],4
@@:
 
1437,8 → 1449,8
mov edx,[ebx+offs_cell_x]
push edx
stdcall pole_cell_find, edi
or eax,eax
jz @f
cmp eax,0
je @f
or dword[napr],8
@@:
 
1958,12 → 1970,14
endp
 
align 4
proc mem_copy uses ecx esi edi, destination:dword, source:dword, len:dword
proc mem_copy, destination:dword, source:dword, len:dword
push ecx esi edi
cld
mov edi,[destination]
mov esi,[source]
mov ecx,[len]
mov esi, dword[source]
mov edi, dword[destination]
mov ecx, dword[len]
rep movsb
pop edi esi ecx
ret
endp
 
2276,8 → 2290,8
add ecx,[buf_curs.data]
mcall SF_MOUSE_GET,SSF_LOAD_CURSOR
 
or eax,eax
jz @f
cmp eax,0
je @f
mov [cursor_pointer],eax
mcall SF_MOUSE_GET,SSF_SET_CURSOR,[cursor_pointer]
@@:
2325,6 → 2339,15
 
include 'le_libs.inc'
 
mouse_dd dd 0x0
sc system_colors
last_time dd 0
 
 
 
align 16
procinfo process_information
 
align 4
buf_0: dd 0 ;
.l: dw 170 ;+4 left
2337,7 → 2360,8
align 4
buf_font: ;¡ãä¥à á® èà¨ä⮬
dd 0 ;㪠§ â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
dw 25,25 ;+4 left,top
dw 25 ;+4 left
dw 25 ;+6 top
dd 96 ;+8 w
dd 144 ;+12 h
dd 0 ;+16 color
2346,7 → 2370,8
align 4
buf_curs: ;¡ãä¥à á ªãàá®à ¬¨
.data: dd 0 ;㪠§ â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
dw 0,0 ;+4 left,top
dw 0 ;+4 left
dw 0 ;+6 top
dd 32 ;+8 w
dd 32*cursors_count ;+12 h
dd 0 ;+16 color
2355,7 → 2380,8
align 4
buf_curs_8: ;¡ãä¥à á ªãàá®à ¬¨
.data: dd 0 ;㪠§ â¥«ì ­  ¡ãä¥à ¨§®¡à ¦¥­¨ï
dw 0,0 ;+4 left,top
dw 0 ;+4 left
dw 0 ;+6 top
dd 32 ;+8 w
dd 32*cursors_count ;+12 h
dd 0 ;+16 color
2592,22 → 2618,13
 
align 16
i_end:
image_data_toolbar dd 0
icon_tl_sys dd 0 ;㪠§ â¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï á¨á⥬­ëå ¨ª®­®ª
icon_toolbar dd 0 ;㪠§ â¥«ì ­  ¯ ¬ïâì ¤«ï åà ­¥­¨ï ¨ª®­®ª ®¡ê¥ªâ®¢
image_data_gray dd 0 ;¯ ¬ïâì á ¢à¥¬¥­­ë¬¨ á¥à묨 ¨§®¡à ¦¥­¨ï¬¨ ¢ ä®à¬ â¥ 24-bit, ¨§ ª®â®àëå ¡ã¤ãâ ᮧ¤ ¢ âìáï âà ä à¥âë
mouse_dd dd 0
last_time dd 0
sc system_colors
procinfo process_information
run_file_70 FileInfoBlock
open_file_lif:
rb 2*4096 ;®¡« áâì ¤«ï ®âªàëâ¨ï ä ©«®¢
.end:
rb 1024
stacktop:
sys_path rb 1024
file_name rb 2048 ;4096
file_name:
rb 1024 ;4096
library_path rb 1024
plugin_path rb 4096
openfile_path rb 4096
filename_area rb 256
/programs/media/log_el/trunk/le_libs.inc