kolibrios/programs/system/gmon/gmon.asm
Ivan Baravy 2c778124e3 Remove some duplicates: proc32.inc, macros.inc, struct.inc, etc.
git-svn-id: svn://kolibrios.org@7134 a494cfbc-eb01-0410-851d-a64ba20cac60
2017-12-20 00:51:00 +00:00

626 lines
14 KiB
NASM
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

;
; 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 'config.inc'
include 'macros.inc'
macro clear_prev_no arg1 ; clears previous number printed at arg1
{
pusha
mov ebx, 0x00070000
mov ecx, 1000000 ; dummy value
mov edx, arg1
mov esi, 0x40000000 + tcol
mov edi, tcol ; bg col
mov eax, 47
int 0x40
popa
}
nl equ 0x0d, 0x0a
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