Subversion Repositories Kolibri OS

Rev

Rev 1214 | Rev 3693 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1214 Rev 1373
Line 1... Line 1...
1 
;§ £®«®¢®ª ¯à¨«®¦¥­¨ï
 1 
;§ £®«®¢®ª ¯à¨«®¦¥­¨ï
2 
use32                ; âà ­á«ïâ®à, ¨á¯®«ì§ãî騩 32 à §à來ëå ª®¬ ­¤ë
 2 
use32		     ; âà ­á«ïâ®à, ¨á¯®«ì§ãî騩 32 à §à來ëå ª®¬ ­¤ë
3 
    org 0x0                ; ¡ §®¢ë©  ¤à¥á ª®¤ , ¢á¥£¤  0x0
 3 
    org 0x0		   ; ¡ §®¢ë©  ¤à¥á ª®¤ , ¢á¥£¤  0x0
4 
    db 'MENUET01'        ; ¨¤¥­â¨ä¨ª â®à ¨á¯®«­ï¥¬®£® ä ©«  (8 ¡ ©â)
 4 
    db 'MENUET01'	 ; ¨¤¥­â¨ä¨ª â®à ¨á¯®«­ï¥¬®£® ä ©«  (8 ¡ ©â)
5 
    dd 0x1                ; ¢¥àá¨ï ä®à¬ â  § £®«®¢ª  ¨á¯®«­ï¥¬®£® ä ©« 
 5 
    dd 0x1		  ; ¢¥àá¨ï ä®à¬ â  § £®«®¢ª  ¨á¯®«­ï¥¬®£® ä ©« 
6 
    dd start                ;  ¤à¥á, ­  ª®â®àë© á¨á⥬  ¯¥à¥¤ ñâ ã¯à ¢«¥­¨¥
 6 
    dd start		    ;  ¤à¥á, ­  ª®â®àë© á¨á⥬  ¯¥à¥¤ ñâ ã¯à ¢«¥­¨¥
7 
                        ; ¯®á«¥ § £à㧪¨ ¯à¨«®¦¥­¨ï ¢ ¯ ¬ïâì
 7 
			; ¯®á«¥ § £à㧪¨ ¯à¨«®¦¥­¨ï ¢ ¯ ¬ïâì
8 
    dd i_end                ; à §¬¥à ¯à¨«®¦¥­¨ï
 8 
    dd i_end		    ; à §¬¥à ¯à¨«®¦¥­¨ï
9 
    dd mem                  ; Ž¡ê¥¬ ¨á¯®«ì§ã¥¬®© ¯ ¬ïâ¨, ¤«ï á⥪  ®â¢¥¤¥¬ 0å100 ¡ ©â ¨ ¢ë஢­¨¬ ­  £à­¨æã 4 ¡ ©â 
 9 
    dd mem		    ; Ž¡ê¥¬ ¨á¯®«ì§ã¥¬®© ¯ ¬ïâ¨, ¤«ï á⥪  ®â¢¥¤¥¬ 0å100 ¡ ©â ¨ ¢ë஢­¨¬ ­  £à­¨æã 4 ¡ ©â 
10 
    dd mem                  ; à á¯®«®¦¨¬ ¯®§¨æ¨î á⥪  ¢ ®¡« á⨠¯ ¬ïâ¨, áࠧ㠧  ⥫®¬ ¯à®£à ¬¬ë. ‚¥à設  á⥪  ¢ ¤¨ ¯ §®­¥ ¯ ¬ïâ¨, 㪠§ ­­®¬ ¢ëè¥
 10 
    dd mem		    ; à á¯®«®¦¨¬ ¯®§¨æ¨î á⥪  ¢ ®¡« á⨠¯ ¬ïâ¨, áࠧ㠧  ⥫®¬ ¯à®£à ¬¬ë. ‚¥à設  á⥪  ¢ ¤¨ ¯ §®­¥ ¯ ¬ïâ¨, 㪠§ ­­®¬ ¢ëè¥
11 
    dd 0x0              ; 㪠§ â¥«ì ­  áâபã á ¯ à ¬¥âà ¬¨.
 11 
    dd 0x0		; 㪠§ â¥«ì ­  áâபã á ¯ à ¬¥âà ¬¨.
12 
    dd cur_dir_path
 12 
    dd cur_dir_path
Line 13... Line 13...
13 
 
 13 
 
14 
 
 14 
 
15 
include '../../../../../macros.inc'
 15 
include '../../../../../macros.inc'
16 
include 'editbox_ex.mac'
 16 
include '../../trunk/box_lib.mac'
17 
include '../../load_lib.mac'
 17 
include '../../load_lib.mac'
18 
	@use_library	;use load lib macros
 18 
	@use_library	;use load lib macros
19 
start:
 19 
start:
20 
;universal load library/librarys
 20 
;universal load library/librarys
21 
sys_load_library  library_name, cur_dir_path, library_path, system_path, \
 21 
sys_load_library  library_name, cur_dir_path, library_path, system_path, \
22 
err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i
 22 
err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i
23 
;if return code =-1 then exit, else nornary work
 23 
;if return code =-1 then exit, else nornary work
24 
        cmp     eax,-1
 24 
	cmp	eax,-1
25 
        jz      exit
 25 
	jz	exit
26 
        mcall   40,0x27         ;ãáâ ­®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå ᮡë⨩
 26 
	mcall	40,0x27 	;ãáâ ­®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå ᮡë⨩
27 
red_win:
 27 
red_win:
28 
    call draw_window            ;¯¥à¢®­ ç «ì­® ­¥®¡å®¤¨¬® ­ à¨á®¢ âì ®ª­®
 28 
    call draw_window		;¯¥à¢®­ ç «ì­® ­¥®¡å®¤¨¬® ­ à¨á®¢ âì ®ª­®
29 
align 4
 29 
align 4
30 
still:                          ;®á­®¢­®© ®¡à ¡®â稪
 30 
still:				;®á­®¢­®© ®¡à ¡®â稪
31 
        mcall   10              ;Ž¦¨¤ âì ᮡëâ¨ï
 31 
	mcall	10		;Ž¦¨¤ âì ᮡëâ¨ï
32 
        dec  eax
 32 
	dec  eax
33 
        jz   red_win
 33 
	jz   red_win
34 
        dec  eax
 34 
	dec  eax
35 
        jz   key
 35 
	jz   key
36 
        dec  eax
 36 
	dec  eax
37 
        jz   button
 37 
	jz   button
38 
 
 38 
 
39 
        push    dword edit1
 39 
	push	dword edit1
40 
        call    [edit_box_mouse]
 40 
	call	[edit_box_mouse]
41 
 
 41 
 
42 
        push    dword edit2
 42 
	push	dword edit2
43 
        call    [edit_box_mouse]
 43 
	call	[edit_box_mouse]
44 
 
 44 
 
45 
        push    dword check1
 45 
	push	dword check1
46 
        call    [check_box_mouse]
 46 
	call	[check_box_mouse]
47 
 
 47 
 
Line 48... Line 48...
48 
        push    dword check2
 48 
	push	dword check2
49 
        call    [check_box_mouse]
 49 
	call	[check_box_mouse]
Line 50... Line 50...
50 
 
 50 
 
51 
        push    dword Option_boxs
 51 
	push	dword Option_boxs
Line 52... Line 52...
52 
        call    [option_box_mouse]
 52 
	call	[option_box_mouse]
53 
 
 53 
 
54 
        push    dword Option_boxs2
 54 
	push	dword Option_boxs2
55 
        call    [option_box_mouse]
 55 
	call	[option_box_mouse]
56 
 
 56 
 
57 
        jmp still    ;¥á«¨ ­¨ç¥£® ¨§ ¯¥à¥ç¨á«¥­­®£® â® á­®¢  ¢ 横«
 57 
	jmp still    ;¥á«¨ ­¨ç¥£® ¨§ ¯¥à¥ç¨á«¥­­®£® â® á­®¢  ¢ 横«
58 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 58 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
59 
button:
 59 
button:
60 
        mcall   17      ;¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª« ¢¨è¨
 60 
	mcall	17	;¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª« ¢¨è¨
Line 61... Line 61...
61 
        test ah,ah      ;¥á«¨ ¢ ah 0, â® ¯¥à¥©â¨ ­  ®¡à ¡®â稪 ᮡë⨩ still
 61 
	test ah,ah	;¥á«¨ ¢ ah 0, â® ¯¥à¥©â¨ ­  ®¡à ¡®â稪 ᮡë⨩ still
62 
        jz  still
 62 
	jz  still
Line 63... Line 63...
63 
exit:   mcall   -1
 63 
exit:	mcall	-1
64 
key:
 64 
key:
Line 65... Line 65...
65 
        mcall   2       ;§ £à㧨¬ §­ ç¥­¨¥ 2 ¢ ॣ¨áâ®à eax ¨ ¯®«ã稬 ª®¤ ­ ¦ â®© ª« ¢¨è¨
 65 
	mcall	2	;§ £à㧨¬ §­ ç¥­¨¥ 2 ¢ ॣ¨áâ®à eax ¨ ¯®«ã稬 ª®¤ ­ ¦ â®© ª« ¢¨è¨
Line 66... Line 66...
66 
 
 66 
 
67 
        push    dword edit1
 67 
	push	dword edit1
68 
        call    [edit_box_key]
 68 
	call	[edit_box_key]
69 
 
 69 
 
70 
        push    dword edit2
 70 
	push	dword edit2
Line 71... Line 71...
71 
        call    [edit_box_key]
 71 
	call	[edit_box_key]
72 
 
 72 
 
Line 73... Line 73...
73 
        jmp still
 73 
	jmp still
74 
 
 74 
 
Line 75... Line 75...
75 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 75 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
76 
align 4
 76 
align 4
Line 77... Line 77...
77 
draw_window:            ;à¨á®¢ ­¨¥ ®ª­  ¯à¨«®¦¥­¨ï
 77 
draw_window:		;à¨á®¢ ­¨¥ ®ª­  ¯à¨«®¦¥­¨ï
78 
        mcall   12,1
 78 
	mcall	12,1
Line 79... Line 79...
79 
        mcall   0,(50*65536+390),(30*65536+200),0x33AABBCC,0x805080DD,hed
 79 
	mcall	0,(50*65536+390),(30*65536+200),0x33AABBCC,0x805080DD,hed
80 
 
 80 
 
Line 81... Line 81...
81 
        push    dword edit1
 81 
	push	dword edit1
82 
        call    [edit_box_draw]
 82 
	call	[edit_box_draw]
Line 83... Line 83...
83 
 
 83 
 
84 
        push    dword edit2
 84 
	push	dword edit2
85 
        call    [edit_box_draw]
 85 
	call	[edit_box_draw]
86 
 
 86 
 
87 
        push    dword check1
 87 
	push	dword check1
88 
        call    [check_box_draw]
 88 
	call	[check_box_draw]
89 
 
 89 
 
90 
        push    dword check2
 90 
	push	dword check2
91 
        call    [check_box_draw]
 91 
	call	[check_box_draw]
92 
 
 92 
 
93 
        push    dword Option_boxs
 93 
	push	dword Option_boxs
94 
        call    [option_box_draw]
94 
	call	[option_box_draw]
Line 95... Line 95...
95 
 
 95 
 
96 
        push    dword Option_boxs2
 96 
	push	dword Option_boxs2
97 
        call    [option_box_draw]
 97 
	call	[option_box_draw]
98 
 
 98 
 
Line 99... Line 99...
99 
        mcall   12,2
 99 
	mcall	12,2
Line 100... Line 100...
100 
    ret
 100 
    ret
101 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 101 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
102 
;DATA ¤ ­­ë¥
 102 
;DATA ¤ ­­ë¥
103 
;‚ᥣ¤  ᮡ«î¤ âì ¯®á«¥¤®¢ â¥«ì­®áâì ¢ ¨¬¥­¨.
 103 
;‚ᥣ¤  ᮡ«î¤ âì ¯®á«¥¤®¢ â¥«ì­®áâì ¢ ¨¬¥­¨.
104 
system_path      db '/sys/lib/'
 104 
system_path	 db '/sys/lib/'
105 
library_name     db 'box_lib.obj',0
 105 
library_name	 db 'box_lib.obj',0
106 
; …᫨ ¥áâì ¦¥« ­¨¥ ࠧꥤ¨­¨âì, â® ­ã¦­® ¨á¯®«ì§®¢ âì á«¥¤ãîé¨î ª®­áâàãªæ¨î
 106 
; …᫨ ¥áâì ¦¥« ­¨¥ ࠧꥤ¨­¨âì, â® ­ã¦­® ¨á¯®«ì§®¢ âì á«¥¤ãîé¨î ª®­áâàãªæ¨î
107 
;system_path      db '/sys/lib/box_lib.obj',0
 107 
;system_path      db '/sys/lib/box_lib.obj',0
108 
;... «î¡ ï ¯®á«¥¤®¢ â¥«ì­®áâì ¤àã£¨å ª®¬ ­¤ ¨ ®¯à¥¤¥«¥­¨©.
 108 
;... «î¡ ï ¯®á«¥¤®¢ â¥«ì­®áâì ¤àã£¨å ª®¬ ­¤ ¨ ®¯à¥¤¥«¥­¨©.
109 
;library_name     db 'box_lib.obj',0
 109 
;library_name     db 'box_lib.obj',0
110 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 110 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
111 
 
 111 
 
Line 112... Line 112...
112 
err_message_found_lib   db 'Sorry I cannot load library box_lib.obj',0
 112 
err_message_found_lib	db 'Sorry I cannot load library box_lib.obj',0
113 
head_f_i:
 113 
head_f_i:
Line 114... Line 114...
114 
head_f_l        db 'System error',0
 114 
head_f_l	db 'System error',0
115 
err_message_import      db 'Error on load import library box_lib.obj',0
 115 
err_message_import	db 'Error on load import library box_lib.obj',0
116 
 
 116 
 
117 
myimport:
117 
myimport:
Line 118... Line 118...
118 
 
 118 
 
119 
edit_box_draw   dd      aEdit_box_draw
 119 
edit_box_draw	dd	aEdit_box_draw
120 
edit_box_key    dd      aEdit_box_key
 120 
edit_box_key	dd	aEdit_box_key
Line 121... Line 121...
121 
edit_box_mouse  dd      aEdit_box_mouse
 121 
edit_box_mouse	dd	aEdit_box_mouse
122 
version_ed      dd      aVersion_ed
 122 
version_ed	dd	aVersion_ed
123 
 
 123 
 
Line 124... Line 124...
124 
check_box_draw  dd      aCheck_box_draw
 124 
check_box_draw	dd	aCheck_box_draw
Line 159... Line 159...
159 
op3 option_box option_group1,10,120,6,12,0xffffff,0,0,op_text.3,op_text.e3-op_text.3
 159 
op3 option_box option_group1,10,120,6,12,0xffffff,0,0,op_text.3,op_text.e3-op_text.3
160 
op11 option_box option_group2,120,90,6,12,0xffffff,0,0,op_text.1,op_text.e1-op_text.1
 160 
op11 option_box option_group2,120,90,6,12,0xffffff,0,0,op_text.1,op_text.e1-op_text.1
161 
op12 option_box option_group2,120,105,6,12,0xffffff,0,0,op_text.2,op_text.e2-op_text.2
 161 
op12 option_box option_group2,120,105,6,12,0xffffff,0,0,op_text.2,op_text.e2-op_text.2
162 
op13 option_box option_group2,120,120,6,12,0xffffff,0,0,op_text.3,op_text.e3-op_text.3
 162 
op13 option_box option_group2,120,120,6,12,0xffffff,0,0,op_text.3,op_text.e3-op_text.3
Line 163... Line 163...
163 
 
 163 
 
164 
option_group1   dd op1  ;㪠§ â¥«¨, ®­¨ ®â®¡à ¦ îâáï ¯® 㬮«ç ­¨î, ª®£¤  ¢ë¢®¤¨âáï
164 
option_group1	dd op1	;㪠§ â¥«¨, ®­¨ ®â®¡à ¦ îâáï ¯® 㬮«ç ­¨î, ª®£¤  ¢ë¢®¤¨âáï
165 
option_group2   dd op12 ;¯à¨«®¦¥­¨¥
 165 
option_group2	dd op12 ;¯à¨«®¦¥­¨¥
166 
Option_boxs     dd  op1,op2,op3,0
 166 
Option_boxs	dd  op1,op2,op3,0
167 
Option_boxs2    dd  op11,op12,op13,0
 167 
Option_boxs2	dd  op11,op12,op13,0
168 
hed db   'BOXs load from lib  date 27.04.2009',0
 168 
hed db	 'BOXs load from lib  date 27.04.2009',0
169 
hed_end:
 169 
hed_end:
170 
rb  256
 170 
rb  256
171 
check_text db 'First checkbox'
 171 
check_text db 'First checkbox'
172 
check_text2 db 'Second checkbox'
 172 
check_text2 db 'Second checkbox'
173 
op_text:                ; ‘®¯à®¢®¦¤ î騩 ⥪áâ ¤«ï 祪 ¡®ªá®¢
 173 
op_text:		; ‘®¯à®¢®¦¤ î騩 ⥪áâ ¤«ï 祪 ¡®ªá®¢
174 
.1 db 'Option_Box #1'
174 
.1 db 'Option_Box #1'
175 
.e1:
 175 
.e1:
176 
.2 db 'Option_Box #2'
 176 
.2 db 'Option_Box #2'
177 
.e2:
 177 
.e2:
178 
.3 db 'Option_Box #3'
 178 
.3 db 'Option_Box #3'
179 
.e3:
 179 
.e3:
180 
ed_buffer       rb 100
 180 
ed_buffer	rb 100
181 
;-----------------------
 181 
;-----------------------
Line 182... Line 182...
182 
;sc      system_colors
 182 
;sc      system_colors
183 
 
 183 
 
184 
mouse_dd	rd 1
 184 
mouse_dd	rd 1
185 
p_info  process_information
 185 
p_info	process_information
186 
cur_dir_path    rb 4096
 186 
cur_dir_path	rb 4096
187 
library_path    rb 4096
 187 
library_path	rb 4096
188 
i_end:
 188 
i_end:
189 
rb 1024
 189 
rb 1024