Subversion Repositories Kolibri OS

Rev

Rev 3693 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3693 Rev 9568
Line 1... Line 1...
1 
;§ £®«®¢®ª ¯à¨«®¦¥­¨ï
 1 
;§ £®«®¢®ª ¯à¨«®¦¥­¨ï
2 
use32                    ; âà ­á«ïâ®à, ¨á¯®«ì§ãî騩 32 à §à來ëå ª®¬ ­¤ë
 2 
use32                    ; âà ­á«ïâ®à, ¨á¯®«ì§ãî騩 32 à §à來ëå ª®¬ ­¤ë
3 
    org 0x0              ; ¡ §®¢ë©  ¤à¥á ª®¤ , ¢á¥£¤  0x0
 3 
    org 0                ; ¡ §®¢ë©  ¤à¥á ª®¤ , ¢á¥£¤  0
4 
    db 'MENUET01'        ; ¨¤¥­â¨ä¨ª â®à ¨á¯®«­ï¥¬®£® ä ©«  (8 ¡ ©â)
 4 
    db 'MENUET01'        ; ¨¤¥­â¨ä¨ª â®à ¨á¯®«­ï¥¬®£® ä ©«  (8 ¡ ©â)
5 
    dd 0x1               ; ¢¥àá¨ï ä®à¬ â  § £®«®¢ª  ¨á¯®«­ï¥¬®£® ä ©« 
 5 
    dd 1                 ; ¢¥àá¨ï ä®à¬ â  § £®«®¢ª  ¨á¯®«­ï¥¬®£® ä ©« 
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 0                 ; 㪠§ â¥«ì ­  áâபã á ¯ à ¬¥âà ¬¨.
12 
    dd cur_dir_path      ; 㪠§ â¥«ì ­   ¤à¥á, ªã¤  ¯®¬¥é ¥âáï áâப , ᮤ¥à¦ é ï ¯ãâì ¤® ¯à®£à ¬¬ë ¢ ¬®¬¥­â § ¯ã᪠.
 12 
    dd cur_dir_path      ; 㪠§ â¥«ì ­   ¤à¥á, ªã¤  ¯®¬¥é ¥âáï áâப , ᮤ¥à¦ é ï ¯ãâì ¤® ¯à®£à ¬¬ë ¢ ¬®¬¥­â § ¯ã᪠.
Line 13... Line 13...
13 
 
 13 
 
14 
include '../../../../../macros.inc'
 14 
include '../../../../../macros.inc'
- 
 
 15 
include '../../trunk/box_lib.mac'
15 
include '../../trunk/box_lib.mac'
 16 
include '../../../../../KOSfuncs.inc'
16 
include '../../load_lib.mac'
 17 
include '../../../../../load_lib.mac'
17 
    @use_library         ;use load lib macros
 18 
    @use_library         ;use load lib macros
18 
start:
 19 
start:
19 
;universal load library/librarys
 20 
;universal load library/librarys
20 
sys_load_library  library_name, cur_dir_path, library_path, system_path, \
 - 
 
21 
err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i
 21 
sys_load_library  library_name, library_path, system_path, myimport
22 
;if return code =-1 then exit, else nornary work
 22 
;if return code =-1 then exit, else nornary work
23 
    cmp      eax,-1
 23 
    cmp      eax,-1
24 
    jz       exit
 24 
    jz       exit
Line 25... Line 25...
25 
    mcall    40,0x27          ;ãáâ ­®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå ᮡë⨩
 25 
    mcall    SF_SET_EVENTS_MASK,0x80000027 ;ãáâ ­®¢¨âì ¬ áªã ¤«ï ®¦¨¤ ¥¬ëå ᮡë⨩
26 
 
 26 
 
Line 27... Line 27...
27 
    push     dword check1     ;¯®¤áçñâ ¤¨­ë ⥪áâ  ¤«ï Checkbox'®¢
 27 
    push     dword check1     ;¯®¤áçñâ ¤¨­ë ⥪áâ  ¤«ï Checkbox'®¢
Line 32... Line 32...
32 
 
 32 
 
33 
red_win:
 33 
red_win:
34 
    call     draw_window      ;¯¥à¢®­ ç «ì­® ­¥®¡å®¤¨¬® ­ à¨á®¢ âì ®ª­®
 34 
    call     draw_window      ;¯¥à¢®­ ç «ì­® ­¥®¡å®¤¨¬® ­ à¨á®¢ âì ®ª­®
35 
align 4
 35 
align 4
36 
still:                        ;®á­®¢­®© ®¡à ¡®â稪
 36 
still:                        ;®á­®¢­®© ®¡à ¡®â稪
37 
    mcall    10               ;Ž¦¨¤ âì ᮡëâ¨ï
 37 
    mcall    SF_WAIT_EVENT
38 
    dec      eax
 38 
    dec      eax
39 
    jz       red_win
 39 
    jz       red_win
40 
    dec      eax
 40 
    dec      eax
41 
    jz       key
 41 
    jz       key
Line 61... Line 61...
61 
    call    [option_box_mouse]
 61 
    call    [option_box_mouse]
Line 62... Line 62...
62 
 
 62 
 
63 
    jmp     still           ;¥á«¨ ­¨ç¥£® ¨§ ¯¥à¥ç¨á«¥­­®£® â® á­®¢  ¢ 横«
 63 
    jmp     still           ;¥á«¨ ­¨ç¥£® ¨§ ¯¥à¥ç¨á«¥­­®£® â® á­®¢  ¢ 横«
64 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 64 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
65 
button:
 65 
button:
66 
    mcall   17             ;¯®«ãç¨âì ¨¤¥­â¨ä¨ª â®à ­ ¦ â®© ª« ¢¨è¨
 66 
    mcall   SF_GET_BUTTON
67 
    test    ah,ah          ;¥á«¨ ¢ ah 0, â® ¯¥à¥©â¨ ­  ®¡à ¡®â稪 ᮡë⨩ still
 67 
    test    ah,ah          ;¥á«¨ ¢ ah 0, â® ¯¥à¥©â¨ ­  ®¡à ¡®â稪 ᮡë⨩ still
68 
    jz      still
 68 
    jz      still
69 
exit:
 69 
exit:
70 
    mcall   -1
 70 
    mcall   SF_TERMINATE_PROCESS
71 
key:
 71 
key:
Line 72... Line 72...
72 
    mcall   2              ;§ £à㧨¬ §­ ç¥­¨¥ 2 ¢ ॣ¨áâ®à eax ¨ ¯®«ã稬 ª®¤ ­ ¦ â®© ª« ¢¨è¨
 72 
    mcall   SF_GET_KEY
73 
 
 73 
 
Line 74... Line 74...
74 
    push    dword edit1
 74 
    push    dword edit1
Line 80... Line 80...
80 
    jmp     still
 80 
    jmp     still
Line 81... Line 81...
81 
 
 81 
 
82 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 82 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
83 
align 4
 83 
align 4
84 
draw_window:                ;à¨á®¢ ­¨¥ ®ª­  ¯à¨«®¦¥­¨ï
 84 
draw_window:                ;à¨á®¢ ­¨¥ ®ª­  ¯à¨«®¦¥­¨ï
85 
    mcall   12,1
 85 
    mcall   SF_REDRAW, SSF_BEGIN_DRAW
Line 86... Line 86...
86 
    mcall   0,(50*65536+390),(30*65536+200),0x33AABBCC,0x805080DD,hed
 86 
    mcall   SF_CREATE_WINDOW,(50*65536+390),(30*65536+200),0x33AABBCC,0x805080DD,hed
87 
 
 87 
 
Line 88... Line 88...
88 
    push    dword edit1
 88 
    push    dword edit1
Line 101... Line 101...
101 
    call    [option_box_draw]
 101 
    call    [option_box_draw]
Line 102... Line 102...
102 
 
 102 
 
103 
    push    dword Option_boxs2
 103 
    push    dword Option_boxs2
Line 104... Line 104...
104 
    call    [option_box_draw]
 104 
    call    [option_box_draw]
105 
 
 105 
 
106 
    mcall   12,2
 106 
    mcall   SF_REDRAW, SSF_END_DRAW
107 
   ret
 107 
   ret
108 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 108 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
109 
;DATA ¤ ­­ë¥
 109 
;DATA ¤ ­­ë¥
Line 114... Line 114...
114 
;system_path      db '/sys/lib/box_lib.obj',0
 114 
;system_path      db '/sys/lib/box_lib.obj',0
115 
;... «î¡ ï ¯®á«¥¤®¢ â¥«ì­®áâì ¤àã£¨å ª®¬ ­¤ ¨ ®¯à¥¤¥«¥­¨©.
 115 
;... «î¡ ï ¯®á«¥¤®¢ â¥«ì­®áâì ¤àã£¨å ª®¬ ­¤ ¨ ®¯à¥¤¥«¥­¨©.
116 
;library_name     db 'box_lib.obj',0
 116 
;library_name     db 'box_lib.obj',0
117 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 117 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line 118... Line -...
118 
 
 - 
 
119 
err_message_found_lib    db 'Sorry I cannot load library box_lib.obj',0
 - 
 
120 
 
 - 
 
121 
head_f_i:
 - 
 
122 
head_f_l              db 'System error',0
 - 
 
123 
err_message_import    db 'Error on load import library box_lib.obj',0
 - 
 
124 
 
 118 
 
Line 125... Line 119...
125 
myimport:
 119 
myimport:
126 
 
 120 
 
127 
edit_box_draw    dd    aEdit_box_draw
 121 
edit_box_draw    dd    aEdit_box_draw
Line 136... Line 130...
136 
 
 130 
 
137 
option_box_draw  dd    aOption_box_draw
 131 
option_box_draw  dd    aOption_box_draw
138 
option_box_mouse dd    aOption_box_mouse
 132 
option_box_mouse dd    aOption_box_mouse
Line 139... Line -...
139 
version_op       dd    aVersion_op
 - 
 
140 
 
 133 
version_op       dd    aVersion_op
Line 141... Line 134...
141 
    dd    0
 134 
 
142 
    dd    0
 135 
    dd    0,0
143 
 
 136 
 
144 
aEdit_box_draw   db 'edit_box',0
 137 
aEdit_box_draw   db 'edit_box_draw',0
Line 145... Line 138...
145 
aEdit_box_key    db 'edit_box_key',0
 138 
aEdit_box_key    db 'edit_box_key',0