kolibrios/programs/system/gmon/HWM_HUDSON.INC

;
; Ghost Monitor - <20>⨫<EFBFBD><E2A8AB><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD><EFBFBD>஢<EFBFBD><E0AEA2><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ਭ<EFBFBD><E0A8AD> <20><><EFBFBD>⥬<EFBFBD>
; Copyright (C) 2005, 2006, 2007 Mihailov Ilia (ghost.nsk@mail.ru)
; All Right Reserved

;
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⥪<EFBFBD> <20><><EFBFBD> 稯<><E7A8AF> Hudson
;
;
;
;                  | Chip name           | ID           Vin     Fanin   PWM     Temp   ISA   SMBus
msg_A50:	db 'AMD Hudson A50', 0	  ; 0x20|0x21      9        3      2       3      +      +
msg_A55:	db 'AMD Hudson A55', 0	  ; 0x20|0x21      9        3      2       3      +      +

msg_amdunk:	db 'Unknown AMD', 0 ; other, non zero ;-)

uglobal
wb_fans_num	db	0
endg

;-----------------------------------
hudson_init:
; OUT - CF = 1 - error

	mov	ebx, 0xF00C3000
	mov	eax, [ebx]
	cmp	eax, 0x17031022
	jne	.not_found	     ; not a Fusion!

	mov	byte[wb_fans_num], 3
	mov	edx, msg_A55
@@:	mov	[hwm_chip_name], edx
	mov	dword[hwm_enable],1
	mov	al, 0xE6
	mov	bl, 0x0A
	call	pm2write     ; init PWM_Control register


	clc
	ret
.not_found:  stc
	ret

;-----------------------------------
hudson_getparam:
	call	hudson_get_temp
	call	hudson_get_fan_speed
	mov	edi, hudson_coeff
	call	hudson_get_volt
	fld	dword[V12]
	fld	dword[hudson_n12v_const]
	faddp	st1, st0
	fstp	dword[V12]
	ret
;-----------------------------------
hudson_get_temp:
	; temp 1
	mov	ebx, 0xF00C3000
	mov	eax, [ebx+0xA4]
	mov	edx, eax
	shr	edx, 24
	mov	[hwm_temps], dl ; integer degrees
	mov	edx, eax
	shr	edx, 21
	and	dl, 7		; 1/8th fractions of degree
	cmp	dl, 3		; round 3/8 upto 0.4
	jb	.corrected
	inc	dl
	cmp	dl, 8		; 7/8 ~ 0.9
	jb	.corrected
	inc	dl
.corrected:
	mov	[hwm_temps + 1], dl

	; temp 2 (3 SYSTIN)
	xor	ebx, ebx
	mov	al, 0x95
	call	pm2read
	mov	bl, al
	mov	al, 0x96	 ; SB internal sensor
	call	pm2read
	mov	bh, al
	mov	[hudson_temp_read], ebx
	fild	dword[hudson_temp_read]
	fmul	dword[hudson_temp_coef]
	fidiv	dword[hudson_int_64]
	fadd	dword[hudson_temp_offs]
	fimul	dword[hudson_int_2]
	fistp	dword[hudson_temp_read]
	mov	bx, word[hudson_temp_read]
	mov	ax, bx
	xor	bh, bh
	shr	eax, 1
	mov	byte[hwm_temps + 2], al
	or	bl, 1
	jz	@f
	mov	bh, 5
	mov	byte[hwm_temps + 3], bh


	; temp 3 (VTIN)
	xor	ebx, ebx
	mov	al, 0xA1
	call	pm2read
	mov	bl, al
	mov	al, 0xA2	; temp sensor #2
	call	pm2read
	mov	bh, al
	mov	[hudson_temp_read], ebx
	fild	dword[hudson_temp_read]
	fmul	dword[hudson_temp_coef]
	fidiv	dword[hudson_int_64]
	fadd	dword[hudson_temp_offs]
	fimul	dword[hudson_int_2]
	fistp	dword[hudson_temp_read]
	mov	bx, word[hudson_temp_read]
	mov	ax, bx
	xor	bh, bh
	shr	eax, 1
	mov	byte[hwm_temps + 4], al
	or	bl, 1
	jz	@f
	mov	bh, 5
	mov	byte[hwm_temps + 5], bh


	mov	ecx, 3
	mov	esi, hwm_temps
hudson_check_temp:
	cmp	word[esi + ecx * 2 - 2], 0x057F
	jne	hudson_temp_ok
	mov	word[esi + ecx * 2 - 2], 0
hudson_temp_ok:
	loop	hudson_check_temp

	ret
;-----------------------------------
hudson_get_fan_speed:
	; fan1
	mov	al, 0x47
	call	[IO_Read]
	and	al, 0x30
	shr	al, 4
	mov	ebx, 1
	mov	cl, al
	shl	ebx, cl ; <- div1
	xor	eax, eax
	mov	al,  0x28
	call	[IO_Read]
	cmp	al, 255
	jne	@f
	xor	eax, eax	; ???
	ret			; ???
@@:	mul	ebx
	mov	ebx, eax
	mov	eax, 1350000
	xor	edx, edx
	test	ebx, ebx
	jz	.div0
	div	ebx
	mov	[hwm_rpms], eax

	mov	al, 0x47
	call	[IO_Read]
	shr	al, 6
	mov	ebx, 1
	mov	cl, al
	shl	ebx, cl ; <- div2
	xor	eax, eax
	mov	al,  0x29
	call	[IO_Read]
	cmp	al, 255
	jne	@f
	xor	eax, eax
.div0:
	ret
@@:	mul	ebx
	mov	ebx, eax
	mov	eax, 1350000
	xor	edx, edx
	test	ebx, ebx
	jz	.div0
	div	ebx
	mov	[hwm_rpms + 4], eax

	mov	al, 0x4B
	call	[IO_Read]
	shr	al, 6
	mov	ebx, 1
	mov	cl, al
	shl	ebx, cl ; <- div3
	xor	eax, eax
	mov	al,  0x2A
	call	[IO_Read]
	cmp	al, 255
	jne	@f
	xor	eax, eax
	ret
@@:	mul	ebx
	mov	ebx, eax
	mov	eax, 1350000
	xor	edx, edx
	test	ebx, ebx
	jz	.div0
	div	ebx
	mov	[hwm_rpms + 8], eax

	cmp	byte[wb_fans_num], 3
	jna	.wb_f_e

	mov	al, 0x59
	call	[IO_Read]
	and	al, 3
	mov	ebx, 1
	mov	cl, al
	shl	ebx, cl ; <- div4, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> DIV_B2
	xor	eax, eax
	mov	al,  0x3F
	call	[IO_Read]
	cmp	al, 255
	jne	@f
	xor	eax, eax
	ret
@@:	mul	ebx
	mov	ebx, eax
	mov	eax, 1350000
	xor	edx, edx
	test	ebx, ebx
	jz	.div0
	div	ebx
	mov	[hwm_rpms + 12], eax

	mov	al, 0x59
	call	[IO_Read]
	shr	al, 2
	and	al, 3
	mov	ebx, 1
	mov	cl, al
	shl	ebx, cl ; <- div5, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> DIV_B2
	xor	eax, eax
	mov	al, 0x4e	; <20>롨ࠥ<EBA1A8> bank 5
	mov	bl, 5
	call	[IO_Write]
	mov	al,  0x53
	call	[IO_Read]
	cmp	al, 255
	jne	@f
	xor	eax, eax
	ret
@@:	mul	ebx
	mov	ebx, eax
	mov	eax, 1350000
	xor	edx, edx
	test	ebx, ebx
	jz	.wb_f_e
	div	ebx
	mov	[hwm_rpms + 16], eax

.wb_f_e:
	ret
;-----------------------------------
hudson_get_volt:
	;mov    edi, wb_coeff           ; <-- possible differences for miscellaneous chip
	mov	esi, hwm_voltages
	xor	ecx, ecx
@@:	mov	eax, ecx
	add	al, 0x20
	call	[IO_Read]
	fld	dword [edi + ecx * 4]
	push	eax
	fild	dword [esp]
	fmulp	st1, st0
	fstp	dword [esi + ecx * 4]
	pop	eax
	inc	ecx
	cmp	ecx, 7
	jb	@b
	ret

align 4
hudson_coeff:	    dd 0.016		    ; Vcore
		dd 0.016		; Vin0
		dd 0.016		; Vin1 (+3.3V)
		dd 0.02688		; AVcc (+5V)
		dd 0.0608		; Vin2 (+12V)
		dd 0.0822857142857145	; -12V
		dd -0.02408		; -5V ; false

hudson_n12v_const   dd -14.9142857142857

hudson_temp_offs    dd -273.65
hudson_temp_coef    dd 0.517
hudson_temp_read    dd 0
hudson_int_2	    dd 2
hudson_int_64	    dd 64