diff --git a/prog/eeprom/decode-dimms.pl b/prog/eeprom/decode-dimms.pl index d02f0b9e..1725fa76 100755 --- a/prog/eeprom/decode-dimms.pl +++ b/prog/eeprom/decode-dimms.pl @@ -100,7 +100,7 @@ printh ' PC DIMM Serial Presence Detect Tester/Decoder Written by Philip Edelbrock. Copyright 1998, 1999. Modified by Christian Zuckschwerdt -Version 0.6 +Version 2.6.3 '; print "\n" if $opt_html; @@ -123,7 +123,7 @@ for $i ( 0 .. $#dimm_list ) { # Decode first 16 bytes prints "The Following is Required Data and is Applicable to all DIMM Types"; - $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/data0-15`; + $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/00`; @bytes=split(" "); for $j ( 0 .. 15 ) { $dimm_checksum = $dimm_checksum + $bytes[$j]; } @@ -226,7 +226,7 @@ for $i ( 0 .. $#dimm_list ) { prints "The Following Apply to SDRAM DIMMs ONLY"; # Decode next 16 bytes - $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/data16-31`; + $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/10`; @bytes=split(" "); for $j ( 0 .. 15 ) { $dimm_checksum = $dimm_checksum + $bytes[$j]; } @@ -377,7 +377,7 @@ for $i ( 0 .. $#dimm_list ) { # Decode next 16 bytes (32-47) - $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/data32-47`; + $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/20`; @bytes=split(" "); for $j ( 0 .. 15 ) { $dimm_checksum = $dimm_checksum + $bytes[$j]; } @@ -401,7 +401,7 @@ for $i ( 0 .. $#dimm_list ) { # That's it for the lower part of an SDRAM EEPROM's memory! # Decode next 16 bytes (48-63) - $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/data48-63`; + $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/30`; @bytes=split(" "); for $j ( 0 .. 14 ) { $dimm_checksum = $dimm_checksum + $bytes[$j]; } @@ -411,7 +411,7 @@ for $i ( 0 .. $#dimm_list ) { printl $l, $temp; # Decode next 16 bytes (64-79) - $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/data64-79`; + $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/40`; @bytes=split(" "); $l = "Manufacturer's JEDEC ID Code"; @@ -427,7 +427,7 @@ for $i ( 0 .. $#dimm_list ) { $l = "Manufacurer's Part Number:\""; # Decode next 16 bytes (80-95) - $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/data80-95`; + $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/50`; @bytes2=split(" "); $temp = pack("cccccccccccccccccc",$bytes[9],$bytes[10],$bytes[11],$bytes[12],$bytes[13],$bytes[14],$bytes[15], $bytes2[0],$bytes2[1],$bytes2[2],$bytes2[3],$bytes2[4],$bytes2[5],$bytes2[6],$bytes2[7],$bytes2[8],$bytes2[9]); @@ -443,12 +443,12 @@ for $i ( 0 .. $#dimm_list ) { $l = "Assembly Serial Number"; # Decode next 16 bytes (96-111) - $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/data96-111`; + $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/60`; @bytes=split(" "); $temp = sprintf("0x%.2X%.2X%.2X%.2X\n",$bytes2[15],$bytes[0],$bytes[1],$bytes[2]); # Decode next 16 bytes (112-127) - $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/data112-127`; + $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/70`; @bytes=split(" "); $l = "Intel Specification for Frequency"; diff --git a/prog/xeon/decode-xeon.pl b/prog/xeon/decode-xeon.pl index 1b5d859b..209730a0 100755 --- a/prog/xeon/decode-xeon.pl +++ b/prog/xeon/decode-xeon.pl @@ -33,7 +33,7 @@ print "Xeon Processor Information ROM Decoder\n"; print "Written by Philip Edelbrock and Mark Studebaker. Copyright 1998, 1999.\n"; -print "Version 0.1\n\n"; +print "Version 2.6.3\n\n"; $dimm_count=0; $_=`ls /proc/sys/dev/sensors/`; @@ -52,7 +52,7 @@ for $i ( 0 .. $#dimm_list ) { # Decode first 16 bytes print "\t\t----=== Xeon ROM Header Data ===----\n"; - $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/data0-15`; + $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/00`; @bytes=split(" "); printf("\tData Format Revision: \t\t\t\t0x%.4X\n", $bytes[0]); @@ -73,7 +73,7 @@ for $i ( 0 .. $#dimm_list ) { print "\t\t----=== Xeon ROM Processor Data ===----\n"; # Decode next 16 bytes - $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/data16-31`; + $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/10`; @bbytes=split(" "); print "\tS-spec/QDF Number:\t\t\t\t\""; print pack("cccccc",$bytes[14],$bytes[15],$bbytes[0], @@ -102,7 +102,7 @@ for $i ( 0 .. $#dimm_list ) { print "\n"; # Decode next 16 bytes (32-47) - $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/data32-47`; + $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/20`; @bytes=split(" "); print "\tCore Voltage ID (mV):\t\t\t\t"; print ($bbytes[15] << 4) + $bytes[0]; @@ -132,7 +132,7 @@ for $i ( 0 .. $#dimm_list ) { print "\n"; # Decode next 16 bytes (48-63) - $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/data48-63`; + $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/30`; @bytes=split(" "); printf("\tCache/Tag Stepping ID:\t\t\t\t0x%.2X\n", @@ -155,7 +155,7 @@ for $i ( 0 .. $#dimm_list ) { $byte15=$byte[15]; # Decode next 16 bytes (64-79) - $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/data64-79`; + $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/40`; @bytes=split(" "); print "\tProcessor BOM ID:\t\t\t\t\""; @@ -166,7 +166,7 @@ for $i ( 0 .. $#dimm_list ) { print "\"\n"; # Decode next 16 bytes (80-95) - $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/data80-95`; + $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/50`; @bbytes=split(" "); printf("\tProcessor Electronic Signature: \t\t0x%.2X%.2X%.2X%.2X%.2X%.2X%.2X%.2X\n", $bytes[13],$bytes[14],$bytes[15],$bbytes[0], @@ -176,7 +176,7 @@ for $i ( 0 .. $#dimm_list ) { # Not used... # Decode next 16 bytes (112-127) - $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/data112-127`; + $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/70`; @bytes=split(" "); print "\t\t----=== Xeon Thermal Reference Data ===----\n";