Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 2582 → Rev 2581

/programs/system/cpu/trunk/cpu.asm
2,13 → 2,6
; CPU -process Manager
;
;------------------------------------------------------------------------------
; version: 1.80
; last update: 07/04/2012
; changed by: Marat Zakiyanov aka Mario79, aka Mario
; changes: Complete elimination of flicker.
; Using f.0 C = 1 - don't fill working area on window draw.
; Increasing the size of buttons and a bright color.
;------------------------------------------------------------------------------
; version: 1.70
; last update: 04/04/2012
; changed by: Marat Zakiyanov aka Mario79, aka Mario
43,7 → 36,7
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
include '../../../develop/libraries/box_lib/load_lib.mac'
;------------------------------------------------------------------------------
display_processes=24 ;32 ; number of processes to show
display_processes=32 ; number of processes to show
window_x_size=524
window_y_size=430
;------------------------------------------------------------------------------
101,6 → 94,9
dec eax ; button in buffer ?
jz button
 
; sub eax,3 ; If not use mouse - show
; jnz still_end
 
push dword edit1
call [edit_box_mouse]
183,7 → 179,7
jle still_end
;terminate application
mcall 18,2
jmp show_process_info_1
jmp show_process_info_1 ;still_end
;--------------------------------------
align 4
noterm:
209,20 → 205,21
align 4
pgdn:
sub [list_start],display_processes
jge show_process_info_1
; cmp [list_start],0
jge show_process_info_1 ;still_end
mov [list_start],0
jmp show_process_info_1
jmp show_process_info_1 ;still_end
;------------------------------------------------------------------------------
align 4
pgup:
mov eax,[list_add] ;maximal displayed process slot
mov [list_start],eax
jmp show_process_info_1
jmp show_process_info_1 ;still_end
;------------------------------------------------------------------------------
align 4
program_start:
mcall 70,file_start
jmp show_process_info_1
jmp show_process_info_1 ;still_end
;------------------------------------------------------------------------------
align 4
reboot:
235,24 → 232,6
mcall
;------------------------------------------------------------------------------
align 4
draw_empty_slot:
cmp [draw_window_flag],1
je @f
mov ecx,[curposy]
shl ecx,16
mov cx,10 ; button height
push ecx
add ecx,3 shl 16
mcall 13,<11,95>,,[btn_bacground_color]
pop ecx
mcall 13,<111,393>,,[bar_bacground_color]
;--------------------------------------
align 4
@@:
ret
;------------------------------------------------------------------------------
align 4
draw_next_process:
;input:
; edi - current slot
261,61 → 240,39
; edi - next slot (or -1 if no next slot)
;registers corrupted!
;delete old button
cmp [draw_window_flag],0
je @f
mov edx,[index]
add edx,(1 shl 31)+11
mcall 8
;--------------------------------------
align 4
@@:
;create terminate process button
mov ecx,[curposy]
shl ecx,16
mov cx,13 ; button height
mov cx,10
mov edx,[index]
add edx,11
mov esi,0xccddee ; 0xaabbcc
mov esi,0xaabbcc
;contrast
test dword [index],1
jz .change_color_button
mov esi,0xaabbcc ; 0x8899aa
mov esi,0x8899aa
;--------------------------------------
align 4
.change_color_button:
cmp [draw_window_flag],0
je @f
mcall 8,<10,99>
;--------------------------------------
align 4
@@:
mov [btn_bacground_color],esi
mcall ,<10,99>
;draw background for proccess information
; ecx was already set
mov edx,0xddffdd ; 0x88ff88
mov edx,0x88ff88
;contrast
test dword [index],1
jz .change_color_info
mov edx,0xffffff ; 0xddffdd
mov edx,0xddffdd
;--------------------------------------
align 4
.change_color_info:
inc cx
cmp [draw_window_flag],0
je @f
mcall 13,<110,395>
;--------------------------------------
align 4
@@:
mov [bar_bacground_color],edx
;nothing else should be done
;if there is no process for this button
cmp edi,-1
jne .return_1
 
call draw_empty_slot
or edi,-1
jmp .ret
test edi,edi
jl .ret
;--------------------------------------
align 4
.return_1:
345,7 → 302,6
;--------------------------------------
align 4
.no_processes:
call draw_empty_slot
or edi,-1
ret
;--------------------------------------
412,27 → 368,18
.color_set:
;show slot number
;ecx haven't changed since .process_found
push edi
; mov ecx,edi
mov edx,[curposy]
add edx,15*65536+3
mov esi,[tcolor]
and esi,0xffffff
or esi,0x40000000
mcall 47,<2,256>,,,,[btn_bacground_color]
add edx,15*65536+1
mcall 47,<2,256>,,,[tcolor]
;show process name
mov ebx,[curposy]
add ebx,40*65536+3
mov ecx,[tcolor]
and ecx,0xffffff
or ecx,0x40000000
mcall 4,,,process_info_buffer.process_name,11,[btn_bacground_color]
add ebx,45*65536+1
mcall 4,,[tcolor],process_info_buffer.process_name,11
;show pid
mov edx,[curposy]
add edx,125*65536+3
mov esi,[tcolor]
and esi,0xffffff
or esi,0x40000000
mcall 47,<8,256>,[process_info_buffer.PID],,,[bar_bacground_color]
add edx,125*65536+1
mcall 47,<8,256>,[process_info_buffer.PID],,[tcolor]
;show cpu usage
add edx,60*65536
mcall ,,[process_info_buffer.cpu_usage]
456,7 → 403,6
add ecx,[process_info_buffer.box.top]
add edx,60*65536
mcall
pop edi
;--------------------------------------
align 4
.ret:
481,51 → 427,24
; DRAW WINDOW
xor eax,eax ; function 0 : define and draw window
xor esi,esi
mcall ,[winxpos],[winypos],0x74ffffff,,title ;0x34ddffdd
 
mcall 9,process_info_buffer,-1
mov eax,[ebx+62]
inc eax
mov [client_area_x_size],eax
mov eax,[ebx+66]
inc eax
mov [client_area_y_size],eax
 
mov ebx,[client_area_x_size]
mcall 13,,<0,20>,0xffffff
mcall ,[winxpos],[winypos],0x34ddffdd,,title
; function 4 : write text to window
xor ecx,ecx
mcall 4,<17,8>,,text,text_len
mcall 4,<17,13>,,text,text_len
 
mcall 13,<0,10>,<20,336>,0xffffff
push dword edit1
call [edit_box_draw]
mov ebx,[client_area_x_size]
sub ebx,10+100+395
add ebx,(10+100+395) shl 16
mcall
push dword check1
call [check_box_draw]
mcall 26,9
add eax,100
mov [time_counter],eax
 
mov [draw_window_flag],1
call show_process_info
mov [draw_window_flag],0
mov ebx,[client_area_x_size]
mov ecx,[client_area_y_size]
sub ecx,20+336
add ecx,(20+336) shl 16
mcall 13,,,0xffffff
 
push dword edit1
call [edit_box_draw]
 
push dword check1
call [check_box_draw]
; previous page button
mcall 8,<25,96>,<361,14>,51,0xccddee ;0xaabbcc
mcall 8,<25,96>,<358,10>,51,0xaabbcc
; next page button 52
inc edx
mcall ,<125,96>
533,7 → 452,7
add ecx,20 shl 16
; run button 53
inc edx
mcall ,<456,50>
mcall ,<451,50>
; reboot button
sub ebx,120*65536
add ebx,60
542,9 → 461,9
mcall
;"PREV PAGE", "NEXT PAGE" and "REBOOT" labels
xor ecx,ecx
mcall 4,<45,365>,,tbts,tbte-tbts
mcall 4,<45,360>,,tbts,tbte-tbts
;"RUN" labels
mcall ,<464,385>,,tbts_3,tbte_2-tbts_3
mcall ,<464,380>,,tbts_3,tbte_2-tbts_3
;print application name in text box
mcall 12, 2
ret
554,13 → 473,13
mov edi,[list_start]
mov [list_add],edi
mov dword [index],0
mov dword [curposy],20
mov dword [curposy],32
;--------------------------------------
align 4
.loop_draw:
call draw_next_process
inc dword [index]
add dword [curposy],14
add dword [curposy],10
cmp [index],display_processes
jl .loop_draw
ret
608,9 → 527,9
;aVersion_op db 'version_op',0
;------------------------------------------------------------------------------
align 4
check1 check_box 10,383,6,11,0x80AABBCC,0,0,check_text,check_t_e,0;ch_flag_en
check1 check_box 10,378,6,11,0x80AABBCC,0,0,check_text,check_t_e,0;ch_flag_en
check1_end:
edit1 edit_box 350,95,381,0xffffff,0x6f9480,0,0xAABBCC,0,start_application_c,\
edit1 edit_box 350,95,376,0xffffff,0x6f9480,0,0xAABBCC,0,start_application_c,\
start_application,mouse_dd,ed_focus,start_application_e,start_application_e
edit1_end:
list_start dd 0
709,12 → 628,6
index rd 1
tasklist rd display_processes
time_counter rd 1
 
client_area_x_size rd 1
client_area_y_size rd 1
bar_bacground_color rd 1
btn_bacground_color rd 1
draw_window_flag rd 1
;------------------------------------------------------------------------------
align 4
library_path: