Rev 2582 | Rev 3178 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
31 | halyavin | 1 | ; |
2559 | mario79 | 2 | ; CPU -process Manager |
31 | halyavin | 3 | ; |
2559 | mario79 | 4 | ;------------------------------------------------------------------------------ |
2582 | mario79 | 5 | ; version: 1.80 |
6 | ; last update: 07/04/2012 |
||
7 | ; changed by: Marat Zakiyanov aka Mario79, aka Mario |
||
8 | ; changes: Complete elimination of flicker. |
||
9 | ; Using f.0 C = 1 - don't fill working area on window draw. |
||
10 | ; Increasing the size of buttons and a bright color. |
||
2583 | mario79 | 11 | ; Processing "window is rolled up" and "window is minimized" |
2582 | mario79 | 12 | ;------------------------------------------------------------------------------ |
2559 | mario79 | 13 | ; version: 1.70 |
14 | ; last update: 04/04/2012 |
||
15 | ; changed by: Marat Zakiyanov aka Mario79, aka Mario |
||
16 | ; changes: Code refactoring and optimization. |
||
17 | ; Added russian language support. |
||
18 | ; Fix - processes information showing not been updated during |
||
19 | ; the processing of mouse events. |
||
20 | ;------------------------------------------------------------------------------ |
||
21 | ; Many fix's and changes created by: |
||
22 | ; Diamond, Heavyiron, SPraid, |
||
23 | ; Leency, IgorA, kaitz |
||
24 | ;--------------------------------------------------------------------- |
||
25 | ; integrated with load_lib.obj by |
||
26 | ;--------------------------------------------------------------------- |
||
31 | halyavin | 27 | ; additions by M.Lisovin lisovin@26.ru |
2559 | mario79 | 28 | ;--------------------------------------------------------------------- |
29 | ; original author - VTurjanmaa |
||
30 | ;------------------------------------------------------------------------------ |
||
31 | use32 |
||
32 | org 0x0 |
||
33 | db 'MENUET01' ; 8 byte id |
||
34 | dd 0x01 ; header version |
||
35 | dd START ; start of code |
||
36 | dd IM_END ; size of image |
||
37 | dd U_END ; memory for app |
||
38 | dd stack_area ; esp |
||
39 | dd 0x0 ; boot parameters |
||
40 | dd 0x0 ; path |
||
41 | ;------------------------------------------------------------------------------ |
||
31 | halyavin | 42 | include 'lang.inc' |
1209 | diamond | 43 | include '../../../macros.inc' |
1373 | IgorA | 44 | include '../../../develop/libraries/box_lib/trunk/box_lib.mac' |
1209 | diamond | 45 | include '../../../develop/libraries/box_lib/load_lib.mac' |
2559 | mario79 | 46 | ;------------------------------------------------------------------------------ |
2582 | mario79 | 47 | display_processes=24 ;32 ; number of processes to show |
2559 | mario79 | 48 | window_x_size=524 |
49 | window_y_size=430 |
||
50 | ;------------------------------------------------------------------------------ |
||
1205 | Lrz | 51 | @use_library ;use load lib macros |
2559 | mario79 | 52 | ;------------------------------------------------------------------------------ |
1373 | IgorA | 53 | START: ; start of execution |
2559 | mario79 | 54 | mcall 68,11 |
1205 | Lrz | 55 | sys_load_library library_name, cur_dir_path, library_path, system_path, \ |
56 | err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i |
||
1373 | IgorA | 57 | inc eax |
58 | jz close |
||
2559 | mario79 | 59 | ;------------------------------------------------------------------------------ |
60 | mcall 40,0x27 ;set event |
||
61 | ;------------------------------------------------------------------------------ |
||
62 | ;set window size and position for 0 function |
||
63 | ;to [winxpos] and [winypos] variables |
||
64 | ;get screen size |
||
65 | mcall 14 |
||
66 | mov ebx,eax |
||
67 | ;calculate (x_screen-window_x_size)/2 |
||
68 | shr ebx,16+1 |
||
69 | sub ebx,window_x_size/2 |
||
70 | shl ebx,16 |
||
71 | mov bx,window_x_size |
||
72 | ;winxpos=xcoord*65536+xsize |
||
73 | mov [winxpos],ebx |
||
74 | ;calculate (y_screen-window_y_size)/2 |
||
75 | and eax,0xffff |
||
76 | shr eax,1 |
||
77 | sub eax,window_y_size/2 |
||
78 | shl eax,16 |
||
79 | mov ax,window_y_size |
||
80 | ;winypos=ycoord*65536+ysize |
||
81 | mov [winypos],eax |
||
82 | ;------------------------------------------------------------------------------ |
||
1373 | IgorA | 83 | mcall 48,3,sc,40 |
2128 | leency | 84 | edit_boxes_set_sys_color edit1,edit1_end,sc ;set color |
1373 | IgorA | 85 | check_boxes_set_sys_color check1,check1_end,sc ;set color |
2559 | mario79 | 86 | ;------------------------------------------------------------------------------ |
87 | align 4 |
||
88 | ;main loop when process name isn't edited. |
||
89 | red: |
||
90 | call draw_window ; redraw all window |
||
91 | ;------------------------------------------------------------------------------ |
||
92 | align 4 |
||
31 | halyavin | 93 | still: |
2559 | mario79 | 94 | mcall 23,100 ; wait here for event 1 sec. |
31 | halyavin | 95 | |
2559 | mario79 | 96 | dec eax ; redraw request ? |
97 | jz red |
||
1205 | Lrz | 98 | |
2559 | mario79 | 99 | dec eax ; key in buffer ? |
100 | jz key |
||
101 | |||
102 | dec eax ; button in buffer ? |
||
103 | jz button |
||
104 | |||
1373 | IgorA | 105 | push dword edit1 |
106 | call [edit_box_mouse] |
||
2559 | mario79 | 107 | |
1385 | diamond | 108 | push dword[check1+32] |
2559 | mario79 | 109 | |
1266 | Lrz | 110 | push dword check1 |
111 | call [check_box_mouse] |
||
2559 | mario79 | 112 | |
1385 | diamond | 113 | pop eax |
2559 | mario79 | 114 | |
1385 | diamond | 115 | cmp eax, dword[check1+32] |
2559 | mario79 | 116 | jz still_end |
117 | |||
118 | push dword check1 |
||
119 | call [check_box_draw] |
||
120 | ;-------------------------------------- |
||
121 | align 4 |
||
122 | show_process_info_1: |
||
123 | mcall 26,9 |
||
124 | add eax,100 |
||
125 | mov [time_counter],eax |
||
1205 | Lrz | 126 | |
2559 | mario79 | 127 | call show_process_info ; draw new state of processes |
128 | jmp still |
||
129 | ;------------------------------------------------------------------------------ |
||
130 | align 4 |
||
131 | still_end: |
||
132 | mcall 26,9 |
||
133 | cmp [time_counter],eax |
||
134 | ja still |
||
31 | halyavin | 135 | |
2559 | mario79 | 136 | add eax,100 |
137 | mov [time_counter],eax |
||
1212 | Lrz | 138 | |
2559 | mario79 | 139 | call show_process_info ; draw new state of processes |
140 | jmp still |
||
141 | ;------------------------------------------------------------------------------ |
||
142 | align 4 |
||
143 | key: ; key |
||
144 | mcall 2 |
||
1205 | Lrz | 145 | |
2559 | mario79 | 146 | cmp ah,184 ; PageUp |
147 | jz pgdn |
||
1205 | Lrz | 148 | |
2559 | mario79 | 149 | cmp ah,183 |
150 | jz pgup ; PageDown |
||
151 | |||
152 | cmp ah,27 |
||
153 | jz close ; Esc |
||
154 | |||
1373 | IgorA | 155 | push dword edit1 |
156 | call [edit_box_key] |
||
1266 | Lrz | 157 | ; Check ENTER with ed_focus edit_box |
2559 | mario79 | 158 | lea edi,[edit1] |
159 | test word ed_flags,ed_focus |
||
160 | jz still_end |
||
1205 | Lrz | 161 | |
2559 | mario79 | 162 | sub ah,13 ; ENTER? |
163 | jz program_start ; RUN a program |
||
1212 | Lrz | 164 | |
2559 | mario79 | 165 | jmp still |
166 | ;------------------------------------------------------------------------------ |
||
167 | align 4 |
||
168 | button: |
||
31 | halyavin | 169 | ; get button id |
2559 | mario79 | 170 | mcall 17 |
171 | shr eax,8 |
||
31 | halyavin | 172 | ;id in [10,50] corresponds to terminate buttons. |
2559 | mario79 | 173 | cmp eax,10 |
174 | jb noterm |
||
31 | halyavin | 175 | |
2559 | mario79 | 176 | cmp eax,50 |
177 | jg noterm |
||
31 | halyavin | 178 | ;calculate button index |
2559 | mario79 | 179 | sub eax,11 |
31 | halyavin | 180 | ;calculate process slot |
2559 | mario79 | 181 | mov ecx,[tasklist+4*eax] |
31 | halyavin | 182 | ;ignore empty buttons |
2559 | mario79 | 183 | test ecx,ecx |
184 | jle still_end |
||
31 | halyavin | 185 | ;terminate application |
2559 | mario79 | 186 | mcall 18,2 |
2582 | mario79 | 187 | jmp show_process_info_1 |
2559 | mario79 | 188 | ;-------------------------------------- |
189 | align 4 |
||
190 | noterm: |
||
191 | ;special buttons |
||
192 | dec eax |
||
193 | jz close |
||
1212 | Lrz | 194 | |
2559 | mario79 | 195 | sub eax,50 |
196 | jz pgdn ;51 |
||
31 | halyavin | 197 | |
2559 | mario79 | 198 | dec eax |
199 | jz pgup ;52 |
||
1203 | Lrz | 200 | |
2559 | mario79 | 201 | dec eax |
202 | jz program_start ;53 |
||
1212 | Lrz | 203 | |
2559 | mario79 | 204 | dec eax |
205 | jz reboot ;54 |
||
1212 | Lrz | 206 | |
2559 | mario79 | 207 | jmp still_end |
208 | ;buttons handlers |
||
209 | ;------------------------------------------------------------------------------ |
||
210 | align 4 |
||
211 | pgdn: |
||
212 | sub [list_start],display_processes |
||
2582 | mario79 | 213 | jge show_process_info_1 |
2559 | mario79 | 214 | mov [list_start],0 |
2582 | mario79 | 215 | jmp show_process_info_1 |
2559 | mario79 | 216 | ;------------------------------------------------------------------------------ |
217 | align 4 |
||
218 | pgup: |
||
219 | mov eax,[list_add] ;maximal displayed process slot |
||
220 | mov [list_start],eax |
||
2582 | mario79 | 221 | jmp show_process_info_1 |
2559 | mario79 | 222 | ;------------------------------------------------------------------------------ |
223 | align 4 |
||
224 | program_start: |
||
225 | mcall 70,file_start |
||
2582 | mario79 | 226 | jmp show_process_info_1 |
2559 | mario79 | 227 | ;------------------------------------------------------------------------------ |
228 | align 4 |
||
229 | reboot: |
||
230 | mcall 70,sys_reboot |
||
31 | halyavin | 231 | ;close program if we going to reboot |
2559 | mario79 | 232 | ;------------------------------------------------------------------------------ |
233 | align 4 |
||
234 | close: |
||
235 | or eax,-1 ; close this program |
||
236 | mcall |
||
237 | ;------------------------------------------------------------------------------ |
||
238 | align 4 |
||
2582 | mario79 | 239 | draw_empty_slot: |
240 | cmp [draw_window_flag],1 |
||
241 | je @f |
||
242 | mov ecx,[curposy] |
||
243 | shl ecx,16 |
||
244 | mov cx,10 ; button height |
||
245 | push ecx |
||
246 | add ecx,3 shl 16 |
||
247 | mcall 13,<11,95>,,[btn_bacground_color] |
||
248 | pop ecx |
||
249 | |||
250 | mcall 13,<111,393>,,[bar_bacground_color] |
||
251 | ;-------------------------------------- |
||
252 | align 4 |
||
253 | @@: |
||
254 | ret |
||
255 | ;------------------------------------------------------------------------------ |
||
256 | align 4 |
||
31 | halyavin | 257 | draw_next_process: |
258 | ;input: |
||
259 | ; edi - current slot |
||
260 | ; [curposy] - y position |
||
261 | ;output: |
||
262 | ; edi - next slot (or -1 if no next slot) |
||
263 | ;registers corrupted! |
||
264 | ;delete old button |
||
2582 | mario79 | 265 | cmp [draw_window_flag],0 |
266 | je @f |
||
2559 | mario79 | 267 | mov edx,[index] |
268 | add edx,(1 shl 31)+11 |
||
269 | mcall 8 |
||
2582 | mario79 | 270 | ;-------------------------------------- |
271 | align 4 |
||
272 | @@: |
||
31 | halyavin | 273 | ;create terminate process button |
2559 | mario79 | 274 | mov ecx,[curposy] |
275 | shl ecx,16 |
||
2582 | mario79 | 276 | mov cx,13 ; button height |
2559 | mario79 | 277 | mov edx,[index] |
278 | add edx,11 |
||
2582 | mario79 | 279 | mov esi,0xccddee ; 0xaabbcc |
31 | halyavin | 280 | ;contrast |
2559 | mario79 | 281 | test dword [index],1 |
282 | jz .change_color_button |
||
2582 | mario79 | 283 | mov esi,0xaabbcc ; 0x8899aa |
2559 | mario79 | 284 | ;-------------------------------------- |
285 | align 4 |
||
31 | halyavin | 286 | .change_color_button: |
2582 | mario79 | 287 | cmp [draw_window_flag],0 |
288 | je @f |
||
289 | mcall 8,<10,99> |
||
290 | ;-------------------------------------- |
||
291 | align 4 |
||
292 | @@: |
||
293 | mov [btn_bacground_color],esi |
||
31 | halyavin | 294 | ;draw background for proccess information |
2559 | mario79 | 295 | ; ecx was already set |
2582 | mario79 | 296 | mov edx,0xddffdd ; 0x88ff88 |
31 | halyavin | 297 | ;contrast |
2559 | mario79 | 298 | test dword [index],1 |
299 | jz .change_color_info |
||
2582 | mario79 | 300 | mov edx,0xffffff ; 0xddffdd |
2559 | mario79 | 301 | ;-------------------------------------- |
302 | align 4 |
||
31 | halyavin | 303 | .change_color_info: |
2582 | mario79 | 304 | inc cx |
305 | cmp [draw_window_flag],0 |
||
306 | je @f |
||
2559 | mario79 | 307 | mcall 13,<110,395> |
2582 | mario79 | 308 | ;-------------------------------------- |
309 | align 4 |
||
310 | @@: |
||
311 | mov [bar_bacground_color],edx |
||
31 | halyavin | 312 | ;nothing else should be done |
313 | ;if there is no process for this button |
||
2582 | mario79 | 314 | cmp edi,-1 |
315 | jne .return_1 |
||
316 | |||
317 | call draw_empty_slot |
||
318 | or edi,-1 |
||
319 | jmp .ret |
||
2559 | mario79 | 320 | ;-------------------------------------- |
321 | align 4 |
||
322 | .return_1: |
||
31 | halyavin | 323 | ;find process |
2559 | mario79 | 324 | inc edi |
31 | halyavin | 325 | ;more comfortable register for next loop |
2559 | mario79 | 326 | mov ecx,edi |
31 | halyavin | 327 | ;precacluate pointer to process buffer |
2559 | mario79 | 328 | mov ebx,process_info_buffer |
329 | ;-------------------------------------- |
||
330 | align 4 |
||
31 | halyavin | 331 | .find_loop: |
2559 | mario79 | 332 | cmp ecx,256 |
333 | jge .no_processes |
||
31 | halyavin | 334 | ;load process information in buffer |
2559 | mario79 | 335 | mcall 9 |
31 | halyavin | 336 | ;if current slot greater than maximal slot, |
337 | ;there is no more proccesses. |
||
2559 | mario79 | 338 | cmp ecx,eax |
339 | jg .no_processes |
||
31 | halyavin | 340 | ;if slot state is equal to 9, it is empty. |
2559 | mario79 | 341 | cmp [process_info_buffer+process_information.slot_state],9 |
342 | jnz .process_found |
||
31 | halyavin | 343 | |
2559 | mario79 | 344 | inc ecx |
345 | jmp .find_loop |
||
346 | ;-------------------------------------- |
||
347 | align 4 |
||
31 | halyavin | 348 | .no_processes: |
2582 | mario79 | 349 | call draw_empty_slot |
2559 | mario79 | 350 | or edi,-1 |
351 | ret |
||
352 | ;-------------------------------------- |
||
353 | align 4 |
||
31 | halyavin | 354 | .process_found: |
1266 | Lrz | 355 | ;check on/off check box |
2559 | mario79 | 356 | push edi |
357 | lea edi,[check1] |
||
358 | test dword ch_flags,ch_flag_en |
||
359 | pop edi |
||
360 | jnz @f |
||
1266 | Lrz | 361 | |
2559 | mario79 | 362 | cmp dword [process_info_buffer+10],'ICON' |
363 | jz .return_1 |
||
1266 | Lrz | 364 | |
2559 | mario79 | 365 | cmp dword [process_info_buffer+10],'OS/I' |
366 | jz .return_1 |
||
367 | |||
368 | cmp byte [process_info_buffer+10],'@' |
||
369 | jz .return_1 |
||
370 | ;-------------------------------------- |
||
371 | align 4 |
||
372 | @@: |
||
373 | mov edi,ecx |
||
374 | mov [list_add],ecx |
||
31 | halyavin | 375 | ;get processor cpeed |
376 | ;for percent calculating |
||
2559 | mario79 | 377 | mcall 18,5 |
378 | xor edx,edx |
||
379 | mov ebx,100 |
||
380 | div ebx |
||
31 | halyavin | 381 | ;eax = number of operation for 1% now |
382 | ;calculate process cpu usage percent |
||
2559 | mario79 | 383 | mov ebx,eax |
384 | mov eax,[process_info_buffer+process_information.cpu_usage] |
||
385 | ; cdq |
||
386 | xor edx,edx ; for CPU more 2 GHz - mike.dld |
||
387 | div ebx |
||
388 | mov [cpu_percent],eax |
||
31 | halyavin | 389 | ;set text color to display process information |
390 | ;([tcolor] variable) |
||
391 | ;0% : black |
||
392 | ;1-80% : green |
||
393 | ;81-100% : red |
||
2559 | mario79 | 394 | test eax,eax |
395 | jnz .no_black |
||
1212 | Lrz | 396 | |
2559 | mario79 | 397 | mov [tcolor],eax |
398 | jmp .color_set |
||
399 | ;-------------------------------------- |
||
400 | align 4 |
||
31 | halyavin | 401 | .no_black: |
2559 | mario79 | 402 | cmp eax,80 |
403 | ja .no_green |
||
1212 | Lrz | 404 | |
2559 | mario79 | 405 | mov dword [tcolor],0x107a30 |
406 | jmp .color_set |
||
407 | ;-------------------------------------- |
||
408 | align 4 |
||
31 | halyavin | 409 | .no_green: |
2559 | mario79 | 410 | mov dword [tcolor],0xac0000 |
411 | ;-------------------------------------- |
||
412 | align 4 |
||
31 | halyavin | 413 | .color_set: |
414 | ;show slot number |
||
415 | ;ecx haven't changed since .process_found |
||
2582 | mario79 | 416 | push edi |
2559 | mario79 | 417 | mov edx,[curposy] |
2582 | mario79 | 418 | add edx,15*65536+3 |
419 | mov esi,[tcolor] |
||
420 | and esi,0xffffff |
||
421 | or esi,0x40000000 |
||
422 | mcall 47,<2,256>,,,,[btn_bacground_color] |
||
31 | halyavin | 423 | ;show process name |
2559 | mario79 | 424 | mov ebx,[curposy] |
2582 | mario79 | 425 | add ebx,40*65536+3 |
426 | mov ecx,[tcolor] |
||
427 | and ecx,0xffffff |
||
428 | or ecx,0x40000000 |
||
429 | mcall 4,,,process_info_buffer.process_name,11,[btn_bacground_color] |
||
31 | halyavin | 430 | ;show pid |
2559 | mario79 | 431 | mov edx,[curposy] |
2582 | mario79 | 432 | add edx,125*65536+3 |
433 | mov esi,[tcolor] |
||
434 | and esi,0xffffff |
||
435 | or esi,0x40000000 |
||
436 | mcall 47,<8,256>,[process_info_buffer.PID],,,[bar_bacground_color] |
||
31 | halyavin | 437 | ;show cpu usage |
2559 | mario79 | 438 | add edx,60*65536 |
439 | mcall ,,[process_info_buffer.cpu_usage] |
||
31 | halyavin | 440 | ;show cpu percent |
2559 | mario79 | 441 | add edx,60*65536 |
442 | mcall ,<3,0>,[cpu_percent] |
||
31 | halyavin | 443 | ;show memory start - obsolete |
2559 | mario79 | 444 | add edx,30*65536 |
445 | mcall ,<8,256>,[process_info_buffer.memory_start] |
||
31 | halyavin | 446 | ;show memory usage |
2559 | mario79 | 447 | mov ecx,[process_info_buffer.used_memory] |
448 | inc ecx |
||
449 | add edx,60*65536 |
||
450 | mcall |
||
31 | halyavin | 451 | ;show window stack and value |
2559 | mario79 | 452 | add edx,60*65536 |
453 | mcall ,,dword [process_info_buffer.window_stack_position] |
||
31 | halyavin | 454 | ;show window xy size |
2559 | mario79 | 455 | mov ecx,[process_info_buffer.box.left] |
456 | shl ecx,16 |
||
457 | add ecx,[process_info_buffer.box.top] |
||
458 | add edx,60*65536 |
||
459 | mcall |
||
2582 | mario79 | 460 | pop edi |
2559 | mario79 | 461 | ;-------------------------------------- |
462 | align 4 |
||
31 | halyavin | 463 | .ret: |
464 | ;build index->slot map for terminating processes. |
||
2559 | mario79 | 465 | mov eax,[index] |
466 | mov [tasklist+4*eax],edi |
||
467 | ret |
||
468 | ;------------------------------------------------------------------------------ |
||
469 | align 4 |
||
470 | f11: |
||
31 | halyavin | 471 | ;full update |
2559 | mario79 | 472 | push edi |
473 | call draw_window |
||
474 | pop edi |
||
475 | ;------------------------------------------------------------------------------ |
||
31 | halyavin | 476 | ; ********************************************* |
477 | ; ******* WINDOW DEFINITIONS AND DRAW ******** |
||
478 | ; ********************************************* |
||
2559 | mario79 | 479 | align 4 |
31 | halyavin | 480 | draw_window: |
2559 | mario79 | 481 | mcall 12, 1 |
482 | ; DRAW WINDOW |
||
483 | xor eax,eax ; function 0 : define and draw window |
||
484 | xor esi,esi |
||
2582 | mario79 | 485 | mcall ,[winxpos],[winypos],0x74ffffff,,title ;0x34ddffdd |
486 | |||
487 | mcall 9,process_info_buffer,-1 |
||
2583 | mario79 | 488 | |
489 | mov eax,[ebx+70] |
||
490 | mov [window_status],eax |
||
491 | test [window_status],100b ; window is rolled up |
||
492 | jnz .exit |
||
493 | |||
494 | test [window_status],10b ; window is minimized to panel |
||
495 | jnz .exit |
||
496 | |||
2582 | mario79 | 497 | mov eax,[ebx+62] |
498 | inc eax |
||
499 | mov [client_area_x_size],eax |
||
500 | mov eax,[ebx+66] |
||
501 | inc eax |
||
502 | mov [client_area_y_size],eax |
||
503 | |||
504 | mov ebx,[client_area_x_size] |
||
505 | mcall 13,,<0,20>,0xffffff |
||
2559 | mario79 | 506 | ; function 4 : write text to window |
507 | xor ecx,ecx |
||
2582 | mario79 | 508 | mcall 4,<17,8>,,text,text_len |
31 | halyavin | 509 | |
2582 | mario79 | 510 | mcall 13,<0,10>,<20,336>,0xffffff |
511 | |||
512 | mov ebx,[client_area_x_size] |
||
513 | sub ebx,10+100+395 |
||
514 | add ebx,(10+100+395) shl 16 |
||
515 | mcall |
||
516 | |||
517 | mcall 26,9 |
||
518 | add eax,100 |
||
519 | mov [time_counter],eax |
||
520 | |||
521 | mov [draw_window_flag],1 |
||
522 | call show_process_info |
||
523 | mov [draw_window_flag],0 |
||
524 | |||
525 | mov ebx,[client_area_x_size] |
||
526 | mov ecx,[client_area_y_size] |
||
527 | sub ecx,20+336 |
||
528 | add ecx,(20+336) shl 16 |
||
529 | mcall 13,,,0xffffff |
||
530 | |||
1373 | IgorA | 531 | push dword edit1 |
532 | call [edit_box_draw] |
||
2559 | mario79 | 533 | |
1373 | IgorA | 534 | push dword check1 |
1266 | Lrz | 535 | call [check_box_draw] |
2582 | mario79 | 536 | |
31 | halyavin | 537 | ; previous page button |
2582 | mario79 | 538 | mcall 8,<25,96>,<361,14>,51,0xccddee ;0xaabbcc |
1207 | Lrz | 539 | ; next page button 52 |
2559 | mario79 | 540 | inc edx |
541 | mcall ,<125,96> |
||
31 | halyavin | 542 | ; ">" (text enter) button |
2559 | mario79 | 543 | add ecx,20 shl 16 |
1207 | Lrz | 544 | ; run button 53 |
2559 | mario79 | 545 | inc edx |
2582 | mario79 | 546 | mcall ,<456,50> |
31 | halyavin | 547 | ; reboot button |
2559 | mario79 | 548 | sub ebx,120*65536 |
549 | add ebx,60 |
||
550 | sub ecx,20 shl 16 |
||
551 | inc edx |
||
552 | mcall |
||
31 | halyavin | 553 | ;"PREV PAGE", "NEXT PAGE" and "REBOOT" labels |
2559 | mario79 | 554 | xor ecx,ecx |
2582 | mario79 | 555 | mcall 4,<45,365>,,tbts,tbte-tbts |
31 | halyavin | 556 | ;"RUN" labels |
2582 | mario79 | 557 | mcall ,<464,385>,,tbts_3,tbte_2-tbts_3 |
31 | halyavin | 558 | ;print application name in text box |
2583 | mario79 | 559 | ;-------------------------------------- |
560 | align 4 |
||
561 | .exit: |
||
2559 | mario79 | 562 | mcall 12, 2 |
563 | ret |
||
564 | ;------------------------------------------------------------------------------ |
||
565 | align 4 |
||
566 | show_process_info: |
||
2583 | mario79 | 567 | test [window_status],100b ; window is rolled up |
568 | jnz .exit |
||
569 | |||
570 | test [window_status],10b ; window is minimized to panel |
||
571 | jnz .exit |
||
572 | |||
2559 | mario79 | 573 | mov edi,[list_start] |
574 | mov [list_add],edi |
||
575 | mov dword [index],0 |
||
2582 | mario79 | 576 | mov dword [curposy],20 |
2559 | mario79 | 577 | ;-------------------------------------- |
578 | align 4 |
||
579 | .loop_draw: |
||
580 | call draw_next_process |
||
581 | inc dword [index] |
||
2582 | mario79 | 582 | add dword [curposy],14 |
2559 | mario79 | 583 | cmp [index],display_processes |
584 | jl .loop_draw |
||
2583 | mario79 | 585 | ;-------------------------------------- |
586 | align 4 |
||
587 | .exit: |
||
2559 | mario79 | 588 | ret |
589 | ;------------------------------------------------------------------------------ |
||
31 | halyavin | 590 | ; DATA AREA |
2559 | mario79 | 591 | ;------------------------------------------------------------------------------ |
1373 | IgorA | 592 | system_path db '/sys/lib/' |
593 | library_name db 'box_lib.obj',0 |
||
1205 | Lrz | 594 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
595 | |||
1373 | IgorA | 596 | err_message_found_lib db 'Sorry I cannot load library box_lib.obj',0 |
1205 | Lrz | 597 | head_f_i: |
1373 | IgorA | 598 | head_f_l db 'System error',0 |
599 | err_message_import db 'Error on load import library box_lib.obj',0 |
||
2559 | mario79 | 600 | ;------------------------------------------------------------------------------ |
601 | align 4 |
||
1205 | Lrz | 602 | myimport: |
2559 | mario79 | 603 | edit_box_draw dd aEdit_box_draw |
604 | edit_box_key dd aEdit_box_key |
||
605 | edit_box_mouse dd aEdit_box_mouse |
||
606 | ;version_ed dd aVersion_ed |
||
1205 | Lrz | 607 | |
2559 | mario79 | 608 | check_box_draw dd aCheck_box_draw |
609 | check_box_mouse dd aCheck_box_mouse |
||
610 | ;version_ch dd aVersion_ch |
||
1205 | Lrz | 611 | |
2559 | mario79 | 612 | ;option_box_draw dd aOption_box_draw |
613 | ;option_box_mouse dd aOption_box_mouse |
||
614 | ;version_op dd aVersion_op |
||
1205 | Lrz | 615 | |
2559 | mario79 | 616 | dd 0 |
617 | dd 0 |
||
1205 | Lrz | 618 | |
2559 | mario79 | 619 | aEdit_box_draw db 'edit_box',0 |
620 | aEdit_box_key db 'edit_box_key',0 |
||
621 | aEdit_box_mouse db 'edit_box_mouse',0 |
||
622 | ;aVersion_ed db 'version_ed',0 |
||
1205 | Lrz | 623 | |
2559 | mario79 | 624 | aCheck_box_draw db 'check_box_draw',0 |
625 | aCheck_box_mouse db 'check_box_mouse',0 |
||
626 | ;aVersion_ch db 'version_ch',0 |
||
1205 | Lrz | 627 | |
2559 | mario79 | 628 | ;aOption_box_draw db 'option_box_draw',0 |
629 | ;aOption_box_mouse db 'option_box_mouse',0 |
||
630 | ;aVersion_op db 'version_op',0 |
||
631 | ;------------------------------------------------------------------------------ |
||
632 | align 4 |
||
2582 | mario79 | 633 | check1 check_box 10,383,6,11,0x80AABBCC,0,0,check_text,check_t_e,0;ch_flag_en |
1266 | Lrz | 634 | check1_end: |
2582 | mario79 | 635 | edit1 edit_box 350,95,381,0xffffff,0x6f9480,0,0xAABBCC,0,start_application_c,\ |
2559 | mario79 | 636 | start_application,mouse_dd,ed_focus,start_application_e,start_application_e |
1228 | Lrz | 637 | edit1_end: |
31 | halyavin | 638 | list_start dd 0 |
2559 | mario79 | 639 | ;------------------------------------------------------------------------------ |
640 | align 4 |
||
748 | heavyiron | 641 | sys_reboot: |
1373 | IgorA | 642 | dd 7 |
643 | dd 0 |
||
644 | dd 0 |
||
645 | dd 0 |
||
646 | dd 0 |
||
647 | db '/sys/end',0 |
||
2559 | mario79 | 648 | ;------------------------------------------------------------------------------ |
340 | heavyiron | 649 | if lang eq de |
31 | halyavin | 650 | text: |
2559 | mario79 | 651 | db 'NAME/BEENDEN PID CPU-LAST % ' |
652 | db 'SPEICHER START/NUTZUNG W-STACK W-SIZE' |
||
205 | heavyiron | 653 | text_len = $-text |
31 | halyavin | 654 | |
2582 | mario79 | 655 | tbts: db 'SEITE ZURUECK SEITE VOR REBOOT SYSTEM' |
135 | diamond | 656 | tbte: |
2559 | mario79 | 657 | tbts_3 db 'START' |
135 | diamond | 658 | tbte_2: |
2559 | mario79 | 659 | check_text db '@ on/off' |
1266 | Lrz | 660 | check_t_e=$-check_text |
2559 | mario79 | 661 | title db 'Prozesse - Ctrl/Alt/Del',0 |
662 | ;-------------------------------------- |
||
268 | kaitz | 663 | else if lang eq et |
664 | text: |
||
2559 | mario79 | 665 | db 'NIMI/LÕPETA PID CPU-KASUTUS % ' |
666 | db 'MÄLU ALGUS/KASUTUS W-PUHVER W-SUURUS' |
||
268 | kaitz | 667 | text_len = $-text |
668 | |||
2559 | mario79 | 669 | tbts: db 'EELMINE LEHT JÄRGMINE LEHT REBOODI SÜSTEEM' |
268 | kaitz | 670 | tbte: |
2559 | mario79 | 671 | tbts_3 db 'START' |
268 | kaitz | 672 | tbte_2: |
2559 | mario79 | 673 | check_text db '@ on/off' |
1266 | Lrz | 674 | check_t_e=$-check_text |
2559 | mario79 | 675 | title db 'Protsessid - Ctrl/Alt/Del' |
676 | ;-------------------------------------- |
||
677 | else if lang eq ru |
||
678 | text: |
||
679 | db 'ˆŒŸ/‡€‚…˜ˆ’œ PID CPU-‡€ƒ“‡Š€ % ' |
||
680 | db '€ŒŸ’œ €—€‹Ž/‚‘…ƒŽ W-STACK W-SIZE' |
||
681 | text_len = $-text |
||
268 | kaitz | 682 | |
2559 | mario79 | 683 | tbts: db '…„.‘’ ‘‹…„.‘’ ……‡€ƒ“‡Š€' |
684 | tbte: |
||
685 | tbts_3 db '‡€“‘Š' |
||
686 | tbte_2: |
||
687 | check_text db '@ ¢ª«/¢ëª«' |
||
688 | check_t_e=$-check_text |
||
689 | title db '„¨á¯¥âç¥à ¯à®æ¥áᮢ - Ctrl/Alt/Del',0 |
||
690 | ;-------------------------------------- |
||
340 | heavyiron | 691 | else |
692 | text: |
||
2559 | mario79 | 693 | db 'NAME/TERMINATE PID CPU-USAGE % ' |
694 | db 'MEMORY START/USAGE W-STACK W-SIZE' |
||
340 | heavyiron | 695 | text_len = $-text |
696 | |||
2559 | mario79 | 697 | tbts: db 'PREV PAGE NEXT PAGE REBOOT SYSTEM' |
340 | heavyiron | 698 | tbte: |
2559 | mario79 | 699 | tbts_3 db ' RUN' |
340 | heavyiron | 700 | tbte_2: |
2559 | mario79 | 701 | check_text db '@ on/off' |
1266 | Lrz | 702 | check_t_e=$-check_text |
2559 | mario79 | 703 | title db 'Process manager - Ctrl/Alt/Del',0 |
340 | heavyiron | 704 | |
135 | diamond | 705 | end if |
2559 | mario79 | 706 | ;------------------------------------------------------------------------------ |
707 | align 4 |
||
708 | file_start: |
||
709 | dd 7 |
||
710 | dd 0 |
||
711 | dd 0 |
||
712 | dd 0 |
||
713 | dd 0 |
||
1205 | Lrz | 714 | start_application: db '/sys/LAUNCHER',0 |
715 | start_application_e=$-start_application-1 |
||
716 | ; times 60 db 0 |
||
2559 | mario79 | 717 | rb 60 |
1205 | Lrz | 718 | start_application_c=$-start_application-1 |
2559 | mario79 | 719 | ;------------------------------------------------------------------------------ |
720 | IM_END: |
||
721 | ;------------------------------------------------------------------------------ |
||
722 | align 4 |
||
1228 | Lrz | 723 | sc system_colors |
2559 | mario79 | 724 | winxpos rd 1 |
725 | winypos rd 1 |
||
1214 | Lrz | 726 | mouse_dd rd 1 |
2559 | mario79 | 727 | cpu_percent rd 1 |
728 | tcolor rd 1 |
||
729 | list_add rd 1 |
||
730 | curposy rd 1 |
||
731 | index rd 1 |
||
732 | tasklist rd display_processes |
||
733 | time_counter rd 1 |
||
2582 | mario79 | 734 | |
2583 | mario79 | 735 | window_status rd 1 |
2582 | mario79 | 736 | client_area_x_size rd 1 |
737 | client_area_y_size rd 1 |
||
738 | bar_bacground_color rd 1 |
||
739 | btn_bacground_color rd 1 |
||
740 | draw_window_flag rd 1 |
||
2559 | mario79 | 741 | ;------------------------------------------------------------------------------ |
742 | align 4 |
||
743 | library_path: |
||
31 | halyavin | 744 | process_info_buffer process_information |
2559 | mario79 | 745 | ;------------------------------------------------------------------------------ |
746 | align 4 |
||
747 | cur_dir_path: |
||
748 | rb 1024 |
||
749 | ;------------------------------------------------------------------------------ |
||
750 | align 4 |
||
751 | rb 1024 |
||
752 | stack_area: |
||
753 | ;------------------------------------------------------------------------------ |
||
31 | halyavin | 754 | U_END: |
2559 | mario79 | 755 | ;------------------------------------------------------------------------------464,385>45,365>456,50>125,96>361,14>25,96>20,336>0,10>17,8>0,20>8,256>3,0>8,256>2,256>110,395>10,99>111,393>11,95> |