Changeset 1322
- Timestamp:
- 02/16/02 17:41:54 (11 years ago)
- Location:
- lm-sensors/trunk/prog
- Files:
-
- 2 modified
-
eeprom/decode-dimms.pl (modified) (8 diffs)
-
xeon/decode-xeon.pl (modified) (8 diffs)
Legend:
- Unmodified
- Added
- Removed
-
lm-sensors/trunk/prog/eeprom/decode-dimms.pl
r881 r1322 101 101 Written by Philip Edelbrock. Copyright 1998, 1999. 102 102 Modified by Christian Zuckschwerdt <zany@triq.net> 103 Version 0.6103 Version 2.6.3 104 104 '; 105 105 … … 124 124 prints "The Following is Required Data and is Applicable to all DIMM Types"; 125 125 126 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/ data0-15`;126 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/00`; 127 127 @bytes=split(" "); 128 128 for $j ( 0 .. 15 ) { $dimm_checksum = $dimm_checksum + $bytes[$j]; } … … 227 227 228 228 # Decode next 16 bytes 229 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/ data16-31`;229 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/10`; 230 230 @bytes=split(" "); 231 231 for $j ( 0 .. 15 ) { $dimm_checksum = $dimm_checksum + $bytes[$j]; } … … 378 378 379 379 # Decode next 16 bytes (32-47) 380 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/ data32-47`;380 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/20`; 381 381 @bytes=split(" "); 382 382 for $j ( 0 .. 15 ) { $dimm_checksum = $dimm_checksum + $bytes[$j]; } … … 402 402 # That's it for the lower part of an SDRAM EEPROM's memory! 403 403 # Decode next 16 bytes (48-63) 404 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/ data48-63`;404 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/30`; 405 405 @bytes=split(" "); 406 406 for $j ( 0 .. 14 ) { $dimm_checksum = $dimm_checksum + $bytes[$j]; } … … 412 412 413 413 # Decode next 16 bytes (64-79) 414 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/ data64-79`;414 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/40`; 415 415 @bytes=split(" "); 416 416 … … 428 428 $l = "Manufacurer's Part Number:\""; 429 429 # Decode next 16 bytes (80-95) 430 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/ data80-95`;430 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/50`; 431 431 @bytes2=split(" "); 432 432 $temp = pack("cccccccccccccccccc",$bytes[9],$bytes[10],$bytes[11],$bytes[12],$bytes[13],$bytes[14],$bytes[15], … … 444 444 $l = "Assembly Serial Number"; 445 445 # Decode next 16 bytes (96-111) 446 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/ data96-111`;446 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/60`; 447 447 @bytes=split(" "); 448 448 449 449 $temp = sprintf("0x%.2X%.2X%.2X%.2X\n",$bytes2[15],$bytes[0],$bytes[1],$bytes[2]); 450 450 # Decode next 16 bytes (112-127) 451 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/ data112-127`;451 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/70`; 452 452 @bytes=split(" "); 453 453 -
lm-sensors/trunk/prog/xeon/decode-xeon.pl
r688 r1322 34 34 print "Xeon Processor Information ROM Decoder\n"; 35 35 print "Written by Philip Edelbrock and Mark Studebaker. Copyright 1998, 1999.\n"; 36 print "Version 0.1\n\n";36 print "Version 2.6.3\n\n"; 37 37 38 38 $dimm_count=0; … … 53 53 print "\t\t----=== Xeon ROM Header Data ===----\n"; 54 54 55 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/ data0-15`;55 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/00`; 56 56 @bytes=split(" "); 57 57 … … 74 74 75 75 # Decode next 16 bytes 76 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/ data16-31`;76 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/10`; 77 77 @bbytes=split(" "); 78 78 print "\tS-spec/QDF Number:\t\t\t\t\""; … … 103 103 104 104 # Decode next 16 bytes (32-47) 105 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/ data32-47`;105 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/20`; 106 106 @bytes=split(" "); 107 107 print "\tCore Voltage ID (mV):\t\t\t\t"; … … 133 133 134 134 # Decode next 16 bytes (48-63) 135 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/ data48-63`;135 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/30`; 136 136 @bytes=split(" "); 137 137 … … 156 156 157 157 # Decode next 16 bytes (64-79) 158 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/ data64-79`;158 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/40`; 159 159 @bytes=split(" "); 160 160 … … 167 167 168 168 # Decode next 16 bytes (80-95) 169 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/ data80-95`;169 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/50`; 170 170 @bbytes=split(" "); 171 171 printf("\tProcessor Electronic Signature: \t\t0x%.2X%.2X%.2X%.2X%.2X%.2X%.2X%.2X\n", … … 177 177 178 178 # Decode next 16 bytes (112-127) 179 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/ data112-127`;179 $_=`cat /proc/sys/dev/sensors/$dimm_list[$i]/70`; 180 180 @bytes=split(" "); 181 181
