; ; PROCESS MANAGEMENT ; ; VTurjanmaa ; additions by M.Lisovin lisovin@26.ru ; integrated with load_lib.obj by ; 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: