Changeset 784

Timestamp:

03/19/00 23:06:54 (9 years ago)

Author:

mds

Message:

(mds) add ADM1025 detection. No driver.

Files:

• lm-sensors/trunk/prog/detect/sensors-detect (modified) (3 diffs)

lm-sensors/trunk/prog/detect/sensors-detect

@@ -244 +244 @@
-
-use subs qw(lm78_detect lm78_isa_detect lm78_alias_detect lm75_detect 
-
+ adm1025_detect
-            w83781d_isa_detect gl518sm_detect gl520sm_detect adm9240_detect 
-            adm1021_detect sis5595_isa_detect eeprom_detect via686a_isa_detect
@@ -400 +400 @@
-       i2c_addrs => [0x2c..0x2f],
-       i2c_detect => sub { adm9240_detect 2, @_ }
+     },
+     {
+       name => "Analog Devices ADM1025",
+#       driver => "xxxxxxx",
+       i2c_addrs => [0x2c..0x2f],
+       i2c_detect => sub { adm1025_detect 0, @_ }
-     },
-     {
@@ -1623 +1629 @@
-}
-
+# $_[0]: Chip to detect (0 = ADM1025)
+# $_[1]: A reference to the file descriptor to access this chip.
+#        We may assume an i2c_set_slave_addr was already done.
+# $_[2]: Address
+# Returns: undef if not detected, (8) if detected.
+# Registers used:
+#   0x3e: Company ID
+#   0x3f: Revision
+#   0x40: Configuration
+# Note: Detection overrules a previous LM78 or ADM9240 detection
+sub adm1025_detect
+{
+  my $reg;
+  my ($chip, $file,$addr) = @_;
+  $reg = i2c_smbus_read_byte_data($file,0x3e);
+  return unless ($chip == 0 and $reg == 0x41);
+  return unless (i2c_smbus_read_byte_data($file,0x40) & 0x80) == 0x00;
+  return unless (i2c_smbus_read_byte_data($file,0x3f) & 0xc0) == 0x20;
+  
+  return (8);
+}
+
-# $_[0]: Chip to detect
-#   (0 = ADM1021, 1 = MAX1617, 2 = MAX1617A, 3 = THMC10, 4 = LM84, 5 = GL523)