forked from KolibriOS/kolibrios
245 lines
6.8 KiB
NASM
245 lines
6.8 KiB
NASM
;§ £®«®¢®ª ¯à¨«®¦¥¨ï
|
||
use32 ; âà á«ïâ®à, ¨á¯®«ì§ãî騩 32 à §àï¤ëå ª®¬ ¤ë
|
||
org 0x0 ; ¡ §®¢ë© ¤à¥á ª®¤ , ¢á¥£¤ 0x0
|
||
db 'MENUET01' ; ¨¤¥â¨ä¨ª â®à ¨á¯®«ï¥¬®£® ä ©« (8 ¡ ©â)
|
||
dd 0x1 ; ¢¥àá¨ï ä®à¬ â § £®«®¢ª ¨á¯®«ï¥¬®£® ä ©«
|
||
dd start ; ¤à¥á, ª®â®àë© á¨á⥬ ¯¥à¥¤ ñâ ã¯à ¢«¥¨¥
|
||
; ¯®á«¥ § £à㧪¨ ¯à¨«®¦¥¨ï ¢ ¯ ¬ïâì
|
||
dd i_end ; à §¬¥à ¯à¨«®¦¥¨ï
|
||
dd mem ; Ž¡ê¥¬ ¨á¯®«ì§ã¥¬®© ¯ ¬ïâ¨, ¤«ï á⥪ ®â¢¥¤¥¬ 0å100 ¡ ©â ¨ ¢ë஢¨¬ £à¨æã 4 ¡ ©â
|
||
dd mem ; à ᯮ«®¦¨¬ ¯®§¨æ¨î á⥪ ¢ ®¡« á⨠¯ ¬ïâ¨, áà §ã § ⥫®¬ ¯à®£à ¬¬ë. ‚¥àè¨ á⥪ ¢ ¤¨ ¯ §®¥ ¯ ¬ïâ¨, 㪠§ ®¬ ¢ëè¥
|
||
dd 0x0 ; 㪠§ ⥫ì áâபã á ¯ à ¬¥âà ¬¨.
|
||
dd way_of_ini
|
||
include 'macros.inc'
|
||
include 'editbox_ex.mac'
|
||
start:
|
||
;Get way for ini file.
|
||
mov edi,way_of_ini
|
||
mov ecx,1024
|
||
xor eax,eax
|
||
cld
|
||
repne scasb
|
||
test ecx,ecx
|
||
jz @f
|
||
|
||
mov esi,1024
|
||
sub esi,ecx
|
||
mov ecx,esi
|
||
std
|
||
mov al,'/'
|
||
repne scasb
|
||
test ecx,ecx
|
||
jz next_way
|
||
add edi,2
|
||
@@:
|
||
mov esi,ini_file
|
||
cld
|
||
|
||
@@: lodsb
|
||
test al,al
|
||
jz @f
|
||
stosb
|
||
jmp @b
|
||
|
||
@@: xor eax,eax
|
||
stosb
|
||
|
||
; load DLL
|
||
mov ecx,way_of_ini
|
||
mov eax, 68
|
||
mov ebx, 19
|
||
mcall
|
||
test eax, eax
|
||
jz next_way
|
||
jmp import_init_
|
||
next_way:
|
||
mov ecx,ini_file
|
||
mov eax, 68
|
||
mov ebx, 19
|
||
mcall
|
||
test eax, eax
|
||
jz exit
|
||
|
||
|
||
|
||
import_init_:
|
||
; initialize import
|
||
mov edx, eax
|
||
mov esi,myimport
|
||
import_loop:
|
||
lodsd
|
||
test eax, eax
|
||
jz import_done
|
||
push edx
|
||
import_find:
|
||
mov ebx, [edx]
|
||
test ebx, ebx
|
||
jz exit;import_not_found
|
||
push eax
|
||
@@:
|
||
mov cl, [eax]
|
||
cmp cl, [ebx]
|
||
jnz import_find_next
|
||
test cl, cl
|
||
jz import_found
|
||
inc eax
|
||
inc ebx
|
||
jmp @b
|
||
import_find_next:
|
||
pop eax
|
||
add edx, 8
|
||
jmp import_find
|
||
import_found:
|
||
pop eax
|
||
mov eax, [edx+4]
|
||
mov [esi-4], eax
|
||
pop edx
|
||
jmp import_loop
|
||
import_done:
|
||
|
||
mcall 40,0x27 ;ãáâ ®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå ᮡë⨩
|
||
red_win:
|
||
call draw_window ;¯¥à¢® ç «ì® ¥®¡å®¤¨¬® à¨á®¢ âì ®ª®
|
||
align 4
|
||
still: ;®á®¢®© ®¡à ¡®â稪
|
||
mcall 10 ;Ž¦¨¤ âì ᮡëâ¨ï
|
||
dec eax
|
||
jz red_win
|
||
dec eax
|
||
jz key
|
||
dec eax
|
||
jz button
|
||
|
||
push dword edit1
|
||
call [edit_box_mouse]
|
||
|
||
push dword edit2
|
||
call [edit_box_mouse]
|
||
|
||
push dword check1
|
||
call [check_box_mouse]
|
||
|
||
push dword check2
|
||
call [check_box_mouse]
|
||
|
||
push dword Option_boxs
|
||
call [option_box_mouse]
|
||
|
||
push dword Option_boxs2
|
||
call [option_box_mouse]
|
||
|
||
jmp still ;¥á«¨ ¨ç¥£® ¨§ ¯¥à¥ç¨á«¥®£® ⮠ᮢ ¢ 横«
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
button:
|
||
mcall 17 ;¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à ¦ ⮩ ª« ¢¨è¨
|
||
test ah,ah ;¥á«¨ ¢ ah 0, â® ¯¥à¥©â¨ ®¡à ¡®â稪 ᮡë⨩ still
|
||
jz still
|
||
exit: mcall -1
|
||
key:
|
||
mcall 2 ;§ £à㧨¬ § 票¥ 2 ¢ ॣ¨áâ®à eax ¨ ¯®«ã稬 ª®¤ ¦ ⮩ ª« ¢¨è¨
|
||
|
||
push dword edit1
|
||
call [edit_box_key]
|
||
|
||
push dword edit2
|
||
call [edit_box_key]
|
||
|
||
jmp still
|
||
|
||
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
||
align 4
|
||
draw_window: ;à¨á®¢ ¨¥ ®ª ¯à¨«®¦¥¨ï
|
||
mcall 12,1
|
||
mcall 0,(50*65536+390),(30*65536+200),0xb3AABBCC,0x805080DD,hed
|
||
|
||
push dword edit1
|
||
call [edit_box_draw]
|
||
|
||
push dword edit2
|
||
call [edit_box_draw]
|
||
|
||
push dword check1
|
||
call [check_box_draw]
|
||
|
||
push dword check2
|
||
call [check_box_draw]
|
||
|
||
push dword Option_boxs
|
||
call [option_box_draw]
|
||
|
||
push dword Option_boxs2
|
||
call [option_box_draw]
|
||
|
||
mcall 12,2
|
||
ret
|
||
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
||
;DATA ¤ ë¥
|
||
ini_file db '/sys/lib/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
|
||
|
||
|
||
|
||
|
||
check1 check_box 10,45,6,12,0x80AABBCC,0,0,check_text,14,ch_flag_en
|
||
check2 check_box 10,60,6,12,0x80AABBCC,0,0,check_text2,15
|
||
|
||
edit1 edit_box 350,3,5,0xffffff,0x6f9480,0,0xAABBCC,0,308,hed,ed_focus,hed_end-hed-1,hed_end-hed-1
|
||
edit2 edit_box 350,3,25,0xffffff,0x6a9480,0,0,0,99,ed_buffer,ed_figure_only
|
||
|
||
op1 option_box option_group1,10,90,6,12,0xffffff,0,0,op_text.1,op_text.e1-op_text.1
|
||
op2 option_box option_group1,10,105,6,12,0xFFFFFF,0,0,op_text.2,op_text.e2-op_text.2
|
||
op3 option_box option_group1,10,120,6,12,0xffffff,0,0,op_text.3,op_text.e3-op_text.3
|
||
op11 option_box option_group2,120,90,6,12,0xffffff,0,0,op_text.1,op_text.e1-op_text.1
|
||
op12 option_box option_group2,120,105,6,12,0xffffff,0,0,op_text.2,op_text.e2-op_text.2
|
||
op13 option_box option_group2,120,120,6,12,0xffffff,0,0,op_text.3,op_text.e3-op_text.3
|
||
|
||
option_group1 dd op1 ;㪠§ ⥫¨, ®¨ ®â®¡à ¦ îâáï ¯® 㬮«ç ¨î, ª®£¤ ¢ë¢®¤¨âáï
|
||
option_group2 dd op12 ;¯à¨«®¦¥¨¥
|
||
Option_boxs dd op1,op2,op3,0
|
||
Option_boxs2 dd op11,op12,op13,0
|
||
hed db 'BOXs load from lib <Lrz> date 27.09.2007',0
|
||
hed_end:
|
||
rb 256
|
||
check_text db 'First checkbox'
|
||
check_text2 db 'Second checkbox'
|
||
op_text: ; ‘®¯à®¢®¦¤ î騩 ⥪áâ ¤«ï 祪 ¡®ªá®¢
|
||
.1 db 'Option_Box #1'
|
||
.e1:
|
||
.2 db 'Option_Box #2'
|
||
.e2:
|
||
.3 db 'Option_Box #3'
|
||
.e3:
|
||
ed_buffer rb 100
|
||
way_of_ini rb 1024
|
||
i_end:
|
||
rb 1024
|
||
mem: |