PureBasic Forums - English

Code: Select all

...
Data.i $80868C22, ?ID80868C22
...
;and 
...
ID80868C22: Data.s "Intel 8 Series/C220 Series SMBus Controller"
...

Code: Select all

;- Scan PCI-Bus for Base-Address SM-Bus. SMB is Class $0C05 in Bus0 (PCI Local Bus Specification Revision 2.3).
;- "Helle" Klaus Helbing, 21.07.2013, PB v5.10 (x64) 
;- Use WinRing0.dll/.sys or WinRing0x64.dll/.sys. DLL and SYS must be in this folder (make an EXE!)! 

Datas.l
Config_Address.l              = $0CF8
Config_Data.l                 = $0CFC
#PROCESSOR_ARCHITECTURE_AMD64 = $9

SI.SYSTEM_INFO                              ;Structure System_Info
GetSystemInfo_(@SI)

If SI\wProcessorArchitecture = #PROCESSOR_ARCHITECTURE_AMD64
  DLLOK = OpenLibrary(0, "WinRing0x64.dll") ;64-Bit-Version
 Else
  DLLOK = OpenLibrary(0, "WinRing0.dll")    ;32-Bit-Version
EndIf 

If DLLOK
  Prototype.i ProtoWinRing0_0()
  WR0_InitializeOls.ProtoWinRing0_0   = GetFunction(0, "InitializeOls")
  WR0_DeinitializeOls.ProtoWinRing0_0 = GetFunction(0, "DeinitializeOls")

  Prototype.i ProtoWinRing0_2(V1.l, V2.l)
  WR0_ReadIoPortDword.ProtoWinRing0_2 = GetFunction(0, "ReadIoPortDwordEx")  
  WR0_WriteIoPortDword.ProtoWinRing0_2 = GetFunction(0, "WriteIoPortDwordEx")

  If WR0_InitializeOls()
    Reg_Address.l = $80000000                                   ;set Bit31 
    For Device = 0 To 31
      Reg_Address & $FFFFF8FF                                   ;set Functions=0 
      For Function = 0 To 7
        WR0_WriteIoPortDword(Config_Address, Reg_Address + $A)  ;$A=Sub Class, $B=Base Class 
        WR0_ReadIoPortDword(Config_Data, @Datas)
        Datas = (Datas >> 16) & $FFFF
        If Datas = $0C05                                        ;SMB is Class $0C05
          WR0_WriteIoPortDword(Config_Address, Reg_Address + $20) ;$20=Base Address Register (4) ... 
          WR0_ReadIoPortDword(Config_Data, @Datas)
          Break 2
        EndIf
        Reg_Address + $100 
      Next    
    Next 
    WR0_DeinitializeOls()
    MessageRequester("SMB Base-Address", "$" + Hex(Datas & $FFFFFFFC))
   Else 
    MessageRequester("Error!", "No WinRing0!") 
  EndIf 
EndIf 

Code: Select all

Procedure.l GetSMBusBaseAddress()
	OnErrorGoto(?ExitDevs)
	bus.l: dev.l: func.l
	pci_address.l
	id.l
	type.b
	ClassID.l
	For bus = 0 To 255
		For dev = 0 To $1F
			For func = 0 To 7
				pci_address = ((bus & $ff)<<8) | ((dev & $1f)<<3) | (func & 7)
				id = PciConfigReadLong(pci_address, $A)
				ClassID = id & $ffff				
				If ClassID = $0C05
					lAddress = PciConfigReadLong(pci_address, $20) & $FFF0
					If lAddress = 0
						lAddress = PciConfigReadLong(pci_address, $24) & $FFF0
						If lAddress = 0
							lAddress = PciConfigReadLong(pci_address, $90) & $FFF0
							If lAddress = 0
								lAddress = PciConfigReadLong(pci_address, $94) & $FFF0
							EndIf
						EndIf
					EndIf
					If lAddress <> 0
						ProcedureReturn lAddress
					EndIf								 
				EndIf
				type = PciConfigReadChar(pci_address, $0e);
				If func =0 And (type & $80) =0 :Break: EndIf
			Next
		Next
	Next
ExitDevs:
	ProcedureReturn 0
EndProcedure

Code: Select all

int Get_NVCK804_SMBUS(BYTE * SPD,WORD BASE_ADDRESS,BYTE Slave_Address)
{
  for(int i=0;i<0x80;i++)
  {
   int error=0;
   do
     {
      outportb(BASE_ADDRESS+0x00,0xFF);
      flag=inportb(BASE_ADDRESS+0x00);
      error++;
      if(error>0x8000)
      {
         MessageBox(Application->Handle,"Reset Nvidia CK804 SMBUS Error!","nForce CK804",MB_OK|MB_ICONINFORMATION);
         return 2;
      }
     }while((flag&0x9F)!=0);

   error=0;
   outportb((BASE_ADDRESS+0x02),Slave_Address-1);
   outportb((BASE_ADDRESS+0x03),i);
   outportb((BASE_ADDRESS+0x00),0x07);
   do
   {
    error++;
    if(error>0x100)
    {
       MessageBox(Application->Handle,"Read Nvidia CK804 SMBUS Error!","nForce CK804",MB_OK|MB_ICONINFORMATION);
       return 2;
    }
    if((inportb(BASE_ADDRESS+0x01)&0x10)==0x10)
    {
       char buffer[256];
       sprintf(buffer,"No Module in channel 0x%02X!",Slave_Address-1);
       //MessageBox(Application->Handle,buffer,"nForce CK804",MB_OK|MB_ICONINFORMATION);
       return 1;
    }
    Sleep(1);
   }while(inportb(BASE_ADDRESS+0x01)!=0x80);
   SPD[i]=inportb(BASE_ADDRESS+0x04);
  }
  return 0;
  //quaere(SPD);
}

Code: Select all

Procedure.l smbCallBus(BaseAddr.l, Cmd.b, Slave.b, RW.b)
	For i=0 To $80
		error.l=0
		While (flag & $9F) <> 0
			WriteIOPortByte(BaseAddr, $FF)
			flag = ReadIOPortByte(BaseAddr)
			error + 1
			If error > $80
				Debug "i = " + Hex(i) + " / Reset Nvidia SMBUS Error!"
				ProcedureReturn 2
			EndIf
		Wend
		;Slave = Slave - 1
		error = 0
		WriteIoPortByte(BaseAddr + 2, Slave -1)
		WriteIoPortByte(BaseAddr + 3, i)
		WriteIoPortByte(BaseAddr + 0, 7)
		Delay(20)
		While ReadIOPortByte(BaseAddr + 1) <> $80
			error + 1
			If error > $100
				Debug "i = " + Hex(i) + " / Read Nvidia SMBUS Error!"
				ProcedureReturn 3
			EndIf
			If ReadIOPortByte(BaseAddr + 1) & $10 = $10
				Debug "i = " + Hex(i) + " / No Module in channel " + Hex(Slave - 1)
				ProcedureReturn 1
			EndIf
			Delay(20)
		Wend
		Debug Hex(ReadIOPortByte(BaseAddr + 4))
	Next
EndProcedure