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