/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 |
---|