WebSVN – Kolibri OS – Diff – /programs/system/cpu/trunk/cpu.asm

+;
-;   PROCESS MANAGEMENT
+;   CPU -process Manager
+;
+;------------------------------------------------------------------------------
-;   VTurjanmaa
+; version:	1.70
+; last update:  04/04/2012
+; changed by:   Marat Zakiyanov aka Mario79, aka Mario
+; changes:      Code refactoring and optimization.
+;               Added russian language support.
+;               Fix - processes information showing  not been updated during
+;               the processing of mouse events.
+;------------------------------------------------------------------------------
+; Many fix's and changes created by:
+;               Diamond, Heavyiron, SPraid, ,
-;   additions by M.Lisovin lisovin@26.ru
+;               Leency, IgorA, kaitz
+;---------------------------------------------------------------------
 ;   integrated with load_lib.obj by
+;---------------------------------------------------------------------
+;   additions by M.Lisovin lisovin@26.ru
+;---------------------------------------------------------------------
-;   Compile with FASM for Menuet
+;   original author - VTurjanmaa
-;
+;------------------------------------------------------------------------------
-  use32
+	use32
-  org	 0x0
+	org 0x0
-	STACK_SIZE=1024
-	offset_y=22		; Correction for skin
-	offset_x=5
-  db	 'MENUET01'			; 8 byte id
+	db 'MENUET01'		; 8 byte id
-  dd	 0x01				; header version
+	dd 0x01			; header version
-  dd	 START				; start of code
+	dd START		; start of code
-  dd	 I_END				; size of image
+	dd IM_END		; size of image
-  dd	 U_END+STACK_SIZE	; memory for app
+	dd U_END		; memory for app
-  dd	 U_END+STACK_SIZE	; esp
+	dd stack_area		; esp
-  dd	 0x0 , 0x0			; I_Param , I_Icon
+	dd 0x0			; boot parameters
+	dd 0x0			; path
+;------------------------------------------------------------------------------
 include 'lang.inc'
 include '../../../macros.inc'
 include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
 include '../../../develop/libraries/box_lib/load_lib.mac'
+;------------------------------------------------------------------------------
 display_processes=32		; number of processes to show
+window_x_size=524
+window_y_size=430
+;------------------------------------------------------------------------------
 @use_library	;use load lib macros
+;------------------------------------------------------------------------------
 START:				; start of execution
+	mcall	68,11
 sys_load_library  library_name, cur_dir_path, library_path, system_path, \
 err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i
 	inc	eax
 	jz	close
-; calculate window position
-; at the center of the screen
+;------------------------------------------------------------------------------
-    mcall 40,0x27	;set event
+	mcall	40,0x27	;set event
+;------------------------------------------------------------------------------
+;set window size and position for 0 function
+;to [winxpos] and [winypos] variables
+;get screen size
+	mcall	14
+	mov	ebx,eax
-    call calculate_window_pos
+;calculate (x_screen-window_x_size)/2
+	shr	ebx,16+1
+	sub	ebx,window_x_size/2
+	shl	ebx,16
+	mov	bx,window_x_size
+;winxpos=xcoord*65536+xsize
+	mov	[winxpos],ebx
-;main loop when process name isn't edited.
+;calculate (y_screen-window_y_size)/2
+	and	eax,0xffff
-red:
+	shr	eax,1
+	sub	eax,window_y_size/2
+	shl	eax,16
+	mov	ax,window_y_size
+;winypos=ycoord*65536+ysize
+	mov	[winypos],eax
+;------------------------------------------------------------------------------
 	mcall	48,3,sc,40
 	edit_boxes_set_sys_color edit1,edit1_end,sc		;set color
 	check_boxes_set_sys_color check1,check1_end,sc	;set color
+;------------------------------------------------------------------------------
-	xor	ebp,ebp
+align 4
+;main loop when process name isn't edited.
-	inc	ebp
+red:
-;    mov  ebp,1
-    call draw_window		; redraw all window
+	call	draw_window		; redraw all window
+;------------------------------------------------------------------------------
+align 4
 still:
-    mcall 23,100		; wait here for event 1 sec.
+	mcall	23,100		; wait here for event 1 sec.
-    dec  eax		      ; redraw request ?
+	dec	eax		      ; redraw request ?
+	jz	red
     jz	 red
-    dec  eax		      ; key in buffer ?
+	dec	eax		      ; key in buffer ?
+	jz	key
     jz	 key
-    dec  eax		      ; button in buffer ?
+	dec	eax		      ; button in buffer ?
-    jz	 button
+	jz	button
+;	sub	eax,3		      ; If not use mouse - show
-    sub eax,3		      ; If not use mouse - show
+;	jnz	still_end
     jnz still_end
+	push	dword edit1
-	push	dword edit1
+	call	[edit_box_mouse]
-	call	[edit_box_mouse]
+	push	dword[check1+32]
 	push	dword[check1+32]
+	push	dword check1
-	push	dword check1
+	call	[check_box_mouse]
-	call	[check_box_mouse]
+	pop	eax
-	pop	eax
-	cmp	eax, dword[check1+32]
+	cmp	eax, dword[check1+32]
+	jz	still_end
+	push	dword check1
+	call	[check_box_draw]
-	jnz	still_end
+;--------------------------------------
+align 4
+show_process_info_1:
+	mcall	26,9
-    jmp still
+	add	eax,100
-still_end:
+	mov	[time_counter],eax
+	call	show_process_info	; draw new state of processes
+	jmp	still
+;------------------------------------------------------------------------------
+align 4
+still_end:
+	mcall	26,9
+	cmp	[time_counter],eax
+	ja	still
+	add	eax,100
+	mov	[time_counter],eax
     xor  ebp,ebp		; draw new state of processes
-    call draw_window
+	call	show_process_info	; draw new state of processes
-    jmp  still
+	jmp	still
 ;------------------------------------------------------------------------------
+align 4
 key:				; key
-  key:				; key
+	mcall	2
-    mcall 2
+	cmp	ah,184 		; PageUp
 	jz	pgdn
     cmp  ah,184 		; PageUp
-    jz	 pgdn
+	cmp	ah,183
-    cmp  ah,183
+	jz	pgup			; PageDown
     jz	 pgup			; PageDown
-    cmp  ah,27
+	cmp	ah,27
-    jz	 close			; Esc
+	jz	close			; Esc
 	push	dword edit1
-	push	dword edit1
+	call	[edit_box_key]
-	call	[edit_box_key]
+				; Check ENTER with ed_focus edit_box
+	lea	edi,[edit1]
-				; Check ENTER with ed_focus edit_box
+	test	word ed_flags,ed_focus
-    lea  edi,[edit1]
+	jz	still_end
     test word ed_flags,ed_focus
-    jz	 still_end
-    sub  ah,13			; ENTER?
+	sub	ah,13			; ENTER?
-    jz	 program_start		; RUN a program
+	jz	program_start		; RUN a program
     jmp  still
 	jmp	still
-  button:
+;------------------------------------------------------------------------------
+align 4
-; get button id
+button:
-    mov  eax,17
+; get button id
-    mcall
-    shr  eax,8
+	mcall	17
 	shr	eax,8
-;id in [10,50] corresponds to terminate buttons.
-    cmp  eax,10
+;id in [10,50] corresponds to terminate buttons.
-    jb	 noterm
+	cmp	eax,10
-    cmp  eax,50
-    jg	 noterm
+	jb	noterm
-;calculate button index
+	cmp	eax,50
-    sub  eax,11
+	jg	noterm
-;calculate process slot
-    mov  ecx,[tasklist+4*eax]
+;calculate button index
+	sub	eax,11
+;calculate process slot
-;ignore empty buttons
+	mov	ecx,[tasklist+4*eax]
-    test ecx,ecx
+;ignore empty buttons
-    jle  still_end
-;terminate application
+	test	ecx,ecx
-    mov  eax,18
+	jle	still_end
-    mov  ebx,2
+;terminate application
-    mcall
+	mcall	18,2
-    jmp  still_end
+	jmp	show_process_info_1	;still_end
+;--------------------------------------
 align 4
-  noterm:
+noterm:
+;special buttons
-;special buttons
-    dec  eax
+	dec	eax
-    jz	 close
+	jz	close
 	sub	eax,50
-    sub  eax,50
+	jz	pgdn	  ;51
-    jz	 pgdn	  ;51
-    dec  eax
+	dec	eax
+	jz	pgup	  ;52
-    jz	 pgup	  ;52
-;    dec  eax
+	dec	eax
-;    jz   read_string
+	jz	program_start	;53
     dec  eax
-    jz	 program_start	;53
+	dec	eax
-    dec  eax
+	jz	reboot 	;54
-    jz	 reboot 	;54
+	jmp	still_end
-    jmp  still_end
+;buttons handlers
 ;------------------------------------------------------------------------------
-;buttons handlers
+align 4
 pgdn:
-  pgdn:
+	sub	[list_start],display_processes
+;	cmp	[list_start],0
-    sub  [list_start],display_processes
+	jge	show_process_info_1	;still_end
-;    cmp  [list_start],0
+	mov	[list_start],0
-    jge  still_end
-    mov  [list_start],0
+	jmp	show_process_info_1	;still_end
-    jmp  still_end
+;------------------------------------------------------------------------------
+align 4
-  pgup:
+pgup:
-    mov  eax,[list_add]  ;maximal displayed process slot
+	mov	eax,[list_add]  ;maximal displayed process slot
-    mov  [list_start],eax
-    jmp  still_end
+	mov	[list_start],eax
-  program_start:
+	jmp	show_process_info_1	;still_end
+;------------------------------------------------------------------------------
-    mov  eax,70
+align 4
-    mov  ebx,file_start
+program_start:
-    mcall
+	mcall	70,file_start
-    jmp  still_end
+	jmp	show_process_info_1	;still_end
+;------------------------------------------------------------------------------
+align 4
-  reboot:
+reboot:
-    mov  eax,70
+	mcall	70,sys_reboot
-    mov  ebx,sys_reboot
+;close program if we going to reboot
-    mcall
+;------------------------------------------------------------------------------
-;close program if we going to reboot
+align 4
 close:
-  close:
+	or	eax,-1 		; close this program
-    or	 eax,-1 		; close this program
-    mcall
-draw_next_process:
-;input:
+	mcall
-;  edi - current slot
-;  [curposy] - y position
+;------------------------------------------------------------------------------
-;output:
+align 4
-;  edi - next slot (or -1 if no next slot)
+draw_next_process:
-;registers corrupted!
-;create button
+;input:
-    test  ebp,ebp
-    jnz   .nodelete
-;delete old button
+;  edi - current slot
-    mov   eax,8
-    mov   edx,[index]
+;  [curposy] - y position
-    add   edx,(1 shl 31)+11
+;output:
-    mcall
+;  edi - next slot (or -1 if no next slot)
 ;registers corrupted!
-.nodelete:
+;delete old button
-;create terminate process button
+	mov	edx,[index]
-    mov   eax,8
+	add	edx,(1 shl 31)+11
-    mov   ebx,(15-offset_x)*65536+121-offset_y
+	mcall	8
-    mov   ecx,[curposy]
+;create terminate process button
+	mov	ecx,[curposy]
-	;sub   ecx,1
+	shl	ecx,16
-    shl   ecx,16
+	mov	cx,10
-    mov   cx,10
+	mov	edx,[index]
-    mov   edx,[index]
-    add   edx,11
+	add	edx,11
-    mov   esi,0xaabbcc
-;contrast
-    test  dword [index],1
+	mov	esi,0xaabbcc
-    jz	  .change_color_button
+;contrast
-    mov   esi,0x8899aa
+	test	dword [index],1
 	jz	.change_color_button
-.change_color_button:
+	mov	esi,0x8899aa
-    mcall
+;--------------------------------------
+align 4
+.change_color_button:
-;draw background for proccess information
+	mcall	,<10,99>
-    mov   eax,13
+;draw background for proccess information
-    mov   ebx,(115-offset_x)*65536+395
-    ;ecx was already set
+; ecx was already set
-    mov   edx,0x88ff88
+	mov	edx,0x88ff88
 ;contrast
-    test  dword [index],1
+	test	dword [index],1
-    jz	  .change_color_info
+	jz	.change_color_info
-    mov   edx,0xddffdd
+	mov	edx,0xddffdd
 ;--------------------------------------
+align 4
 .change_color_info:
-    mcall
+	mcall	13,<110,395>
 ;nothing else should be done
-;nothing else should be done
+;if there is no process for this button
-;if there is no process for this button
+	test	edi,edi
-    test  edi,edi
-    jl	  .ret
+	jl	.ret
+;--------------------------------------
-;find process
+align 4
 .return_1:
-    inc   edi
+;find process
-;more comfortable register for next loop
-    mov   ecx,edi
+	inc	edi
-;precacluate pointer to process buffer
-    mov   ebx,process_info_buffer
+;more comfortable register for next loop
-;find process loop
 	mov	ecx,edi
-.find_loop:
+;precacluate pointer to process buffer
-    cmp   ecx,256
+	mov	ebx,process_info_buffer
-    jge   .no_processes
+;--------------------------------------
-;load process information in buffer
+align 4
-    mov   eax,9
+.find_loop:
-;    mov   ebx,process_info_buffer
+	cmp	ecx,256
-    mcall
+	jge	.no_processes
 ;load process information in buffer
+	mcall	9
 ;if current slot greater than maximal slot,
 ;there is no more proccesses.
-    cmp   ecx,eax
+	cmp	ecx,eax
-    jg	  .no_processes
+	jg	.no_processes
+;if slot state is equal to 9, it is empty.
+	cmp	[process_info_buffer+process_information.slot_state],9
-;if slot state is equal to 9, it is empty.
+	jnz	.process_found
     cmp   [process_info_buffer+process_information.slot_state],9
-    jnz   .process_found
+	inc	ecx
 	jmp	.find_loop
-    inc   ecx
+;--------------------------------------
-    jmp   .find_loop
+align 4
 .no_processes:
+	or	edi,-1
-.no_processes:
+	ret
-    or	 edi,-1
+;--------------------------------------
+align 4
-    ret
+.process_found:
 ;check on/off check box
+	push	edi
-.process_found:
+	lea	edi,[check1]
-;check on/off check box
+	test	dword ch_flags,ch_flag_en
+	pop	edi
-    push edi
+	jnz	@f
-    lea  edi,[check1]
-    test dword ch_flags,ch_flag_en
+	cmp	dword [process_info_buffer+10],'ICON'
-    pop  edi
+	jz	.return_1
-    jnz   @f
     cmp   dword [process_info_buffer+10],'ICON'
-    jz	  .return_1
+	cmp	dword [process_info_buffer+10],'OS/I'
-    cmp   dword [process_info_buffer+10],'OS/I'
-    jz	  .return_1
-    cmp   byte [process_info_buffer+10],'@'
+	jz	.return_1
-    jz	  .return_1
 	cmp	byte [process_info_buffer+10],'@'
-@@: mov  edi,ecx
+	jz	.return_1
-    mov  [list_add],ecx
 ;--------------------------------------
-;get processor cpeed
+align 4
-;for percent calculating
+@@:
-    mov  eax,18
+	mov	edi,ecx
-    mov  ebx,5
+	mov	[list_add],ecx
-    mcall
+;get processor cpeed
-    xor  edx,edx
+;for percent calculating
-    mov  ebx,100
+	mcall	18,5
-    div  ebx
 	xor	edx,edx
-;eax = number of operation for 1% now
+	mov	ebx,100
-;calculate process cpu usage percent
+	div	ebx
-    mov  ebx,eax
+;eax = number of operation for 1% now
-    mov  eax,[process_info_buffer+process_information.cpu_usage]
+;calculate process cpu usage percent
-;    cdq
+	mov	ebx,eax
-    xor edx,edx ; for CPU more 2 GHz - mike.dld
+	mov	eax,[process_info_buffer+process_information.cpu_usage]
+;	cdq
 	xor	edx,edx ; for CPU more 2 GHz - mike.dld
-    div  ebx
+	div	ebx
+	mov	[cpu_percent],eax
-    mov  [cpu_percent],eax
+;set text color to display process information
 ;([tcolor] variable)
-;set text color to display process information
+;0%      : black
-;([tcolor] variable)
+;1-80%   : green
+;81-100% : red
-;0%      : black
+	test	eax,eax
-;1-80%   : green
+	jnz	.no_black
-;81-100% : red
+	mov	[tcolor],eax
-    test eax,eax
+	jmp	.color_set
-    jnz  .no_black
+;--------------------------------------
+align 4
+.no_black:
-    mov  [tcolor],eax
+	cmp	eax,80
-    jmp  .color_set
 	ja	.no_green
-.no_black:
-    cmp  eax,80
     ja	 .no_green
-    mov  dword [tcolor],0x107a30
+	mov	dword [tcolor],0x107a30
-    jmp  .color_set
+	jmp	.color_set
+;--------------------------------------
-.no_green:
+align 4
-    mov  dword [tcolor],0xac0000
-.color_set:
 .no_green:
-;show slot number
-    mov  eax,47
+	mov	dword [tcolor],0xac0000
-    mov  ebx,2*65536+1*256
+;--------------------------------------
-;ecx haven't changed since .process_found
-;    mov  ecx,edi
+align 4
-    mov  edx,[curposy]
-    add  edx,(20-offset_x)*65536+1
-    mov  esi,[tcolor]
-    mcall
+.color_set:
-;show process name
-    mov  eax,4
-    mov  ebx,[curposy]
+;show slot number
-    add  ebx,(50-offset_x)*65536+1
+;ecx haven't changed since .process_found
-    mov  ecx,[tcolor]
+;	mov	ecx,edi
-    mov  edx,process_info_buffer.process_name
-    mov  esi,11
-    mcall
+	mov	edx,[curposy]
-;show pid
+	add	edx,15*65536+1
-    mov  eax,47
+	mcall	47,<2,256>,,,[tcolor]
-    mov  ebx,8*65536+1*256
-    mov  ecx,[process_info_buffer.PID]
+;show process name
-    mov  edx,[curposy]
-    add  edx,(130-offset_x)*65536+1
-    mov  esi,[tcolor]
+	mov	ebx,[curposy]
-    mcall
+	add	ebx,45*65536+1
-;show cpu usage
+	mcall	4,,[tcolor],process_info_buffer.process_name,11
-    mov  ecx,[process_info_buffer.cpu_usage]
-    add  edx,60*65536
-    mcall
+;show pid
+	mov	edx,[curposy]
-;show cpu percent
-    mov  ebx,3*65536+0*256
+	add	edx,125*65536+1
-    mov  ecx,[cpu_percent]
+	mcall	47,<8,256>,[process_info_buffer.PID],,[tcolor]
-    add  edx,60*65536
+;show cpu usage
-    mcall
+	add	edx,60*65536
 	mcall	,,[process_info_buffer.cpu_usage]
-;show memory start - obsolete
-    mov  ebx,8*65536+1*256
+;show cpu percent
-    mov  ecx,[process_info_buffer.memory_start]
-    add  edx,30*65536
+	add	edx,60*65536
-    mcall
+	mcall	,<3,0>,[cpu_percent]
-;show memory usage
+;show memory start - obsolete
-    mov  ecx,[process_info_buffer.used_memory]
+	add	edx,30*65536
-    inc  ecx
+	mcall	,<8,256>,[process_info_buffer.memory_start]
-    add  edx,60*65536
+;show memory usage
-    mcall
+	mov	ecx,[process_info_buffer.used_memory]
 	inc	ecx
+	add	edx,60*65536
-;show window stack and value
+	mcall
-    mov  ecx,dword [process_info_buffer.window_stack_position]
+;show window stack and value
-    add  edx,60*65536
+	add	edx,60*65536
-    mcall
+	mcall	,,dword [process_info_buffer.window_stack_position]
 ;show window xy size
-;show window xy size
+	mov	ecx,[process_info_buffer.box.left]
-    mov  ecx,[process_info_buffer.box.left]
-    shl  ecx,16
-    add  ecx,[process_info_buffer.box.top]
-    add  edx,60*65536
+	shl	ecx,16
-    mcall
-.ret:
+	add	ecx,[process_info_buffer.box.top]
-;build index->slot map for terminating processes.
-    mov  eax,[index]
-    mov  [tasklist+4*eax],edi
-    ret
-;read_string:
-;clean string
-;    mov  edi,start_application
-;    xor  eax,eax
-;    mov  ecx,60
+	add	edx,60*65536
-;    cld
+	mcall
-;    rep  stosb
+;--------------------------------------
-;    call print_text
-;    mov  edi,start_application
-;edi now contains pointer to last symbol
+align 4
-;    jmp  still1
+.ret:
-;read string main loop
-  f11:
-;full update
-    push edi
-	xor	ebp,ebp
-	inc	ebp
-;    mov  ebp,1
-    call draw_window
-    pop  edi
-;
+;build index->slot map for terminating processes.
-;  still1:
-;wait for message
-;    mov  eax,23
-;    mov  ebx,100
-;    mcall
-;    cmp  eax,1
-;    je   f11
-;if no message - update process information
-;    cmp  eax,0
-;    jnz  .message_received
-;    push edi                ;edi should be saved since draw_window
-;    xor  ebp,ebp            ;corrupt registers
-;    call draw_window
-;    pop  edi
-;    jmp  still1
-;
-;.message_received:
-;    cmp  eax,2
-;    jne  read_done          ;buttons message
-;read char
-;    mov  eax,2
-;    mcall
-;    shr  eax,8
-;if enter pressed, exit read string loop
-;    cmp  eax,13
-;    je   read_done
-;if backslash pressed?
-;    cmp  eax,8
-;    jnz  nobsl
-;decrease pointer to last symbol
-;    cmp  edi,start_application
-;    jz   still1
-;    dec  edi
-;fill last symbol with space because
-;print_text show all symbols
-;    mov  [edi],byte 32
-;    call print_text
-;    jmp  still1
-;
-;  nobsl:
-;write new symbol
-;    mov  [edi],al
-;display new text
-;    call print_text
-;increment pointer to last symbol
-;    inc  edi
-;compare with end of string
-;    mov  esi,start_application
-;    add  esi,60
-;    cmp  esi,edi
-;    jnz  still1
-;exiting from read string loop
-;
-;  read_done:
-;terminate string for file functions
-;    mov  [edi],byte 0
-;    call print_text
-;    jmp  still
-;
-;print_text:
-;display start_application string
-;    pushad
-;display text background
-;    mov  eax,13
-;    mov  ebx,64*65536+62*6
-;    mov  ecx,400*65536+12
-;    mov  edx,0xffffcc  ;0xeeeeee
-;    mcall
-;display text
-;    mov  eax,4
-;    mov  edx,start_application  ;from start_application string
-;    mov  ebx,70*65536+402       ;text center-aligned
-;    xor  ecx,ecx                ;black text
-;    mov  esi,60                 ;60 symbols
-;    mcall
-;    popad
-;    ret
-window_x_size=524
-window_y_size=430
-calculate_window_pos:
-;set window size and position for 0 function
-;to [winxpos] and [winypos] variables
-;get screen size
-    mov  eax,14
-    mcall
-    mov  ebx,eax
-;calculate (x_screen-window_x_size)/2
-    shr  ebx,16+1
-    sub  ebx,window_x_size/2
-    shl  ebx,16
-    mov  bx,window_x_size
-;winxpos=xcoord*65536+xsize
-    mov  [winxpos],ebx
-;calculate (y_screen-window_y_size)/2
+	mov	eax,[index]
-    and  eax,0xffff
+	mov	[tasklist+4*eax],edi
-    shr  eax,1
+	ret
-    sub  eax,window_y_size/2
-    shl  eax,16
+;------------------------------------------------------------------------------
-    mov  ax,window_y_size
+align 4
-;winypos=ycoord*65536+ysize
-    mov  [winypos],eax
-    ret
-;   *********************************************
-;   *******  WINDOW DEFINITIONS AND DRAW ********
+f11:
-;   *********************************************
 ;full update
-align 16
+	push	edi
-draw_window:
+	call	draw_window
-;ebp=1 - redraw all
+	pop	edi
-;ebp=0 - redraw only process information
-    test ebp,ebp
-    jz	 .show_process_info
-    mcall 12, 1
+;------------------------------------------------------------------------------
-	; DRAW WINDOW
+;   *********************************************
-    xor  eax,eax				; function 0 : define and draw window
-    mov  ebx,[winxpos]			; [x start] *65536 + [x size]
+;   *******  WINDOW DEFINITIONS AND DRAW ********
-    mov  ecx,[winypos]			; [y start] *65536 + [y size]
-    mov  edx,0x34ddffdd			; color of work area RRGGBB,8->color
+;   *********************************************
-    mov  edi,title				; WINDOW CAPTION;
+align 4
+draw_window:
-    mcall
+	mcall	12, 1
 ; DRAW WINDOW
+	xor	eax,eax				; function 0 : define and draw window
-    add  eax,4					; function 4 : write text to window
-    mov  ebx,(22-offset_x)*65536+35-offset_y
-    xor  ecx,ecx
-    mov  edx,text
-    mov  esi,text_len
-    mcall
-	push	dword edit1
-	call	[edit_box_draw]
-	push	dword check1
-	call	[check_box_draw]
-align 16
-.show_process_info:
+	xor	esi,esi
-    mov  edi,[list_start]
+	mcall	,[winxpos],[winypos],0x34ddffdd,,title
-    mov  [list_add],edi
-    mov  dword [index],0
+; function 4 : write text to window
-    mov  dword [curposy],54-offset_y
+	xor	ecx,ecx
-.loop_draw:
+	mcall	4,<17,13>,,text,text_len
-    call draw_next_process
-    inc  dword [index]
-    add  dword [curposy],10
     cmp  [index],display_processes
-    jl	 .loop_draw
 	push	dword edit1
-    test ebp,ebp
+	call	[edit_box_draw]
-    jz	 .end_redraw
     mov  eax,8
-    mov  esi,0xaabbcc
 	push	dword check1
-; previous page button
-    mov  ebx,(30-offset_x)*65536+96
-    mov  ecx,(380-offset_y)*65536+10
-    mov  edx,51
+	call	[check_box_draw]
-    mcall
-; next page button  52
+	mcall	26,9
-    mov  ebx,(130-offset_x)*65536+96
-    inc  edx
+	add	eax,100
-    mcall
+	mov	[time_counter],eax
-; ">" (text enter) button
+	call	show_process_info
-;    mov  ebx,30*65536+20
+; previous page button
-    add  ecx,20 shl 16
+	mcall	8,<25,96>,<358,10>,51,0xaabbcc
-;    inc  edx
-;    mcall
+; next page button  52
-; run button 53
-    mov  ebx,(456-offset_x)*65536+50
+	inc	edx
-    inc  edx
-    mcall
+	mcall	,<125,96>
-; reboot button
-    sub  ebx,120*65536
-    add  ebx,60
-    sub  ecx,20 shl 16
-    inc  edx
-    mcall
-;"PREV PAGE", "NEXT PAGE" and "REBOOT" labels
-    mov  eax,4
-    mov  ebx,(50-offset_x)*65536+382-offset_y
+; ">" (text enter) button
-    xor  ecx,ecx
-    mov  edx,tbts
-    mov  esi,tbte-tbts
-    mcall
+	add	ecx,20 shl 16
-;">" labels
-;    mov  eax,4
-;    mov  ebx,40*65536+402
+; run button 53
-;    xor  ecx,ecx
-;    mov  edx,tbts_2
-;    mov  esi,1
+	inc	edx
-;    mcall
-;"RUN" labels
+	mcall	,<451,50>
+; reboot button
+	sub	ebx,120*65536
+	add	ebx,60
+	sub	ecx,20 shl 16
+	inc	edx
+	mcall
+;"PREV PAGE", "NEXT PAGE" and "REBOOT" labels
+	xor	ecx,ecx
-;    mov  eax,4
+	mcall	4,<45,360>,,tbts,tbte-tbts
+;"RUN" labels
+	mcall	,<464,380>,,tbts_3,tbte_2-tbts_3
+;print application name in text box
+	mcall	12, 2
+	ret
+;------------------------------------------------------------------------------
-    mov  ebx,(475-offset_x)*65536+402-offset_y
+align 4
+show_process_info:
-    xor  ecx,ecx
+	mov	edi,[list_start]
+	mov	[list_add],edi
-    mov  edx,tbts_3
+	mov	dword [index],0
-    mov  esi,tbte_2-tbts_3
+	mov	dword [curposy],32
-    mcall
+;--------------------------------------
 align 4
-;print application name in text box
+.loop_draw:
-;    call print_text
+	call	draw_next_process
 	inc	dword [index]
+	add	dword [curposy],10
-    mcall 12, 2
+	cmp	[index],display_processes
 	jl	.loop_draw
-.end_redraw:
-    ret
+	ret
 ;------------------------------------------------------------------------------
 ; DATA AREA
-; DATA AREA
+;------------------------------------------------------------------------------
-;aVersion_ch      db 'version_ch',0
+;aVersion_ch		db 'version_ch',0
-;aOption_box_draw  db 'option_box_draw',0
+;aOption_box_draw	db 'option_box_draw',0
-;aOption_box_mouse db 'option_box_mouse',0
+;aOption_box_mouse	db 'option_box_mouse',0
+;aVersion_op		db 'version_op',0
+;------------------------------------------------------------------------------
-;aVersion_op       db 'version_op',0
+align 4
-check1 check_box 10,(400-offset_y),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:
-check1_end:
+edit1 edit_box 350,95,376,0xffffff,0x6f9480,0,0xAABBCC,0,start_application_c,\
-edit1 edit_box 350,(100-offset_x),(398-offset_y),0xffffff,0x6f9480,0,0xAABBCC,0,start_application_c,start_application,mouse_dd,ed_focus,start_application_e,start_application_e
+   start_application,mouse_dd,ed_focus,start_application_e,start_application_e
 edit1_end:
+list_start  dd 0
-list_start  dd 0
+;------------------------------------------------------------------------------
 align 4
 sys_reboot:
 	    dd 7
 	    dd 0
 	    dd 0
 	    dd 0
 	    dd 0
-	    db '/sys/end',0
+	    db '/sys/end',0
 ;------------------------------------------------------------------------------
 if lang eq de
 text:
-  db 'NAME/BEENDEN        PID     CPU-LAST   % '
+	db 'NAME/BEENDEN        PID     CPU-LAST   % '
-  db 'SPEICHER START/NUTZUNG  W-STACK   W-SIZE'
+	db 'SPEICHER START/NUTZUNG  W-STACK   W-SIZE'
 text_len = $-text
-tbts:	db  'SEITE ZURUECK       SEITE VOR                      REBOOT SYSTEM'
-tbte:
+tbts:	db 'SEITE ZURUECK       SEITE VOR                      REBOOT SYSTEM'
-;tbts_2  db  '>'
+tbte:
-tbts_3	db  'START'
+tbts_3	db 'START'
 tbte_2:
-check_text db '@ gehoren/aus'
+check_text	db '@ on/off'
-check_t_e=$-check_text
+check_t_e=$-check_text
-title  db   'Prozesse  - Ctrl/Alt/Del',0
+title	db 'Prozesse  - Ctrl/Alt/Del',0
 ;--------------------------------------
 else if lang eq et
 text:
-  db 'NIMI/LÕPETA         PID    CPU-KASUTUS %   '
+	db 'NIMI/LÕPETA         PID    CPU-KASUTUS %   '
-  db 'MÄLU ALGUS/KASUTUS  W-PUHVER  W-SUURUS'
+	db 'MÄLU ALGUS/KASUTUS  W-PUHVER  W-SUURUS'
 text_len = $-text
 tbts:	db  'EELMINE LEHT   JÄRGMINE LEHT                     REBOODI SÜSTEEM'
-tbte:
+tbts:	db 'EELMINE LEHT   JÄRGMINE LEHT                     REBOODI SÜSTEEM'
-;tbts_2 db  '>'
+tbte:
-tbts_3	db  'START'
+tbts_3	db 'START'
 tbte_2:
+check_text	db '@ on/off'
+check_t_e=$-check_text
+title	db 'Protsessid - Ctrl/Alt/Del'
+;--------------------------------------
+else if lang eq ru
+text:
+	db '/      PID     CPU- %  '
+	db ' /  W-STACK    W-SIZE'
+text_len = $-text
+tbts:	db '.        .                          '
+tbte:
+tbts_3	db ''
+tbte_2:
-check_text db '@ on/off'
+check_text	db '@ ¢ª«/¢ëª«'
 check_t_e=$-check_text
-title  db   'Protsessid - Ctrl/Alt/Del'
+title	db '¨á¯¥âç¥à ¯à®æ¥áá®¢ - Ctrl/Alt/Del',0
 ;--------------------------------------
 else
 text:
-  db 'NAME/TERMINATE      PID     CPU-USAGE  %   '
+	db 'NAME/TERMINATE      PID     CPU-USAGE  %   '
-  db 'MEMORY START/USAGE  W-STACK    W-SIZE'
-text_len = $-text
+	db 'MEMORY START/USAGE  W-STACK    W-SIZE'
 text_len = $-text
 tbts:	db  'PREV PAGE       NEXT PAGE                         REBOOT SYSTEM'
-tbte:
+tbts:	db 'PREV PAGE       NEXT PAGE                         REBOOT SYSTEM'
-;tbts_2  db  '>'
+tbte:
-tbts_3	db  'RUN'
+tbts_3	db ' RUN'
+tbte_2:
+check_text	db '@ on/off'
-tbte_2:
+check_t_e=$-check_text
+title	db 'Process manager - Ctrl/Alt/Del',0
+end if
+;------------------------------------------------------------------------------
-check_text db '@ on/off'
+align 4
-check_t_e=$-check_text
+file_start:
-title  db   'Processes - Ctrl/Alt/Del',0
+	dd 7
 	dd 0
-end if
+	dd 0
-file_start: dd 7
+	dd 0
-	    dd 0,0,0,0
+	dd 0
 start_application: db '/sys/LAUNCHER',0
+start_application_e=$-start_application-1
+;                   times 60 db 0
-start_application_e=$-start_application-1
+	rb 60
-;                   times 60 db 0
+start_application_c=$-start_application-1
-rb	60
+;------------------------------------------------------------------------------
-start_application_c=$-start_application-1
+IM_END:
 ;------------------------------------------------------------------------------
-I_END:
+align 4
 sc system_colors
-winxpos  rd 1
+winxpos		rd 1
-winypos  rd 1
+winypos		rd 1
 mouse_dd	rd 1
+cpu_percent	rd 1
+tcolor		rd 1
+list_add	rd 1
+curposy		rd 1
-cpu_percent rd 1
+index		rd 1
+tasklist	rd display_processes
+time_counter	rd 1
-tcolor	    rd 1
+;------------------------------------------------------------------------------
-list_add    rd 1
+align 4
+library_path:
-curposy     rd 1
+process_info_buffer process_information
+;------------------------------------------------------------------------------
+align 4
+cur_dir_path:
-index	    rd 1
+	rb 1024
+;------------------------------------------------------------------------------

Subversion Repositories Kolibri OS

(root)/programs/system/cpu/trunk/cpu.asm – Rev 2128 → 2559