kolibrios-gitea/kernel/branches/Kolibri-A/utilities/amon/hwm.inc
Artem Jerdev (art_zh) e626668c98 A-version of GMON
git-svn-id: svn://kolibrios.org@3007 a494cfbc-eb01-0410-851d-a64ba20cac60
2012-11-05 20:19:33 +00:00

151 lines
3.3 KiB
PHP
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. 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
;
; HWM abstract interface, provide:
; hwm_init, hwm_get_params, hwm_enable, hwm_temps, hwm_rpms, hwm_voltages, hwm_chip_name
;
if SMBus eq yes
include 'SMBus.inc'
end if
include 'hwm_hudson.inc'
;include 'hwm_it87.inc'
;include 'hwm_uguru.inc'
;include 'hwm_via686.inc'
uglobal
hwm_enable:
dd 1 ; 0 - no, 1 - Hudson, ... see HWMProbe list
hwm_temps:
db 0,0, 0,0, 0,0 ; £à ¤ãá, ¤¥áïâë¥, £à ¤ãá, ...
hwm_rpms:
dd 0, 0, 0, 0, 0 ; fan1, fan2, fan3, ...
hwm_voltages:
Vcore dd 0.0
Vin0 dd 0.0
Vin1 dd 0.0
AVcc dd 0.0
Vin2 dd 0.0
V12 dd 0.0
V5 dd 0.0
vol8 dd 0.0
vol9 dd 0.0
vol10 dd 0.0
vol11 dd 0.0
acc_type db 0 ; 0 - ISA Bus, 1 - SMBus, 2 - other
endg
IO_Read dd pm2read ; In : al - addr, out : al - value
IO_Write dd pm2write ; In : al - addr, bl - value
hwm_unk db 'Not found', 0
hwm_chip_name dd hwm_unk
; NOTE !!!
; HWMProbe - ᯨ᮪, ¯à®æ¥¤ãà ¯à®¢¥àª¨ 稯®¢, § ª ­ç¨¢ ¥âáï
; ­ã«¥¢ë¬ ¤¢®©­ë¬ á«®¢®¬
; HWMGetParam - ᯨ᮪, ¯à®æ¥¤ãà ¯®«ã祭¨ï ¯ à ¬¥â஢
; ®¡  í⨠ᯨ᪠ ¤®«¦­ë ᮮ⢥âá⢮¢ âì ¤à㣠¤àã£ã ¯®
; ¯® ¯®à浪㠯à®æ¥¤ãà
HWMProbe:
dd hudson_init
; dd wb_init
; dd it87_init
; dd uGuru_init
dd 0 ; <- ª®­¥æ ᯨ᪠
HWMGetParam:
dd hudson_getparam
; dd wb_getparam
; dd it87_getparam
; dd uGuru_getparam
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
hwm_init:
; <EFBFBD>஢¥àª  ­ «¨ç¨ï ¨ ¨­¨æ¨ «¨§ æ¨ï
pusha
; ˆé¥¬ ¤ â稪¨ ­  設¥ ISA
; call isaInit
; jc @f
call chips_probe
; cmp byte[hwm_enable], 0
; jne .exit
;@@: call isaClose
; ˆé¥¬ ¤ â稪¨ ­  設¥ SMBus
; inc byte [acc_type]
;if SMBus eq yes
; call smbInit
; jc @f
; call chips_probe
; cmp byte[hwm_enable], 0
; jne .exit
;@@: call smbClose
;end if
; ˆé¥¬ ¤ â稪¨ ­  ᮡá⢥­­®© 設¥ (LPC etc)
; inc byte [acc_type]
; call chips_probe
mov [acc_type], 2 ; bus type = 'other'
.exit: popa
ret
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
chips_probe:
; <EFBFBD> å®¤¨¬ ­ã¦­ë© 稯
; Out : hwm_enable = !0 if found, else hwm_enable not changed
cld ; Paranoia
mov esi, HWMProbe
@@: lodsd
test eax, eax
jz @f ; Š®­¥æ ᯨ᪠
call eax
jc @b
sub esi, HWMProbe
shr esi, 2
mov dword[hwm_enable], esi
@@: ret
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
hwm_get_params:
pusha
mov eax, [hwm_enable]
test eax, eax
jz @f
dec eax
sal eax, 2
call dword[eax + HWMGetParam]
@@: popa
ret
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
; ISA interface
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
pm2read:
push edx
mov dx, 0xCD0 ; 0x295
out dx, al
inc edx
in al, dx
pop edx
ret
pm2write:
push edx
mov dx, 0xCD0 ; 295
out dx, al
inc edx
mov al, bl
out dx, al
pop edx
ret
isaInit:
ret
isaClose:
ret