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 |