| 0,0 → 1,634 |
|---|
| ;08.05.2009 - bugfix |
| ;14.04.2009 - a macros for code load library the box_lib.obj from '/sys/lib/' or current dirrectory. |
| ; The macros for load any library/libraries: |
| ; Copyright (c) 2009, <Lrz> |
| ; All rights reserved. |
| ; |
| ; Redistribution and use in source and binary forms, with or without |
| ; modification, are permitted provided that the following conditions are met: |
| ; * Redistributions of source code must retain the above copyright |
| ; notice, this list of conditions and the following disclaimer. |
| ; * Redistributions in binary form must reproduce the above copyright |
| ; notice, this list of conditions and the following disclaimer in the |
| ; documentation and/or other materials provided with the distribution. |
| ; * Neither the name of the <organization> nor the |
| ; names of its contributors may be used to endorse or promote products |
| ; derived from this software without specific prior written permission. |
| ; |
| ; THIS SOFTWARE IS PROVIDED BY Alexey Teplov aka <Lrz> ''AS IS'' AND ANY |
| ; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED |
| ; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE |
| ; DISCLAIMED. IN NO EVENT SHALL <copyright holder> BE LIABLE FOR ANY |
| ; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES |
| ; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; |
| ; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND |
| ; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
| ; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS |
| ; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
| ;***************************************************************************** |
| ; This macros based on source code: |
| ; <Lrz> - Alexey Teplov / Àëåêñåé Òåïëîâ |
| ; Mario79, Mario - Marat Zakiyanov / Ìàðàò Çàêèÿíîâ |
| ; Diamondz - Evgeny Grechnikov / Åâãåíèé Ãðå÷íèêîâ |
| ;------------------------ |
| ; DESCRIPTION |
| ; Macro load_library |
| ; Logick of work. |
| ; A first time we must to check system path, where I belive find a system library. System path is "/sys/lib/". |
| ; If I cannot found my library, i must to check second way. Second way is current dirrectory. |
| ; If we cannot load library, we must show the error message: |
| ; "I'm sorry,the programm cannot found system library box_lib.obj." |
| ; "The find was make on 2 ways: /sys/lib/ and current dirrectory." |
| ; |
| ; |
| ;--------------------------------------------------------------------- |
| ; Macro sys_load_library |
| ; A first time we must to check own path in current dirrectory the program, where I belive find a system library. |
| ; If I cannot found my library, i must to check second way. Second way is system path a "/sys/lib/". |
| ; If we cannot load library, we must show the error message: |
| ; "I'm sorry,the programm cannot found system library box_lib.obj." |
| ; "The find was make on 2 ways: /sys/lib/ and current dirrectory." |
| ; |
| ;--------------------------------------------------------------------- |
| ; How can I use it? |
| ;--------------------------------------------------------------------- |
| ;-Example using single load library |
| ;-universal load library/librarys |
| ;load_library library_name__, cur_dir_path__, library_path__, system_path__, \ |
| ;err_message_found_lib__, head_f_l__, myimport, err_message_import__, head_f_i__ |
| ;-if return code =-1 then exit, else normally work |
| ; cmp eax,-1 |
| ; jz exit |
| ;- Well, if you get |
| ; |
| ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> |
| ;DATA äàííûå |
| ;Âñåãäà ñîáëþäàòü ïîñëåäîâàòåëüíîñòü â èìåíè. |
| ;system_path__ db '/sys/lib/' |
| ;library_name__ db 'box_lib.obj',0 |
| ; Åñëè åñòü æåëàíèå ðàçúåäèíèòü, òî íóæíî èñïîëüçîâàòü ñëåäóþùèþ êîíñòðóêöèþ |
| ;system_path__ db '/sys/lib/box_lib.obj',0 |
| ;... ëþáàÿ ïîñëåäîâàòåëüíîñòü äðóãèõ êîìàíä è îïðåäåëåíèé. |
| ;library_name__ db 'box_lib.obj',0 |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| |
| ;err_message_found_lib__ db 'Sorry I cannot found library box_lib.obj',0 |
| ;head_f_i__: |
| ;head_f_l__ db 'System error',0 |
| ;err_message_import__ db 'Error on load import library box_lib.obj',0 |
| |
| ;myimport: |
| ; |
| ;edit_box_draw dd aEdit_box_draw |
| ;edit_box_key dd aEdit_box_key |
| ;edit_box_mouse dd aEdit_box_mouse |
| ;version_ed dd aVersion_ed |
| ; |
| ;check_box_draw dd aCheck_box_draw |
| ;check_box_mouse dd aCheck_box_mouse |
| ;version_ch dd aVersion_ch |
| ; |
| ;option_box_draw dd aOption_box_draw |
| ;option_box_mouse dd aOption_box_mouse |
| ;version_op dd aVersion_op |
| |
| ; dd 0 |
| ; dd 0 |
| ; |
| ;aEdit_box_draw db 'edit_box',0 |
| ;aEdit_box_key db 'edit_box_key',0 |
| ;aEdit_box_mouse db 'edit_box_mouse',0 |
| ;aVersion_ed db 'version_ed',0 |
| |
| ;aCheck_box_draw db 'check_box_draw',0 |
| ;aCheck_box_mouse db 'check_box_mouse',0 |
| ;aVersion_ch db 'version_ch',0 |
| |
| ;aOption_box_draw db 'option_box_draw',0 |
| ;aOption_box_mouse db 'option_box_mouse',0 |
| ;aVersion_op db 'version_op',0 |
| |
| ;--------------------------------------------------------------------- |
| macro @use_library |
| { |
| |
| local __sc |
| local lp |
| local lp1 |
| local correction |
| ;local end_tr |
| local exit_ |
| ;/equ |
| err_message1 equ dword [esp+8] |
| head1 equ dword [esp+4] |
| |
| |
| __sc.frame equ dword [__sc+0] |
| __sc.grab equ dword [__sc+4] |
| __sc.grab_button equ dword [__sc+8] |
| __sc.grab_button_text equ dword [__sc+12] |
| __sc.grab_text equ dword [__sc+16] |
| __sc.work equ dword [__sc+20] |
| __sc.work_button equ dword [__sc+24] |
| __sc.work_button_text equ dword [__sc+28] |
| __sc.work_text equ dword [__sc+32] |
| __sc.work_graph equ dword [__sc+36] |
| |
| ;;;;;;;;;;;CALC WIDTH & HIGHT WINDOW & CENTER MONITOR POSITION;;;;;;;;;; |
| show_err_: |
| ;check memory |
| push dword [arrea_xx] |
| pop eax |
| test eax,eax |
| jnz @f |
| |
| mcall 68,11 |
| mcall 68,12,4096 |
| push eax |
| pop dword [arrea_xx] |
| |
| push head1 |
| pop dword[eax] |
| |
| push 0x0 |
| pop dword[eax+4] |
| |
| @@: |
| mov eax,48 ;get system color |
| mov ebx,3 |
| mov ecx,__sc |
| mov edx,sizeof.system_colors |
| mcall |
| ;----------------------------------- |
| xor eax,eax |
| mov esi,err_message1 |
| mov ecx,30 |
| align 4 |
| lp: add ecx,7 |
| lodsb |
| test eax,eax |
| jnz lp |
| |
| push dword [arrea_xx] |
| pop ebp |
| |
| align 4 |
| @@: add ebp,4 |
| mov eax,dword [ebp] |
| |
| test eax,eax |
| jnz @b |
| |
| push err_message1 |
| pop dword[ebp] |
| |
| mov dword [ebp+4],eax |
| |
| mcall 48,5 ;get system window |
| cmp word[on_x],cx |
| jae @f; íå íóæíî îáíîâëÿòü |
| |
| sub eax,ecx |
| shl eax,15 |
| mov ax,cx |
| mov dword [on_x],eax |
| |
| @@: |
| add word [on_y],12 |
| sub bx,word [on_y] |
| shl ebx,15 |
| mov bx,word [on_y] |
| mov dword [on_y],ebx |
| |
| ret |
| |
| |
| ;;;;;;;;;;;DRAW WINDOW;;;;;;;;;;;;;; |
| align 4 |
| start__: |
| mcall 40,0x5 ;set mask on events rewraw window and get id button. |
| .red_win: |
| ;draw_window: |
| mcall 12,1 |
| |
| xor eax,eax |
| mov ebp,dword [arrea_xx] ; set point |
| mov ebx,dword [on_x] |
| mov ecx,dword [on_y] |
| mov edx,__sc.work |
| or edx,0x33000000 |
| mov esi,__sc.grab_text |
| xor edi,edi |
| mov edi,dword [ebp] ;head1 |
| mcall |
| |
| mov ebx,(10*65536+25-12) |
| add ebp,4 ;inc index |
| |
| @@: |
| mov eax,4 |
| add bx,12 |
| mov ecx,__sc.grab_text |
| or ecx,0x90000000 |
| mov edx,dword [ebp] ;err_message1 |
| mcall |
| |
| add ebp,4 ;inc index |
| |
| mov eax,dword [ebp] |
| test eax,eax |
| jnz @b |
| |
| mcall 12,2 |
| align 4 |
| |
| .still: ;main loop |
| mcall 10 ;wait event |
| dec eax |
| jz .red_win |
| sub eax,2 |
| jnz .still ;go to main loop |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| .button: |
| mcall 17 ;get id button |
| test ah,ah ;if in ah 0, then go to still |
| jz .still |
| mcall -1 |
| ret |
| |
| align 4 |
| __sc system_colors |
| on_x dd 0x0 |
| on_y dd 0x0000004E |
| arrea_xx dd 0x0 |
| rb 0x50 |
| end_tr: |
| |
| ;--------------------------------------------------------------------- |
| @library_name equ dword [esp+12] |
| @cur_dir_path equ dword [esp+8] |
| @library_path equ dword [esp+4] |
| |
| align 4 |
| @copy_path: |
| mov ebx,@library_name |
| mov esi,@cur_dir_path |
| mov edi,@library_path |
| |
| xor eax,eax |
| cld |
| .lp1: |
| lodsb |
| stosb |
| test eax,eax |
| jnz .lp1 |
| mov esi,edi |
| |
| std |
| .lp2: |
| lodsb |
| cmp al,'/' |
| jnz .lp2 |
| mov edi,esi |
| mov esi,ebx |
| add edi,2 |
| |
| |
| cld |
| .lp3: |
| lodsb |
| stosb |
| test eax,eax |
| jnz .lp3 |
| ;--------------------------------------------------------------------- |
| ret |
| } |
| |
| |
| |
| macro sys_load_library library_name__, cur_dir_path__, library_path__, system_path__, err_message_found_lib__, head_f_l__, myimport, err_message_import__, head_f_i__ |
| { |
| local end_steep |
| local exit |
| ;--------------------------------------------------------------------- |
| ; loading Box_Lib library |
| |
| mcall 68,19,system_path__ ; load of sys directory |
| test eax,eax |
| jnz end_steep |
| |
| copy_path library_name__, cur_dir_path__, library_path__ ;the macros making way /current pach a program/+ name system library |
| |
| mcall 68,19,library_path__ ; load of alternative |
| test eax,eax |
| jnz end_steep |
| show_error_window err_message_found_lib__, head_f_l__ ;show error message /create window |
| jmp exit |
| |
| |
| align 4 |
| end_steep: |
| |
| import_boxlib myimport, err_message_import__, head_f_i__ ;import |
| exit: |
| test eax,eax |
| jz @f |
| |
| mcall 51,1,start__,end_tr ; ñîçäàåì íîâûé ïîòîê ïî øàáëîíó |
| or eax,-1 |
| @@: |
| |
| ;--------------------------------------------------------------------- |
| } |
| |
| |
| macro load_library library_name__, cur_dir_path__, library_path__, system_path__, err_message_found_lib__, head_f_l__, myimport, err_message_import__, head_f_i__ |
| { |
| local end_steep |
| local exit |
| ;--------------------------------------------------------------------- |
| ; loading Box_Lib library |
| |
| copy_path library_name__, cur_dir_path__, library_path__ ;the macros making way /current pach a program/+ name system library |
| |
| mcall 68,19,library_path__ ; load of alternative |
| test eax,eax |
| jnz end_steep |
| |
| mcall 68,19,system_path__ ; load of sys directory |
| test eax,eax |
| jnz end_steep |
| |
| show_error_window err_message_found_lib__, head_f_l__ ;show error message /create window |
| jmp exit |
| |
| align 4 |
| end_steep: |
| |
| import_boxlib myimport, err_message_import__, head_f_i__ ;import |
| exit: |
| test eax,eax |
| jz @f |
| |
| mcall 51,1,start__,end_tr ; ñîçäàåì íîâûé ïîòîê ïî øàáëîíó |
| or eax,-1 |
| @@: |
| |
| ;--------------------------------------------------------------------- |
| } |
| macro sys_load_libraries _start,_end |
| { |
| local exit_lp2 |
| local lp2 |
| local lp |
| local end_steep |
| local next |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| library_name__ equ [ebp] |
| cur_dir_path__ equ [ebp+4] |
| library_path__ equ [ebp+8] |
| system_path__ equ [ebp+12] |
| err_message_found_lib__ equ [ebp+16] |
| head_f_l__ equ [ebp+20] |
| my_import equ [ebp+24] |
| err_message_import__ equ [ebp+28] |
| head_f_i__ equ [ebp+32] |
| adr_load_lib equ dword [ebp+36] |
| status_lib equ dword [ebp+40] |
| |
| mov ebp,_start |
| mov ecx,((_end-_start)/ll_struc_size) |
| |
| align 4 |
| lp: push ecx |
| mcall 68,19,system_path__ ; load of sys directory |
| test eax,eax |
| jnz end_steep |
| |
| copy_path library_name__, cur_dir_path__, library_path__ ;the macros making way /current pach a program/+ name system library |
| |
| mcall 68,19,library_path__ ; load of alternative |
| test eax,eax |
| jnz end_steep |
| |
| or status_lib,0x1 ; status of code - enable error - not found library |
| |
| show_error_window err_message_found_lib__, head_f_l__ ;show error message /create window |
| jmp next |
| |
| align 4 |
| end_steep: |
| mov adr_load_lib,eax ;save adr lib in memory |
| import_boxlib my_import, err_message_import__, head_f_i__ ;import |
| |
| test eax,eax |
| jz next |
| |
| or status_lib,0x2 ; status of code - enable error - import error |
| |
| next: |
| pop ecx |
| add ebp,ll_struc_size |
| dec ecx |
| jnz lp |
| |
| ;---------------------------------- |
| mov ebp,_start |
| mov ecx,((_end-_start)/ll_struc_size) |
| |
| align 4 |
| lp2: |
| mov eax,status_lib |
| test eax,eax |
| jz @f |
| |
| mcall 51,1,start__,end_tr ; ñîçäàåì íîâûé ïîòîê ïî øàáëîíó |
| or eax,-1 |
| jmp exit_lp2 |
| |
| @@: |
| add ebp,ll_struc_size |
| dec ecx |
| jnz lp2 |
| exit_lp2: |
| } |
| |
| macro load_libraries _start,_end |
| { |
| local lp2 |
| local exit_lp2 |
| local lp |
| local end_steep |
| local next |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| library_name__ equ [ebp] |
| cur_dir_path__ equ [ebp+4] |
| library_path__ equ [ebp+8] |
| system_path__ equ [ebp+12] |
| err_message_found_lib__ equ [ebp+16] |
| head_f_l__ equ [ebp+20] |
| my_import equ [ebp+24] |
| err_message_import__ equ [ebp+28] |
| head_f_i__ equ [ebp+32] |
| adr_load_lib equ dword [ebp+36] |
| status_lib equ dword [ebp+40] |
| |
| mov ebp,_start |
| mov ecx,((_end-_start)/ll_struc_size) |
| |
| align 4 |
| lp: push ecx |
| |
| copy_path library_name__, cur_dir_path__, library_path__ ;the macros making way /current pach a program/+ name system library |
| |
| mcall 68,19,library_path__ ; load of alternative |
| test eax,eax |
| jnz end_steep |
| |
| mcall 68,19,system_path__ ; load of sys directory |
| test eax,eax |
| jnz end_steep |
| |
| or status_lib,0x1 ; status of code - enable error - not found library |
| |
| show_error_window err_message_found_lib__, head_f_l__ ;show error message /create window |
| jmp next |
| |
| align 4 |
| end_steep: |
| mov adr_load_lib,eax ;save adr lib in memory |
| |
| import_boxlib my_import, err_message_import__, head_f_i__ ;import |
| |
| test eax,eax |
| jz next |
| |
| or status_lib,0x2 ; status of code - enable error - import error |
| |
| next: |
| pop ecx |
| add ebp,ll_struc_size |
| dec ecx |
| jnz lp |
| |
| ;----------------------------------------------- |
| mov ebp,_start |
| mov ecx,((_end-_start)/ll_struc_size) |
| |
| align 4 |
| lp2: |
| mov eax,status_lib |
| test eax,eax |
| jz @f |
| |
| mcall 51,1,start__,end_tr ; ñîçäàåì íîâûé ïîòîê ïî øàáëîíó |
| or eax,-1 |
| jmp exit_lp2 |
| |
| @@: |
| add ebp,ll_struc_size |
| dec ecx |
| jnz lp2 |
| exit_lp2: |
| |
| } |
| |
| |
| macro copy_path lib_name,dir_path,lib_path |
| { |
| pushad ;save all registers |
| push dword lib_name |
| push dword dir_path |
| push dword lib_path |
| |
| call @copy_path |
| |
| add esp,12 |
| popad ;restore all registers |
| } |
| |
| macro show_error_window err_message, head |
| { pushad ;save all registers |
| push dword err_message |
| push dword head |
| |
| call show_err_ |
| |
| add esp,8 |
| popad ;restore all registers |
| or eax,-1 ;óâû |
| } |
| |
| |
| macro import_boxlib myimport, err_message_import__, head_f_i__ |
| { |
| local import_loop |
| local import_find |
| local lp |
| local import_find_next |
| local import_found |
| local import_done |
| local exit |
| local e.exit |
| local import_not_found |
| ; initialize import |
| |
| mov edx, eax |
| mov esi,myimport |
| import_loop: |
| lodsd |
| test eax, eax |
| jz import_done |
| push edx |
| import_find: |
| mov ebx, [ds:edx] |
| test ebx, ebx |
| jz import_not_found |
| push eax |
| lp: |
| mov cl, [ds:eax] |
| cmp cl, [ds:ebx] |
| jnz import_find_next |
| test cl, cl |
| jz import_found |
| inc eax |
| inc ebx |
| jmp lp |
| import_find_next: |
| pop eax |
| add edx, 8 |
| jmp import_find |
| import_found: |
| pop eax |
| mov eax, [ds:edx+4] |
| mov [esi-4], eax |
| pop edx |
| jmp import_loop |
| import_not_found: |
| add esp,4 |
| show_error_window err_message_import__, head_f_i__ ;show error message /create window |
| jmp e.exit |
| import_done: |
| xor eax,eax |
| e.exit: |
| ;--------------------------------------------------------------------- |
| } |
| ll_struc_size = 44;($-library_name__) ; constant size of struct |
| struc l_libs library_name__, cur_dir_path__, library_path__, system_path__, err_message_found_lib__, head_f_l__, my_import, err_message_import__, head_f_i__; struct for loading libraries |
| { |
| .library_name__ dd library_name__ ; èìÿ çàãðóæàåìîé áèáëèîòåêè |
| .cur_dir_path__ dd cur_dir_path__ ; óêàçàòåëü íà áóôåð â êîòîðîì ñîäåðæèòüñÿ ïóòü îò êóäà áûëà çàïóùåíà ïðîãðàììà |
| |
| .library_path__ dd library_path__ ; óêàçàòåëü íà áóôåð â êîòîðîì áóäåò ñîôîðèìèðîâàí ïóòü ê áèáëèîòåêè, åñëè íóæíî âû÷èñëèòü ïóòü äî ëèáû ñ ìåñòà çàïóñêà ïðîãðàììû, îáû÷íî íóæíî, â ñëó÷àÿõ, åñëè ëèáà ðàñïîëîæåíà â òîé æå ïàïêå |
| .complete_path dd system_path__ ; ïóòü êîòîðûé ÷åòêî ñîäåðæèò ïóòü |
| |
| .err_message_found_lib__ dd err_message_found_lib__ |
| .head_f_l__ dd head_f_l__ |
| .my_import dd my_import |
| .err_message_import__ dd err_message_import__ |
| .head_f_i__ dd head_f_i__ |
| |
| .adr_load_lib dd 0x0 |
| .status_lib dd 0x0 ;status of load library |
| ; |
| } |