forked from KolibriOS/kolibrios
621 lines
13 KiB
NASM
621 lines
13 KiB
NASM
;
|
|
; PROCESS MANAGEMENT
|
|
;
|
|
; VTurjanmaa
|
|
; additions by M.Lisovin lisovin@26.ru
|
|
; Compile with FASM for Menuet
|
|
;
|
|
|
|
use32
|
|
org 0x0
|
|
STACK_SIZE=1024
|
|
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'
|
|
display_processes=32 ; number of processes to show
|
|
START: ; start of execution
|
|
; calculate window position
|
|
; at the center of the screen
|
|
call calculate_window_pos
|
|
|
|
;main loop when process name isn't edited.
|
|
red:
|
|
mov ebp,1
|
|
call draw_window ; redraw all window
|
|
still:
|
|
mov eax,23 ; wait here for event
|
|
mov ebx,100 ; 1 sec.
|
|
int 0x40
|
|
|
|
cmp eax,1 ; redraw request ?
|
|
je red
|
|
cmp eax,2 ; key in buffer ?
|
|
je key
|
|
cmp eax,3 ; button in buffer ?
|
|
je button
|
|
still_end:
|
|
xor ebp,ebp ; draw new state of processes
|
|
call draw_window
|
|
jmp still
|
|
|
|
|
|
key: ; key
|
|
mov eax,2
|
|
int 0x40
|
|
cmp ah,184 ; PageUp
|
|
je pgdn
|
|
cmp ah,183
|
|
je pgup ; PageDown
|
|
cmp ah,27
|
|
je close ; Esc
|
|
jmp still_end
|
|
|
|
button:
|
|
; get button id
|
|
mov eax,17
|
|
int 0x40
|
|
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
|
|
int 0x40
|
|
jmp still_end
|
|
noterm:
|
|
|
|
;special buttons
|
|
cmp eax,51
|
|
jz pgdn
|
|
cmp eax,52
|
|
jz pgup
|
|
cmp eax,53
|
|
jz read_string
|
|
cmp eax,54
|
|
jz program_start
|
|
cmp eax,55
|
|
jz reboot
|
|
cmp eax,1
|
|
jz close
|
|
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,58
|
|
mov ebx,file_start
|
|
int 0x40
|
|
jmp still_end
|
|
|
|
reboot:
|
|
mov eax,18
|
|
mov ebx,1
|
|
int 0x40
|
|
;close program if we going to reboot
|
|
|
|
close:
|
|
mov eax,-1 ; close this program
|
|
int 0x40
|
|
|
|
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
|
|
int 0x40
|
|
.nodelete:
|
|
;create terminate process button
|
|
mov eax,8
|
|
mov ebx,15*65536+100
|
|
mov ecx,[curposy]
|
|
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:
|
|
int 0x40
|
|
|
|
;draw background for proccess information
|
|
mov eax,13
|
|
mov ebx,115*65536+395
|
|
;ecx was already set
|
|
mov edx,0x88ff88
|
|
;contrast
|
|
test dword [index],1
|
|
jz .change_color_info
|
|
mov edx,0xddffdd
|
|
.change_color_info:
|
|
int 0x40
|
|
|
|
;nothing else should be done
|
|
;if there is no process for this button
|
|
test edi,edi
|
|
jl .ret
|
|
|
|
;find process
|
|
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
|
|
int 0x40
|
|
|
|
;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:
|
|
mov edi,-1
|
|
ret
|
|
|
|
.process_found:
|
|
mov edi,ecx
|
|
mov [list_add],ecx
|
|
|
|
;get processor cpeed
|
|
;for percent calculating
|
|
mov eax,18
|
|
mov ebx,5
|
|
int 0x40
|
|
|
|
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
|
|
jg .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*65536+1
|
|
mov esi,[tcolor]
|
|
int 0x40
|
|
|
|
;show process name
|
|
mov eax,4
|
|
mov ebx,[curposy]
|
|
add ebx,50*65536+1
|
|
mov ecx,[tcolor]
|
|
mov edx,process_info_buffer.process_name
|
|
mov esi,11
|
|
int 0x40
|
|
|
|
;show pid
|
|
mov eax,47
|
|
mov ebx,8*65536+1*256
|
|
mov ecx,[process_info_buffer.PID]
|
|
mov edx,[curposy]
|
|
add edx,130*65536+1
|
|
mov esi,[tcolor]
|
|
int 0x40
|
|
|
|
;show cpu usage
|
|
mov ecx,[process_info_buffer.cpu_usage]
|
|
add edx,60*65536
|
|
int 0x40
|
|
|
|
;show cpu percent
|
|
mov ebx,3*65536+0*256
|
|
mov ecx,[cpu_percent]
|
|
add edx,60*65536
|
|
int 0x40
|
|
|
|
;show memory start - obsolete
|
|
mov ebx,8*65536+1*256
|
|
mov ecx,[process_info_buffer.memory_start]
|
|
add edx,30*65536
|
|
int 0x40
|
|
|
|
;show memory usage
|
|
mov ecx,[process_info_buffer.used_memory]
|
|
inc ecx
|
|
add edx,60*65536
|
|
int 0x40
|
|
|
|
;show window stack and value
|
|
mov ecx,dword [process_info_buffer.window_stack_position]
|
|
add edx,60*65536
|
|
int 0x40
|
|
|
|
;show window xy size
|
|
mov ecx,[process_info_buffer.x_size]
|
|
shl ecx,16
|
|
add ecx,[process_info_buffer.y_size]
|
|
add edx,60*65536
|
|
int 0x40
|
|
|
|
.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
|
|
mov ebp,1
|
|
call draw_window
|
|
pop edi
|
|
still1:
|
|
;wait for message
|
|
mov eax,23
|
|
mov ebx,100
|
|
int 0x40
|
|
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
|
|
int 0x40
|
|
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
|
|
int 0x40
|
|
|
|
;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
|
|
int 0x40
|
|
|
|
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
|
|
int 0x40
|
|
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 ********
|
|
; *********************************************
|
|
|
|
|
|
draw_window:
|
|
;ebp=1 - redraw all
|
|
;ebp=0 - redraw only process information
|
|
|
|
test ebp,ebp
|
|
jz .show_process_info
|
|
|
|
mov eax,12 ; function 12:tell os about windowdraw
|
|
mov ebx,1 ; 1, start of draw
|
|
int 0x40
|
|
|
|
; 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,0x03ddffdd ;ffffff ; color of work area RRGGBB,8->color
|
|
mov esi,0x805080d0 ; color of grab bar RRGGBB,8->color gl
|
|
mov edi,0x005080d0 ; color of frames RRGGBB
|
|
int 0x40
|
|
|
|
; WINDOW CAPTION
|
|
mov eax,4 ; function 4 : write text to window
|
|
mov ebx,8*65536+8 ; [x start] *65536 + [y start]
|
|
mov ecx,0x10ffffff ; font 1 & color ( 0xF0RRGGBB )
|
|
mov edx,labelt ; pointer to text beginning
|
|
mov esi,labellen-labelt ; text length
|
|
int 0x40
|
|
|
|
mov ebx,22*65536+35 ; draw info text with function 4
|
|
xor ecx,ecx
|
|
mov edx,text
|
|
mov esi,79
|
|
mov eax,4
|
|
int 0x40
|
|
|
|
.show_process_info:
|
|
mov edi,[list_start]
|
|
mov [list_add],edi
|
|
mov dword [index],0
|
|
mov dword [curposy],54
|
|
.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*65536+96
|
|
mov ecx,380*65536+10
|
|
mov edx,51
|
|
int 0x40
|
|
|
|
; next page button
|
|
mov ebx,130*65536+96
|
|
inc edx
|
|
int 0x40
|
|
|
|
; ">" (text enter) button
|
|
mov ebx,30*65536+20
|
|
add ecx,20 shl 16
|
|
inc edx
|
|
int 0x40
|
|
|
|
; run button
|
|
mov ebx,456*65536+50
|
|
inc edx
|
|
int 0x40
|
|
|
|
; reboot button
|
|
sub ebx,120*65536
|
|
add ebx,60
|
|
sub ecx,20 shl 16
|
|
inc edx
|
|
int 0x40
|
|
|
|
;"PREV PAGE", "NEXT PAGE" and "REBOOT" labels
|
|
mov eax,4
|
|
mov ebx,50*65536+382
|
|
xor ecx,ecx
|
|
mov edx,tbts
|
|
mov esi,tbte-tbts
|
|
int 0x40
|
|
|
|
;">" labels
|
|
mov eax,4
|
|
mov ebx,40*65536+402
|
|
xor ecx,ecx
|
|
mov edx,tbts_2
|
|
mov esi,1
|
|
int 0x40
|
|
|
|
;"RUN" labels
|
|
mov eax,4
|
|
mov ebx,475*65536+402
|
|
xor ecx,ecx
|
|
mov edx,tbts_3
|
|
mov esi,tbte_2-tbts_3
|
|
int 0x40
|
|
|
|
;print application name in text box
|
|
call print_text
|
|
|
|
mov eax,12 ; function 12:tell os about windowdraw
|
|
mov ebx,2 ; 2, end of draw
|
|
int 0x40
|
|
|
|
.end_redraw:
|
|
ret
|
|
|
|
|
|
; DATA AREA
|
|
list_start dd 0
|
|
|
|
file_start: dd 16
|
|
dd 0,0,0,run_process_buffer
|
|
|
|
start_application: db '/RD/1/LAUNCHER',0
|
|
times 60 db 32
|
|
|
|
text:
|
|
db ' NAME/TERMINATE PID CPU-USAGE % '
|
|
db 'MEMORY START/USAGE W-STACK W-SIZE'
|
|
|
|
tbts: db 'PREV PAGE NEXT PAGE REBOOT SYSTEM'
|
|
tbte:
|
|
tbts_2 db '>'
|
|
tbts_3 db 'RUN'
|
|
tbte_2:
|
|
|
|
labelt:
|
|
db 'Processes - Ctrl/Alt/Del'
|
|
labellen:
|
|
|
|
I_END:
|
|
|
|
winxpos rd 1
|
|
winypos rd 1
|
|
|
|
cpu_percent rd 1
|
|
tcolor rd 1
|
|
list_add rd 1
|
|
curposy rd 1
|
|
index rd 1
|
|
tasklist rd display_processes
|
|
run_process_buffer:
|
|
process_info_buffer process_information
|
|
rb 4096-($-run_process_buffer) ;rest of run_process_buffer
|
|
U_END:
|