Rev 309 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
205 | heavyiron | 1 | ;--- другие макросы --- |
349 | Lrz | 2 | include '../../../develop/examples/editbox/trunk/editbox.inc' |
3 | ;include 'editbox.inc' |
||
205 | heavyiron | 4 | include 'txtbut.inc' |
308 | Lrz | 5 | ;include 'gp.inc' |
6 | ;include 'label.inc' |
||
7 | ;include 'checkbox.inc' |
||
8 | ;include 'file_sys.inc' |
||
9 | ;include 'textwork.inc' |
||
10 | ;include 'ini.inc' |
||
31 | halyavin | 11 | |
205 | heavyiron | 12 | ;--- заголовок --- |
13 | macro meos_header par_buf,cur_dir_buf |
||
14 | { |
||
308 | Lrz | 15 | use32 |
16 | org 0x0 |
||
31 | halyavin | 17 | |
308 | Lrz | 18 | db 'MENUET01' |
19 | dd 0x01 |
||
20 | dd __app_start |
||
21 | dd __app_end |
||
22 | dd __app_end |
||
23 | dd __app_end |
||
205 | heavyiron | 24 | if |
308 | Lrz | 25 | dd 0x0 |
205 | heavyiron | 26 | else |
308 | Lrz | 27 | dd par_buf |
205 | heavyiron | 28 | end if |
29 | if |
||
308 | Lrz | 30 | dd 0x0 |
205 | heavyiron | 31 | else |
308 | Lrz | 32 | dd cur_dir_buf |
205 | heavyiron | 33 | end if |
34 | } |
||
31 | halyavin | 35 | |
205 | heavyiron | 36 | ;--- определить точку входа --- |
37 | macro app_start |
||
38 | { |
||
39 | __app_start: |
||
40 | } |
||
31 | halyavin | 41 | |
205 | heavyiron | 42 | ;--- определить конец приложения и размер стека --- |
43 | macro app_end stack_size |
||
44 | { |
||
45 | if |
||
308 | Lrz | 46 | rb 1024 |
205 | heavyiron | 47 | else |
308 | Lrz | 48 | rb stack_size |
205 | heavyiron | 49 | end if |
50 | __app_end: |
||
51 | } |
||
31 | halyavin | 52 | |
205 | heavyiron | 53 | ;--- завершить текущий поток --- |
54 | macro app_close |
||
55 | { |
||
308 | Lrz | 56 | xor eax,eax |
57 | dec eax |
||
58 | int 0x40 |
||
205 | heavyiron | 59 | } |
31 | halyavin | 60 | |
205 | heavyiron | 61 | ;--- получить код нажатой клавиши --- |
62 | macro get_key |
||
63 | { |
||
308 | Lrz | 64 | mov eax,2 |
65 | int 0x40 |
||
205 | heavyiron | 66 | } |
31 | halyavin | 67 | |
205 | heavyiron | 68 | ;--- получить код нажатой кнопки --- |
69 | macro get_pressed_button |
||
70 | { |
||
308 | Lrz | 71 | mov eax,17 |
72 | int 0x40 |
||
205 | heavyiron | 73 | } |
31 | halyavin | 74 | |
205 | heavyiron | 75 | ;--- сообщить системе о начале перерисовки окна --- |
76 | macro start_draw_window |
||
77 | { |
||
308 | Lrz | 78 | mov eax,12 |
79 | xor ebx,ebx |
||
80 | inc ebx |
||
81 | int 0x40 |
||
205 | heavyiron | 82 | } |
31 | halyavin | 83 | |
205 | heavyiron | 84 | ;--- сообщить системе о завершении перерисовки окна --- |
85 | macro stop_draw_window |
||
86 | { |
||
308 | Lrz | 87 | mov eax,12 |
88 | mov ebx,2 |
||
89 | int 0x40 |
||
205 | heavyiron | 90 | } |
31 | halyavin | 91 | |
205 | heavyiron | 92 | ;--- установить маску ожидаемых событий --- |
93 | macro set_events_mask mask |
||
94 | { |
||
308 | Lrz | 95 | mov eax,40 |
96 | mov ebx,mask |
||
97 | int 0x40 |
||
31 | halyavin | 98 | } |
99 | |||
205 | heavyiron | 100 | ;--- получить информацию о процессе --- |
101 | macro get_procinfo proc_inf_buf,slot_num |
||
102 | { |
||
308 | Lrz | 103 | mov eax,9 |
104 | mov ebx,proc_inf_buf |
||
205 | heavyiron | 105 | if |
308 | Lrz | 106 | xor ecx,ecx |
107 | dec ecx |
||
205 | heavyiron | 108 | else |
308 | Lrz | 109 | mov ecx,slot_num |
205 | heavyiron | 110 | end if |
308 | Lrz | 111 | int 0x40 |
31 | halyavin | 112 | } |
113 | |||
205 | heavyiron | 114 | macro get_sys_colors col_buf |
115 | { |
||
308 | Lrz | 116 | mov eax,48 |
117 | mov ebx,3 |
||
118 | mov ecx,col_buf |
||
119 | mov edx,40 |
||
120 | int 0x40 |
||
205 | heavyiron | 121 | } |
31 | halyavin | 122 | |
205 | heavyiron | 123 | macro get_grab_area |
124 | { |
||
308 | Lrz | 125 | mov eax,48 |
126 | mov ebx,7 |
||
127 | int 0x40 |
||
205 | heavyiron | 128 | } |
31 | halyavin | 129 | |
308 | Lrz | 130 | macro get_skin_height |
31 | halyavin | 131 | { |
308 | Lrz | 132 | mov eax,48 |
133 | mov ebx,4 |
||
134 | int 0x40 |
||
31 | halyavin | 135 | } |
136 | |||
205 | heavyiron | 137 | macro min_window |
138 | { |
||
308 | Lrz | 139 | mov eax,18 |
140 | mov ebx,10 |
||
141 | int 0x40 |
||
31 | halyavin | 142 | } |
143 | |||
205 | heavyiron | 144 | macro activ_window slot_n |
145 | { |
||
308 | Lrz | 146 | mov eax,18 |
147 | mov ebx,3 |
||
205 | heavyiron | 148 | if |
149 | else |
||
308 | Lrz | 150 | mov ecx,slot_n |
205 | heavyiron | 151 | end if |
308 | Lrz | 152 | int 0x40 |
31 | halyavin | 153 | } |
154 | |||
205 | heavyiron | 155 | macro get_active_window |
156 | { |
||
308 | Lrz | 157 | mov eax,18 |
158 | mov ebx,7 |
||
159 | int 0x40 |
||
205 | heavyiron | 160 | } |
31 | halyavin | 161 | |
205 | heavyiron | 162 | macro delay time |
163 | { |
||
308 | Lrz | 164 | mov eax,5 |
205 | heavyiron | 165 | if |
166 | else |
||
308 | Lrz | 167 | mov ebx,time |
205 | heavyiron | 168 | end if |
308 | Lrz | 169 | int 0x40 |
205 | heavyiron | 170 | } |
31 | halyavin | 171 | |
205 | heavyiron | 172 | ;--- ожидать события --- |
173 | macro wait_event redraw,key,button,mouse,ipc,other |
||
174 | { |
||
308 | Lrz | 175 | mov eax,10 |
176 | int 0x40 |
||
177 | dec ax |
||
205 | heavyiron | 178 | if |
179 | else |
||
308 | Lrz | 180 | jz redraw |
205 | heavyiron | 181 | end if |
308 | Lrz | 182 | dec ax |
205 | heavyiron | 183 | if |
184 | else |
||
308 | Lrz | 185 | jz key |
205 | heavyiron | 186 | end if |
308 | Lrz | 187 | dec ax |
205 | heavyiron | 188 | if |
189 | else |
||
308 | Lrz | 190 | jz button |
205 | heavyiron | 191 | end if |
308 | Lrz | 192 | dec ax |
193 | dec ax |
||
194 | dec ax |
||
205 | heavyiron | 195 | if |
196 | else |
||
308 | Lrz | 197 | jz mouse |
205 | heavyiron | 198 | end if |
199 | if |
||
200 | else |
||
308 | Lrz | 201 | dec ax |
202 | jz ipc |
||
205 | heavyiron | 203 | end if |
204 | if |
||
308 | Lrz | 205 | jmp still |
205 | heavyiron | 206 | else |
308 | Lrz | 207 | jmp other |
205 | heavyiron | 208 | end if |
209 | } |
||
31 | halyavin | 210 | |
205 | heavyiron | 211 | ;--- получить размеры экрана --- |
212 | macro get_screen_size |
||
213 | { |
||
308 | Lrz | 214 | mov eax,14 |
215 | int 0x40 |
||
205 | heavyiron | 216 | } |
31 | halyavin | 217 | |
205 | heavyiron | 218 | macro get_screen_prop struc_ptr |
219 | { |
||
308 | Lrz | 220 | mov eax,61 |
221 | push eax eax |
||
222 | xor ebx,ebx |
||
223 | inc ebx |
||
224 | int 0x40 |
||
225 | mov [struc_ptr],eax |
||
226 | pop eax |
||
227 | inc ebx |
||
228 | int 0x40 |
||
229 | mov [struc_ptr+4],ax |
||
230 | pop eax |
||
231 | inc ebx |
||
232 | int 0x40 |
||
233 | mov [struc_ptr+6],eax |
||
205 | heavyiron | 234 | } |
31 | halyavin | 235 | |
205 | heavyiron | 236 | macro resize_mem mem_size |
237 | { |
||
308 | Lrz | 238 | mov eax,64 |
239 | xor ebx,ebx |
||
240 | inc ebx |
||
205 | heavyiron | 241 | if |
242 | else |
||
308 | Lrz | 243 | mov ecx,mem_size |
205 | heavyiron | 244 | end if |
308 | Lrz | 245 | int 0x40 |
205 | heavyiron | 246 | } |
31 | halyavin | 247 | |
205 | heavyiron | 248 | evm_redraw equ 1 |
249 | evm_key equ 10b |
||
250 | evm_button equ 100b |
||
251 | evm_mouse equ 100000b |
||
252 | evm_ipc equ 1000000b |
||
31 | halyavin | 253 | |
205 | heavyiron | 254 | struc procinfo |
255 | { |
||
256 | .takts_per_second: dd ? |
||
257 | .window_stack_pos: dw ? |
||
258 | .slot_number: dw ? |
||
259 | dw ? |
||
260 | .name: rb 11 |
||
261 | .align: db ? |
||
262 | .addres: dd ? |
||
263 | .use_mem: dd ? |
||
264 | .pid: dd ? |
||
265 | .left: dd ? |
||
266 | .top: dd ? |
||
267 | .width: dd ? |
||
268 | .height: dd ? |
||
269 | .slot_state: dw ? |
||
270 | rb (1024-56) |
||
271 | } |
||
31 | halyavin | 272 | |
205 | heavyiron | 273 | struc sys_color_table |
274 | { |
||
275 | .frames: dd ? ;+0 |
||
276 | .grab: dd ? ;+4 |
||
277 | .grab_button: dd ? ;+8 |
||
278 | .grab_button_text: dd ? ;+12 |
||
279 | .grab_text: dd ? ;+16 |
||
308 | Lrz | 280 | .work: dd ? ;+20 |
205 | heavyiron | 281 | .work_button: dd ?;+24 |
282 | .work_button_text: dd ? ;+28 |
||
308 | Lrz | 283 | .work_text: dd ? ;+32 |
284 | .work_graph: dd ? ;+36 |
||
205 | heavyiron | 285 | } |
31 | halyavin | 286 | |
205 | heavyiron | 287 | struc screen_size |
288 | { |
||
289 | .height: dw ? |
||
290 | .width: dw ? |
||
291 | } |
||
31 | halyavin | 292 | |
205 | heavyiron | 293 | struc screen_prop |
294 | { |
||
295 | .height: dw ? ;+0 |
||
296 | .width: dw ? ;+2 |
||
297 | .bitspp: dw ? ;+4 |
||
298 | .bytesps: dd ?;+6 |
||
299 | } |
||
31 | halyavin | 300 | |
205 | heavyiron | 301 | struc ipc_buffer size |
302 | { |
||
303 | .block: dd ? |
||
304 | .in_use: dd ? |
||
305 | .messages: rb size |
||
306 | } |
||
31 | halyavin | 307 | |
205 | heavyiron | 308 | ;--- цвета --- |
309 | cl_white=0xffffff |
||
310 | cl_black=0x000000>>>>>>>>>>>>> |