kolibrios/programs/system/gmon/hwm_uguru.inc

;
; Ghost Monitor - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; Copyright (C) 2005, 2006, 2007 Mihailov Ilia (ghost.nsk@mail.ru)
; All Right Reserved

; ABIT uGuru
;
;	Chip		Temp	Volt	Fan   ISA   SMBus    LPC
;    W83L950D(?)	 3	 11	 5     -      -       +


; uGuru ports
UGURU_CMD_PORT		equ	0x0e0
UGURU_DATA_PORT 	equ	0x0e4
; temp sensors
UGURU_CPUTEMP		equ	0x2100
UGURU_SYSTEMP		equ	0x2101
UGURU_PWMTEMP		equ	0x210f
; fans. These are placed at bank 2
SENS_CPUFAN	    	equ	0x2600
SENS_NBFAN	   	equ	0x2601
SENS_SYSFAN	   	equ	0x2602
SENS_AUXFAN1    	equ	0x2603
SENS_AUXFAN2    	equ	0x2604
; Voltage sensors
SENS_VCORE		equ	0x2103	; 3.49V max
SENS_DDRVDD		equ	0x2104	; 3.49V max
SENS_DDRVTT		equ	0x210A	; 3.49V max
SENS_NBVDD		equ	0x2108	; 3.49V max
SENS_SBVDD		equ	0x210E	; 3.49V max
SENS_HTV		equ	0x2102	; 3.49V max
SENS_AGP		equ	0x2109	; 3.49V max
SENS_5V			equ	0x2106	; 6.25V max
SENS_3V3		equ	0x2105	; 4.36V max
SENS_5VSB		equ	0x210B	; 6.25V max
SENS_3VDUAL		equ	0x210D	; 4.36V max
; Voltage ADC multipliers
MLTP_3V49		equ	0.0136862745098039
MLTP_4V36		equ	0.0170980392156863
MLTP_6V25		equ	0.0245098039215686


v_addr:	dw	SENS_VCORE, SENS_DDRVDD, SENS_DDRVTT, SENS_NBVDD, SENS_SBVDD
	dw	SENS_HTV, SENS_AGP, SENS_5V, SENS_3V3, SENS_5VSB, SENS_3VDUAL
	
v_mult:	dd	MLTP_3V49, MLTP_3V49, MLTP_3V49, MLTP_3V49, MLTP_3V49, MLTP_3V49
	dd	MLTP_3V49, MLTP_6V25, MLTP_4V36, MLTP_6V25, MLTP_4V36


msg_uguru:	db	'ABIT uGuru', 0

;-----------------------------------
uGuru_init:
; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; OUT - CF = 1 - error
	cmp	byte[acc_type], 2	; Special IO interface
	jne	.uGuru_no
	pusha
	mov	ecx, UGURU_CMD_PORT
	mov	edx, UGURU_DATA_PORT
	call	ReservePorts
	jc	.no_lpc
	in	al, UGURU_CMD_PORT
	test	al, al
	jz	@f
	cmp	al, 0xac
	jne	.bad_sig
@@:	in	al, UGURU_DATA_PORT
	test	al, al
	jz	@f
	cmp	al, 8
	jne	.bad_sig
@@:	mov	[hwm_chip_name], msg_uguru
	popa
	clc
	ret
.bad_sig:
	; popa				;
	; clc				; <- uncomment this three line, if you certain that you
	; ret				;         have ABIT uGuru but he is not defined
.no_lpc:
	mov	ecx, UGURU_CMD_PORT
	mov	edx, UGURU_DATA_PORT
	call	FreePorts
	popa
.uGuru_no:
	stc
	ret
;-----------------------------------
uGuru_getparam:
	; Temperature
	mov	ax, UGURU_CPUTEMP
	call	uGuru_ReadSensor
	mov	[hwm_temps + 0], al
	mov	ax, UGURU_SYSTEMP
	call	uGuru_ReadSensor
	mov	[hwm_temps + 1], al
	mov	ax, UGURU_PWMTEMP
	call	uGuru_ReadSensor
	mov	[hwm_temps + 2], al
	; Fan speed
	mov	ax, SENS_CPUFAN
	call	uGuru_ReadSensor
	mov	dl, 60
	mul	dl
	mov	word[hwm_rpms + 0 ], ax
	mov	ax, SENS_NBFAN
	call	uGuru_ReadSensor
	mov	dl, 60
	mul	dl
	mov	word[hwm_rpms + 4 ], ax
	mov	ax, SENS_SYSFAN
	call	uGuru_ReadSensor
	mov	dl, 60
	mul	dl
	mov	word[hwm_rpms + 8 ], ax
	mov	ax, SENS_AUXFAN1
	call	uGuru_ReadSensor
	mov	dl, 60
	mul	dl
	mov	word[hwm_rpms + 12], ax
	mov	ax, SENS_AUXFAN2
	call	uGuru_ReadSensor
	mov	dl, 60
	mul	dl
	mov	word[hwm_rpms + 16], ax
	; voltages
	cld				; Paranoia
	xor	ecx, ecx
	mov	esi, v_addr
@@:	push	ecx
	lodsw
	call	uGuru_ReadSensor
	movzx	eax, al
	fld	dword[v_mult + ecx * 4]
	push	eax
	fild	dword [esp]
	fmulp	st1, st0
	fstp	dword [hwm_voltages + ecx * 4]
	pop	eax
	pop	ecx
	inc	ecx
	cmp	ecx, 11			; <-- <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (ADC Vin)
	jne	@b

	ret
;-----------------------------------
uGuru_ReadSensor:
; Read a sensor
; In  : ax - sensorID
; Out : al - result
	mov	ebx, eax		; Ask to read from uGuru
	shr	eax, 8
	out	UGURU_DATA_PORT, al
	mov	ecx, 1000		; I guess this is to se if uGuru is ready to take a command
.is_ready:
	in	al, UGURU_DATA_PORT
	dec	ecx
	jnz	@f
	xor	al, al
	ret
@@:	cmp	al, 8
	jne	.is_ready
	mov	al, bl			; Whitch sensor to read?
	out	UGURU_CMD_PORT, al
	mov	ecx, 1000		; Wait until uGuru is ready to be read
.is_ready2:
	in	al, UGURU_DATA_PORT
	dec	ecx
	jnz	@f
	xor	al, al
	ret
@@:	cmp	al, 1
	jne	.is_ready2
	in	al, UGURU_CMD_PORT	; Read the sensor
	push	eax
	call	uGuru_Ready		; Put the chip in ready state
	pop	eax			; Return the result of the sensor
	ret
;-----------------------------------
uGuru_Ready:
; Put uGuru in ready state. uGuru will hold 0x08 at Data port and 0xAC at Command port after this.
; Out : CF = 1 - error
	; Wait until uGuru is in ready-state
	; The loop shouldn't be needed to execut more then one time
	mov	edx, 1000
.nxt:	in	al, UGURU_DATA_PORT
	cmp	al, 8
	je	.ok
	xor	al, al			; after 0x00 is written to Data port
	out	UGURU_DATA_PORT, al
	mov	ecx, 1000		; Wait until 0x09 is read at Data port
.is_ready:
	in	al, UGURU_DATA_PORT
	dec	ecx
	jnz	@f
	stc
	ret
@@:	cmp	al, 9
	jne	.is_ready
	mov	ecx, 1000		; Wait until 0xAC is read at Cmd port
.is_ready2:
	in	al, UGURU_CMD_PORT
	dec	ecx
	jnz	@f
	stc
	ret
@@:	cmp	al, 0xAC
	jne	.is_ready2
	dec	edx			; Prevent a lockup
	jnz	.nxt
	stc
	ret
.ok:	clc
	ret