forked from KolibriOS/kolibrios
1187 lines
42 KiB
NASM
1187 lines
42 KiB
NASM
; This program shows information about thread ;
|
|
; usage: tinfo [slot of the thread] ;
|
|
; if slot number is omitted then assume slot = -1 ;
|
|
; to compile: nasm -f bin tinfo.asm -o tinfo ;
|
|
ORG 0
|
|
BITS 32
|
|
; ---------------------------------------------------------------------------- ;
|
|
PATH_SIZE equ 1024
|
|
PARAMS_SIZE equ 256
|
|
STACK_SIZE equ 256
|
|
PROC_INFO_SIZE equ 1024
|
|
TMP_BUFFER_SIZE equ 64
|
|
; ---------------------------------------------------------------------------- ;
|
|
TEXT_WIDTH equ 8
|
|
BOLD_TEXT_WIDTH equ TEXT_WIDTH + 1
|
|
; ---------------------------------------------------------------------------- ;
|
|
COLUMN1_MAX_COUNT equ 13
|
|
COLUMN2_MAX_COUNT equ 12
|
|
COLUMN3_MAX_COUNT equ 26
|
|
; ---------------------------------------------------------------------------- ;
|
|
COLUMN_PADDING equ 3
|
|
COLUMN1_PADDING equ COLUMN_PADDING
|
|
COLUMN2_PADDING equ COLUMN_PADDING
|
|
COLUMN3_PADDING equ COLUMN_PADDING
|
|
; ---------------------------------------------------------------------------- ;
|
|
ITEM_HEIGHT equ 22
|
|
TEXT_HEIGHT equ 16
|
|
%comment
|
|
COLUMN1_ITEM_WIDTH equ COLUMN1_MAX_COUNT * BOLD_TEXT_WIDTH + COLUMN1_PADDING * 2
|
|
COLUMN2_ITEM_WIDTH equ COLUMN2_MAX_COUNT * BOLD_TEXT_WIDTH + COLUMN2_PADDING * 2
|
|
COLUMN3_ITEM_WIDTH equ COLUMN3_MAX_COUNT * BOLD_TEXT_WIDTH + COLUMN3_PADDING * 2
|
|
%endcomment
|
|
COLUMN1_ITEM_WIDTH equ COLUMN1_MAX_COUNT * TEXT_WIDTH + COLUMN1_PADDING * 2
|
|
COLUMN2_ITEM_WIDTH equ COLUMN2_MAX_COUNT * TEXT_WIDTH + COLUMN2_PADDING * 2
|
|
COLUMN3_ITEM_WIDTH equ COLUMN3_MAX_COUNT * TEXT_WIDTH + COLUMN3_PADDING * 2
|
|
ITEM_MARGIN equ 6
|
|
ITEM_BACK_COLOR_1 equ 0x00EAEAEA
|
|
ITEM_BACK_COLOR_2 equ 0x00F4F4F4
|
|
ITEM_COUNT equ 18 ; at current time we have 18 items
|
|
; ---------------------------------------------------------------------------- ;
|
|
COLUMN_Y equ 10
|
|
COLUMN1_X equ 10
|
|
COLUMN2_X equ COLUMN1_X + COLUMN1_ITEM_WIDTH + ITEM_MARGIN
|
|
COLUMN3_X equ COLUMN2_X + COLUMN2_ITEM_WIDTH + ITEM_MARGIN
|
|
; ---------------------------------------------------------------------------- ;
|
|
COLUMN1_TEXT_X equ COLUMN1_X + COLUMN1_PADDING
|
|
COLUMN2_TEXT_X equ COLUMN2_X + COLUMN2_PADDING
|
|
COLUMN3_TEXT_X equ COLUMN3_X + COLUMN3_PADDING
|
|
; ---------------------------------------------------------------------------- ;
|
|
FRAME_TOP equ COLUMN_Y - ITEM_MARGIN / 2
|
|
FRAME_BOTTOM equ COLUMN_Y + ITEM_HEIGHT * ITEM_COUNT + ITEM_MARGIN / 2 - 1
|
|
; ---------------------------------------------------------------------------- ;
|
|
FRAME1_LEFT equ COLUMN1_X - ITEM_MARGIN / 2
|
|
FRAME1_RIGHT equ COLUMN1_X + COLUMN1_ITEM_WIDTH + ITEM_MARGIN / 2 - 1
|
|
; ---------------------------------------------------------------------------- ;
|
|
FRAME2_LEFT equ COLUMN2_X - ITEM_MARGIN / 2
|
|
FRAME2_RIGHT equ COLUMN2_X + COLUMN2_ITEM_WIDTH + ITEM_MARGIN / 2 - 1
|
|
; ---------------------------------------------------------------------------- ;
|
|
FRAME3_LEFT equ COLUMN3_X - ITEM_MARGIN / 2
|
|
FRAME3_RIGHT equ COLUMN3_X + COLUMN3_ITEM_WIDTH + ITEM_MARGIN / 2 - 1
|
|
; ---------------------------------------------------------------------------- ;
|
|
WINDOW_STYLE_SKINNED_FIXED equ 0x4000000
|
|
WINDOW_STYLE_COORD_CLIENT equ 0x20000000
|
|
WINDOW_STYLE_CAPTION equ 0x10000000
|
|
; ---------------------------------------------------------------------------- ;
|
|
WINDOW_BORDER_SIZE equ 5
|
|
WINDOW_WIDTH equ FRAME3_RIGHT + FRAME1_LEFT + WINDOW_BORDER_SIZE * 2
|
|
WINDOW_STYLE equ WINDOW_STYLE_SKINNED_FIXED | WINDOW_STYLE_COORD_CLIENT | WINDOW_STYLE_CAPTION
|
|
WINDOW_BACK_COLOR equ 0x00FFFFFF
|
|
; ---------------------------------------------------------------------------- ;
|
|
INDICATOR_WIDTH equ 3
|
|
INDICATOR_HEIGHT equ 3
|
|
INDICATOR_LEFT equ COLUMN3_X + COLUMN3_ITEM_WIDTH + ITEM_MARGIN / 2
|
|
INDICATOR_TOP equ COLUMN_Y - ITEM_MARGIN / 2 - INDICATOR_HEIGHT
|
|
; ---------------------------------------------------------------------------- ;
|
|
UPDATE_TIME equ 28
|
|
; ---------------------------------------------------------------------------- ;
|
|
thread_info equ END + PATH_SIZE + PARAMS_SIZE
|
|
tmpbuffer equ END + PATH_SIZE + PARAMS_SIZE + PROC_INFO_SIZE
|
|
; ---------------------------------------------------------------------------- ;
|
|
KEYBOARD_MODE_ASCII equ 0
|
|
KEYBOARD_MODE_SCAN equ 1
|
|
; ---------------------------------------------------------------------------- ;
|
|
WINDOW_STATE_MAXIMIZED equ 1
|
|
WINDOW_STATE_MINIMIZED equ 2
|
|
WINDOW_STATE_ROLLED_UP equ 4
|
|
; ---------------------------------------------------------------------------- ;
|
|
THREAD_STATE_RUNNING equ 0
|
|
THREAD_STATE_SUSPENDED equ 1
|
|
THREAD_STATE_SUSPENDED_WAIT_EVENT equ 2
|
|
THREAD_STATE_NORMAL_TERMINATING equ 3
|
|
THREAD_STATE_EXCEPT_TERMINATING equ 4
|
|
THREAD_STATE_WAIT_EVENT equ 5
|
|
THREAD_STATE_SLOT_IS_FREE equ 9
|
|
; ---------------------------------------------------------------------------- ;
|
|
EM_REDRAW equ 1b
|
|
EM_KEY equ 10b
|
|
EM_BUTTON equ 100b
|
|
EM_RESERVED0 equ 1000b
|
|
EM_REDRAW_BACKGROUND equ 10000b
|
|
EM_MOUSE equ 100000b
|
|
EM_IPC equ 1000000b
|
|
EM_NETWORK equ 10000000b
|
|
EM_DEBUG equ 100000000b
|
|
; ---------------------------------------------------------------------------- ;
|
|
struc THREAD_INFO
|
|
.cpu_usage resd 1 ; usage of the processor
|
|
.win_stack_pos resw 1 ; position of the window of thread in the window stack
|
|
.reserved0 resw 1 ; has no relation to the specified thread
|
|
.reserved1 resw 1 ; reserved
|
|
.name resb 11 ; name of the started file - executable file without extension
|
|
.reserved2 resb 1 ; reserved, this byte is not changed
|
|
.mem_address resd 1 ; address of the process in memory
|
|
.mem_usage resd 1 ; size of used memory - 1
|
|
.identifier resd 1 ; identifier (PID/TID)
|
|
.x resd 1 ; coordinate of the thread window on axis x
|
|
.y resd 1 ; coordinate of the thread window on axis y
|
|
.size_x resd 1 ; size of the thread window on axis x
|
|
.size_y resd 1 ; size of the thread window on axis y
|
|
.thread_state resw 1 ; status of the thread slot
|
|
.reserved3 resw 1 ; reserved, this word is not changed
|
|
.client_x resd 1 ; coordinate of the client area on axis x
|
|
.client_y resd 1 ; coordinate of the client area on axis y
|
|
.client_size_x resd 1 ; width of the client area
|
|
.client_size_y resd 1 ; height of the client area
|
|
.window_state resb 1 ; state of the window - bitfield
|
|
.event_mask resd 1 ; event mask
|
|
.keyboard_mode resb 1 ; keyboard mode
|
|
endstruc
|
|
; ---------------------------------------------------------------------------- ;
|
|
MENUET01 db 'MENUET01'
|
|
version dd 1
|
|
program.start dd START
|
|
program.end dd END
|
|
program.memory dd END + PATH_SIZE + PARAMS_SIZE + PROC_INFO_SIZE + TMP_BUFFER_SIZE + STACK_SIZE
|
|
program.stack dd END + PATH_SIZE + PARAMS_SIZE + PROC_INFO_SIZE + TMP_BUFFER_SIZE + STACK_SIZE
|
|
program.params dd END + PATH_SIZE
|
|
program.path dd END
|
|
; ---------------------------------------------------------------------------- ;
|
|
slot dd -1 ; for default if no params
|
|
; ---------------------------------------------------------------------------- ;
|
|
screen:
|
|
.height dw 0
|
|
.width dw 0
|
|
; ---------------------------------------------------------------------------- ;
|
|
window:
|
|
.left dd 0
|
|
.top dd 0
|
|
.width dd 0
|
|
.height dd 0
|
|
; ---------------------------------------------------------------------------- ;
|
|
fore_color dd 0x00000000
|
|
back_color dd ITEM_BACK_COLOR_1
|
|
frame_color dd 0x00CCCCCC
|
|
; ---------------------------------------------------------------------------- ;
|
|
BackColors:
|
|
dd 1
|
|
dd ITEM_BACK_COLOR_1
|
|
dd ITEM_BACK_COLOR_2
|
|
; ---------------------------------------------------------------------------- ;
|
|
IndicatorColors:
|
|
dd 1
|
|
dd 0x000AF000
|
|
dd 0x00000FA0
|
|
; ---------------------------------------------------------------------------- ;
|
|
%define x [Pos.x]
|
|
%define y [Pos.y]
|
|
Pos:
|
|
.x dd COLUMN1_X
|
|
.y dd COLUMN_Y
|
|
; ---------------------------------------------------------------------------- ;
|
|
sz_caption db "ThreadInfo",0
|
|
; ---------------------------------------------------------------------------- ;
|
|
sz_cpu_usage db "CPU usage",0
|
|
sz_win_stack_pos db "Win stack pos",0
|
|
sz_name db "Name",0
|
|
sz_mem_address db "Mem address",0
|
|
sz_mem_usage db "Mem usage",0
|
|
sz_identifier db "Identifier",0
|
|
sz_x db "X",0
|
|
sz_y db "Y",0
|
|
sz_size_x db "Size X",0
|
|
sz_size_y db "Size Y",0
|
|
sz_thread_state db "Thread state",0
|
|
sz_client_x db "Client X",0
|
|
sz_client_y db "Client Y",0
|
|
sz_client_size_x db "Client Size X",0
|
|
sz_client_size_y db "Client Size Y",0
|
|
sz_window_state db "Window state",0
|
|
sz_event_mask db "Event mask",0
|
|
sz_keyboard_mode db "Keyboard mode",0
|
|
; ---------------------------------------------------------------------------- ;
|
|
; state of the window
|
|
sz_maximized db "Max ",0
|
|
sz_minimized db "Min ",0
|
|
sz_rolled_up db "RollUp ",0
|
|
; ---------------------------------------------------------------------------- ;
|
|
; keyboard mode
|
|
sz_ascii db "ASCII",0
|
|
sz_scan db "SCAN ",0
|
|
; ---------------------------------------------------------------------------- ;
|
|
; status of the thread slot
|
|
sz_running db "running ",0
|
|
sz_suspended db "suspended ",0
|
|
sz_suspended_wait_event db "suspended wait event",0
|
|
sz_normal_terminating db "normal terminating ",0
|
|
sz_except_terminating db "except. terminating ",0
|
|
sz_wait_event db "wait event ",0
|
|
sz_slot_is_free db "slot is free ",0
|
|
; ---------------------------------------------------------------------------- ;
|
|
; event mask
|
|
sz_redraw db "rdrw ",0
|
|
sz_key db "key ",0
|
|
sz_button db "btn ",0
|
|
sz_reserved0 db "rsrvd0 ",0
|
|
sz_redraw_background db "bckgr ",0
|
|
sz_mouse db "mouse ",0
|
|
sz_ipc db "ipc ",0
|
|
sz_network db "net ",0
|
|
sz_debug db "dbg ",0
|
|
; ---------------------------------------------------------------------------- ;
|
|
sz_undefined db "UnDef ",0
|
|
; **************************************************************************** ;
|
|
%macro DrawCpuUsage 0
|
|
; sz_cpu_usage
|
|
push dword COLUMN1_TEXT_X
|
|
push dword y
|
|
push dword sz_cpu_usage
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
; [cpu_usage]
|
|
push dword [thread_info + THREAD_INFO.cpu_usage]
|
|
call uint2str
|
|
push dword COLUMN2_MAX_COUNT
|
|
call PadBuffSpaces
|
|
push dword COLUMN2_TEXT_X
|
|
push dword y
|
|
push dword tmpbuffer
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call ChangeBackColor
|
|
add y, dword ITEM_HEIGHT
|
|
%endmacro
|
|
; **************************************************************************** ;
|
|
%macro DrawWinStackPos 0
|
|
; sz_win_stack_pos
|
|
push dword COLUMN1_TEXT_X
|
|
push dword y
|
|
push dword sz_win_stack_pos
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
; [win_stack_pos]
|
|
movzx eax, word [thread_info + THREAD_INFO.win_stack_pos]
|
|
push eax
|
|
call uint2str
|
|
push dword COLUMN2_MAX_COUNT
|
|
call PadBuffSpaces
|
|
push dword COLUMN2_TEXT_X
|
|
push dword y
|
|
push dword tmpbuffer
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call ChangeBackColor
|
|
add y, dword ITEM_HEIGHT
|
|
%endmacro
|
|
; **************************************************************************** ;
|
|
%macro DrawName 0
|
|
; sz_name
|
|
push dword COLUMN1_TEXT_X
|
|
push dword y
|
|
push dword sz_name
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
; name
|
|
push dword COLUMN2_TEXT_X
|
|
push dword y
|
|
push dword (thread_info + THREAD_INFO.name)
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call ChangeBackColor
|
|
add y, dword ITEM_HEIGHT
|
|
%endmacro
|
|
; **************************************************************************** ;
|
|
%macro DrawMemAddress 0
|
|
; sz_mem_address
|
|
push dword COLUMN1_TEXT_X
|
|
push dword y
|
|
push dword sz_mem_address
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
; [mem_address]
|
|
push dword [thread_info + THREAD_INFO.mem_address]
|
|
call uint2str
|
|
push dword COLUMN2_MAX_COUNT
|
|
call PadBuffSpaces
|
|
push dword COLUMN2_TEXT_X
|
|
push dword y
|
|
push dword tmpbuffer
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call ChangeBackColor
|
|
add y, dword ITEM_HEIGHT
|
|
%endmacro
|
|
; **************************************************************************** ;
|
|
%macro DrawMemUsage 0
|
|
; sz_mem_usage
|
|
push dword COLUMN1_TEXT_X
|
|
push dword y
|
|
push dword sz_mem_usage
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
; [mem_usage]
|
|
push dword [thread_info + THREAD_INFO.mem_usage]
|
|
call uint2str
|
|
push dword COLUMN2_MAX_COUNT
|
|
call PadBuffSpaces
|
|
push dword COLUMN2_TEXT_X
|
|
push dword y
|
|
push dword tmpbuffer
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call ChangeBackColor
|
|
add y, dword ITEM_HEIGHT
|
|
%endmacro
|
|
; **************************************************************************** ;
|
|
%macro DrawIdentifier 0
|
|
; sz_identifier
|
|
push dword COLUMN1_TEXT_X
|
|
push dword y
|
|
push dword sz_identifier
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
; [identifier]
|
|
push dword [thread_info + THREAD_INFO.identifier]
|
|
call uint2str
|
|
push dword COLUMN2_MAX_COUNT
|
|
call PadBuffSpaces
|
|
push dword COLUMN2_TEXT_X
|
|
push dword y
|
|
push dword tmpbuffer
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call ChangeBackColor
|
|
add y, dword ITEM_HEIGHT
|
|
%endmacro
|
|
; **************************************************************************** ;
|
|
%macro DrawWindowX 0
|
|
; sz_x
|
|
push dword COLUMN1_TEXT_X
|
|
push dword y
|
|
push dword sz_x
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
; [x]
|
|
push dword [thread_info + THREAD_INFO.x]
|
|
call uint2str
|
|
push dword COLUMN2_MAX_COUNT
|
|
call PadBuffSpaces
|
|
push dword COLUMN2_TEXT_X
|
|
push dword y
|
|
push dword tmpbuffer
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call ChangeBackColor
|
|
add y, dword ITEM_HEIGHT
|
|
%endmacro
|
|
; **************************************************************************** ;
|
|
%macro DrawWindowY 0
|
|
; sz_y
|
|
push dword COLUMN1_TEXT_X
|
|
push dword y
|
|
push dword sz_y
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
; [y]
|
|
push dword [thread_info + THREAD_INFO.y]
|
|
call uint2str
|
|
push dword COLUMN2_MAX_COUNT
|
|
call PadBuffSpaces
|
|
push dword COLUMN2_TEXT_X
|
|
push dword y
|
|
push dword tmpbuffer
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call ChangeBackColor
|
|
add y, dword ITEM_HEIGHT
|
|
%endmacro
|
|
; **************************************************************************** ;
|
|
%macro DrawWindowSizeX 0
|
|
; sz_size_x
|
|
push dword COLUMN1_TEXT_X
|
|
push dword y
|
|
push dword sz_size_x
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
; [size_x]
|
|
push dword [thread_info + THREAD_INFO.size_x]
|
|
call uint2str
|
|
push dword COLUMN2_MAX_COUNT
|
|
call PadBuffSpaces
|
|
push dword COLUMN2_TEXT_X
|
|
push dword y
|
|
push dword tmpbuffer
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call ChangeBackColor
|
|
add y, dword ITEM_HEIGHT
|
|
%endmacro
|
|
; **************************************************************************** ;
|
|
%macro DrawWindowSizeY 0
|
|
; sz_size_y
|
|
push dword COLUMN1_TEXT_X
|
|
push dword y
|
|
push dword sz_size_y
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
; [size_y]
|
|
push dword [thread_info + THREAD_INFO.size_y]
|
|
call uint2str
|
|
push dword COLUMN2_MAX_COUNT
|
|
call PadBuffSpaces
|
|
push dword COLUMN2_TEXT_X
|
|
push dword y
|
|
push dword tmpbuffer
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call ChangeBackColor
|
|
add y, dword ITEM_HEIGHT
|
|
%endmacro
|
|
; **************************************************************************** ;
|
|
%macro DrawThreadState 0
|
|
; sz_thread_state
|
|
push dword COLUMN1_TEXT_X
|
|
push dword y
|
|
push dword sz_thread_state
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
; decoded_thread_state & [thread_state]
|
|
movzx eax, word [thread_info + THREAD_INFO.thread_state]
|
|
push eax ; for "call uint2str" below
|
|
%%running:
|
|
cmp eax, THREAD_STATE_RUNNING
|
|
jne %%suspended
|
|
mov eax, sz_running
|
|
jmp %%draw_decoded_thread_state
|
|
%%suspended:
|
|
cmp eax, THREAD_STATE_SUSPENDED
|
|
jne %%suspended_w
|
|
mov eax, sz_suspended
|
|
jmp %%draw_decoded_thread_state
|
|
%%suspended_w:
|
|
cmp eax, THREAD_STATE_SUSPENDED_WAIT_EVENT
|
|
jne %%normal_term
|
|
mov eax, sz_suspended_wait_event
|
|
jmp %%draw_decoded_thread_state
|
|
%%normal_term:
|
|
cmp eax, THREAD_STATE_NORMAL_TERMINATING
|
|
jne %%except_term
|
|
mov eax, sz_normal_terminating
|
|
jmp %%draw_decoded_thread_state
|
|
%%except_term:
|
|
cmp eax, THREAD_STATE_EXCEPT_TERMINATING
|
|
jne %%wait_event
|
|
mov eax, sz_except_terminating
|
|
jmp %%draw_decoded_thread_state
|
|
%%wait_event:
|
|
cmp eax, THREAD_STATE_WAIT_EVENT
|
|
jne %%slot_free
|
|
mov eax, sz_wait_event
|
|
jmp %%draw_decoded_thread_state
|
|
%%slot_free:
|
|
cmp eax, THREAD_STATE_SLOT_IS_FREE
|
|
jne %%undefined
|
|
mov eax, sz_slot_is_free
|
|
jmp %%draw_decoded_thread_state
|
|
%%undefined:
|
|
mov eax, sz_undefined
|
|
%%draw_decoded_thread_state:
|
|
push dword COLUMN3_TEXT_X
|
|
push dword y
|
|
push eax
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call uint2str
|
|
push dword COLUMN2_MAX_COUNT
|
|
call PadBuffSpaces
|
|
push dword COLUMN2_TEXT_X
|
|
push dword y
|
|
push dword tmpbuffer
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call ChangeBackColor
|
|
add y, dword ITEM_HEIGHT
|
|
%endmacro
|
|
; **************************************************************************** ;
|
|
%macro DrawClientX 0
|
|
; sz_client_x
|
|
push dword COLUMN1_TEXT_X
|
|
push dword y
|
|
push dword sz_client_x
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
; [client_x]
|
|
push dword [thread_info + THREAD_INFO.client_x]
|
|
call uint2str
|
|
push dword COLUMN2_MAX_COUNT
|
|
call PadBuffSpaces
|
|
push dword COLUMN2_TEXT_X
|
|
push dword y
|
|
push dword tmpbuffer
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call ChangeBackColor
|
|
add y, dword ITEM_HEIGHT
|
|
%endmacro
|
|
; **************************************************************************** ;
|
|
%macro DrawClientY 0
|
|
; sz_client_y
|
|
push dword COLUMN1_TEXT_X
|
|
push dword y
|
|
push dword sz_client_y
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
; [client_y]
|
|
push dword [thread_info + THREAD_INFO.client_y]
|
|
call uint2str
|
|
push dword COLUMN2_MAX_COUNT
|
|
call PadBuffSpaces
|
|
push dword COLUMN2_TEXT_X
|
|
push dword y
|
|
push dword tmpbuffer
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call ChangeBackColor
|
|
add y, dword ITEM_HEIGHT
|
|
%endmacro
|
|
; **************************************************************************** ;
|
|
%macro DrawClientSizeX 0
|
|
; sz_client_size_x
|
|
push dword COLUMN1_TEXT_X
|
|
push dword y
|
|
push dword sz_client_size_x
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
; [client_size_x]
|
|
push dword [thread_info + THREAD_INFO.client_size_x]
|
|
call uint2str
|
|
push dword COLUMN2_MAX_COUNT
|
|
call PadBuffSpaces
|
|
push dword COLUMN2_TEXT_X
|
|
push dword y
|
|
push dword tmpbuffer
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call ChangeBackColor
|
|
add y, dword ITEM_HEIGHT
|
|
%endmacro
|
|
; **************************************************************************** ;
|
|
%macro DrawClientSizeY 0
|
|
; sz_client_size_y
|
|
push dword COLUMN1_TEXT_X
|
|
push dword y
|
|
push dword sz_client_size_y
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
; [client_size_y]
|
|
push dword [thread_info + THREAD_INFO.client_size_y]
|
|
call uint2str
|
|
push dword COLUMN2_MAX_COUNT
|
|
call PadBuffSpaces
|
|
push dword COLUMN2_TEXT_X
|
|
push dword y
|
|
push dword tmpbuffer
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call ChangeBackColor
|
|
add y, dword ITEM_HEIGHT
|
|
%endmacro
|
|
; **************************************************************************** ;
|
|
%macro DrawWindowState 0
|
|
; sz_window_state
|
|
push dword COLUMN1_TEXT_X
|
|
push dword y
|
|
push dword sz_window_state
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
; decoded_window_state & [window_state]
|
|
movzx eax, byte [thread_info + THREAD_INFO.window_state]
|
|
push eax ; for "call uint2str" below
|
|
mov ebx, eax
|
|
mov [tmpbuffer], byte 0
|
|
%%maximized:
|
|
test ebx, WINDOW_STATE_MAXIMIZED
|
|
jz %%minimized
|
|
push tmpbuffer
|
|
push sz_maximized
|
|
call StringConcatenate
|
|
%%minimized:
|
|
test ebx, WINDOW_STATE_MINIMIZED
|
|
jz %%rolled_up
|
|
push tmpbuffer
|
|
push sz_minimized
|
|
call StringConcatenate
|
|
%%rolled_up:
|
|
test ebx, WINDOW_STATE_ROLLED_UP
|
|
jz %%draw_decoded_window_state
|
|
push tmpbuffer
|
|
push sz_rolled_up
|
|
call StringConcatenate
|
|
%%draw_decoded_window_state:
|
|
push dword COLUMN3_MAX_COUNT
|
|
call PadBuffSpaces
|
|
push dword COLUMN3_TEXT_X
|
|
push dword y
|
|
push dword tmpbuffer
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call uint2str
|
|
push dword COLUMN2_MAX_COUNT
|
|
call PadBuffSpaces
|
|
push dword COLUMN2_TEXT_X
|
|
push dword y
|
|
push dword tmpbuffer
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call ChangeBackColor
|
|
add y, dword ITEM_HEIGHT
|
|
%endmacro
|
|
; **************************************************************************** ;
|
|
%macro DrawEventMask 0
|
|
; sz_event_mask
|
|
push dword COLUMN1_TEXT_X
|
|
push dword y
|
|
push dword sz_event_mask
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
; decoded_event_mask & [event_mask]
|
|
mov eax, [thread_info + THREAD_INFO.event_mask]
|
|
push eax ; for "call uint2str" below
|
|
mov ebx, eax
|
|
mov [tmpbuffer], byte 0
|
|
%%redraw:
|
|
test ebx, EM_REDRAW
|
|
jz %%key
|
|
push tmpbuffer
|
|
push sz_redraw
|
|
call StringConcatenate
|
|
%%key:
|
|
test ebx, EM_KEY
|
|
jz %%button
|
|
push tmpbuffer
|
|
push sz_key
|
|
call StringConcatenate
|
|
%%button:
|
|
test ebx, EM_BUTTON
|
|
jz %%reserved0
|
|
push tmpbuffer
|
|
push sz_button
|
|
call StringConcatenate
|
|
%%reserved0:
|
|
test ebx, EM_RESERVED0
|
|
jz %%redraw_background
|
|
push tmpbuffer
|
|
push sz_reserved0
|
|
call StringConcatenate
|
|
%%redraw_background:
|
|
test ebx, EM_REDRAW_BACKGROUND
|
|
jz %%mouse
|
|
push tmpbuffer
|
|
push sz_redraw_background
|
|
call StringConcatenate
|
|
%%mouse:
|
|
test ebx, EM_MOUSE
|
|
jz %%ipc
|
|
push tmpbuffer
|
|
push sz_mouse
|
|
call StringConcatenate
|
|
%%ipc:
|
|
test ebx, EM_IPC
|
|
jz %%network
|
|
push tmpbuffer
|
|
push sz_ipc
|
|
call StringConcatenate
|
|
%%network:
|
|
test ebx, EM_NETWORK
|
|
jz %%debug
|
|
push tmpbuffer
|
|
push sz_network
|
|
call StringConcatenate
|
|
%%debug:
|
|
test ebx, EM_DEBUG
|
|
jz %%draw_decoded_event_mask
|
|
push tmpbuffer
|
|
push sz_debug
|
|
call StringConcatenate
|
|
%%draw_decoded_event_mask:
|
|
push dword COLUMN3_MAX_COUNT
|
|
call PadBuffSpaces
|
|
push dword COLUMN3_TEXT_X
|
|
push dword y
|
|
push dword tmpbuffer
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call uint2str
|
|
push dword COLUMN2_MAX_COUNT
|
|
call PadBuffSpaces
|
|
push dword COLUMN2_TEXT_X
|
|
push dword y
|
|
push dword tmpbuffer
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call ChangeBackColor
|
|
add y, dword ITEM_HEIGHT
|
|
%endmacro
|
|
; **************************************************************************** ;
|
|
%macro DrawKeyboardMode 0
|
|
push dword COLUMN2_MAX_COUNT
|
|
call PadBuffSpaces
|
|
; sz_keyboard_mode
|
|
push dword COLUMN1_TEXT_X
|
|
push dword y
|
|
push dword sz_keyboard_mode
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
; decoded_keyboard_mode & [keyboard_mode]
|
|
movzx eax, byte [thread_info + THREAD_INFO.keyboard_mode]
|
|
push eax ; for "call uint2str" below
|
|
%%ascii:
|
|
cmp eax, KEYBOARD_MODE_ASCII
|
|
jne %%scan
|
|
mov eax, sz_ascii
|
|
jmp %%draw_decoded_keyboard_mode
|
|
%%scan:
|
|
cmp eax, KEYBOARD_MODE_SCAN
|
|
jne %%undefined
|
|
mov eax, sz_scan
|
|
jmp %%draw_decoded_keyboard_mode
|
|
%%undefined:
|
|
mov eax, sz_undefined
|
|
%%draw_decoded_keyboard_mode:
|
|
push dword COLUMN3_TEXT_X
|
|
push dword y
|
|
push eax
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call uint2str
|
|
push dword COLUMN2_TEXT_X
|
|
push dword y
|
|
push dword tmpbuffer
|
|
push dword [fore_color]
|
|
push dword [back_color]
|
|
call DrawText
|
|
call ChangeBackColor
|
|
add y, dword ITEM_HEIGHT
|
|
%endmacro
|
|
; **************************************************************************** ;
|
|
%macro DrawUpdateIndicator 0
|
|
mov eax, [IndicatorColors]
|
|
sub eax, 3
|
|
neg eax
|
|
mov [IndicatorColors], eax
|
|
; draw.rectangle
|
|
mov edx, [eax * 4 + IndicatorColors]
|
|
mov eax, 13
|
|
mov ebx, INDICATOR_LEFT << 16 | INDICATOR_WIDTH
|
|
mov ecx, INDICATOR_TOP << 16 | INDICATOR_HEIGHT
|
|
int 64
|
|
%endmacro
|
|
; **************************************************************************** ;
|
|
%macro DrawTable 0
|
|
; DrawFrames
|
|
push dword FRAME1_LEFT
|
|
push dword FRAME_TOP
|
|
push dword FRAME1_RIGHT
|
|
push dword FRAME_BOTTOM
|
|
push dword [frame_color]
|
|
call DrawFrame
|
|
push dword FRAME2_LEFT
|
|
push dword FRAME_TOP
|
|
push dword FRAME2_RIGHT
|
|
push dword FRAME_BOTTOM
|
|
push dword [frame_color]
|
|
call DrawFrame
|
|
push dword FRAME3_LEFT
|
|
push dword FRAME_TOP
|
|
push dword FRAME3_RIGHT
|
|
push dword FRAME_BOTTOM
|
|
push dword [frame_color]
|
|
call DrawFrame
|
|
; DrawItems
|
|
mov esi, COLUMN_Y
|
|
xor edi, edi
|
|
%%draw_item:
|
|
cmp edi, ITEM_COUNT
|
|
jnl %%done
|
|
mov ecx, esi
|
|
shl ecx, 16
|
|
or ecx, ITEM_HEIGHT
|
|
; draw.rectangle
|
|
mov eax, 13
|
|
mov ebx, COLUMN1_X << 16 | COLUMN1_ITEM_WIDTH
|
|
mov edx, [back_color]
|
|
int 64
|
|
; draw.rectangle
|
|
mov eax, 13
|
|
mov ebx, COLUMN2_X << 16 | COLUMN2_ITEM_WIDTH
|
|
mov edx, [back_color]
|
|
int 64
|
|
; draw.rectangle
|
|
mov eax, 13
|
|
mov ebx, COLUMN3_X << 16 | COLUMN3_ITEM_WIDTH
|
|
mov edx, [back_color]
|
|
int 64
|
|
call ChangeBackColor
|
|
add esi, ITEM_HEIGHT
|
|
inc edi
|
|
jmp %%draw_item
|
|
%%done:
|
|
%endmacro
|
|
; ---------------------------------------------------------------------------- ;
|
|
align 4
|
|
START:
|
|
mov esi, [program.params]
|
|
test [esi], byte 0xFF
|
|
jz .no_params
|
|
; str2uint(program.params)
|
|
xor eax, eax
|
|
xor ecx, ecx
|
|
.convert:
|
|
lodsb
|
|
test al, al
|
|
jz .converted
|
|
lea ecx, [ecx + ecx * 4]
|
|
lea ecx, [eax + ecx * 2 - 48]
|
|
jmp .convert
|
|
.converted:
|
|
mov [slot], ecx
|
|
.no_params:
|
|
; get.screen.size
|
|
mov eax, 61
|
|
mov ebx, 1
|
|
int 64
|
|
mov [screen], eax
|
|
; skin.height
|
|
mov eax, 48
|
|
mov ebx, 4
|
|
int 64
|
|
add eax, FRAME_BOTTOM + FRAME_TOP + WINDOW_BORDER_SIZE
|
|
mov [window.width], dword WINDOW_WIDTH
|
|
mov [window.height], eax
|
|
movzx eax, word [screen.width]
|
|
movzx edx, word [screen.height]
|
|
sub eax, [window.width]
|
|
sub edx, [window.height]
|
|
shr eax, 1
|
|
shr edx, 1
|
|
mov [window.left], eax
|
|
mov [window.top], edx
|
|
; set.event
|
|
mov eax, 40
|
|
mov ebx, EM_REDRAW | EM_BUTTON
|
|
int 64
|
|
; ---------------------------------------------------------------------------- ;
|
|
align 4
|
|
on_redraw:
|
|
; redraw.start
|
|
mov eax, 12
|
|
mov ebx, 1
|
|
int 64
|
|
; draw.window
|
|
xor eax, eax
|
|
mov ebx, [window.left]
|
|
mov ecx, [window.top]
|
|
shl ebx, 16
|
|
shl ecx, 16
|
|
or ebx, [window.width]
|
|
or ecx, [window.height]
|
|
mov edx, WINDOW_STYLE | WINDOW_BACK_COLOR
|
|
mov edi, sz_caption
|
|
xor esi, esi
|
|
int 64
|
|
; redraw.finish
|
|
mov eax, 12
|
|
mov ebx, 2
|
|
int 64
|
|
DrawTable
|
|
call UpdateThreadInfo
|
|
align 4
|
|
wait.event.by.time:
|
|
mov eax, 23
|
|
mov ebx, UPDATE_TIME
|
|
int 64
|
|
dec eax
|
|
jz on_redraw ; IF eax = 1 THEN redraw
|
|
jns on_button ; ELSEIF eax = 2 THEN button
|
|
call UpdateThreadInfo ; ELSE no event -> update thread info
|
|
jmp wait.event.by.time
|
|
align 4
|
|
on_button: ; terminate because we have only one button(close button)
|
|
or eax, -1
|
|
int 64
|
|
; ---------------------------------------------------------------------------- ;
|
|
align 4
|
|
UpdateThreadInfo:
|
|
; get.thread.info
|
|
mov eax, 9
|
|
mov ebx, thread_info
|
|
mov ecx, [slot]
|
|
int 64
|
|
|
|
mov x, dword COLUMN1_X
|
|
mov y, dword COLUMN_Y + (ITEM_HEIGHT - TEXT_HEIGHT) / 2
|
|
mov [back_color], dword ITEM_BACK_COLOR_1
|
|
mov [BackColors], dword 1
|
|
; order of next "Draw..." can be changed
|
|
DrawName
|
|
DrawThreadState
|
|
DrawWindowState
|
|
DrawEventMask
|
|
DrawKeyboardMode
|
|
DrawCpuUsage
|
|
DrawMemUsage
|
|
DrawMemAddress
|
|
DrawIdentifier
|
|
DrawWinStackPos
|
|
DrawWindowX
|
|
DrawWindowY
|
|
DrawWindowSizeX
|
|
DrawWindowSizeY
|
|
DrawClientX
|
|
DrawClientY
|
|
DrawClientSizeX
|
|
DrawClientSizeY
|
|
|
|
DrawUpdateIndicator ; blinking thing at upper right corner
|
|
|
|
ret
|
|
; ---------------------------------------------------------------------------- ;
|
|
align 4
|
|
DrawFrame:
|
|
%define Color [esp + 4 +1*4]
|
|
%define Bottom [esp + 8 +1*4]
|
|
%define Top [esp + 16 +1*4]
|
|
%define Right [esp + 12 +1*4]
|
|
%define Left [esp + 20 +1*4]
|
|
push ebp
|
|
mov eax, 38
|
|
mov edx, Color
|
|
mov esi, Bottom
|
|
mov edi, Top
|
|
mov ebp, Right
|
|
mov ebx, Left
|
|
shl ebx, 16
|
|
mov bx, bp
|
|
shrd ecx, edi, 16
|
|
mov cx, di
|
|
int 64
|
|
shrd ecx, esi, 16
|
|
mov cx, si
|
|
int 64
|
|
shld esi, ebx, 16
|
|
mov bx, si
|
|
shrd ecx, edi, 16
|
|
int 64
|
|
shrd ebx, ebp, 16
|
|
mov bx, bp
|
|
int 64
|
|
pop ebp
|
|
ret 20
|
|
%undef Color
|
|
%undef Bottom
|
|
%undef Top
|
|
%undef Right
|
|
%undef Left
|
|
; ---------------------------------------------------------------------------- ;
|
|
align 4
|
|
StringConcatenate:
|
|
%define stradd [esp + 4]
|
|
%define str [esp + 8]
|
|
mov esi, stradd
|
|
or ecx, -1
|
|
mov edi, esi
|
|
xor eax, eax
|
|
repne scasb
|
|
mov edx, ecx
|
|
mov edi, str
|
|
repne scasb
|
|
dec edi
|
|
not edx
|
|
mov eax, str
|
|
mov ecx, edx
|
|
shr ecx, 2
|
|
and edx, 3
|
|
rep movsd
|
|
mov ecx, edx
|
|
rep movsb
|
|
ret 8
|
|
%undef stradd
|
|
%undef str
|
|
; ---------------------------------------------------------------------------- ;
|
|
align 4
|
|
DrawText:
|
|
%define x [esp + 20]
|
|
%define y [esp + 16]
|
|
%define text [esp + 12]
|
|
%define fore_color [esp + 8]
|
|
%define back_color [esp + 4]
|
|
mov eax, 4
|
|
mov ecx, fore_color
|
|
mov edi, back_color
|
|
mov edx, text
|
|
mov ebx, x
|
|
shl ebx, 16
|
|
or ebx, y
|
|
or ecx, 0xD0000000
|
|
int 64
|
|
ret 20
|
|
%undef x
|
|
%undef y
|
|
%undef text
|
|
%undef fore_color
|
|
%undef back_color
|
|
; ---------------------------------------------------------------------------- ;
|
|
%comment
|
|
align 4
|
|
DrawTextBold:
|
|
%define x [esp + 20]
|
|
%define y [esp + 16]
|
|
%define text [esp + 12]
|
|
%define fore_color [esp + 8]
|
|
%define back_color [esp + 4]
|
|
mov eax, 4
|
|
mov ecx, fore_color
|
|
mov edi, back_color
|
|
mov esi, 1 ; count
|
|
mov edx, text
|
|
mov ebx, x
|
|
shl ebx, 16
|
|
or ebx, y
|
|
align 4
|
|
.next:
|
|
test [edx], byte 0xFF
|
|
jz .done
|
|
or ecx, 0x50000000
|
|
int 64
|
|
add ebx, (1 << 16)
|
|
and ecx, 0x10FFFFFF
|
|
int 64
|
|
add ebx, (TEXT_WIDTH << 16)
|
|
inc edx
|
|
jmp .next
|
|
align 4
|
|
.done:
|
|
ret 20
|
|
%undef x
|
|
%undef y
|
|
%undef text
|
|
%undef fore_color
|
|
%undef back_color
|
|
%endcomment
|
|
; ---------------------------------------------------------------------------- ;
|
|
align 4
|
|
ChangeBackColor:
|
|
mov eax, [BackColors]
|
|
sub eax, 3
|
|
neg eax
|
|
mov [BackColors], eax
|
|
mov eax, [eax * 4 + BackColors]
|
|
mov [back_color], eax
|
|
ret
|
|
; ---------------------------------------------------------------------------- ;
|
|
align 4
|
|
uint2str:
|
|
%define value [esp + 4]
|
|
push dword value ; value
|
|
push dword 10 ; base(decimal)
|
|
push dword tmpbuffer ; buffer
|
|
call ConvertToBase
|
|
ret 4
|
|
%undef value
|
|
; ---------------------------------------------------------------------------- ;
|
|
align 4
|
|
ConvertToBase:
|
|
%define value [esp + 12] ; value treated as unsigned
|
|
%define base [esp + 8] ; 2 <= base <= 36
|
|
%define buffer [esp + 4] ; SizeOf(buffer) => (32 + 1)
|
|
mov eax, value
|
|
mov ecx, base
|
|
mov esi, buffer
|
|
mov edi, esi ; +0 +31 +32
|
|
add esi, 32 ; base2(0xFFFFFFFF) = 11111111111111111111111111111111b
|
|
mov [esi], byte 0 ; end of string byte 0
|
|
align 4
|
|
.next:
|
|
xor edx, edx
|
|
div ecx
|
|
dec esi
|
|
mov dl, [edx + .digits]; (put digit
|
|
mov [esi], dl ; to buffer)
|
|
test eax, eax
|
|
jnz .next
|
|
; shift result string to buffer beginning
|
|
mov eax, esi
|
|
sub eax, edi
|
|
mov ecx, 32 + 1
|
|
sub ecx, eax
|
|
mov eax, edi ; return buffer
|
|
; yes, memory overlapped, but edi not above than esi
|
|
; hope that movsD faster than movsB in this case
|
|
; if you want only "rep movsb" because it shorter then remove five next lines before "rep movsb"
|
|
mov edx, ecx
|
|
shr ecx, 2
|
|
and edx, 3
|
|
rep movsd
|
|
mov ecx, edx
|
|
rep movsb
|
|
ret 12
|
|
%undef value
|
|
%undef base
|
|
%undef buffer
|
|
align 4
|
|
.digits db "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
|
; ---------------------------------------------------------------------------- ;
|
|
align 4
|
|
PadBuffSpaces:
|
|
%define maxlen [esp + 4]
|
|
mov edi, tmpbuffer
|
|
or ecx, -1
|
|
xor eax, eax
|
|
repne scasb
|
|
dec edi
|
|
sub eax, ecx
|
|
dec eax
|
|
mov ecx, maxlen
|
|
sub ecx, eax
|
|
mov eax, " "
|
|
mov edx, ecx
|
|
shr ecx, 2
|
|
and edx, 3
|
|
rep stosd
|
|
mov ecx, edx
|
|
rep stosb
|
|
mov [edi], byte 0
|
|
ret 4
|
|
%undef maxlen
|
|
; ---------------------------------------------------------------------------- ;
|
|
align 4
|
|
END: |