kolibrios-fun/programs/system/cpu/trunk/cpu.asm

770 lines
16 KiB
NASM
Raw Normal View History

;
; PROCESS MANAGEMENT
;
; VTurjanmaa
; additions by M.Lisovin lisovin@26.ru
; integrated with load_lib.obj by <Lrz>
; Compile with FASM for Menuet
;
use32
org 0x0
STACK_SIZE=1024
offset_y=22 ; Correction for skin
offset_x=5
db 'MENUET01' ; 8 byte id
dd 0x01 ; header version
dd START ; start of code
dd I_END ; size of image
dd U_END+STACK_SIZE ; memory for app
dd U_END+STACK_SIZE ; esp
dd 0x0 , 0x0 ; I_Param , I_Icon
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
@use_library ;use load lib macros
START: ; start of execution
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
call calculate_window_pos
;main loop when process name isn't edited.
red:
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
inc ebp
; mov ebp,1
call draw_window ; redraw all window
still:
mcall 23,100 ; wait here for event 1 sec.
dec eax ; redraw request ?
jz red
dec eax ; key in buffer ?
jz key
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]
push dword[check1+32]
push dword check1
call [check_box_mouse]
pop eax
cmp eax, dword[check1+32]
jnz still_end
jmp still
still_end:
xor ebp,ebp ; draw new state of processes
call draw_window
jmp still
key: ; key
mcall 2
cmp ah,184 ; PageUp
jz pgdn
cmp ah,183
jz pgup ; PageDown
cmp ah,27
jz close ; Esc
push dword edit1
call [edit_box_key]
; Check ENTER with ed_focus edit_box
lea edi,[edit1]
test word ed_flags,ed_focus
jz still_end
sub ah,13 ; ENTER?
jz program_start ; RUN a program
jmp still
button:
; get button id
mov eax,17
mcall
shr eax,8
;id in [10,50] corresponds to terminate buttons.
cmp eax,10
jb noterm
cmp eax,50
jg noterm
;calculate button index
sub eax,11
;calculate process slot
mov ecx,[tasklist+4*eax]
;ignore empty buttons
test ecx,ecx
jle still_end
;terminate application
mov eax,18
mov ebx,2
mcall
jmp still_end
noterm:
;special buttons
dec eax
jz close
sub eax,50
jz pgdn ;51
dec eax
jz pgup ;52
; dec eax
; jz read_string
dec eax
jz program_start ;53
dec eax
jz reboot ;54
jmp still_end
;buttons handlers
pgdn:
sub [list_start],display_processes
; cmp [list_start],0
jge still_end
mov [list_start],0
jmp still_end
pgup:
mov eax,[list_add] ;maximal displayed process slot
mov [list_start],eax
jmp still_end
program_start:
mov eax,70
mov ebx,file_start
mcall
jmp still_end
reboot:
mov eax,70
mov ebx,sys_reboot
mcall
;close program if we going to reboot
close:
or eax,-1 ; close this program
mcall
draw_next_process:
;input:
; edi - current slot
; [curposy] - y position
;output:
; edi - next slot (or -1 if no next slot)
;registers corrupted!
;create button
test ebp,ebp
jnz .nodelete
;delete old button
mov eax,8
mov edx,[index]
add edx,(1 shl 31)+11
mcall
.nodelete:
;create terminate process button
mov eax,8
mov ebx,(15-offset_x)*65536+121-offset_y
mov ecx,[curposy]
;sub ecx,1
shl ecx,16
mov cx,10
mov edx,[index]
add edx,11
mov esi,0xaabbcc
;contrast
test dword [index],1
jz .change_color_button
mov esi,0x8899aa
.change_color_button:
mcall
;draw background for proccess information
mov eax,13
mov ebx,(115-offset_x)*65536+395
;ecx was already set
mov edx,0x88ff88
;contrast
test dword [index],1
jz .change_color_info
mov edx,0xddffdd
.change_color_info:
mcall
;nothing else should be done
;if there is no process for this button
test edi,edi
jl .ret
;find process
.return_1:
inc edi
;more comfortable register for next loop
mov ecx,edi
;precacluate pointer to process buffer
mov ebx,process_info_buffer
;find process loop
.find_loop:
cmp ecx,256
jge .no_processes
;load process information in buffer
mov eax,9
; mov ebx,process_info_buffer
mcall
;if current slot greater than maximal slot,
;there is no more proccesses.
cmp ecx,eax
jg .no_processes
;if slot state is equal to 9, it is empty.
cmp [process_info_buffer+process_information.slot_state],9
jnz .process_found
inc ecx
jmp .find_loop
.no_processes:
or edi,-1
ret
.process_found:
;check on/off check box
push edi
lea edi,[check1]
test dword ch_flags,ch_flag_en
pop edi
jnz @f
cmp dword [process_info_buffer+10],'ICON'
jz .return_1
cmp dword [process_info_buffer+10],'OS/I'
jz .return_1
cmp byte [process_info_buffer+10],'@'
jz .return_1
@@: mov edi,ecx
mov [list_add],ecx
;get processor cpeed
;for percent calculating
mov eax,18
mov ebx,5
mcall
xor edx,edx
mov ebx,100
div ebx
;eax = number of operation for 1% now
;calculate process cpu usage percent
mov ebx,eax
mov eax,[process_info_buffer+process_information.cpu_usage]
; cdq
xor edx,edx ; for CPU more 2 GHz - mike.dld
div ebx
mov [cpu_percent],eax
;set text color to display process information
;([tcolor] variable)
;0% : black
;1-80% : green
;81-100% : red
test eax,eax
jnz .no_black
mov [tcolor],eax
jmp .color_set
.no_black:
cmp eax,80
ja .no_green
mov dword [tcolor],0x107a30
jmp .color_set
.no_green:
mov dword [tcolor],0xac0000
.color_set:
;show slot number
mov eax,47
mov ebx,2*65536+1*256
;ecx haven't changed since .process_found
; mov ecx,edi
mov edx,[curposy]
add edx,(20-offset_x)*65536+1
mov esi,[tcolor]
mcall
;show process name
mov eax,4
mov ebx,[curposy]
add ebx,(50-offset_x)*65536+1
mov ecx,[tcolor]
mov edx,process_info_buffer.process_name
mov esi,11
mcall
;show pid
mov eax,47
mov ebx,8*65536+1*256
mov ecx,[process_info_buffer.PID]
mov edx,[curposy]
add edx,(130-offset_x)*65536+1
mov esi,[tcolor]
mcall
;show cpu usage
mov ecx,[process_info_buffer.cpu_usage]
add edx,60*65536
mcall
;show cpu percent
mov ebx,3*65536+0*256
mov ecx,[cpu_percent]
add edx,60*65536
mcall
;show memory start - obsolete
mov ebx,8*65536+1*256
mov ecx,[process_info_buffer.memory_start]
add edx,30*65536
mcall
;show memory usage
mov ecx,[process_info_buffer.used_memory]
inc ecx
add edx,60*65536
mcall
;show window stack and value
mov ecx,dword [process_info_buffer.window_stack_position]
add edx,60*65536
mcall
;show window xy size
mov ecx,[process_info_buffer.box.left]
shl ecx,16
add ecx,[process_info_buffer.box.top]
add edx,60*65536
mcall
.ret:
;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
; cld
; rep stosb
; call print_text
; mov edi,start_application
;edi now contains pointer to last symbol
; jmp still1
;read string main loop
f11:
;full update
push edi
xor ebp,ebp
inc ebp
; mov ebp,1
call draw_window
pop edi
;
; 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
and eax,0xffff
shr eax,1
sub eax,window_y_size/2
shl eax,16
mov ax,window_y_size
;winypos=ycoord*65536+ysize
mov [winypos],eax
ret
; *********************************************
; ******* WINDOW DEFINITIONS AND DRAW ********
; *********************************************
align 16
draw_window:
;ebp=1 - redraw all
;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]
mov ecx,[winypos] ; [y start] *65536 + [y size]
mov edx,0x34ddffdd ; color of work area RRGGBB,8->color
mov edi,title ; WINDOW CAPTION;
mcall
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:
mov edi,[list_start]
mov [list_add],edi
mov dword [index],0
mov dword [curposy],54-offset_y
.loop_draw:
call draw_next_process
inc dword [index]
add dword [curposy],10
cmp [index],display_processes
jl .loop_draw
test ebp,ebp
jz .end_redraw
mov eax,8
mov esi,0xaabbcc
; previous page button
mov ebx,(30-offset_x)*65536+96
mov ecx,(380-offset_y)*65536+10
mov edx,51
mcall
; next page button 52
mov ebx,(130-offset_x)*65536+96
inc edx
mcall
; ">" (text enter) button
; mov ebx,30*65536+20
add ecx,20 shl 16
; inc edx
; mcall
; run button 53
mov ebx,(456-offset_x)*65536+50
inc edx
mcall
; 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
xor ecx,ecx
mov edx,tbts
mov esi,tbte-tbts
mcall
;">" labels
; mov eax,4
; mov ebx,40*65536+402
; xor ecx,ecx
; mov edx,tbts_2
; mov esi,1
; mcall
;"RUN" labels
; mov eax,4
mov ebx,(475-offset_x)*65536+402-offset_y
xor ecx,ecx
mov edx,tbts_3
mov esi,tbte_2-tbts_3
mcall
;print application name in text box
; call print_text
mcall 12, 2
.end_redraw:
ret
; DATA AREA
system_path db '/sys/lib/'
library_name db 'box_lib.obj',0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
err_message_found_lib db 'Sorry I cannot load library box_lib.obj',0
head_f_i:
head_f_l db 'System error',0
err_message_import db 'Error on load import library box_lib.obj',0
myimport:
edit_box_draw dd aEdit_box_draw
edit_box_key dd aEdit_box_key
edit_box_mouse dd aEdit_box_mouse
;version_ed dd aVersion_ed
check_box_draw dd aCheck_box_draw
check_box_mouse dd aCheck_box_mouse
;version_ch dd aVersion_ch
;option_box_draw dd aOption_box_draw
;option_box_mouse dd aOption_box_mouse
;version_op dd aVersion_op
dd 0
dd 0
aEdit_box_draw db 'edit_box',0
aEdit_box_key db 'edit_box_key',0
aEdit_box_mouse db 'edit_box_mouse',0
;aVersion_ed db 'version_ed',0
aCheck_box_draw db 'check_box_draw',0
aCheck_box_mouse db 'check_box_mouse',0
;aVersion_ch db 'version_ch',0
;aOption_box_draw db 'option_box_draw',0
;aOption_box_mouse db 'option_box_mouse',0
;aVersion_op db 'version_op',0
check1 check_box 10,(400-offset_y),6,11,0x80AABBCC,0,0,check_text,check_t_e,0;ch_flag_en
check1_end:
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
edit1_end:
list_start dd 0
sys_reboot:
dd 7
dd 0
dd 0
dd 0
dd 0
db '/sys/end',0
if lang eq de
text:
db 'NAME/BEENDEN PID CPU-LAST % '
db 'SPEICHER START/NUTZUNG W-STACK W-SIZE'
text_len = $-text
tbts: db 'SEITE ZURUECK SEITE VOR REBOOT SYSTEM'
tbte:
;tbts_2 db '>'
tbts_3 db 'START'
tbte_2:
check_text db '@ gehoren/aus'
check_t_e=$-check_text
title db 'Prozesse - Ctrl/Alt/Del',0
else if lang eq et
text:
db 'NIMI/L<>PETA PID CPU-KASUTUS % '
db 'M<>LU ALGUS/KASUTUS W-PUHVER W-SUURUS'
text_len = $-text
tbts: db 'EELMINE LEHT J<>RGMINE LEHT REBOODI S<>STEEM'
tbte:
;tbts_2 db '>'
tbts_3 db 'START'
tbte_2:
check_text db '@ on/off'
check_t_e=$-check_text
title db 'Protsessid - Ctrl/Alt/Del'
else
text:
db 'NAME/TERMINATE PID CPU-USAGE % '
db 'MEMORY START/USAGE W-STACK W-SIZE'
text_len = $-text
tbts: db 'PREV PAGE NEXT PAGE REBOOT SYSTEM'
tbte:
;tbts_2 db '>'
tbts_3 db 'RUN'
tbte_2:
check_text db '@ on/off'
check_t_e=$-check_text
title db 'Processes - Ctrl/Alt/Del',0
end if
file_start: dd 7
dd 0,0,0,0
start_application: db '/sys/LAUNCHER',0
start_application_e=$-start_application-1
; times 60 db 0
rb 60
start_application_c=$-start_application-1
I_END:
sc system_colors
winxpos rd 1
winypos rd 1
mouse_dd rd 1
cpu_percent rd 1
tcolor rd 1
list_add rd 1
curposy rd 1
index rd 1
tasklist rd display_processes
process_info_buffer process_information
cur_dir_path rb 1024
library_path rb 1024
U_END: