mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-24 23:56:49 +03:00
611 lines
14 KiB
NASM
611 lines
14 KiB
NASM
;
|
||
; Ghost Monitor - утилита (стресс) тестирования и мониторинга системы
|
||
; Copyright (C) 2005, 2006, 2007 Mihailov Ilia (ghost.nsk@mail.ru)
|
||
; All Right Reserved
|
||
;
|
||
; ВОЗМОЖНА ПОРЧА ОБОРУДОВАНИЯ!
|
||
; ИСПОЛЬЗУЙТЕ НА СВОЙ СТРАХ И РИСК!
|
||
;
|
||
; Заметки :
|
||
; Дописать запуск тестов (rtst) (нет реакции на ошибку запуска)
|
||
; Переделать обновление графика (сделать отдельным процессом)
|
||
; Добавить реакцию на параметры датчиков
|
||
;
|
||
|
||
; Внешние файлы :
|
||
; hwm*.inc - процедуры работы с датчиками мониторинга
|
||
; system.inc - вычисление загрузки процессора, завершение теста, etc...
|
||
; tests.inc - тесты ;-)
|
||
; diag.inc - поддержка диаграм
|
||
; tab_*.inc - процедуры отрисовки соответствуюших вкладок
|
||
|
||
|
||
; Identifier buttons :
|
||
; 01 - Exit
|
||
; 02 - Info tab
|
||
; 03 - Tests tab
|
||
; 04 - Config tab
|
||
; 05 - About tab
|
||
; 06 - P5 test (tab_test.inc)
|
||
; 07 - P6 test (tab_test.inc)
|
||
; 08 - K6 test (tab_test.inc)
|
||
; 09 - K7 test (tab_test.inc)
|
||
; 10 - MMX test - not used (tab_test.inc)
|
||
; 11 - Update time increment (tab_conf.inc)
|
||
; 12 - Update time decriment (tab_conf.inc)
|
||
; 13..17 - Color Changing buttons CPU_load, Mem_usage, Temp1, Temp2, Temp3
|
||
|
||
include 'lang.inc'
|
||
include 'config.inc'
|
||
include 'macros.inc'
|
||
|
||
tcol equ 0x5080d0
|
||
atcol equ 0x4070c0
|
||
val_mod equ 0x3090
|
||
|
||
MEOS_APP_START
|
||
include "tests.inc" ; <-- Много выравниваний, лучше здесь
|
||
CODE
|
||
;--- Init ------------------------------------------------------------
|
||
; Очищаем неинициализированные данные
|
||
mov ecx, __memory - __udata
|
||
mov edi, __udata
|
||
xor eax, eax
|
||
rep stosb
|
||
|
||
xor eax, eax
|
||
cpuid ; Узнаём производителя проца
|
||
mov [Vendor + 0], ebx
|
||
mov [Vendor + 4], edx
|
||
mov [Vendor + 8], ecx
|
||
mov eax, 1
|
||
cpuid ; Есть ли MMX ?
|
||
mov ecx, eax
|
||
shr al, 4
|
||
and ax, 0x0F0F
|
||
mov [CPU_fam], ah
|
||
mov [CPU_mod], al
|
||
shr edx, 23
|
||
and dl, 1
|
||
mov [CPU_mmx], dl
|
||
shr ecx, 12
|
||
and cl, 11b
|
||
mov [CPU_type], cl
|
||
|
||
; ! Цвета из массива colors
|
||
mov dword[d_cpu_load], 0xFF00 ; инициализируем график загрузки АЛУ
|
||
mov dword[d_mem_usage], 0x8BA169 ; -- mem usega
|
||
mov dword[d_temp1], 0xFF0000 ; -- график температуры ЦПУ
|
||
mov dword[d_temp2], 0xFF ; -- график температуры МП
|
||
mov dword[d_temp3], 0xFF7E23
|
||
|
||
call hwm_init ; Initialize monitoring chip
|
||
|
||
jmp draw_window
|
||
;--- Wait & translate event ------------------------------------------
|
||
wait_for_event:
|
||
mov byte[diag_add_v], 0 ; добавляем данные к графику только по таймеру
|
||
mov ebx, [update_time]
|
||
mov eax, 23
|
||
int 0x40
|
||
test eax, eax
|
||
jnz @f
|
||
inc byte [diag_add_v]
|
||
jmp redraw
|
||
@@: dec eax ; redraw request ?
|
||
jz draw_window
|
||
dec eax ; key in buffer ?
|
||
jz key
|
||
dec eax ; button in buffer ?
|
||
jz button
|
||
jmp wait_for_event
|
||
;--- Key pressed -----------------------------------------------------
|
||
key:
|
||
mov eax, 2
|
||
int 0x40
|
||
cmp ah, 27 ; Esc - shutdown
|
||
je exit
|
||
jmp wait_for_event
|
||
;--- Button down -----------------------------------------------------
|
||
button:
|
||
mov eax, 17 ; get id
|
||
int 0x40
|
||
cmp ah, 1 ; button id == 1 ?
|
||
jne noexit
|
||
exit: cmp byte[test_id], 0
|
||
je @f
|
||
call stop_test
|
||
@@: mov eax, -1 ; close this program
|
||
int 0x40
|
||
noexit:
|
||
; button tabs (2 .. 5)
|
||
cmp ah, 5
|
||
jg no_tabs
|
||
mov byte[act_tab], ah
|
||
jmp redraw_tabs
|
||
no_tabs:
|
||
; кнопки запуска тество (6 .. 10)
|
||
cmp ah, 10
|
||
jg no_test_bt
|
||
; если нет запущеных тестов - запускаем выбранный
|
||
cmp byte[test_id], 0
|
||
je run_test
|
||
; если кнопка активного теста - останавливаем тест, иначе ничего не делаем
|
||
cmp [test_id], ah
|
||
jne wait_for_event
|
||
call stop_test
|
||
jmp redraw_tabs
|
||
|
||
tsts: dd p5, p6, k6_, k7_
|
||
run_test:
|
||
push eax
|
||
movzx ecx, ah
|
||
mov ecx, [tsts + (ecx * 4) - (6 * 4)]
|
||
rtst: mov eax, 51
|
||
mov edx, stp
|
||
mov ebx, 1
|
||
int 0x40
|
||
cmp eax, 0xFFFFFFF0 ; -16
|
||
je wait_for_event ; <-- ошибка запуска теста, ПЕРЕПИСАТЬ
|
||
mov [test_pid], eax
|
||
pop eax
|
||
mov byte [test_id], ah
|
||
jmp redraw_tabs
|
||
;-------------------------
|
||
; кнопки изменения времени обновления
|
||
no_test_bt:
|
||
cmp ah, 11
|
||
jne no_ut_inc
|
||
add dword[update_time], 10
|
||
jmp redraw_tabs
|
||
no_ut_inc:
|
||
cmp ah, 12
|
||
jne no_ut_dec
|
||
cmp dword[update_time], 10
|
||
jng wait_for_event
|
||
sub dword[update_time], 10
|
||
jmp redraw_tabs
|
||
no_ut_dec:
|
||
;-------------------------
|
||
; color change button schedules (13..17)
|
||
cmp ah, 17
|
||
jg no_change_color
|
||
sub ah, 13
|
||
movzx ecx, ah
|
||
mov esi, [d_colors + ecx * 4]
|
||
mov eax, [esi]
|
||
mov ecx, (colors_end - colors) / 4 ; number of colors
|
||
@@: dec ecx
|
||
cmp eax, [colors + ecx * 4]
|
||
jne @b
|
||
mov ebx, [colors + ecx * 4 - 4]
|
||
mov [esi], ebx
|
||
jmp redraw_tabs
|
||
no_change_color:
|
||
jmp wait_for_event
|
||
;---------------------------------------------------------------------
|
||
draw_window:
|
||
mov eax,12
|
||
mov ebx,1
|
||
int 0x40
|
||
; Создаём окно
|
||
xor eax, eax
|
||
mov ebx, 300 * 65536 + 309
|
||
mov ecx, 150 * 65536 + 450
|
||
mov edx, tcol + 0x14000000 ; color of work area RRGGBB,8->color
|
||
mov edi, title ; color of frames RRGGBB
|
||
int 0x40
|
||
; Create a graphic frame (not for graph)
|
||
mov eax, 13
|
||
mov ebx, 10 * 65536 + 290
|
||
mov ecx, 138 * 65536 + 105
|
||
mov edx, atcol
|
||
int 0x40
|
||
|
||
; write parameter names (Cpu load, temper, etc ...)
|
||
mov edx, msgs_mon ; text for indicators
|
||
mov ebx, 17 * 65536 + 30
|
||
call show_text
|
||
|
||
mov edx, msgs_mon2
|
||
mov ebx, 166 * 65536 + 30
|
||
call show_text
|
||
|
||
jmp draw_tabs ; draw tabs for the first time
|
||
|
||
redraw_tabs: ; delete previously created tabs
|
||
|
||
mov ecx, 4
|
||
mov eax, 8
|
||
mov edx, 0x80000000 + 2
|
||
del_tabs:
|
||
int 0x40
|
||
inc edx
|
||
loop del_tabs
|
||
|
||
; Delete color change buttons
|
||
mov eax, 8
|
||
mov edx, 0x80000000 + 13
|
||
@@:
|
||
int 0x40
|
||
inc edx
|
||
cmp edx, 0x80000000 + 13 + 5 ; 5 (buttons)
|
||
jne @b
|
||
|
||
draw_tabs:
|
||
|
||
; Drawing color change buttons
|
||
mov eax, 8
|
||
mov ebx, 112 * 65536 + 5
|
||
mov ecx, 30 * 65536 + 6
|
||
mov edx, 13
|
||
|
||
@@:
|
||
mov esi, [d_colors - 13 * 4 + edx * 4]
|
||
mov esi, [esi]
|
||
int 0x40
|
||
add ecx, 10 * 65536
|
||
inc edx
|
||
cmp edx, 13 + 5 ; 5 (buttons)
|
||
jne @b
|
||
|
||
; info, test, config, about buttons
|
||
; Create 4 buttons
|
||
mov edi, 250 * 65536 + 25
|
||
mov ecx, 4
|
||
mov eax, 8
|
||
mov ebx, 10 * 65536 + 70
|
||
mov edx, 2
|
||
n_bt:
|
||
push ecx
|
||
mov ecx, edi
|
||
mov esi, tcol
|
||
cmp byte [act_tab], dl
|
||
jne na1
|
||
mov esi, atcol
|
||
na1:
|
||
int 0x40
|
||
inc edx
|
||
add ebx, 73 * 65536
|
||
pop ecx
|
||
loop n_bt
|
||
|
||
; write name tabs
|
||
mov eax, 4
|
||
mov ebx, (18 shl 16) + 256
|
||
mov edx, tab_lab
|
||
mov ecx, 0x10000000
|
||
mov esi, 4
|
||
int 0x40
|
||
add ebx, (72 shl 16)
|
||
mov edx, tab_lab.2
|
||
mov esi, 5
|
||
int 0x40
|
||
add ebx, (72 shl 16)
|
||
mov edx, tab_lab.3
|
||
mov esi, 7
|
||
int 0x40
|
||
add ebx, (72 shl 16)
|
||
mov edx, tab_lab.4
|
||
mov esi, 5
|
||
int 0x40
|
||
|
||
; create a frame at the bottom of the screen
|
||
mov eax, 13
|
||
mov ebx, 10 * 65536 + 290
|
||
mov ecx, 275 * 65536 + 160
|
||
mov edx, atcol
|
||
int 0x40
|
||
mov ebx, 12 * 65536 + 286
|
||
mov ecx, 277 * 65536 + 156
|
||
mov edx, tcol
|
||
int 0x40
|
||
|
||
; draw the selected tab
|
||
mov al, [act_tab]
|
||
cmp al, 2
|
||
je info_tab
|
||
cmp al, 3
|
||
je test_tab
|
||
cmp al, 4
|
||
je config_tab
|
||
jmp about_tab
|
||
|
||
;--- Drow Info tab ---------------
|
||
info_tab:
|
||
include "tab_info.inc"
|
||
;--- Drow test tab ---------------
|
||
test_tab:
|
||
include "tab_test.inc"
|
||
;--- Drow Config tab -------------
|
||
config_tab:
|
||
include "tab_conf.inc"
|
||
;--- Drow About tab --------------
|
||
about_tab:
|
||
include "tab_about.inc"
|
||
|
||
redraw:
|
||
|
||
; frame for graph
|
||
|
||
mov eax, 13
|
||
mov ebx, 12 * 65536 + 286
|
||
mov ecx, 140 * 65536 + 101
|
||
mov edx, tcol
|
||
int 0x40
|
||
mov eax, 38
|
||
mov edx, atcol
|
||
mov ebx, 12 * 65536 + 286 + 12
|
||
mov ecx, 140 * 65536 + 140
|
||
@@: add ecx, 10 * 65536 + 10
|
||
int 0x40
|
||
cmp cx, 230 ; привязано к координатам окна
|
||
jl @b
|
||
|
||
; write CPU usage
|
||
call cpu_usage
|
||
;--- добавляем на график ---
|
||
mov esi, d_cpu_load
|
||
call d_add
|
||
call d_show
|
||
;---------------------------
|
||
movzx ecx, al
|
||
mov eax, 47
|
||
mov edx, 121 * 65536 + 30
|
||
xor esi, esi
|
||
call digit_len
|
||
clear_prev_no edx
|
||
int 0x40
|
||
|
||
; write used memory
|
||
call mem_usage
|
||
;--- добавляем на график ---
|
||
mov esi, d_mem_usage
|
||
call d_add
|
||
call d_show
|
||
;---------------------------
|
||
movzx ecx, al
|
||
mov eax, 47
|
||
mov edx, 121 * 65536 + 40
|
||
xor esi, esi
|
||
call digit_len
|
||
clear_prev_no edx
|
||
int 0x40
|
||
|
||
cmp byte[hwm_enable], 0
|
||
jne show_mon
|
||
; Нет датчиков - пишем NO
|
||
mov ecx, 8 ;<- number of parameters
|
||
mov eax, 4
|
||
mov ebx, 121 * 65536 + 50
|
||
mov edx, msg_no
|
||
mov esi, 3
|
||
@@: int 0x40
|
||
add ebx, 10
|
||
loop @b
|
||
|
||
mov ecx, 7 ;<- number of parameters
|
||
mov ebx, 260 * 65536 + 30
|
||
@@: int 0x40
|
||
add ebx, 10
|
||
loop @b
|
||
|
||
jmp no_monitor
|
||
show_mon:
|
||
;Есть датчики пишим инфу
|
||
call hwm_get_params
|
||
;---------------------------
|
||
; Температуру
|
||
mov ecx, 3
|
||
mov esi, hwm_temps
|
||
mov edx, 121 * 65536 + 50
|
||
xor eax, eax
|
||
sh_temp:push ecx
|
||
lodsw
|
||
push esi
|
||
; реакция на изменения
|
||
xor esi, esi
|
||
cmp [old_t1 + ecx * 4 - 4], eax
|
||
je @f
|
||
mov [old_t1 + ecx * 4 - 4], eax
|
||
mov esi, val_mod
|
||
@@: movzx ecx, al
|
||
push eax
|
||
mov eax, 47
|
||
mov ebx, 0x20000
|
||
clear_prev_no edx
|
||
int 0x40
|
||
pop eax
|
||
mov cl, ah
|
||
mov eax, 47
|
||
mov ebx, 0x10000
|
||
add edx, 15 * 65536
|
||
int 0x40
|
||
sub edx, 15 * 65536 - 10
|
||
pop esi
|
||
pop ecx
|
||
loop sh_temp
|
||
;;--- Add to the chart temp1 ---
|
||
movzx eax, word[hwm_temps]
|
||
mov esi, d_temp1
|
||
call d_add
|
||
call d_show
|
||
;;--- Add to the chart temp2 ---
|
||
movzx eax, word[hwm_temps + 2]
|
||
mov esi, d_temp2
|
||
call d_add
|
||
call d_show
|
||
;;--- Add to the chart temp3 ---
|
||
movzx eax, word[hwm_temps + 4]
|
||
mov esi, d_temp3
|
||
call d_add
|
||
call d_show
|
||
|
||
;---------------------------
|
||
; Скорости врашения вентилей
|
||
mov ecx, 5
|
||
mov esi, hwm_rpms
|
||
mov edx, 121 * 65536 + 80
|
||
sh_fan: push ecx
|
||
lodsd
|
||
push esi
|
||
;реакция на изменения
|
||
xor esi, esi
|
||
cmp [old_f1 + ecx * 4 - 4], eax
|
||
je @f
|
||
mov [old_f1 + ecx * 4 - 4], eax
|
||
mov esi, val_mod
|
||
@@: mov ecx, eax
|
||
call digit_len
|
||
mov eax, 47
|
||
clear_prev_no edx
|
||
int 0x40
|
||
add edx, 10
|
||
pop esi
|
||
pop ecx
|
||
loop sh_fan
|
||
|
||
;---------------------------
|
||
; Напруги
|
||
mov esi, hwm_voltages
|
||
mov edi, old_volts
|
||
mov ecx, 7
|
||
mov ebx, 260 * 65536 + 30
|
||
mov edx, Data_String
|
||
volt_nxt:
|
||
push ecx
|
||
push esi
|
||
call ftoa
|
||
;реакция на изменения
|
||
xor ecx, ecx
|
||
fld dword [esi]
|
||
fsub dword [edi]
|
||
fabs
|
||
|
||
; fcomp dword [c_eps] ; bug in MeOsEmul
|
||
; fstsw ax
|
||
fcom dword [c_eps] ; 0xBADCODE
|
||
fstsw ax
|
||
finit
|
||
|
||
sahf
|
||
jc @f
|
||
mov ecx, val_mod
|
||
@@: mov esi, Data_String ; считаем кол-во символов
|
||
@@: lodsb
|
||
test al, al
|
||
jnz @b
|
||
sub esi, Data_String
|
||
|
||
mov eax, 4
|
||
int 0x40
|
||
add ebx, 10
|
||
pop esi
|
||
pop ecx
|
||
movsd
|
||
loop volt_nxt
|
||
|
||
no_monitor:
|
||
;---------------------------
|
||
mov al, [act_tab] ; check if info tab is active
|
||
cmp al, 2
|
||
jne end_drow_tab
|
||
jmp free_mem ; in tab_info.inc
|
||
|
||
end_drow_tab:
|
||
mov eax, 12
|
||
mov ebx, 2
|
||
int 0x40
|
||
jmp wait_for_event
|
||
;---------------------------------------------------------------------
|
||
include "system.inc"
|
||
include "hwm.inc"
|
||
include "diag.inc"
|
||
|
||
|
||
DATA
|
||
act_tab db 2 ; active tab number
|
||
tab_lab:
|
||
.1: db 'Info'
|
||
.2: db 'Tests'
|
||
.3: db 'Configs'
|
||
.4: db 'About'
|
||
title db 'Ghost Monitor v0.4 [18/11/15]',0
|
||
|
||
msgs_mon mls \
|
||
'CPU Load (%)',\
|
||
'Mem Usage(%)',\
|
||
'Temp1',\
|
||
'Temp2',\
|
||
'Temp3',\
|
||
'Fan1',\
|
||
'Fan2',\
|
||
'Fan3',\
|
||
'Fan4',\
|
||
'Fan5'
|
||
|
||
msgs_mon2 mls \
|
||
'Vcore',\
|
||
'AGP',\
|
||
'+3.3V',\
|
||
'AVcc (+5V)',\
|
||
'+12V',\
|
||
'-12V',\
|
||
'-5V'
|
||
|
||
msg_yes db 'Yes'
|
||
msg_no db 'N/A'
|
||
|
||
update_time dd 300 ; период обновления в сотых долях секунды
|
||
d_colors dd d_cpu_load, d_mem_usage, d_temp1, d_temp2, d_temp3
|
||
c_eps dd 0.01
|
||
|
||
; Цвета графиков
|
||
colors: dd 0xff0000, 0xff00, 0xff, 0xffffff, tcol, 0xFF7E23, 0x8BA169, 0xff0000 ; первый и последний равны
|
||
colors_end:
|
||
;---------------------------------------------------------------------
|
||
UDATA
|
||
|
||
test_pid dd ? ; если test_id == 0 - не имеет смысла
|
||
test_id db ? ; 0 - тест не запушен (соответствует № кнопки 6..10)
|
||
diag_add_v db ? ; 0 - не добавлять данные на график, !0 - добавлять
|
||
|
||
Vendor: times 12 db ?
|
||
CPU_fam: db ?
|
||
CPU_mod: db ?
|
||
CPU_type: db ?
|
||
CPU_mmx: db ?
|
||
|
||
; Для реакции на изменения
|
||
old_t1: dd ? ; последнее значение temp1
|
||
old_t2: dd ? ; ...
|
||
old_t3: dd ?
|
||
old_f1: dd ?
|
||
old_f2: dd ?
|
||
old_f3: dd ?
|
||
old_volts: times 7 dd ?
|
||
|
||
; Грфики
|
||
diag_beg:
|
||
d_cpu_load: dd ?
|
||
times 286 db ?
|
||
|
||
d_mem_usage: dd ?
|
||
times 286 db ?
|
||
|
||
d_temp1: dd ?
|
||
times 286 db ?
|
||
|
||
d_temp2: dd ?
|
||
times 286 db ?
|
||
|
||
d_temp3: dd ?
|
||
times 286 db ?
|
||
diag_end:
|
||
|
||
; --- стек теста, воизбежание глюков не переносить в другое место ----
|
||
th_stack: times 1024 db ?
|
||
stp:
|
||
;---------------------------------------------------------------------
|
||
MEOS_APP_END
|