forked from KolibriOS/kolibrios
3eda462807
Programs: fasm updated to 1.67.14, small fixes in desktop, stackcfg, calc, board, pipes, freecell, big cleanup of unused programs, added some applications from 0.6.3.0 distr... git-svn-id: svn://kolibrios.org@205 a494cfbc-eb01-0410-851d-a64ba20cac60
584 lines
13 KiB
NASM
584 lines
13 KiB
NASM
;
|
||
; Ghost Monitor - утилита (стресс) тестирования и мониторинга системы
|
||
; ВОЗМОЖНА ПОРЧА ОБОРУДОВАНИЯ!
|
||
; ИСПОЛЬЗУЙТЕ НА СВОЙ СТРАХ И РИСК!
|
||
;
|
||
; Заметки :
|
||
; Дописать запуск тестов (rtst) (нет реакции на ошибку запуска)
|
||
; Переделать обновление графика (сделать отдельным процессом)
|
||
; Добавить реакцию на параметры датчиков
|
||
;
|
||
; История :
|
||
; 09/2005 - начало
|
||
; 04/10/2005 - откомментировал код
|
||
; 09/11/2005 - дописаны тесты (пока нет теста памяти)
|
||
; 30/01/2006 - добавленны графики
|
||
; 02/02/2006 - Добавлена настройка времени обновления
|
||
; 10/02/2006 - добавленна еще информация с датчиков, опт. wb_get_chip_name
|
||
; 01/03/2006 - добавленна еще информация с датчиков
|
||
; 16/03/2006 - оптимизирована по размеру
|
||
; 17/03/2006 - подсветка изменённых параметров, оптимизация, about
|
||
; 20/03/2006 - Публикация
|
||
; --- v 0.2 ---
|
||
; 24/03/2006 - Добавленна поддержка IT8705F, IT8712F и SIS950
|
||
; 25/03/2006 - Вывод трёх температур и трёх вентилей
|
||
; 28/03/2006 - График temp3 и изменение цвета графиков, обработка отрицательных значений графика
|
||
; 30/03/2006 - Оптимизация по размеру версии от 28/03/2006, переписал рисование графика
|
||
; 14/04/2006 - Исправил график (jle -> jbe), добавил mem usage, вычисление длинны чисел, закрытие по Esc
|
||
; 19/04/2006 - Очистка неинициализированных данных
|
||
; --- v 0.3 ---
|
||
; 01/07/2006 - Различие ITE 8705F, ITE 8712F и IT8716F
|
||
; 04/07/2006 - Добавленны напруги для чипов Winbond
|
||
; 10/07/2006 - добавленны напруги для чипов ITE, множители для AMD K6, Intel P6, P7, оптимизация по размеру
|
||
; 11/07/2006 - Реакция на изменение напруги, оптимизация по размеру
|
||
; 12/07/2006 - it87_get_fan_speed bug fix, завершение теста по 18/18
|
||
; 13/07/2006 - it87_get_fan_speed bug fix, исправлен вывод чисел с плавающей точкой
|
||
; 14/07/2006 - исправленны показания -12V для Winbond, осталась пробленма с -5V
|
||
; 17/07/2006 - исправленна ошибка определения множителя для P6, добавленны множители
|
||
; 18/07/2006 - Уличшил вывод множителя, исправленны множители для P6 Tualatin, config.inc
|
||
; 22/07/2006 - P6 multiplier bugfix
|
||
; 30/07/2006 - P6 multiplier bugfix
|
||
;
|
||
; Эй! У меня нет много времени.
|
||
|
||
; Внешние файлы :
|
||
; hwm*.inc - процедуры работы с датчиками мониторинга
|
||
; system.inc - вычисление загрузки процессора, завершение теста, etc...
|
||
; tests.inc - тесты ;-)
|
||
; diag.inc - поддержка диаграм
|
||
; *_tab.inc - процедуры отрисовки соответствуюших вкладок
|
||
|
||
|
||
; Идентификаторы кнопок :
|
||
; 01 - Exit
|
||
; 02 - Info tab
|
||
; 03 - Tests tab
|
||
; 04 - Config tab
|
||
; 05 - About tab
|
||
; 06 - P5 test
|
||
; 07 - P6 test
|
||
; 08 - K6 test
|
||
; 09 - K7 test
|
||
; 10 - MMX test - not used
|
||
; 11 - Update time increment
|
||
; 12 - Update time decriment
|
||
; 13..17 - Изменение цвета CPU_load, Mem_usage, Temp1, Temp2, Temp3
|
||
|
||
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 ; Инициализируем чип мониторинга
|
||
|
||
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]
|
||
inc eax ; перерисуем окно (eax := 1)
|
||
@@: 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 - завершение работы
|
||
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:
|
||
; кнопки вкладок (2 .. 5)
|
||
cmp ah, 5
|
||
jg no_tabs
|
||
mov byte[act_tab], ah
|
||
jmp draw_window
|
||
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 draw_window
|
||
|
||
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 draw_window
|
||
;-------------------------
|
||
; кнопки изменения времени обновления
|
||
no_test_bt:
|
||
cmp ah, 11
|
||
jne no_ut_inc
|
||
add dword[update_time], 10
|
||
jmp draw_window
|
||
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 draw_window
|
||
no_ut_dec:
|
||
;-------------------------
|
||
; кнопки изменения цвета графиков (13..17)
|
||
cmp ah, 17
|
||
jg no_change_color
|
||
sub ah, 13
|
||
movzx ecx, ah
|
||
mov esi, [d_colors + ecx * 4]
|
||
mov eax, [esi]
|
||
call next_color
|
||
mov [esi], ebx
|
||
jmp draw_window
|
||
no_change_color:
|
||
|
||
jmp wait_for_event
|
||
;---------------------------------------------------------------------
|
||
; Цвета графиков
|
||
colors: dd 0xff0000, 0xff00, 0xff, 0xffffff, tcol, 0xFF7E23, 0x8BA169, 0xff0000 ; первый и последний равны
|
||
next_color:
|
||
mov ecx, (next_color - colors) / 4 ; количество цветов
|
||
@@: dec ecx
|
||
cmp eax, [colors + ecx * 4]
|
||
jne @b
|
||
mov ebx, [colors + ecx * 4 - 4]
|
||
ret
|
||
;---------------------------------------------------------------------
|
||
draw_window:
|
||
mov eax,12
|
||
mov ebx,1
|
||
int 0x40
|
||
; Создаём окно
|
||
xor eax, eax
|
||
mov ebx, 300 * 65536 + 309
|
||
mov ecx, 150 * 65536 + 430
|
||
mov edx, tcol + 0x3000000 ; color of work area RRGGBB,8->color
|
||
mov esi, 0x805080d0 ; color of grab bar RRGGBB,8->color
|
||
mov edi, 0x005080d0 ; color of frames RRGGBB
|
||
int 0x40
|
||
; Создаём рамку графика
|
||
mov eax, 13
|
||
mov ebx, 10 * 65536 + 290
|
||
mov ecx, 118 * 65536 + 105
|
||
mov edx, atcol
|
||
int 0x40
|
||
mov ebx, 12 * 65536 + 286
|
||
mov ecx, 120 * 65536 + 101
|
||
mov edx, tcol
|
||
int 0x40
|
||
mov eax, 38
|
||
mov edx, atcol
|
||
mov ebx, 12 * 65536 + 286 + 12
|
||
mov ecx, 120 * 65536 + 120
|
||
@@: add ecx, 10 * 65536 + 10
|
||
int 0x40
|
||
cmp cx, 210 ; привязано к координатам окна
|
||
jl @b
|
||
; Пишим заголовок
|
||
mov eax, 4
|
||
mov ebx, 8 * 65536 + 8
|
||
mov edx, title
|
||
mov ecx, 0x10FFFFFF
|
||
mov esi, 29
|
||
int 0x40
|
||
|
||
; Пишим названия параметров (Cpu load, temper, etc...)
|
||
mov edx, msgs_mon
|
||
mov ebx, 17 * 65536 + 30
|
||
call show_text
|
||
|
||
mov edx, msgs_mon2
|
||
mov ebx, 156 * 65536 + 30
|
||
call show_text
|
||
|
||
; Рисуем кнопки смены цвета
|
||
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 кнопок
|
||
jne @b
|
||
|
||
; Пишим загрузку процессора
|
||
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
|
||
int 0x40
|
||
|
||
; Пишим используемую память
|
||
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
|
||
int 0x40
|
||
|
||
cmp byte[hwm_enable], 0
|
||
jne show_mon
|
||
; Нет датчиков - пишем NO
|
||
mov ecx, 6 ;<- количество параметров
|
||
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 ;<- количество параметров
|
||
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, 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
|
||
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
|
||
;;--- добавляем на график temp1 ---
|
||
movzx eax, word[temps]
|
||
mov esi, d_temp1
|
||
call d_add
|
||
call d_show
|
||
;;--- добавляем на график temp2 ---
|
||
movzx eax, word[temps + 2]
|
||
mov esi, d_temp2
|
||
call d_add
|
||
call d_show
|
||
;;--- добавляем на график temp3 ---
|
||
movzx eax, word[temps + 4]
|
||
mov esi, d_temp3
|
||
call d_add
|
||
call d_show
|
||
|
||
;---------------------------
|
||
; Скорости врашения вентилей
|
||
mov ecx, 3
|
||
mov esi, 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
|
||
int 0x40
|
||
add edx, 10
|
||
pop esi
|
||
pop ecx
|
||
loop sh_fan
|
||
|
||
;---------------------------
|
||
; Напруги
|
||
mov esi, Vcore
|
||
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 edi, 230 * 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
|
||
; Пишим названия вкладок
|
||
mov eax, 4
|
||
mov ebx, 35 * 65536 + 240
|
||
mov edx, tab_lab
|
||
mov ecx, 0x10000000
|
||
mov esi, 39
|
||
int 0x40
|
||
; создаём рамку внизу экрана
|
||
mov eax, 13
|
||
mov ebx, 10 * 65536 + 290
|
||
mov ecx, 255 * 65536 + 160
|
||
mov edx, atcol
|
||
int 0x40
|
||
mov ebx, 12 * 65536 + 286
|
||
mov ecx, 257 * 65536 + 156
|
||
mov edx, tcol
|
||
int 0x40
|
||
; рисуем выбранную вкладку
|
||
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
|
||
end_drow_tab:
|
||
mov eax, 12
|
||
mov ebx, 2
|
||
int 0x40
|
||
jmp wait_for_event
|
||
;--- Drow Info tab ---------------
|
||
info_tab:
|
||
include "info_tab.inc"
|
||
;--- Drow test tab ---------------
|
||
test_tab:
|
||
include "test_tab.inc"
|
||
;--- Drow Config tab -------------
|
||
config_tab:
|
||
include "conf_tab.inc"
|
||
;--- Drow About tab --------------
|
||
about_tab:
|
||
include "abou_tab.inc"
|
||
;---------------------------------------------------------------------
|
||
include "system.inc"
|
||
include "hwm.inc"
|
||
include "diag.inc"
|
||
|
||
|
||
DATA
|
||
act_tab db 2 ; Номер активной вкладки
|
||
tab_lab db 'Info Tests Configs About'
|
||
title db 'Ghost Monitor v0.3 [30/07/06]'
|
||
|
||
msgs_mon mls \
|
||
'CPU Load (%)',\
|
||
'Mem Usage(%)',\
|
||
'Temp1',\
|
||
'Temp2',\
|
||
'Temp3',\
|
||
'Fan1',\
|
||
'Fan2',\
|
||
'Fan3'
|
||
|
||
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
|
||
;---------------------------------------------------------------------
|
||
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
|