WebSVN – Kolibri OS – Diff – /programs/system/tinfo/tinfo.asm


;   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
%IF 0
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
%ENDIF
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
; ---------------------------------------------------------------------------- ;
%IF 0
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
%ENDIF
; ---------------------------------------------------------------------------- ;
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:

Rev 6609	Rev 6610
1	; This program shows information about thread ;	1	; This program shows information about thread ;
2	; usage: tinfo [slot of the thread] ;	2	; usage: tinfo [slot of the thread] ;
3	; if slot number is omitted then assume slot = -1 ;	3	; if slot number is omitted then assume slot = -1 ;
4	; to compile: nasm -f bin tinfo.asm -o tinfo ;	4	; to compile: nasm -f bin tinfo.asm -o tinfo ;
5	ORG 0	5	ORG 0
6	BITS 32	6	BITS 32
7	; ---------------------------------------------------------------------------- ;	7	; ---------------------------------------------------------------------------- ;
8	PATH_SIZE equ 1024	8	PATH_SIZE equ 1024
9	PARAMS_SIZE equ 256	9	PARAMS_SIZE equ 256
10	STACK_SIZE equ 256	10	STACK_SIZE equ 256
11	PROC_INFO_SIZE equ 1024	11	PROC_INFO_SIZE equ 1024
12	TMP_BUFFER_SIZE equ 64	12	TMP_BUFFER_SIZE equ 64
13	; ---------------------------------------------------------------------------- ;	13	; ---------------------------------------------------------------------------- ;
14	TEXT_WIDTH equ 8	14	TEXT_WIDTH equ 8
15	BOLD_TEXT_WIDTH equ TEXT_WIDTH + 1	15	BOLD_TEXT_WIDTH equ TEXT_WIDTH + 1
16	; ---------------------------------------------------------------------------- ;	16	; ---------------------------------------------------------------------------- ;
17	COLUMN1_MAX_COUNT equ 13	17	COLUMN1_MAX_COUNT equ 13
18	COLUMN2_MAX_COUNT equ 12	18	COLUMN2_MAX_COUNT equ 12
19	COLUMN3_MAX_COUNT equ 26	19	COLUMN3_MAX_COUNT equ 26
20	; ---------------------------------------------------------------------------- ;	20	; ---------------------------------------------------------------------------- ;
21	COLUMN_PADDING equ 3	21	COLUMN_PADDING equ 3
22	COLUMN1_PADDING equ COLUMN_PADDING	22	COLUMN1_PADDING equ COLUMN_PADDING
23	COLUMN2_PADDING equ COLUMN_PADDING	23	COLUMN2_PADDING equ COLUMN_PADDING
24	COLUMN3_PADDING equ COLUMN_PADDING	24	COLUMN3_PADDING equ COLUMN_PADDING
25	; ---------------------------------------------------------------------------- ;	25	; ---------------------------------------------------------------------------- ;
26	ITEM_HEIGHT equ 22	26	ITEM_HEIGHT equ 22
27	TEXT_HEIGHT equ 16	27	TEXT_HEIGHT equ 16
28	%comment	28	%IF 0
29	COLUMN1_ITEM_WIDTH equ COLUMN1_MAX_COUNT * BOLD_TEXT_WIDTH + COLUMN1_PADDING * 2	29	COLUMN1_ITEM_WIDTH equ COLUMN1_MAX_COUNT * BOLD_TEXT_WIDTH + COLUMN1_PADDING * 2
30	COLUMN2_ITEM_WIDTH equ COLUMN2_MAX_COUNT * BOLD_TEXT_WIDTH + COLUMN2_PADDING * 2	30	COLUMN2_ITEM_WIDTH equ COLUMN2_MAX_COUNT * BOLD_TEXT_WIDTH + COLUMN2_PADDING * 2
31	COLUMN3_ITEM_WIDTH equ COLUMN3_MAX_COUNT * BOLD_TEXT_WIDTH + COLUMN3_PADDING * 2	31	COLUMN3_ITEM_WIDTH equ COLUMN3_MAX_COUNT * BOLD_TEXT_WIDTH + COLUMN3_PADDING * 2
32	%endcomment	32	%ENDIF
33	COLUMN1_ITEM_WIDTH equ COLUMN1_MAX_COUNT * TEXT_WIDTH + COLUMN1_PADDING * 2	33	COLUMN1_ITEM_WIDTH equ COLUMN1_MAX_COUNT * TEXT_WIDTH + COLUMN1_PADDING * 2
34	COLUMN2_ITEM_WIDTH equ COLUMN2_MAX_COUNT * TEXT_WIDTH + COLUMN2_PADDING * 2	34	COLUMN2_ITEM_WIDTH equ COLUMN2_MAX_COUNT * TEXT_WIDTH + COLUMN2_PADDING * 2
35	COLUMN3_ITEM_WIDTH equ COLUMN3_MAX_COUNT * TEXT_WIDTH + COLUMN3_PADDING * 2	35	COLUMN3_ITEM_WIDTH equ COLUMN3_MAX_COUNT * TEXT_WIDTH + COLUMN3_PADDING * 2
36	ITEM_MARGIN equ 6	36	ITEM_MARGIN equ 6
37	ITEM_BACK_COLOR_1 equ 0x00EAEAEA	37	ITEM_BACK_COLOR_1 equ 0x00EAEAEA
38	ITEM_BACK_COLOR_2 equ 0x00F4F4F4	38	ITEM_BACK_COLOR_2 equ 0x00F4F4F4
39	ITEM_COUNT equ 18 ; at current time we have 18 items	39	ITEM_COUNT equ 18 ; at current time we have 18 items
40	; ---------------------------------------------------------------------------- ;	40	; ---------------------------------------------------------------------------- ;
41	COLUMN_Y equ 10	41	COLUMN_Y equ 10
42	COLUMN1_X equ 10	42	COLUMN1_X equ 10
43	COLUMN2_X equ COLUMN1_X + COLUMN1_ITEM_WIDTH + ITEM_MARGIN	43	COLUMN2_X equ COLUMN1_X + COLUMN1_ITEM_WIDTH + ITEM_MARGIN
44	COLUMN3_X equ COLUMN2_X + COLUMN2_ITEM_WIDTH + ITEM_MARGIN	44	COLUMN3_X equ COLUMN2_X + COLUMN2_ITEM_WIDTH + ITEM_MARGIN
45	; ---------------------------------------------------------------------------- ;	45	; ---------------------------------------------------------------------------- ;
46	COLUMN1_TEXT_X equ COLUMN1_X + COLUMN1_PADDING	46	COLUMN1_TEXT_X equ COLUMN1_X + COLUMN1_PADDING
47	COLUMN2_TEXT_X equ COLUMN2_X + COLUMN2_PADDING	47	COLUMN2_TEXT_X equ COLUMN2_X + COLUMN2_PADDING
48	COLUMN3_TEXT_X equ COLUMN3_X + COLUMN3_PADDING	48	COLUMN3_TEXT_X equ COLUMN3_X + COLUMN3_PADDING
49	; ---------------------------------------------------------------------------- ;	49	; ---------------------------------------------------------------------------- ;
50	FRAME_TOP equ COLUMN_Y - ITEM_MARGIN / 2	50	FRAME_TOP equ COLUMN_Y - ITEM_MARGIN / 2
51	FRAME_BOTTOM equ COLUMN_Y + ITEM_HEIGHT * ITEM_COUNT + ITEM_MARGIN / 2 - 1	51	FRAME_BOTTOM equ COLUMN_Y + ITEM_HEIGHT * ITEM_COUNT + ITEM_MARGIN / 2 - 1
52	; ---------------------------------------------------------------------------- ;	52	; ---------------------------------------------------------------------------- ;
53	FRAME1_LEFT equ COLUMN1_X - ITEM_MARGIN / 2	53	FRAME1_LEFT equ COLUMN1_X - ITEM_MARGIN / 2
54	FRAME1_RIGHT equ COLUMN1_X + COLUMN1_ITEM_WIDTH + ITEM_MARGIN / 2 - 1	54	FRAME1_RIGHT equ COLUMN1_X + COLUMN1_ITEM_WIDTH + ITEM_MARGIN / 2 - 1
55	; ---------------------------------------------------------------------------- ;	55	; ---------------------------------------------------------------------------- ;
56	FRAME2_LEFT equ COLUMN2_X - ITEM_MARGIN / 2	56	FRAME2_LEFT equ COLUMN2_X - ITEM_MARGIN / 2
57	FRAME2_RIGHT equ COLUMN2_X + COLUMN2_ITEM_WIDTH + ITEM_MARGIN / 2 - 1	57	FRAME2_RIGHT equ COLUMN2_X + COLUMN2_ITEM_WIDTH + ITEM_MARGIN / 2 - 1
58	; ---------------------------------------------------------------------------- ;	58	; ---------------------------------------------------------------------------- ;
59	FRAME3_LEFT equ COLUMN3_X - ITEM_MARGIN / 2	59	FRAME3_LEFT equ COLUMN3_X - ITEM_MARGIN / 2
60	FRAME3_RIGHT equ COLUMN3_X + COLUMN3_ITEM_WIDTH + ITEM_MARGIN / 2 - 1	60	FRAME3_RIGHT equ COLUMN3_X + COLUMN3_ITEM_WIDTH + ITEM_MARGIN / 2 - 1
61	; ---------------------------------------------------------------------------- ;	61	; ---------------------------------------------------------------------------- ;
62	WINDOW_STYLE_SKINNED_FIXED equ 0x4000000	62	WINDOW_STYLE_SKINNED_FIXED equ 0x4000000
63	WINDOW_STYLE_COORD_CLIENT equ 0x20000000	63	WINDOW_STYLE_COORD_CLIENT equ 0x20000000
64	WINDOW_STYLE_CAPTION equ 0x10000000	64	WINDOW_STYLE_CAPTION equ 0x10000000
65	; ---------------------------------------------------------------------------- ;	65	; ---------------------------------------------------------------------------- ;
66	WINDOW_BORDER_SIZE equ 5	66	WINDOW_BORDER_SIZE equ 5
67	WINDOW_WIDTH equ FRAME3_RIGHT + FRAME1_LEFT + WINDOW_BORDER_SIZE * 2	67	WINDOW_WIDTH equ FRAME3_RIGHT + FRAME1_LEFT + WINDOW_BORDER_SIZE * 2
68	WINDOW_STYLE equ WINDOW_STYLE_SKINNED_FIXED \| WINDOW_STYLE_COORD_CLIENT \| WINDOW_STYLE_CAPTION	68	WINDOW_STYLE equ WINDOW_STYLE_SKINNED_FIXED \| WINDOW_STYLE_COORD_CLIENT \| WINDOW_STYLE_CAPTION
69	WINDOW_BACK_COLOR equ 0x00FFFFFF	69	WINDOW_BACK_COLOR equ 0x00FFFFFF
70	; ---------------------------------------------------------------------------- ;	70	; ---------------------------------------------------------------------------- ;
71	INDICATOR_WIDTH equ 3	71	INDICATOR_WIDTH equ 3
72	INDICATOR_HEIGHT equ 3	72	INDICATOR_HEIGHT equ 3
73	INDICATOR_LEFT equ COLUMN3_X + COLUMN3_ITEM_WIDTH + ITEM_MARGIN / 2	73	INDICATOR_LEFT equ COLUMN3_X + COLUMN3_ITEM_WIDTH + ITEM_MARGIN / 2
74	INDICATOR_TOP equ COLUMN_Y - ITEM_MARGIN / 2 - INDICATOR_HEIGHT	74	INDICATOR_TOP equ COLUMN_Y - ITEM_MARGIN / 2 - INDICATOR_HEIGHT
75	; ---------------------------------------------------------------------------- ;	75	; ---------------------------------------------------------------------------- ;
76	UPDATE_TIME equ 28	76	UPDATE_TIME equ 28
77	; ---------------------------------------------------------------------------- ;	77	; ---------------------------------------------------------------------------- ;
78	thread_info equ END + PATH_SIZE + PARAMS_SIZE	78	thread_info equ END + PATH_SIZE + PARAMS_SIZE
79	tmpbuffer equ END + PATH_SIZE + PARAMS_SIZE + PROC_INFO_SIZE	79	tmpbuffer equ END + PATH_SIZE + PARAMS_SIZE + PROC_INFO_SIZE
80	; ---------------------------------------------------------------------------- ;	80	; ---------------------------------------------------------------------------- ;
81	KEYBOARD_MODE_ASCII equ 0	81	KEYBOARD_MODE_ASCII equ 0
82	KEYBOARD_MODE_SCAN equ 1	82	KEYBOARD_MODE_SCAN equ 1
83	; ---------------------------------------------------------------------------- ;	83	; ---------------------------------------------------------------------------- ;
84	WINDOW_STATE_MAXIMIZED equ 1	84	WINDOW_STATE_MAXIMIZED equ 1
85	WINDOW_STATE_MINIMIZED equ 2	85	WINDOW_STATE_MINIMIZED equ 2
86	WINDOW_STATE_ROLLED_UP equ 4	86	WINDOW_STATE_ROLLED_UP equ 4
87	; ---------------------------------------------------------------------------- ;	87	; ---------------------------------------------------------------------------- ;
88	THREAD_STATE_RUNNING equ 0	88	THREAD_STATE_RUNNING equ 0
89	THREAD_STATE_SUSPENDED equ 1	89	THREAD_STATE_SUSPENDED equ 1
90	THREAD_STATE_SUSPENDED_WAIT_EVENT equ 2	90	THREAD_STATE_SUSPENDED_WAIT_EVENT equ 2
91	THREAD_STATE_NORMAL_TERMINATING equ 3	91	THREAD_STATE_NORMAL_TERMINATING equ 3
92	THREAD_STATE_EXCEPT_TERMINATING equ 4	92	THREAD_STATE_EXCEPT_TERMINATING equ 4
93	THREAD_STATE_WAIT_EVENT equ 5	93	THREAD_STATE_WAIT_EVENT equ 5
94	THREAD_STATE_SLOT_IS_FREE equ 9	94	THREAD_STATE_SLOT_IS_FREE equ 9
95	; ---------------------------------------------------------------------------- ;	95	; ---------------------------------------------------------------------------- ;
96	EM_REDRAW equ 1b	96	EM_REDRAW equ 1b
97	EM_KEY equ 10b	97	EM_KEY equ 10b
98	EM_BUTTON equ 100b	98	EM_BUTTON equ 100b
99	EM_RESERVED0 equ 1000b	99	EM_RESERVED0 equ 1000b
100	EM_REDRAW_BACKGROUND equ 10000b	100	EM_REDRAW_BACKGROUND equ 10000b
101	EM_MOUSE equ 100000b	101	EM_MOUSE equ 100000b
102	EM_IPC equ 1000000b	102	EM_IPC equ 1000000b
103	EM_NETWORK equ 10000000b	103	EM_NETWORK equ 10000000b
104	EM_DEBUG equ 100000000b	104	EM_DEBUG equ 100000000b
105	; ---------------------------------------------------------------------------- ;	105	; ---------------------------------------------------------------------------- ;
106	struc THREAD_INFO	106	struc THREAD_INFO
107	.cpu_usage resd 1 ; usage of the processor	107	.cpu_usage resd 1 ; usage of the processor
108	.win_stack_pos resw 1 ; position of the window of thread in the window stack	108	.win_stack_pos resw 1 ; position of the window of thread in the window stack
109	.reserved0 resw 1 ; has no relation to the specified thread	109	.reserved0 resw 1 ; has no relation to the specified thread
110	.reserved1 resw 1 ; reserved	110	.reserved1 resw 1 ; reserved
111	.name resb 11 ; name of the started file - executable file without extension	111	.name resb 11 ; name of the started file - executable file without extension
112	.reserved2 resb 1 ; reserved, this byte is not changed	112	.reserved2 resb 1 ; reserved, this byte is not changed
113	.mem_address resd 1 ; address of the process in memory	113	.mem_address resd 1 ; address of the process in memory
114	.mem_usage resd 1 ; size of used memory - 1	114	.mem_usage resd 1 ; size of used memory - 1
115	.identifier resd 1 ; identifier (PID/TID)	115	.identifier resd 1 ; identifier (PID/TID)
116	.x resd 1 ; coordinate of the thread window on axis x	116	.x resd 1 ; coordinate of the thread window on axis x
117	.y resd 1 ; coordinate of the thread window on axis y	117	.y resd 1 ; coordinate of the thread window on axis y
118	.size_x resd 1 ; size of the thread window on axis x	118	.size_x resd 1 ; size of the thread window on axis x
119	.size_y resd 1 ; size of the thread window on axis y	119	.size_y resd 1 ; size of the thread window on axis y
120	.thread_state resw 1 ; status of the thread slot	120	.thread_state resw 1 ; status of the thread slot
121	.reserved3 resw 1 ; reserved, this word is not changed	121	.reserved3 resw 1 ; reserved, this word is not changed
122	.client_x resd 1 ; coordinate of the client area on axis x	122	.client_x resd 1 ; coordinate of the client area on axis x
123	.client_y resd 1 ; coordinate of the client area on axis y	123	.client_y resd 1 ; coordinate of the client area on axis y
124	.client_size_x resd 1 ; width of the client area	124	.client_size_x resd 1 ; width of the client area
125	.client_size_y resd 1 ; height of the client area	125	.client_size_y resd 1 ; height of the client area
126	.window_state resb 1 ; state of the window - bitfield	126	.window_state resb 1 ; state of the window - bitfield
127	.event_mask resd 1 ; event mask	127	.event_mask resd 1 ; event mask
128	.keyboard_mode resb 1 ; keyboard mode	128	.keyboard_mode resb 1 ; keyboard mode
129	endstruc	129	endstruc
130	; ---------------------------------------------------------------------------- ;	130	; ---------------------------------------------------------------------------- ;
131	MENUET01 db 'MENUET01'	131	MENUET01 db 'MENUET01'
132	version dd 1	132	version dd 1
133	program.start dd START	133	program.start dd START
134	program.end dd END	134	program.end dd END
135	program.memory dd END + PATH_SIZE + PARAMS_SIZE + PROC_INFO_SIZE + TMP_BUFFER_SIZE + STACK_SIZE	135	program.memory dd END + PATH_SIZE + PARAMS_SIZE + PROC_INFO_SIZE + TMP_BUFFER_SIZE + STACK_SIZE
136	program.stack dd END + PATH_SIZE + PARAMS_SIZE + PROC_INFO_SIZE + TMP_BUFFER_SIZE + STACK_SIZE	136	program.stack dd END + PATH_SIZE + PARAMS_SIZE + PROC_INFO_SIZE + TMP_BUFFER_SIZE + STACK_SIZE
137	program.params dd END + PATH_SIZE	137	program.params dd END + PATH_SIZE
138	program.path dd END	138	program.path dd END
139	; ---------------------------------------------------------------------------- ;	139	; ---------------------------------------------------------------------------- ;
140	slot dd -1 ; for default if no params	140	slot dd -1 ; for default if no params
141	; ---------------------------------------------------------------------------- ;	141	; ---------------------------------------------------------------------------- ;
142	screen:	142	screen:
143	.height dw 0	143	.height dw 0
144	.width dw 0	144	.width dw 0
145	; ---------------------------------------------------------------------------- ;	145	; ---------------------------------------------------------------------------- ;
146	window:	146	window:
147	.left dd 0	147	.left dd 0
148	.top dd 0	148	.top dd 0
149	.width dd 0	149	.width dd 0
150	.height dd 0	150	.height dd 0
151	; ---------------------------------------------------------------------------- ;	151	; ---------------------------------------------------------------------------- ;
152	fore_color dd 0x00000000	152	fore_color dd 0x00000000
153	back_color dd ITEM_BACK_COLOR_1	153	back_color dd ITEM_BACK_COLOR_1
154	frame_color dd 0x00CCCCCC	154	frame_color dd 0x00CCCCCC
155	; ---------------------------------------------------------------------------- ;	155	; ---------------------------------------------------------------------------- ;
156	BackColors:	156	BackColors:
157	dd 1	157	dd 1
158	dd ITEM_BACK_COLOR_1	158	dd ITEM_BACK_COLOR_1
159	dd ITEM_BACK_COLOR_2	159	dd ITEM_BACK_COLOR_2
160	; ---------------------------------------------------------------------------- ;	160	; ---------------------------------------------------------------------------- ;
161	IndicatorColors:	161	IndicatorColors:
162	dd 1	162	dd 1
163	dd 0x000AF000	163	dd 0x000AF000
164	dd 0x00000FA0	164	dd 0x00000FA0
165	; ---------------------------------------------------------------------------- ;	165	; ---------------------------------------------------------------------------- ;
166	%define x [Pos.x]	166	%define x [Pos.x]
167	%define y [Pos.y]	167	%define y [Pos.y]
168	Pos:	168	Pos:
169	.x dd COLUMN1_X	169	.x dd COLUMN1_X
170	.y dd COLUMN_Y	170	.y dd COLUMN_Y
171	; ---------------------------------------------------------------------------- ;	171	; ---------------------------------------------------------------------------- ;
172	sz_caption db "ThreadInfo",0	172	sz_caption db "ThreadInfo",0
173	; ---------------------------------------------------------------------------- ;	173	; ---------------------------------------------------------------------------- ;
174	sz_cpu_usage db "CPU usage",0	174	sz_cpu_usage db "CPU usage",0
175	sz_win_stack_pos db "Win stack pos",0	175	sz_win_stack_pos db "Win stack pos",0
176	sz_name db "Name",0	176	sz_name db "Name",0
177	sz_mem_address db "Mem address",0	177	sz_mem_address db "Mem address",0
178	sz_mem_usage db "Mem usage",0	178	sz_mem_usage db "Mem usage",0
179	sz_identifier db "Identifier",0	179	sz_identifier db "Identifier",0
180	sz_x db "X",0	180	sz_x db "X",0
181	sz_y db "Y",0	181	sz_y db "Y",0
182	sz_size_x db "Size X",0	182	sz_size_x db "Size X",0
183	sz_size_y db "Size Y",0	183	sz_size_y db "Size Y",0
184	sz_thread_state db "Thread state",0	184	sz_thread_state db "Thread state",0
185	sz_client_x db "Client X",0	185	sz_client_x db "Client X",0
186	sz_client_y db "Client Y",0	186	sz_client_y db "Client Y",0
187	sz_client_size_x db "Client Size X",0	187	sz_client_size_x db "Client Size X",0
188	sz_client_size_y db "Client Size Y",0	188	sz_client_size_y db "Client Size Y",0
189	sz_window_state db "Window state",0	189	sz_window_state db "Window state",0
190	sz_event_mask db "Event mask",0	190	sz_event_mask db "Event mask",0
191	sz_keyboard_mode db "Keyboard mode",0	191	sz_keyboard_mode db "Keyboard mode",0
192	; ---------------------------------------------------------------------------- ;	192	; ---------------------------------------------------------------------------- ;
193	; state of the window	193	; state of the window
194	sz_maximized db "Max ",0	194	sz_maximized db "Max ",0
195	sz_minimized db "Min ",0	195	sz_minimized db "Min ",0
196	sz_rolled_up db "RollUp ",0	196	sz_rolled_up db "RollUp ",0
197	; ---------------------------------------------------------------------------- ;	197	; ---------------------------------------------------------------------------- ;
198	; keyboard mode	198	; keyboard mode
199	sz_ascii db "ASCII",0	199	sz_ascii db "ASCII",0
200	sz_scan db "SCAN ",0	200	sz_scan db "SCAN ",0
201	; ---------------------------------------------------------------------------- ;	201	; ---------------------------------------------------------------------------- ;
202	; status of the thread slot	202	; status of the thread slot
203	sz_running db "running ",0	203	sz_running db "running ",0
204	sz_suspended db "suspended ",0	204	sz_suspended db "suspended ",0
205	sz_suspended_wait_event db "suspended wait event",0	205	sz_suspended_wait_event db "suspended wait event",0
206	sz_normal_terminating db "normal terminating ",0	206	sz_normal_terminating db "normal terminating ",0
207	sz_except_terminating db "except. terminating ",0	207	sz_except_terminating db "except. terminating ",0
208	sz_wait_event db "wait event ",0	208	sz_wait_event db "wait event ",0
209	sz_slot_is_free db "slot is free ",0	209	sz_slot_is_free db "slot is free ",0
210	; ---------------------------------------------------------------------------- ;	210	; ---------------------------------------------------------------------------- ;
211	; event mask	211	; event mask
212	sz_redraw db "rdrw ",0	212	sz_redraw db "rdrw ",0
213	sz_key db "key ",0	213	sz_key db "key ",0
214	sz_button db "btn ",0	214	sz_button db "btn ",0
215	sz_reserved0 db "rsrvd0 ",0	215	sz_reserved0 db "rsrvd0 ",0
216	sz_redraw_background db "bckgr ",0	216	sz_redraw_background db "bckgr ",0
217	sz_mouse db "mouse ",0	217	sz_mouse db "mouse ",0
218	sz_ipc db "ipc ",0	218	sz_ipc db "ipc ",0
219	sz_network db "net ",0	219	sz_network db "net ",0
220	sz_debug db "dbg ",0	220	sz_debug db "dbg ",0
221	; ---------------------------------------------------------------------------- ;	221	; ---------------------------------------------------------------------------- ;
222	sz_undefined db "UnDef ",0	222	sz_undefined db "UnDef ",0
223	; **************************************************************************** ;	223	; **************************************************************************** ;
224	%macro DrawCpuUsage 0	224	%macro DrawCpuUsage 0
225	; sz_cpu_usage	225	; sz_cpu_usage
226	push dword COLUMN1_TEXT_X	226	push dword COLUMN1_TEXT_X
227	push dword y	227	push dword y
228	push dword sz_cpu_usage	228	push dword sz_cpu_usage
229	push dword [fore_color]	229	push dword [fore_color]
230	push dword [back_color]	230	push dword [back_color]
231	call DrawText	231	call DrawText
232	; [cpu_usage]	232	; [cpu_usage]
233	push dword [thread_info + THREAD_INFO.cpu_usage]	233	push dword [thread_info + THREAD_INFO.cpu_usage]
234	call uint2str	234	call uint2str
235	push dword COLUMN2_MAX_COUNT	235	push dword COLUMN2_MAX_COUNT
236	call PadBuffSpaces	236	call PadBuffSpaces
237	push dword COLUMN2_TEXT_X	237	push dword COLUMN2_TEXT_X
238	push dword y	238	push dword y
239	push dword tmpbuffer	239	push dword tmpbuffer
240	push dword [fore_color]	240	push dword [fore_color]
241	push dword [back_color]	241	push dword [back_color]
242	call DrawText	242	call DrawText
243	call ChangeBackColor	243	call ChangeBackColor
244	add y, dword ITEM_HEIGHT	244	add y, dword ITEM_HEIGHT
245	%endmacro	245	%endmacro
246	; **************************************************************************** ;	246	; **************************************************************************** ;
247	%macro DrawWinStackPos 0	247	%macro DrawWinStackPos 0
248	; sz_win_stack_pos	248	; sz_win_stack_pos
249	push dword COLUMN1_TEXT_X	249	push dword COLUMN1_TEXT_X
250	push dword y	250	push dword y
251	push dword sz_win_stack_pos	251	push dword sz_win_stack_pos
252	push dword [fore_color]	252	push dword [fore_color]
253	push dword [back_color]	253	push dword [back_color]
254	call DrawText	254	call DrawText
255	; [win_stack_pos]	255	; [win_stack_pos]
256	movzx eax, word [thread_info + THREAD_INFO.win_stack_pos]	256	movzx eax, word [thread_info + THREAD_INFO.win_stack_pos]
257	push eax	257	push eax
258	call uint2str	258	call uint2str
259	push dword COLUMN2_MAX_COUNT	259	push dword COLUMN2_MAX_COUNT
260	call PadBuffSpaces	260	call PadBuffSpaces
261	push dword COLUMN2_TEXT_X	261	push dword COLUMN2_TEXT_X
262	push dword y	262	push dword y
263	push dword tmpbuffer	263	push dword tmpbuffer
264	push dword [fore_color]	264	push dword [fore_color]
265	push dword [back_color]	265	push dword [back_color]
266	call DrawText	266	call DrawText
267	call ChangeBackColor	267	call ChangeBackColor
268	add y, dword ITEM_HEIGHT	268	add y, dword ITEM_HEIGHT
269	%endmacro	269	%endmacro
270	; **************************************************************************** ;	270	; **************************************************************************** ;
271	%macro DrawName 0	271	%macro DrawName 0
272	; sz_name	272	; sz_name
273	push dword COLUMN1_TEXT_X	273	push dword COLUMN1_TEXT_X
274	push dword y	274	push dword y
275	push dword sz_name	275	push dword sz_name
276	push dword [fore_color]	276	push dword [fore_color]
277	push dword [back_color]	277	push dword [back_color]
278	call DrawText	278	call DrawText
279	; name	279	; name
280	push dword COLUMN2_TEXT_X	280	push dword COLUMN2_TEXT_X
281	push dword y	281	push dword y
282	push dword (thread_info + THREAD_INFO.name)	282	push dword (thread_info + THREAD_INFO.name)
283	push dword [fore_color]	283	push dword [fore_color]
284	push dword [back_color]	284	push dword [back_color]
285	call DrawText	285	call DrawText
286	call ChangeBackColor	286	call ChangeBackColor
287	add y, dword ITEM_HEIGHT	287	add y, dword ITEM_HEIGHT
288	%endmacro	288	%endmacro
289	; **************************************************************************** ;	289	; **************************************************************************** ;
290	%macro DrawMemAddress 0	290	%macro DrawMemAddress 0
291	; sz_mem_address	291	; sz_mem_address
292	push dword COLUMN1_TEXT_X	292	push dword COLUMN1_TEXT_X
293	push dword y	293	push dword y
294	push dword sz_mem_address	294	push dword sz_mem_address
295	push dword [fore_color]	295	push dword [fore_color]
296	push dword [back_color]	296	push dword [back_color]
297	call DrawText	297	call DrawText
298	; [mem_address]	298	; [mem_address]
299	push dword [thread_info + THREAD_INFO.mem_address]	299	push dword [thread_info + THREAD_INFO.mem_address]
300	call uint2str	300	call uint2str
301	push dword COLUMN2_MAX_COUNT	301	push dword COLUMN2_MAX_COUNT
302	call PadBuffSpaces	302	call PadBuffSpaces
303	push dword COLUMN2_TEXT_X	303	push dword COLUMN2_TEXT_X
304	push dword y	304	push dword y
305	push dword tmpbuffer	305	push dword tmpbuffer
306	push dword [fore_color]	306	push dword [fore_color]
307	push dword [back_color]	307	push dword [back_color]
308	call DrawText	308	call DrawText
309	call ChangeBackColor	309	call ChangeBackColor
310	add y, dword ITEM_HEIGHT	310	add y, dword ITEM_HEIGHT
311	%endmacro	311	%endmacro
312	; **************************************************************************** ;	312	; **************************************************************************** ;
313	%macro DrawMemUsage 0	313	%macro DrawMemUsage 0
314	; sz_mem_usage	314	; sz_mem_usage
315	push dword COLUMN1_TEXT_X	315	push dword COLUMN1_TEXT_X
316	push dword y	316	push dword y
317	push dword sz_mem_usage	317	push dword sz_mem_usage
318	push dword [fore_color]	318	push dword [fore_color]
319	push dword [back_color]	319	push dword [back_color]
320	call DrawText	320	call DrawText
321	; [mem_usage]	321	; [mem_usage]
322	push dword [thread_info + THREAD_INFO.mem_usage]	322	push dword [thread_info + THREAD_INFO.mem_usage]
323	call uint2str	323	call uint2str
324	push dword COLUMN2_MAX_COUNT	324	push dword COLUMN2_MAX_COUNT
325	call PadBuffSpaces	325	call PadBuffSpaces
326	push dword COLUMN2_TEXT_X	326	push dword COLUMN2_TEXT_X
327	push dword y	327	push dword y
328	push dword tmpbuffer	328	push dword tmpbuffer
329	push dword [fore_color]	329	push dword [fore_color]
330	push dword [back_color]	330	push dword [back_color]
331	call DrawText	331	call DrawText
332	call ChangeBackColor	332	call ChangeBackColor
333	add y, dword ITEM_HEIGHT	333	add y, dword ITEM_HEIGHT
334	%endmacro	334	%endmacro
335	; **************************************************************************** ;	335	; **************************************************************************** ;
336	%macro DrawIdentifier 0	336	%macro DrawIdentifier 0
337	; sz_identifier	337	; sz_identifier
338	push dword COLUMN1_TEXT_X	338	push dword COLUMN1_TEXT_X
339	push dword y	339	push dword y
340	push dword sz_identifier	340	push dword sz_identifier
341	push dword [fore_color]	341	push dword [fore_color]
342	push dword [back_color]	342	push dword [back_color]
343	call DrawText	343	call DrawText
344	; [identifier]	344	; [identifier]
345	push dword [thread_info + THREAD_INFO.identifier]	345	push dword [thread_info + THREAD_INFO.identifier]
346	call uint2str	346	call uint2str
347	push dword COLUMN2_MAX_COUNT	347	push dword COLUMN2_MAX_COUNT
348	call PadBuffSpaces	348	call PadBuffSpaces
349	push dword COLUMN2_TEXT_X	349	push dword COLUMN2_TEXT_X
350	push dword y	350	push dword y
351	push dword tmpbuffer	351	push dword tmpbuffer
352	push dword [fore_color]	352	push dword [fore_color]
353	push dword [back_color]	353	push dword [back_color]
354	call DrawText	354	call DrawText
355	call ChangeBackColor	355	call ChangeBackColor
356	add y, dword ITEM_HEIGHT	356	add y, dword ITEM_HEIGHT
357	%endmacro	357	%endmacro
358	; **************************************************************************** ;	358	; **************************************************************************** ;
359	%macro DrawWindowX 0	359	%macro DrawWindowX 0
360	; sz_x	360	; sz_x
361	push dword COLUMN1_TEXT_X	361	push dword COLUMN1_TEXT_X
362	push dword y	362	push dword y
363	push dword sz_x	363	push dword sz_x
364	push dword [fore_color]	364	push dword [fore_color]
365	push dword [back_color]	365	push dword [back_color]
366	call DrawText	366	call DrawText
367	; [x]	367	; [x]
368	push dword [thread_info + THREAD_INFO.x]	368	push dword [thread_info + THREAD_INFO.x]
369	call uint2str	369	call uint2str
370	push dword COLUMN2_MAX_COUNT	370	push dword COLUMN2_MAX_COUNT
371	call PadBuffSpaces	371	call PadBuffSpaces
372	push dword COLUMN2_TEXT_X	372	push dword COLUMN2_TEXT_X
373	push dword y	373	push dword y
374	push dword tmpbuffer	374	push dword tmpbuffer
375	push dword [fore_color]	375	push dword [fore_color]
376	push dword [back_color]	376	push dword [back_color]
377	call DrawText	377	call DrawText
378	call ChangeBackColor	378	call ChangeBackColor
379	add y, dword ITEM_HEIGHT	379	add y, dword ITEM_HEIGHT
380	%endmacro	380	%endmacro
381	; **************************************************************************** ;	381	; **************************************************************************** ;
382	%macro DrawWindowY 0	382	%macro DrawWindowY 0
383	; sz_y	383	; sz_y
384	push dword COLUMN1_TEXT_X	384	push dword COLUMN1_TEXT_X
385	push dword y	385	push dword y
386	push dword sz_y	386	push dword sz_y
387	push dword [fore_color]	387	push dword [fore_color]
388	push dword [back_color]	388	push dword [back_color]
389	call DrawText	389	call DrawText
390	; [y]	390	; [y]
391	push dword [thread_info + THREAD_INFO.y]	391	push dword [thread_info + THREAD_INFO.y]
392	call uint2str	392	call uint2str
393	push dword COLUMN2_MAX_COUNT	393	push dword COLUMN2_MAX_COUNT
394	call PadBuffSpaces	394	call PadBuffSpaces
395	push dword COLUMN2_TEXT_X	395	push dword COLUMN2_TEXT_X
396	push dword y	396	push dword y
397	push dword tmpbuffer	397	push dword tmpbuffer
398	push dword [fore_color]	398	push dword [fore_color]
399	push dword [back_color]	399	push dword [back_color]
400	call DrawText	400	call DrawText
401	call ChangeBackColor	401	call ChangeBackColor
402	add y, dword ITEM_HEIGHT	402	add y, dword ITEM_HEIGHT
403	%endmacro	403	%endmacro
404	; **************************************************************************** ;	404	; **************************************************************************** ;
405	%macro DrawWindowSizeX 0	405	%macro DrawWindowSizeX 0
406	; sz_size_x	406	; sz_size_x
407	push dword COLUMN1_TEXT_X	407	push dword COLUMN1_TEXT_X
408	push dword y	408	push dword y
409	push dword sz_size_x	409	push dword sz_size_x
410	push dword [fore_color]	410	push dword [fore_color]
411	push dword [back_color]	411	push dword [back_color]
412	call DrawText	412	call DrawText
413	; [size_x]	413	; [size_x]
414	push dword [thread_info + THREAD_INFO.size_x]	414	push dword [thread_info + THREAD_INFO.size_x]
415	call uint2str	415	call uint2str
416	push dword COLUMN2_MAX_COUNT	416	push dword COLUMN2_MAX_COUNT
417	call PadBuffSpaces	417	call PadBuffSpaces
418	push dword COLUMN2_TEXT_X	418	push dword COLUMN2_TEXT_X
419	push dword y	419	push dword y
420	push dword tmpbuffer	420	push dword tmpbuffer
421	push dword [fore_color]	421	push dword [fore_color]
422	push dword [back_color]	422	push dword [back_color]
423	call DrawText	423	call DrawText
424	call ChangeBackColor	424	call ChangeBackColor
425	add y, dword ITEM_HEIGHT	425	add y, dword ITEM_HEIGHT
426	%endmacro	426	%endmacro
427	; **************************************************************************** ;	427	; **************************************************************************** ;
428	%macro DrawWindowSizeY 0	428	%macro DrawWindowSizeY 0
429	; sz_size_y	429	; sz_size_y
430	push dword COLUMN1_TEXT_X	430	push dword COLUMN1_TEXT_X
431	push dword y	431	push dword y
432	push dword sz_size_y	432	push dword sz_size_y
433	push dword [fore_color]	433	push dword [fore_color]
434	push dword [back_color]	434	push dword [back_color]
435	call DrawText	435	call DrawText
436	; [size_y]	436	; [size_y]
437	push dword [thread_info + THREAD_INFO.size_y]	437	push dword [thread_info + THREAD_INFO.size_y]
438	call uint2str	438	call uint2str
439	push dword COLUMN2_MAX_COUNT	439	push dword COLUMN2_MAX_COUNT
440	call PadBuffSpaces	440	call PadBuffSpaces
441	push dword COLUMN2_TEXT_X	441	push dword COLUMN2_TEXT_X
442	push dword y	442	push dword y
443	push dword tmpbuffer	443	push dword tmpbuffer
444	push dword [fore_color]	444	push dword [fore_color]
445	push dword [back_color]	445	push dword [back_color]
446	call DrawText	446	call DrawText
447	call ChangeBackColor	447	call ChangeBackColor
448	add y, dword ITEM_HEIGHT	448	add y, dword ITEM_HEIGHT
449	%endmacro	449	%endmacro
450	; **************************************************************************** ;	450	; **************************************************************************** ;
451	%macro DrawThreadState 0	451	%macro DrawThreadState 0
452	; sz_thread_state	452	; sz_thread_state
453	push dword COLUMN1_TEXT_X	453	push dword COLUMN1_TEXT_X
454	push dword y	454	push dword y
455	push dword sz_thread_state	455	push dword sz_thread_state
456	push dword [fore_color]	456	push dword [fore_color]
457	push dword [back_color]	457	push dword [back_color]
458	call DrawText	458	call DrawText
459	; decoded_thread_state & [thread_state]	459	; decoded_thread_state & [thread_state]
460	movzx eax, word [thread_info + THREAD_INFO.thread_state]	460	movzx eax, word [thread_info + THREAD_INFO.thread_state]
461	push eax ; for "call uint2str" below	461	push eax ; for "call uint2str" below
462	%%running:	462	%%running:
463	cmp eax, THREAD_STATE_RUNNING	463	cmp eax, THREAD_STATE_RUNNING
464	jne %%suspended	464	jne %%suspended
465	mov eax, sz_running	465	mov eax, sz_running
466	jmp %%draw_decoded_thread_state	466	jmp %%draw_decoded_thread_state
467	%%suspended:	467	%%suspended:
468	cmp eax, THREAD_STATE_SUSPENDED	468	cmp eax, THREAD_STATE_SUSPENDED
469	jne %%suspended_w	469	jne %%suspended_w
470	mov eax, sz_suspended	470	mov eax, sz_suspended
471	jmp %%draw_decoded_thread_state	471	jmp %%draw_decoded_thread_state
472	%%suspended_w:	472	%%suspended_w:
473	cmp eax, THREAD_STATE_SUSPENDED_WAIT_EVENT	473	cmp eax, THREAD_STATE_SUSPENDED_WAIT_EVENT
474	jne %%normal_term	474	jne %%normal_term
475	mov eax, sz_suspended_wait_event	475	mov eax, sz_suspended_wait_event
476	jmp %%draw_decoded_thread_state	476	jmp %%draw_decoded_thread_state
477	%%normal_term:	477	%%normal_term:
478	cmp eax, THREAD_STATE_NORMAL_TERMINATING	478	cmp eax, THREAD_STATE_NORMAL_TERMINATING
479	jne %%except_term	479	jne %%except_term
480	mov eax, sz_normal_terminating	480	mov eax, sz_normal_terminating
481	jmp %%draw_decoded_thread_state	481	jmp %%draw_decoded_thread_state
482	%%except_term:	482	%%except_term:
483	cmp eax, THREAD_STATE_EXCEPT_TERMINATING	483	cmp eax, THREAD_STATE_EXCEPT_TERMINATING
484	jne %%wait_event	484	jne %%wait_event
485	mov eax, sz_except_terminating	485	mov eax, sz_except_terminating
486	jmp %%draw_decoded_thread_state	486	jmp %%draw_decoded_thread_state
487	%%wait_event:	487	%%wait_event:
488	cmp eax, THREAD_STATE_WAIT_EVENT	488	cmp eax, THREAD_STATE_WAIT_EVENT
489	jne %%slot_free	489	jne %%slot_free
490	mov eax, sz_wait_event	490	mov eax, sz_wait_event
491	jmp %%draw_decoded_thread_state	491	jmp %%draw_decoded_thread_state
492	%%slot_free:	492	%%slot_free:
493	cmp eax, THREAD_STATE_SLOT_IS_FREE	493	cmp eax, THREAD_STATE_SLOT_IS_FREE
494	jne %%undefined	494	jne %%undefined
495	mov eax, sz_slot_is_free	495	mov eax, sz_slot_is_free
496	jmp %%draw_decoded_thread_state	496	jmp %%draw_decoded_thread_state
497	%%undefined:	497	%%undefined:
498	mov eax, sz_undefined	498	mov eax, sz_undefined
499	%%draw_decoded_thread_state:	499	%%draw_decoded_thread_state:
500	push dword COLUMN3_TEXT_X	500	push dword COLUMN3_TEXT_X

Subversion Repositories Kolibri OS

(root)/programs/system/tinfo/tinfo.asm – Rev 6609 → 6610