root/i2c-tools/trunk/eeprom/decode-dimms @ 6042

Revision 6042, 64.1 KB (checked in by khali, 2 years ago)

Decode and print bus width extension of DDR3 memory modules.

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
Line 
1#!/usr/bin/perl -w
2#
3# EEPROM data decoder for SDRAM DIMM modules
4#
5# Copyright 1998, 1999 Philip Edelbrock <phil@netroedge.com>
6# modified by Christian Zuckschwerdt <zany@triq.net>
7# modified by Burkart Lingner <burkart@bollchen.de>
8# Copyright (C) 2005-2011  Jean Delvare <khali@linux-fr.org>
9#
10#    This program is free software; you can redistribute it and/or modify
11#    it under the terms of the GNU General Public License as published by
12#    the Free Software Foundation; either version 2 of the License, or
13#    (at your option) any later version.
14#
15#    This program is distributed in the hope that it will be useful,
16#    but WITHOUT ANY WARRANTY; without even the implied warranty of
17#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18#    GNU General Public License for more details.
19#
20#    You should have received a copy of the GNU General Public License
21#    along with this program; if not, write to the Free Software
22#    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
23#    MA 02110-1301 USA.
24#
25#
26# The eeprom driver must be loaded (unless option -x is used). For kernels
27# older than 2.6.0, the eeprom driver can be found in the lm-sensors package.
28#
29# References:
30# PC SDRAM Serial Presence
31# Detect (SPD) Specification, Intel,
32# 1997,1999, Rev 1.2B
33#
34# Jedec Standards 4.1.x & 4.5.x
35# http://www.jedec.org
36#
37
38require 5.004;
39
40use strict;
41use POSIX qw(ceil);
42use Fcntl qw(:DEFAULT :seek);
43use vars qw($opt_html $opt_bodyonly $opt_side_by_side $opt_merge
44            $opt_igncheck $use_sysfs $use_hexdump $sbs_col_width
45            @vendors %decode_callback $revision @dimm $current %hexdump_cache);
46
47use constant LITTLEENDIAN       => "little-endian";
48use constant BIGENDIAN          => "big-endian";
49
50$revision = '$Revision$ ($Date$)';
51$revision =~ s/\$\w+: (.*?) \$/$1/g;
52$revision =~ s/ \([^()]*\)//;
53
54@vendors = (
55["AMD", "AMI", "Fairchild", "Fujitsu",
56 "GTE", "Harris", "Hitachi", "Inmos",
57 "Intel", "I.T.T.", "Intersil", "Monolithic Memories",
58 "Mostek", "Freescale (former Motorola)", "National", "NEC",
59 "RCA", "Raytheon", "Conexant (Rockwell)", "Seeq",
60 "NXP (former Signetics, Philips Semi.)", "Synertek", "Texas Instruments", "Toshiba",
61 "Xicor", "Zilog", "Eurotechnique", "Mitsubishi",
62 "Lucent (AT&T)", "Exel", "Atmel", "SGS/Thomson",
63 "Lattice Semi.", "NCR", "Wafer Scale Integration", "IBM",
64 "Tristar", "Visic", "Intl. CMOS Technology", "SSSI",
65 "MicrochipTechnology", "Ricoh Ltd.", "VLSI", "Micron Technology",
66 "Hyundai Electronics", "OKI Semiconductor", "ACTEL", "Sharp",
67 "Catalyst", "Panasonic", "IDT", "Cypress",
68 "DEC", "LSI Logic", "Zarlink (former Plessey)", "UTMC",
69 "Thinking Machine", "Thomson CSF", "Integrated CMOS (Vertex)", "Honeywell",
70 "Tektronix", "Sun Microsystems", "SST", "ProMos/Mosel Vitelic",
71 "Infineon (former Siemens)", "Macronix", "Xerox", "Plus Logic",
72 "SunDisk", "Elan Circuit Tech.", "European Silicon Str.", "Apple Computer",
73 "Xilinx", "Compaq", "Protocol Engines", "SCI",
74 "Seiko Instruments", "Samsung", "I3 Design System", "Klic",
75 "Crosspoint Solutions", "Alliance Semiconductor", "Tandem", "Hewlett-Packard",
76 "Intg. Silicon Solutions", "Brooktree", "New Media", "MHS Electronic",
77 "Performance Semi.", "Winbond Electronic", "Kawasaki Steel", "Bright Micro",
78 "TECMAR", "Exar", "PCMCIA", "LG Semi (former Goldstar)",
79 "Northern Telecom", "Sanyo", "Array Microsystems", "Crystal Semiconductor",
80 "Analog Devices", "PMC-Sierra", "Asparix", "Convex Computer",
81 "Quality Semiconductor", "Nimbus Technology", "Transwitch", "Micronas (ITT Intermetall)",
82 "Cannon", "Altera", "NEXCOM", "QUALCOMM",
83 "Sony", "Cray Research", "AMS(Austria Micro)", "Vitesse",
84 "Aster Electronics", "Bay Networks (Synoptic)", "Zentrum or ZMD", "TRW",
85 "Thesys", "Solbourne Computer", "Allied-Signal", "Dialog",
86 "Media Vision", "Level One Communication"],
87["Cirrus Logic", "National Instruments", "ILC Data Device", "Alcatel Mietec",
88 "Micro Linear", "Univ. of NC", "JTAG Technologies", "BAE Systems",
89 "Nchip", "Galileo Tech", "Bestlink Systems", "Graychip",
90 "GENNUM", "VideoLogic", "Robert Bosch", "Chip Express",
91 "DATARAM", "United Microelec Corp.", "TCSI", "Smart Modular",
92 "Hughes Aircraft", "Lanstar Semiconductor", "Qlogic", "Kingston",
93 "Music Semi", "Ericsson Components", "SpaSE", "Eon Silicon Devices",
94 "Programmable Micro Corp", "DoD", "Integ. Memories Tech.", "Corollary Inc.",
95 "Dallas Semiconductor", "Omnivision", "EIV(Switzerland)", "Novatel Wireless",
96 "Zarlink (former Mitel)", "Clearpoint", "Cabletron", "STEC (former Silicon Technology)",
97 "Vanguard", "Hagiwara Sys-Com", "Vantis", "Celestica",
98 "Century", "Hal Computers", "Rohm Company Ltd.", "Juniper Networks",
99 "Libit Signal Processing", "Mushkin Enhanced Memory", "Tundra Semiconductor", "Adaptec Inc.",
100 "LightSpeed Semi.", "ZSP Corp.", "AMIC Technology", "Adobe Systems",
101 "Dynachip", "PNY Electronics", "Newport Digital", "MMC Networks",
102 "T Square", "Seiko Epson", "Broadcom", "Viking Components",
103 "V3 Semiconductor", "Flextronics (former Orbit)", "Suwa Electronics", "Transmeta",
104 "Micron CMS", "American Computer & Digital Components Inc", "Enhance 3000 Inc", "Tower Semiconductor",
105 "CPU Design", "Price Point", "Maxim Integrated Product", "Tellabs",
106 "Centaur Technology", "Unigen Corporation", "Transcend Information", "Memory Card Technology",
107 "CKD Corporation Ltd.", "Capital Instruments, Inc.", "Aica Kogyo, Ltd.", "Linvex Technology",
108 "MSC Vertriebs GmbH", "AKM Company, Ltd.", "Dynamem, Inc.", "NERA ASA",
109 "GSI Technology", "Dane-Elec (C Memory)", "Acorn Computers", "Lara Technology",
110 "Oak Technology, Inc.", "Itec Memory", "Tanisys Technology", "Truevision",
111 "Wintec Industries", "Super PC Memory", "MGV Memory", "Galvantech",
112 "Gadzoox Nteworks", "Multi Dimensional Cons.", "GateField", "Integrated Memory System",
113 "Triscend", "XaQti", "Goldenram", "Clear Logic",
114 "Cimaron Communications", "Nippon Steel Semi. Corp.", "Advantage Memory", "AMCC",
115 "LeCroy", "Yamaha Corporation", "Digital Microwave", "NetLogic Microsystems",
116 "MIMOS Semiconductor", "Advanced Fibre", "BF Goodrich Data.", "Epigram",
117 "Acbel Polytech Inc.", "Apacer Technology", "Admor Memory", "FOXCONN",
118 "Quadratics Superconductor", "3COM"],
119["Camintonn Corporation", "ISOA Incorporated", "Agate Semiconductor", "ADMtek Incorporated",
120 "HYPERTEC", "Adhoc Technologies", "MOSAID Technologies", "Ardent Technologies",
121 "Switchcore", "Cisco Systems, Inc.", "Allayer Technologies", "WorkX AG",
122 "Oasis Semiconductor", "Novanet Semiconductor", "E-M Solutions", "Power General",
123 "Advanced Hardware Arch.", "Inova Semiconductors GmbH", "Telocity", "Delkin Devices",
124 "Symagery Microsystems", "C-Port Corporation", "SiberCore Technologies", "Southland Microsystems",
125 "Malleable Technologies", "Kendin Communications", "Great Technology Microcomputer", "Sanmina Corporation",
126 "HADCO Corporation", "Corsair", "Actrans System Inc.", "ALPHA Technologies",
127 "Silicon Laboratories, Inc. (Cygnal)", "Artesyn Technologies", "Align Manufacturing", "Peregrine Semiconductor",
128 "Chameleon Systems", "Aplus Flash Technology", "MIPS Technologies", "Chrysalis ITS",
129 "ADTEC Corporation", "Kentron Technologies", "Win Technologies", "Tachyon Semiconductor (former ASIC Designs Inc.)",
130 "Extreme Packet Devices", "RF Micro Devices", "Siemens AG", "Sarnoff Corporation",
131 "Itautec Philco SA", "Radiata Inc.", "Benchmark Elect. (AVEX)", "Legend",
132 "SpecTek Incorporated", "Hi/fn", "Enikia Incorporated", "SwitchOn Networks",
133 "AANetcom Incorporated", "Micro Memory Bank", "ESS Technology", "Virata Corporation",
134 "Excess Bandwidth", "West Bay Semiconductor", "DSP Group", "Newport Communications",
135 "Chip2Chip Incorporated", "Phobos Corporation", "Intellitech Corporation", "Nordic VLSI ASA",
136 "Ishoni Networks", "Silicon Spice", "Alchemy Semiconductor", "Agilent Technologies",
137 "Centillium Communications", "W.L. Gore", "HanBit Electronics", "GlobeSpan",
138 "Element 14", "Pycon", "Saifun Semiconductors", "Sibyte, Incorporated",
139 "MetaLink Technologies", "Feiya Technology", "I & C Technology", "Shikatronics",
140 "Elektrobit", "Megic", "Com-Tier", "Malaysia Micro Solutions",
141 "Hyperchip", "Gemstone Communications", "Anadigm (former Anadyne)", "3ParData",
142 "Mellanox Technologies", "Tenx Technologies", "Helix AG", "Domosys",
143 "Skyup Technology", "HiNT Corporation", "Chiaro", "MDT Technologies GmbH (former MCI Computer GMBH)",
144 "Exbit Technology A/S", "Integrated Technology Express", "AVED Memory", "Legerity",
145 "Jasmine Networks", "Caspian Networks", "nCUBE", "Silicon Access Networks",
146 "FDK Corporation", "High Bandwidth Access", "MultiLink Technology", "BRECIS",
147 "World Wide Packets", "APW", "Chicory Systems", "Xstream Logic",
148 "Fast-Chip", "Zucotto Wireless", "Realchip", "Galaxy Power",
149 "eSilicon", "Morphics Technology", "Accelerant Networks", "Silicon Wave",
150 "SandCraft", "Elpida"],
151["Solectron", "Optosys Technologies", "Buffalo (former Melco)", "TriMedia Technologies",
152 "Cyan Technologies", "Global Locate", "Optillion", "Terago Communications",
153 "Ikanos Communications", "Princeton Technology", "Nanya Technology", "Elite Flash Storage",
154 "Mysticom", "LightSand Communications", "ATI Technologies", "Agere Systems",
155 "NeoMagic", "AuroraNetics", "Golden Empire", "Mushkin",
156 "Tioga Technologies", "Netlist", "TeraLogic", "Cicada Semiconductor",
157 "Centon Electronics", "Tyco Electronics", "Magis Works", "Zettacom",
158 "Cogency Semiconductor", "Chipcon AS", "Aspex Technology", "F5 Networks",
159 "Programmable Silicon Solutions", "ChipWrights", "Acorn Networks", "Quicklogic",
160 "Kingmax Semiconductor", "BOPS", "Flasys", "BitBlitz Communications",
161 "eMemory Technology", "Procket Networks", "Purple Ray", "Trebia Networks",
162 "Delta Electronics", "Onex Communications", "Ample Communications", "Memory Experts Intl",
163 "Astute Networks", "Azanda Network Devices", "Dibcom", "Tekmos",
164 "API NetWorks", "Bay Microsystems", "Firecron Ltd", "Resonext Communications",
165 "Tachys Technologies", "Equator Technology", "Concept Computer", "SILCOM",
166 "3Dlabs", "c't Magazine", "Sanera Systems", "Silicon Packets",
167 "Viasystems Group", "Simtek", "Semicon Devices Singapore", "Satron Handelsges",
168 "Improv Systems", "INDUSYS GmbH", "Corrent", "Infrant Technologies",
169 "Ritek Corp", "empowerTel Networks", "Hypertec", "Cavium Networks",
170 "PLX Technology", "Massana Design", "Intrinsity", "Valence Semiconductor",
171 "Terawave Communications", "IceFyre Semiconductor", "Primarion", "Picochip Designs Ltd",
172 "Silverback Systems", "Jade Star Technologies", "Pijnenburg Securealink",
173 "TakeMS International AG", "Cambridge Silicon Radio",
174 "Swissbit", "Nazomi Communications", "eWave System",
175 "Rockwell Collins", "Picocel Co., Ltd.", "Alphamosaic Ltd", "Sandburst",
176 "SiCon Video", "NanoAmp Solutions", "Ericsson Technology", "PrairieComm",
177 "Mitac International", "Layer N Networks", "MtekVision", "Allegro Networks",
178 "Marvell Semiconductors", "Netergy Microelectronic", "NVIDIA", "Internet Machines",
179 "Peak Electronics", "Litchfield Communication", "Accton Technology", "Teradiant Networks",
180 "Europe Technologies", "Cortina Systems", "RAM Components", "Raqia Networks",
181 "ClearSpeed", "Matsushita Battery", "Xelerated", "SimpleTech",
182 "Utron Technology", "Astec International", "AVM gmbH", "Redux Communications",
183 "Dot Hill Systems", "TeraChip"],
184["T-RAM Incorporated", "Innovics Wireless", "Teknovus", "KeyEye Communications",
185 "Runcom Technologies", "RedSwitch", "Dotcast", "Silicon Mountain Memory",
186 "Signia Technologies", "Pixim", "Galazar Networks", "White Electronic Designs",
187 "Patriot Scientific", "Neoaxiom Corporation", "3Y Power Technology", "Europe Technologies",
188 "Potentia Power Systems", "C-guys Incorporated", "Digital Communications Technology Incorporated", "Silicon-Based Technology",
189 "Fulcrum Microsystems", "Positivo Informatica Ltd", "XIOtech Corporation", "PortalPlayer",
190 "Zhiying Software", "Direct2Data", "Phonex Broadband", "Skyworks Solutions",
191 "Entropic Communications", "Pacific Force Technology", "Zensys A/S", "Legend Silicon Corp.",
192 "sci-worx GmbH", "SMSC (former Oasis Silicon Systems)", "Renesas Technology", "Raza Microelectronics",
193 "Phyworks", "MediaTek", "Non-cents Productions", "US Modular",
194 "Wintegra Ltd", "Mathstar", "StarCore", "Oplus Technologies",
195 "Mindspeed", "Just Young Computer", "Radia Communications", "OCZ",
196 "Emuzed", "LOGIC Devices", "Inphi Corporation", "Quake Technologies",
197 "Vixel", "SolusTek", "Kongsberg Maritime", "Faraday Technology",
198 "Altium Ltd.", "Insyte", "ARM Ltd.", "DigiVision",
199 "Vativ Technologies", "Endicott Interconnect Technologies", "Pericom", "Bandspeed",
200 "LeWiz Communications", "CPU Technology", "Ramaxel Technology", "DSP Group",
201 "Axis Communications", "Legacy Electronics", "Chrontel", "Powerchip Semiconductor",
202 "MobilEye Technologies", "Excel Semiconductor", "A-DATA Technology", "VirtualDigm",
203 "G Skill Intl", "Quanta Computer", "Yield Microelectronics", "Afa Technologies",
204 "KINGBOX Technology Co. Ltd.", "Ceva", "iStor Networks", "Advance Modules",
205 "Microsoft", "Open-Silicon", "Goal Semiconductor", "ARC International",
206 "Simmtec", "Metanoia", "Key Stream", "Lowrance Electronics",
207 "Adimos", "SiGe Semiconductor", "Fodus Communications", "Credence Systems Corp.",
208 "Genesis Microchip Inc.", "Vihana, Inc.", "WIS Technologies", "GateChange Technologies",
209 "High Density Devices AS", "Synopsys", "Gigaram", "Enigma Semiconductor Inc.",
210 "Century Micro Inc.", "Icera Semiconductor", "Mediaworks Integrated Systems", "O'Neil Product Development",
211 "Supreme Top Technology Ltd.", "MicroDisplay Corporation", "Team Group Inc.", "Sinett Corporation",
212 "Toshiba Corporation", "Tensilica", "SiRF Technology", "Bacoc Inc.",
213 "SMaL Camera Technologies", "Thomson SC", "Airgo Networks", "Wisair Ltd.",
214 "SigmaTel", "Arkados", "Compete IT gmbH Co. KG", "Eudar Technology Inc.",
215 "Focus Enhancements", "Xyratex"],
216["Specular Networks", "Patriot Memory", "U-Chip Technology Corp.", "Silicon Optix",
217 "Greenfield Networks", "CompuRAM GmbH", "Stargen, Inc.", "NetCell Corporation",
218 "Excalibrus Technologies Ltd", "SCM Microsystems", "Xsigo Systems, Inc.", "CHIPS & Systems Inc",
219 "Tier 1 Multichip Solutions", "CWRL Labs", "Teradici", "Gigaram, Inc.",
220 "g2 Microsystems", "PowerFlash Semiconductor", "P.A. Semi, Inc.", "NovaTech Solutions, S.A.",
221 "c2 Microsystems, Inc.", "Level5 Networks", "COS Memory AG", "Innovasic Semiconductor",
222 "02IC Co. Ltd", "Tabula, Inc.", "Crucial Technology", "Chelsio Communications",
223 "Solarflare Communications", "Xambala Inc.", "EADS Astrium", "ATO Semicon Co. Ltd.",
224 "Imaging Works, Inc.", "Astute Networks, Inc.", "Tzero", "Emulex",
225 "Power-One", "Pulse~LINK Inc.", "Hon Hai Precision Industry", "White Rock Networks Inc.",
226 "Telegent Systems USA, Inc.", "Atrua Technologies, Inc.", "Acbel Polytech Inc.",
227 "eRide Inc.","ULi Electronics Inc.", "Magnum Semiconductor Inc.", "neoOne Technology, Inc.",
228 "Connex Technology, Inc.", "Stream Processors, Inc.", "Focus Enhancements", "Telecis Wireless, Inc.",
229 "uNav Microelectronics", "Tarari, Inc.", "Ambric, Inc.", "Newport Media, Inc.", "VMTS",
230 "Enuclia Semiconductor, Inc.", "Virtium Technology Inc.", "Solid State System Co., Ltd.", "Kian Tech LLC",
231 "Artimi", "Power Quotient International", "Avago Technologies", "ADTechnology", "Sigma Designs",
232 "SiCortex, Inc.", "Ventura Technology Group", "eASIC", "M.H.S. SAS", "Micro Star International",
233 "Rapport Inc.", "Makway International", "Broad Reach Engineering Co.",
234 "Semiconductor Mfg Intl Corp", "SiConnect", "FCI USA Inc.", "Validity Sensors",
235 "Coney Technology Co. Ltd.", "Spans Logic", "Neterion Inc.", "Qimonda",
236 "New Japan Radio Co. Ltd.", "Velogix", "Montalvo Systems", "iVivity Inc.", "Walton Chaintech",
237 "AENEON", "Lorom Industrial Co. Ltd.", "Radiospire Networks", "Sensio Technologies, Inc.",
238 "Nethra Imaging", "Hexon Technology Pte Ltd", "CompuStocx (CSX)", "Methode Electronics, Inc.",
239 "Connect One Ltd.", "Opulan Technologies", "Septentrio NV", "Goldenmars Technology Inc.",
240 "Kreton Corporation", "Cochlear Ltd.", "Altair Semiconductor", "NetEffect, Inc.",
241 "Spansion, Inc.", "Taiwan Semiconductor Mfg", "Emphany Systems Inc.",
242 "ApaceWave Technologies", "Mobilygen Corporation", "Tego", "Cswitch Corporation",
243 "Haier (Beijing) IC Design Co.", "MetaRAM", "Axel Electronics Co. Ltd.", "Tilera Corporation",
244 "Aquantia", "Vivace Semiconductor", "Redpine Signals", "Octalica", "InterDigital Communications",
245 "Avant Technology", "Asrock, Inc.", "Availink", "Quartics, Inc.", "Element CXI",
246 "Innovaciones Microelectronicas", "VeriSilicon Microelectronics", "W5 Networks"],
247["MOVEKING", "Mavrix Technology, Inc.", "CellGuide Ltd.", "Faraday Technology",
248 "Diablo Technologies, Inc.", "Jennic", "Octasic", "Molex Incorporated", "3Leaf Networks",
249 "Bright Micron Technology", "Netxen", "NextWave Broadband Inc.", "DisplayLink", "ZMOS Technology",
250 "Tec-Hill", "Multigig, Inc.", "Amimon", "Euphonic Technologies, Inc.", "BRN Phoenix",
251 "InSilica", "Ember Corporation", "Avexir Technologies Corporation", "Echelon Corporation",
252 "Edgewater Computer Systems", "XMOS Semiconductor Ltd.", "GENUSION, Inc.", "Memory Corp NV",
253 "SiliconBlue Technologies", "Rambus Inc."]);
254
255$use_sysfs = -d '/sys/bus';
256
257# We consider that no data was written to this area of the SPD EEPROM if
258# all bytes read 0x00 or all bytes read 0xff
259sub spd_written(@)
260{
261        my $all_00 = 1;
262        my $all_ff = 1;
263
264        foreach my $b (@_) {
265                $all_00 = 0 unless $b == 0x00;
266                $all_ff = 0 unless $b == 0xff;
267                return 1 unless $all_00 or $all_ff;
268        }
269
270        return 0;
271}
272
273sub parity($)
274{
275        my $n = shift;
276        my $parity = 0;
277
278        while ($n) {
279                $parity++ if ($n & 1);
280                $n >>= 1;
281        }
282
283        return ($parity & 1);
284}
285
286# New encoding format (as of DDR3) for manufacturer just has a count of
287# leading 0x7F rather than all the individual bytes.  The count bytes includes
288# parity!
289sub manufacturer_ddr3($$)
290{
291        my ($count, $code) = @_;
292        return "Invalid" if parity($count) != 1;
293        return "Invalid" if parity($code) != 1;
294        return (($code & 0x7F) - 1 > $vendors[$count & 0x7F]) ? "Unknown" :
295                $vendors[$count & 0x7F][($code & 0x7F) - 1];
296}
297
298sub manufacturer(@)
299{
300        my @bytes = @_;
301        my $ai = 0;
302        my $first;
303
304        return ("Undefined", []) unless spd_written(@bytes);
305
306        while (defined($first = shift(@bytes)) && $first == 0x7F) {
307                $ai++;
308        }
309
310        return ("Invalid", []) unless defined $first;
311        return ("Invalid", [$first, @bytes]) if parity($first) != 1;
312        if (parity($ai) == 0) {
313                $ai |= 0x80;
314        }
315        return (manufacturer_ddr3($ai, $first), \@bytes);
316}
317
318sub manufacturer_data(@)
319{
320        my $hex = "";
321        my $asc = "";
322
323        return unless spd_written(@_);
324
325        foreach my $byte (@_) {
326                $hex .= sprintf("\%02X ", $byte);
327                $asc .= ($byte >= 32 && $byte < 127) ? chr($byte) : '?';
328        }
329
330        return "$hex(\"$asc\")";
331}
332
333sub part_number(@)
334{
335        my $asc = "";
336        my $byte;
337
338        while (defined ($byte = shift) && $byte >= 32 && $byte < 127) {
339                $asc .= chr($byte);
340        }
341
342        return ($asc eq "") ? "Undefined" : $asc;
343}
344
345sub cas_latencies(@)
346{
347        return "None" unless @_;
348        return join ', ', map("${_}T", sort { $b <=> $a } @_);
349}
350
351# Real printing functions
352
353sub html_encode($)
354{
355        my $text = shift;
356        $text =~ s/</\&lt;/sg;
357        $text =~ s/>/\&gt;/sg;
358        $text =~ s/\n/<br>\n/sg;
359        return $text;
360}
361
362sub same_values(@)
363{
364        my $value = shift;
365        while (@_) {
366                return 0 unless $value eq shift;
367        }
368        return 1;
369}
370
371sub real_printl($$) # print a line w/ label and values
372{
373        my ($label, @values) = @_;
374        local $_;
375        my $same_values = same_values(@values);
376
377        # If all values are N/A, don't bother printing
378        return if $values[0] eq "N/A" and $same_values;
379
380        if ($opt_html) {
381                $label = html_encode($label);
382                @values = map { html_encode($_) } @values;
383                print "<tr><td valign=top>$label</td>";
384                if ($opt_merge && $same_values) {
385                        print "<td colspan=".(scalar @values).">$values[0]</td>";
386                } else {
387                        print "<td>$_</td>" foreach @values;
388                }
389                print "</tr>\n";
390        } else {
391                if ($opt_merge && $same_values) {
392                        splice(@values, 1);
393                }
394
395                my $format = "%-47s".((" %-".$sbs_col_width."s") x (scalar @values - 1))." %s\n";
396                my $maxl = 0; # Keep track of the max number of lines
397
398                # It's a bit tricky because each value may span over more than
399                # one line. We can easily extract the values per column, but
400                # we need them per line at printing time. So we have to
401                # prepare a 2D array with all the individual string fragments.
402                my ($col, @lines);
403                for ($col = 0; $col < @values; $col++) {
404                        my @cells = split /\n/, $values[$col];
405                        $maxl = @cells if @cells > $maxl;
406                        for (my $l = 0; $l < @cells; $l++) {
407                                $lines[$l]->[$col] = $cells[$l];
408                        }
409                }
410
411                # Also make sure there are no holes in the array
412                for (my $l = 0; $l < $maxl; $l++) {
413                        for ($col = 0; $col < @values; $col++) {
414                                $lines[$l]->[$col] = ""
415                                        if not defined $lines[$l]->[$col];
416                        }
417                }
418
419                printf $format, $label, @{shift @lines};
420                printf $format, "", @{$_} foreach (@lines);
421        }
422}
423
424sub printl2($$) # print a line w/ label and value (outside a table)
425{
426        my ($label, $value) = @_;
427        if ($opt_html) {
428                $label = html_encode($label);
429                $value = html_encode($value);
430        }
431        print "$label: $value\n";
432}
433
434sub real_prints($) # print separator w/ given text
435{
436        my ($label, $ncol) = @_;
437        $ncol = 1 unless $ncol;
438        if ($opt_html) {
439                $label = html_encode($label);
440                print "<tr><td align=center colspan=".(1+$ncol)."><b>$label</b></td></tr>\n";
441        } else {
442                print "\n---=== $label ===---\n";
443        }
444}
445
446sub printh($$) # print header w/ given text
447{
448        my ($header, $sub) = @_;
449        if ($opt_html) {
450                $header = html_encode($header);
451                $sub = html_encode($sub);
452                print "<h1>$header</h1>\n";
453                print "<p>$sub</p>\n";
454        } else {
455                print "\n$header\n$sub\n";
456        }
457}
458
459sub printc($) # print comment
460{
461        my ($comment) = @_;
462        if ($opt_html) {
463                $comment = html_encode($comment);
464                print "<!-- $comment -->\n";
465        } else {
466                print "# $comment\n";
467        }
468}
469
470# Fake printing functions
471# These don't actually print anything, instead they store the desired
472# output for later processing.
473
474sub printl($$) # print a line w/ label and value
475{
476        my @output = (\&real_printl, @_);
477        push @{$dimm[$current]->{output}}, \@output;
478}
479
480sub printl_cond($$$) # same as printl but conditional
481{
482        my ($cond, $label, $value) = @_;
483        return unless $cond || $opt_side_by_side;
484        printl($label, $cond ? $value : "N/A");
485}
486
487sub prints($) # print separator w/ given text
488{
489        my @output = (\&real_prints, @_);
490        push @{$dimm[$current]->{output}}, \@output;
491}
492
493# Helper functions
494
495sub tns($) # print a time in ns
496{
497        return sprintf("%3.2f ns", $_[0]);
498}
499
500sub tns3($) # print a time in ns, with 3 decimal digits
501{
502        return sprintf("%.3f ns", $_[0]);
503}
504
505sub value_or_undefined
506{
507        my ($value, $unit) = @_;
508        return "Undefined!" unless $value;
509        $value .= " $unit" if defined $unit;
510        return $value;
511}
512
513# Common to SDR, DDR and DDR2 SDRAM
514sub sdram_voltage_interface_level($)
515{
516        my @levels = (
517                "TTL (5V tolerant)",            #  0
518                "LVTTL (not 5V tolerant)",      #  1
519                "HSTL 1.5V",                    #  2
520                "SSTL 3.3V",                    #  3
521                "SSTL 2.5V",                    #  4
522                "SSTL 1.8V",                    #  5
523        );
524       
525        return ($_[0] < @levels) ? $levels[$_[0]] : "Undefined!";
526}
527
528# Common to SDR, DDR and DDR2 SDRAM
529sub sdram_module_configuration_type($)
530{
531        my $byte = $_[0] & 0x07;
532        my @edc;
533
534        return "No Parity" if $byte == 0;
535
536        # Data ECC includes Data Parity so don't print both
537        push @edc, "Data Parity" if ($byte & 0x03) == 0x01;
538        push @edc, "Data ECC" if ($byte & 0x02);
539        # New in DDR2 specification
540        push @edc, "Address/Command Parity" if ($byte & 0x04);
541
542        return join ", ", @edc;
543}
544
545# Parameter: EEPROM bytes 0-127 (using 3-62)
546sub decode_sdr_sdram($)
547{
548        my $bytes = shift;
549        my $temp;
550
551# SPD revision
552        printl("SPD Revision", $bytes->[62]);
553
554#size computation
555
556        prints("Memory Characteristics");
557
558        my $k = 0;
559        my $ii = 0;
560
561        $ii = ($bytes->[3] & 0x0f) + ($bytes->[4] & 0x0f) - 17;
562        if (($bytes->[5] <= 8) && ($bytes->[17] <= 8)) {
563                 $k = $bytes->[5] * $bytes->[17];
564        }
565
566        if ($ii > 0 && $ii <= 12 && $k > 0) {
567                printl("Size", ((1 << $ii) * $k) . " MB");
568        } else {
569                printl("Size", "INVALID: " . $bytes->[3] . "," . $bytes->[4] . "," .
570                               $bytes->[5] . "," . $bytes->[17]);
571        }
572
573        my @cas;
574        for ($ii = 0; $ii < 7; $ii++) {
575                push(@cas, $ii + 1) if ($bytes->[18] & (1 << $ii));
576        }
577
578        my $trcd;
579        my $trp;
580        my $tras;
581        my $ctime = ($bytes->[9] >> 4) + ($bytes->[9] & 0xf) * 0.1;
582
583        $trcd = $bytes->[29];
584        $trp = $bytes->[27];;
585        $tras = $bytes->[30];
586
587        printl("tCL-tRCD-tRP-tRAS",
588                $cas[$#cas] . "-" .
589                ceil($trcd/$ctime) . "-" .
590                ceil($trp/$ctime) . "-" .
591                ceil($tras/$ctime));
592
593        if ($bytes->[3] == 0) { $temp = "Undefined!"; }
594        elsif ($bytes->[3] == 1) { $temp = "1/16"; }
595        elsif ($bytes->[3] == 2) { $temp = "2/17"; }
596        elsif ($bytes->[3] == 3) { $temp = "3/18"; }
597        else { $temp = $bytes->[3]; }
598        printl("Number of Row Address Bits", $temp);
599
600        if ($bytes->[4] == 0) { $temp = "Undefined!"; }
601        elsif ($bytes->[4] == 1) { $temp = "1/16"; }
602        elsif ($bytes->[4] == 2) { $temp = "2/17"; }
603        elsif ($bytes->[4] == 3) { $temp = "3/18"; }
604        else { $temp = $bytes->[4]; }
605        printl("Number of Col Address Bits", $temp);
606
607        printl("Number of Module Rows", value_or_undefined($bytes->[5]));
608
609        if ($bytes->[7] > 1) { $temp = "Undefined!"; }
610        else { $temp = ($bytes->[7] * 256) + $bytes->[6]; }
611        printl("Data Width", $temp);
612
613        printl("Voltage Interface Level",
614               sdram_voltage_interface_level($bytes->[8]));
615
616        printl("Module Configuration Type",
617               sdram_module_configuration_type($bytes->[11]));
618
619        printl("Refresh Rate", ddr2_refresh_rate($bytes->[12]));
620
621        if ($bytes->[13] & 0x80) { $temp = "Bank2 = 2 x Bank1"; }
622        else { $temp = "No Bank2 OR Bank2 = Bank1 width"; }
623        printl("Primary SDRAM Component Bank Config", $temp);
624        printl("Primary SDRAM Component Widths",
625               value_or_undefined($bytes->[13] & 0x7f));
626
627        if ($bytes->[14] & 0x80) { $temp = "Bank2 = 2 x Bank1"; }
628        else { $temp = "No Bank2 OR Bank2 = Bank1 width"; }
629        printl("Error Checking SDRAM Component Bank Config", $temp);
630        printl("Error Checking SDRAM Component Widths",
631               value_or_undefined($bytes->[14] & 0x7f));
632
633        printl("Min Clock Delay for Back to Back Random Access",
634               value_or_undefined($bytes->[15]));
635
636        my @array;
637        for ($ii = 0; $ii < 4; $ii++) {
638                push(@array, 1 << $ii) if ($bytes->[16] & (1 << $ii));
639        }
640        push(@array, "Page") if ($bytes->[16] & 128);
641        if (@array) { $temp = join ', ', @array; }
642        else { $temp = "None"; }
643        printl("Supported Burst Lengths", $temp);
644
645        printl("Number of Device Banks",
646               value_or_undefined($bytes->[17]));
647
648        printl("Supported CAS Latencies", cas_latencies(@cas));
649
650        @array = ();
651        for ($ii = 0; $ii < 7; $ii++) {
652                push(@array, $ii) if ($bytes->[19] & (1 << $ii));
653        }
654        if (@array) { $temp = join ', ', @array; }
655        else { $temp = "None"; }
656        printl("Supported CS Latencies", $temp);
657
658        @array = ();
659        for ($ii = 0; $ii < 7; $ii++) {
660                push(@array, $ii) if ($bytes->[20] & (1 << $ii));
661        }
662        if (@array) { $temp = join ', ', @array; }
663        else { $temp = "None"; }
664        printl("Supported WE Latencies", $temp);
665
666        my ($cycle_time, $access_time);
667
668        if (@cas >= 1) {
669                $cycle_time = "$ctime ns at CAS ".$cas[$#cas];
670
671                $temp = ($bytes->[10] >> 4) + ($bytes->[10] & 0xf) * 0.1;
672                $access_time = "$temp ns at CAS ".$cas[$#cas];
673        }
674
675        if (@cas >= 2 && spd_written(@$bytes[23..24])) {
676                $temp = $bytes->[23] >> 4;
677                if ($temp == 0) { $temp = "Undefined!"; }
678                else {
679                        $temp += 15 if $temp < 4;
680                        $temp += ($bytes->[23] & 0xf) * 0.1;
681                        $temp .= " ns";
682                }
683                $cycle_time .= "\n$temp ns at CAS ".$cas[$#cas-1];
684
685                $temp = $bytes->[24] >> 4;
686                if ($temp == 0) { $temp = "Undefined!"; }
687                else {
688                        $temp += 15 if $temp < 4;
689                        $temp += ($bytes->[24] & 0xf) * 0.1;
690                        $temp .= " ns";
691                }
692                $access_time .= "\n$temp ns at CAS ".$cas[$#cas-1];
693        }
694
695        if (@cas >= 3 && spd_written(@$bytes[25..26])) {
696                $temp = $bytes->[25] >> 2;
697                if ($temp == 0) { $temp = "Undefined!"; }
698                else {
699                        $temp += ($bytes->[25] & 0x3) * 0.25;
700                        $temp .= " ns";
701                }
702                $cycle_time .= "\n$temp ns at CAS ".$cas[$#cas-2];
703
704                $temp = $bytes->[26] >> 2;
705                if ($temp == 0) { $temp = "Undefined!"; }
706                else {
707                        $temp += ($bytes->[26] & 0x3) * 0.25;
708                        $temp .= " ns";
709                }
710                $access_time .= "\n$temp ns at CAS ".$cas[$#cas-2];
711        }
712
713        printl_cond(defined $cycle_time, "Cycle Time", $cycle_time);
714        printl_cond(defined $access_time, "Access Time", $access_time);
715
716        $temp = "";
717        if ($bytes->[21] & 1) { $temp .= "Buffered Address/Control Inputs\n"; }
718        if ($bytes->[21] & 2) { $temp .= "Registered Address/Control Inputs\n"; }
719        if ($bytes->[21] & 4) { $temp .= "On card PLL (clock)\n"; }
720        if ($bytes->[21] & 8) { $temp .= "Buffered DQMB Inputs\n"; }
721        if ($bytes->[21] & 16) { $temp .= "Registered DQMB Inputs\n"; }
722        if ($bytes->[21] & 32) { $temp .= "Differential Clock Input\n"; }
723        if ($bytes->[21] & 64) { $temp .= "Redundant Row Address\n"; }
724        if ($bytes->[21] & 128) { $temp .= "Undefined (bit 7)\n"; }
725        if ($bytes->[21] == 0) { $temp .= "(None Reported)\n"; }
726        printl("SDRAM Module Attributes", $temp);
727
728        $temp = "";
729        if ($bytes->[22] & 1) { $temp .= "Supports Early RAS# Recharge\n"; }
730        if ($bytes->[22] & 2) { $temp .= "Supports Auto-Precharge\n"; }
731        if ($bytes->[22] & 4) { $temp .= "Supports Precharge All\n"; }
732        if ($bytes->[22] & 8) { $temp .= "Supports Write1/Read Burst\n"; }
733        if ($bytes->[22] & 16) { $temp .= "Lower VCC Tolerance: 5%\n"; }
734        else { $temp .= "Lower VCC Tolerance: 10%\n"; }
735        if ($bytes->[22] & 32) { $temp .= "Upper VCC Tolerance: 5%\n"; }
736        else { $temp .= "Upper VCC Tolerance: 10%\n"; }
737        if ($bytes->[22] & 64) { $temp .= "Undefined (bit 6)\n"; }
738        if ($bytes->[22] & 128) { $temp .= "Undefined (bit 7)\n"; }
739        printl("SDRAM Device Attributes (General)", $temp);
740
741        printl("Minimum Row Precharge Time",
742               value_or_undefined($bytes->[27], "ns"));
743
744        printl("Row Active to Row Active Min",
745               value_or_undefined($bytes->[28], "ns"));
746
747        printl("RAS to CAS Delay",
748               value_or_undefined($bytes->[29], "ns"));
749
750        printl("Min RAS Pulse Width",
751               value_or_undefined($bytes->[30], "ns"));
752
753        $temp = "";
754        if ($bytes->[31] & 1) { $temp .= "4 MByte\n"; }
755        if ($bytes->[31] & 2) { $temp .= "8 MByte\n"; }
756        if ($bytes->[31] & 4) { $temp .= "16 MByte\n"; }
757        if ($bytes->[31] & 8) { $temp .= "32 MByte\n"; }
758        if ($bytes->[31] & 16) { $temp .= "64 MByte\n"; }
759        if ($bytes->[31] & 32) { $temp .= "128 MByte\n"; }
760        if ($bytes->[31] & 64) { $temp .= "256 MByte\n"; }
761        if ($bytes->[31] & 128) { $temp .= "512 MByte\n"; }
762        if ($bytes->[31] == 0) { $temp .= "(Undefined! -- None Reported!)\n"; }
763        printl("Row Densities", $temp);
764
765        $temp = (($bytes->[32] & 0x7f) >> 4) + ($bytes->[32] & 0xf) * 0.1;
766        printl_cond(($bytes->[32] & 0xf) <= 9,
767                    "Command and Address Signal Setup Time",
768                    (($bytes->[32] >> 7) ? -$temp : $temp) . " ns");
769
770        $temp = (($bytes->[33] & 0x7f) >> 4) + ($bytes->[33] & 0xf) * 0.1;
771        printl_cond(($bytes->[33] & 0xf) <= 9,
772                    "Command and Address Signal Hold Time",
773                    (($bytes->[33] >> 7) ? -$temp : $temp) . " ns");
774
775        $temp = (($bytes->[34] & 0x7f) >> 4) + ($bytes->[34] & 0xf) * 0.1;
776        printl_cond(($bytes->[34] & 0xf) <= 9, "Data Signal Setup Time",
777                    (($bytes->[34] >> 7) ? -$temp : $temp) . " ns");
778
779        $temp = (($bytes->[35] & 0x7f) >> 4) + ($bytes->[35] & 0xf) * 0.1;
780        printl_cond(($bytes->[35] & 0xf) <= 9, "Data Signal Hold Time",
781                    (($bytes->[35] >> 7) ? -$temp : $temp) . " ns");
782}
783
784# Parameter: EEPROM bytes 0-127 (using 3-62)
785sub decode_ddr_sdram($)
786{
787        my $bytes = shift;
788        my $temp;
789
790# SPD revision
791        printl_cond($bytes->[62] != 0xff, "SPD Revision",
792                    ($bytes->[62] >> 4) . "." . ($bytes->[62] & 0xf));
793
794# speed
795        prints("Memory Characteristics");
796
797        $temp = ($bytes->[9] >> 4) + ($bytes->[9] & 0xf) * 0.1;
798        my $ddrclk = 2 * (1000 / $temp);
799        my $tbits = ($bytes->[7] * 256) + $bytes->[6];
800        if (($bytes->[11] == 2) || ($bytes->[11] == 1)) { $tbits = $tbits - 8; }
801        my $pcclk = int ($ddrclk * $tbits / 8);
802        $pcclk += 100 if ($pcclk % 100) >= 50; # Round properly
803        $pcclk = $pcclk - ($pcclk % 100);
804        $ddrclk = int ($ddrclk);
805        printl("Maximum module speed", "${ddrclk}MHz (PC${pcclk})");
806
807#size computation
808        my $k = 0;
809        my $ii = 0;
810
811        $ii = ($bytes->[3] & 0x0f) + ($bytes->[4] & 0x0f) - 17;
812        if (($bytes->[5] <= 8) && ($bytes->[17] <= 8)) {
813                 $k = $bytes->[5] * $bytes->[17];
814        }
815
816        if ($ii > 0 && $ii <= 12 && $k > 0) {
817                printl("Size", ((1 << $ii) * $k) . " MB");
818        } else {
819                printl("Size", "INVALID: " . $bytes->[3] . ", " . $bytes->[4] . ", " .
820                               $bytes->[5] . ", " . $bytes->[17]);
821        }
822
823        printl("Voltage Interface Level",
824               sdram_voltage_interface_level($bytes->[8]));
825
826        printl("Module Configuration Type",
827               sdram_module_configuration_type($bytes->[11]));
828
829        printl("Refresh Rate", ddr2_refresh_rate($bytes->[12]));
830
831        my $highestCAS = 0;
832        my %cas;
833        for ($ii = 0; $ii < 7; $ii++) {
834                if ($bytes->[18] & (1 << $ii)) {
835                        $highestCAS = 1+$ii*0.5;
836                        $cas{$highestCAS}++;
837                }
838        }
839
840        my $trcd;
841        my $trp;
842        my $tras;
843        my $ctime = ($bytes->[9] >> 4) + ($bytes->[9] & 0xf) * 0.1;
844
845        $trcd = ($bytes->[29] >> 2) + (($bytes->[29] & 3) * 0.25);
846        $trp = ($bytes->[27] >> 2) + (($bytes->[27] & 3) * 0.25);
847        $tras = $bytes->[30];
848
849        printl("tCL-tRCD-tRP-tRAS",
850                $highestCAS . "-" .
851                ceil($trcd/$ctime) . "-" .
852                ceil($trp/$ctime) . "-" .
853                ceil($tras/$ctime));
854
855# latencies
856        printl("Supported CAS Latencies", cas_latencies(keys %cas));
857
858        my @array;
859        for ($ii = 0; $ii < 7; $ii++) {
860                push(@array, $ii) if ($bytes->[19] & (1 << $ii));
861        }
862        if (@array) { $temp = join ', ', @array; }
863        else { $temp = "None"; }
864        printl("Supported CS Latencies", $temp);
865
866        @array = ();
867        for ($ii = 0; $ii < 7; $ii++) {
868                push(@array, $ii) if ($bytes->[20] & (1 << $ii));
869        }
870        if (@array) { $temp = join ', ', @array; }
871        else { $temp = "None"; }
872        printl("Supported WE Latencies", $temp);
873
874# timings
875        my ($cycle_time, $access_time);
876
877        if (exists $cas{$highestCAS}) {
878                $cycle_time = "$ctime ns at CAS $highestCAS";
879                $access_time = (($bytes->[10] >> 4) * 0.1 + ($bytes->[10] & 0xf) * 0.01)
880                             . " ns at CAS $highestCAS";
881        }
882
883        if (exists $cas{$highestCAS-0.5} && spd_written(@$bytes[23..24])) {
884                $cycle_time .= "\n".(($bytes->[23] >> 4) + ($bytes->[23] & 0xf) * 0.1)
885                             . " ns at CAS ".($highestCAS-0.5);
886                $access_time .= "\n".(($bytes->[24] >> 4) * 0.1 + ($bytes->[24] & 0xf) * 0.01)
887                              . " ns at CAS ".($highestCAS-0.5);
888        }
889
890        if (exists $cas{$highestCAS-1} && spd_written(@$bytes[25..26])) {
891                $cycle_time .= "\n".(($bytes->[25] >> 4) + ($bytes->[25] & 0xf) * 0.1)
892                             . " ns at CAS ".($highestCAS-1);
893                $access_time .= "\n".(($bytes->[26] >> 4) * 0.1 + ($bytes->[26] & 0xf) * 0.01)
894                              . " ns at CAS ".($highestCAS-1);
895        }
896
897        printl_cond(defined $cycle_time, "Minimum Cycle Time", $cycle_time);
898        printl_cond(defined $access_time, "Maximum Access Time", $access_time);
899
900# module attributes
901        if ($bytes->[47] & 0x03) {
902                if (($bytes->[47] & 0x03) == 0x01) { $temp = "1.125\" to 1.25\""; }
903                elsif (($bytes->[47] & 0x03) == 0x02) { $temp = "1.7\""; }
904                elsif (($bytes->[47] & 0x03) == 0x03) { $temp = "Other"; }
905                printl("Module Height", $temp);
906        }
907}
908
909sub ddr2_sdram_ctime($)
910{
911        my $byte = shift;
912        my $ctime;
913
914        $ctime = $byte >> 4;
915        if (($byte & 0xf) <= 9) { $ctime += ($byte & 0xf) * 0.1; }
916        elsif (($byte & 0xf) == 10) { $ctime += 0.25; }
917        elsif (($byte & 0xf) == 11) { $ctime += 0.33; }
918        elsif (($byte & 0xf) == 12) { $ctime += 0.66; }
919        elsif (($byte & 0xf) == 13) { $ctime += 0.75; }
920
921        return $ctime;
922}
923
924sub ddr2_sdram_atime($)
925{
926        my $byte = shift;
927        my $atime;
928
929        $atime = ($byte >> 4) * 0.1 + ($byte & 0xf) * 0.01;
930
931        return $atime;
932}
933
934# Base, high-bit, 3-bit fraction code
935sub ddr2_sdram_rtime($$$)
936{
937        my ($rtime, $msb, $ext) = @_;
938        my @table = (0, .25, .33, .50, .66, .75);
939
940        return $rtime + $msb * 256 + $table[$ext];
941}
942
943sub ddr2_module_types($)
944{
945        my $byte = shift;
946        my @types = qw(RDIMM UDIMM SO-DIMM Micro-DIMM Mini-RDIMM Mini-UDIMM);
947        my @widths = (133.35, 133.25, 67.6, 45.5, 82.0, 82.0);
948        my @suptypes;
949        local $_;
950
951        foreach (0..5) {
952                push @suptypes, "$types[$_] ($widths[$_] mm)"
953                        if ($byte & (1 << $_));
954        }
955
956        return @suptypes;
957}
958
959# Common to SDR, DDR and DDR2 SDRAM
960sub ddr2_refresh_rate($)
961{
962        my $byte = shift;
963        my @refresh = qw(Normal Reduced Reduced Extended Extended Extended);
964        my @refresht = (15.625, 3.9, 7.8, 31.3, 62.5, 125);
965
966        return "$refresh[$byte & 0x7f] ($refresht[$byte & 0x7f] us)".
967               ($byte & 0x80 ? " - Self Refresh" : "");
968}
969
970# Parameter: EEPROM bytes 0-127 (using 3-62)
971sub decode_ddr2_sdram($)
972{
973        my $bytes = shift;
974        my $temp;
975        my $ctime;
976
977# SPD revision
978        if ($bytes->[62] != 0xff) {
979                printl("SPD Revision", ($bytes->[62] >> 4) . "." .
980                                       ($bytes->[62] & 0xf));
981        }
982
983# speed
984        prints("Memory Characteristics");
985
986        $ctime = ddr2_sdram_ctime($bytes->[9]);
987        my $ddrclk = 2 * (1000 / $ctime);
988        my $tbits = ($bytes->[7] * 256) + $bytes->[6];
989        if ($bytes->[11] & 0x03) { $tbits = $tbits - 8; }
990        my $pcclk = int ($ddrclk * $tbits / 8);
991        # Round down to comply with Jedec
992        $pcclk = $pcclk - ($pcclk % 100);
993        $ddrclk = int ($ddrclk);
994        printl("Maximum module speed", "${ddrclk}MHz (PC2-${pcclk})");
995
996#size computation
997        my $k = 0;
998        my $ii = 0;
999
1000        $ii = ($bytes->[3] & 0x0f) + ($bytes->[4] & 0x0f) - 17;
1001        $k = (($bytes->[5] & 0x7) + 1) * $bytes->[17];
1002
1003        if($ii > 0 && $ii <= 12 && $k > 0) {
1004                printl("Size", ((1 << $ii) * $k) . " MB");
1005        } else {
1006                printl("Size", "INVALID: " . $bytes->[3] . "," . $bytes->[4] . "," .
1007                               $bytes->[5] . "," . $bytes->[17]);
1008        }
1009
1010        printl("Banks x Rows x Columns x Bits",
1011               join(' x ', $bytes->[17], $bytes->[3], $bytes->[4], $bytes->[6]));
1012        printl("Ranks", ($bytes->[5] & 7) + 1);
1013
1014        printl("SDRAM Device Width", $bytes->[13]." bits");
1015
1016        my @heights = ('< 25.4', '25.4', '25.4 - 30.0', '30.0', '30.5', '> 30.5');
1017        printl("Module Height", $heights[$bytes->[5] >> 5]." mm");
1018
1019        my @suptypes = ddr2_module_types($bytes->[20]);
1020        printl("Module Type".(@suptypes > 1 ? 's' : ''), join(', ', @suptypes));
1021
1022        printl("DRAM Package", $bytes->[5] & 0x10 ? "Stack" : "Planar");
1023
1024        printl("Voltage Interface Level",
1025               sdram_voltage_interface_level($bytes->[8]));
1026
1027        printl("Module Configuration Type",
1028               sdram_module_configuration_type($bytes->[11]));
1029
1030        printl("Refresh Rate", ddr2_refresh_rate($bytes->[12]));
1031
1032        my @burst;
1033        push @burst, 4 if ($bytes->[16] & 4);
1034        push @burst, 8 if ($bytes->[16] & 8);
1035        $burst[0] = 'None' if !@burst;
1036        printl("Supported Burst Lengths", join(', ', @burst));
1037
1038        my $highestCAS = 0;
1039        my %cas;
1040        for ($ii = 2; $ii < 7; $ii++) {
1041                if ($bytes->[18] & (1 << $ii)) {
1042                        $highestCAS = $ii;
1043                        $cas{$highestCAS}++;
1044                }
1045        }
1046
1047        my $trcd;
1048        my $trp;
1049        my $tras;
1050
1051        $trcd = ($bytes->[29] >> 2) + (($bytes->[29] & 3) * 0.25);
1052        $trp = ($bytes->[27] >> 2) + (($bytes->[27] & 3) * 0.25);
1053        $tras = $bytes->[30];
1054
1055        printl("tCL-tRCD-tRP-tRAS",
1056                $highestCAS . "-" .
1057                ceil($trcd/$ctime) . "-" .
1058                ceil($trp/$ctime) . "-" .
1059                ceil($tras/$ctime));
1060
1061# latencies
1062        printl("Supported CAS Latencies (tCL)", cas_latencies(keys %cas));
1063
1064# timings
1065        my ($cycle_time, $access_time);
1066
1067        if (exists $cas{$highestCAS}) {
1068                $cycle_time = tns($ctime) . " at CAS $highestCAS (tCK min)";
1069                $access_time = tns(ddr2_sdram_atime($bytes->[10]))
1070                             . " at CAS $highestCAS (tAC)";
1071        }
1072
1073        if (exists $cas{$highestCAS-1} && spd_written(@$bytes[23..24])) {
1074                $cycle_time .= "\n".tns(ddr2_sdram_ctime($bytes->[23]))
1075                             . " at CAS ".($highestCAS-1);
1076                $access_time .= "\n".tns(ddr2_sdram_atime($bytes->[24]))
1077                              . " at CAS ".($highestCAS-1);
1078        }
1079
1080        if (exists $cas{$highestCAS-2} && spd_written(@$bytes[25..26])) {
1081                $cycle_time .= "\n".tns(ddr2_sdram_ctime($bytes->[25]))
1082                             . " at CAS ".($highestCAS-2);
1083                $access_time .= "\n".tns(ddr2_sdram_atime($bytes->[26]))
1084                              . " at CAS ".($highestCAS-2);
1085        }
1086
1087        printl_cond(defined $cycle_time, "Minimum Cycle Time", $cycle_time);
1088        printl_cond(defined $access_time, "Maximum Access Time", $access_time);
1089
1090        printl("Maximum Cycle Time (tCK max)",
1091               tns(ddr2_sdram_ctime($bytes->[43])));
1092
1093# more timing information
1094        prints("Timing Parameters");
1095        printl("Address/Command Setup Time Before Clock (tIS)",
1096               tns(ddr2_sdram_atime($bytes->[32])));
1097        printl("Address/Command Hold Time After Clock (tIH)",
1098               tns(ddr2_sdram_atime($bytes->[33])));
1099        printl("Data Input Setup Time Before Strobe (tDS)",
1100               tns(ddr2_sdram_atime($bytes->[34])));
1101        printl("Data Input Hold Time After Strobe (tDH)",
1102               tns(ddr2_sdram_atime($bytes->[35])));
1103        printl("Minimum Row Precharge Delay (tRP)", tns($trp));
1104        printl("Minimum Row Active to Row Active Delay (tRRD)",
1105               tns($bytes->[28]/4));
1106        printl("Minimum RAS# to CAS# Delay (tRCD)", tns($trcd));
1107        printl("Minimum RAS# Pulse Width (tRAS)", tns($tras));
1108        printl("Write Recovery Time (tWR)", tns($bytes->[36]/4));
1109        printl("Minimum Write to Read CMD Delay (tWTR)", tns($bytes->[37]/4));
1110        printl("Minimum Read to Pre-charge CMD Delay (tRTP)", tns($bytes->[38]/4));
1111        printl("Minimum Active to Auto-refresh Delay (tRC)",
1112               tns(ddr2_sdram_rtime($bytes->[41], 0, ($bytes->[40] >> 4) & 7)));
1113        printl("Minimum Recovery Delay (tRFC)",
1114               tns(ddr2_sdram_rtime($bytes->[42], $bytes->[40] & 1,
1115                                    ($bytes->[40] >> 1) & 7)));
1116        printl("Maximum DQS to DQ Skew (tDQSQ)", tns($bytes->[44]/100));
1117        printl("Maximum Read Data Hold Skew (tQHS)", tns($bytes->[45]/100));
1118        printl("PLL Relock Time", $bytes->[46] . " us") if ($bytes->[46]);
1119}
1120
1121# Parameter: EEPROM bytes 0-127 (using 3-76)
1122sub decode_ddr3_sdram($)
1123{
1124        my $bytes = shift;
1125        my $temp;
1126        my $ctime;
1127
1128        my @module_types = ("Undefined", "RDIMM", "UDIMM", "SO-DIMM",
1129                            "Micro-DIMM", "Mini-RDIMM", "Mini-UDIMM");
1130
1131        printl("Module Type", ($bytes->[3] <= $#module_types) ?
1132                                        $module_types[$bytes->[3]] :
1133                                        sprint("Reserved (0x%.2X)", $bytes->[3]));
1134
1135# speed
1136        prints("Memory Characteristics");
1137
1138        my $dividend = ($bytes->[9] >> 4) & 15;
1139        my $divisor  = $bytes->[9] & 15;
1140        printl("Fine time base", sprintf("%.3f", $dividend / $divisor) . " ps");
1141
1142        $dividend = $bytes->[10];
1143        $divisor  = $bytes->[11];
1144        my $mtb = $dividend / $divisor;
1145        printl("Medium time base", tns3($mtb));
1146
1147        $ctime = $bytes->[12] * $mtb;
1148        my $ddrclk = 2 * (1000 / $ctime);
1149        my $tbits = 1 << (($bytes->[8] & 7) + 3);
1150        my $pcclk = int ($ddrclk * $tbits / 8);
1151        $ddrclk = int ($ddrclk);
1152        printl("Maximum module speed", "${ddrclk}MHz (PC3-${pcclk})");
1153
1154# Size computation
1155
1156        my $cap =  ($bytes->[4]       & 15) + 28;
1157        $cap   +=  ($bytes->[8]       & 7)  + 3;
1158        $cap   -=  ($bytes->[7]       & 7)  + 2;
1159        $cap   -= 20 + 3;
1160        my $k   = (($bytes->[7] >> 3) & 31) + 1;
1161        printl("Size", ((1 << $cap) * $k) . " MB");
1162
1163        printl("Banks x Rows x Columns x Bits",
1164               join(' x ', 1 << ((($bytes->[4] >> 4) &  7) +  3),
1165                           ((($bytes->[5] >> 3) & 31) + 12),
1166                           ( ($bytes->[5]       &  7) +  9),
1167                           ( 1 << (($bytes->[8] &  7) + 3)) ));
1168        printl("Ranks", $k);
1169
1170        printl("SDRAM Device Width", (1 << (($bytes->[7] & 7) + 2))." bits");
1171
1172        printl("Bus Width Extension", ($bytes->[8] & 24)." bits");
1173
1174        my $taa;
1175        my $trcd;
1176        my $trp;
1177        my $tras;
1178
1179        $taa  = int($bytes->[16] / $bytes->[12]);
1180        $trcd = int($bytes->[18] / $bytes->[12]);
1181        $trp  = int($bytes->[20] / $bytes->[12]);
1182        $tras = int((($bytes->[21] >> 4) * 256 + $bytes->[22]) / $bytes->[12]);
1183
1184        printl("tCL-tRCD-tRP-tRAS", join("-", $taa, $trcd, $trp, $tras));
1185
1186# latencies
1187        my $highestCAS = 0;
1188        my %cas;
1189        my $ii;
1190        my $cas_sup = ($bytes->[15] << 8) + $bytes->[14];
1191        for ($ii = 0; $ii < 15; $ii++) {
1192                if ($cas_sup & (1 << $ii)) {
1193                        $highestCAS = $ii + 4;
1194                        $cas{$highestCAS}++;
1195                }
1196        }
1197        printl("Supported CAS Latencies (tCL)", cas_latencies(keys %cas));
1198
1199# more timing information
1200        prints("Timing Parameters");
1201
1202        printl("Minimum Write Recovery time (tWR)", tns3($bytes->[17] * $mtb));
1203        printl("Minimum Row Active to Row Active Delay (tRRD)",
1204                tns3($bytes->[19] * $mtb));
1205        printl("Minimum Active to Auto-Refresh Delay (tRC)",
1206                tns3((((($bytes->[21] >> 4) & 15) << 8) + $bytes->[23]) * $mtb));
1207        printl("Minimum Recovery Delay (tRFC)",
1208                tns3((($bytes->[25] << 8) + $bytes->[24]) * $mtb));
1209        printl("Minimum Write to Read CMD Delay (tWTR)",
1210                tns3($bytes->[26] * $mtb));
1211        printl("Minimum Read to Pre-charge CMD Delay (tRTP)",
1212                tns3($bytes->[27] * $mtb));
1213        printl("Minimum Four Activate Window Delay (tFAW)",
1214                tns3(((($bytes->[28] & 15) << 8) + $bytes->[29]) * $mtb));
1215
1216# miscellaneous stuff
1217        prints("Optional Features");
1218
1219        my $volts = "1.5V";
1220        if ($bytes->[6] & 1) {
1221                $volts .= " tolerant";
1222        }
1223        if ($bytes->[6] & 2) {
1224                $volts .= ", 1.35V ";
1225        }
1226        if ($bytes->[6] & 4) {
1227                $volts .= ", 1.2X V";
1228        }
1229        printl("Operable voltages", $volts);
1230        printl("RZQ/6 supported?", ($bytes->[30] & 1) ? "Yes" : "No");
1231        printl("RZQ/7 supported?", ($bytes->[30] & 2) ? "Yes" : "No");
1232        printl("DLL-Off Mode supported?", ($bytes->[30] & 128) ? "Yes" : "No");
1233        printl("Operating temperature range", sprintf "0-%dC",
1234                ($bytes->[31] & 1) ? 95 : 85);
1235        printl("Refresh Rate in extended temp range",
1236                ($bytes->[31] & 2) ? "2X" : "1X");
1237        printl("Auto Self-Refresh?", ($bytes->[31] & 4) ? "Yes" : "No");
1238        printl("On-Die Thermal Sensor readout?",
1239                ($bytes->[31] & 8) ? "Yes" : "No");
1240        printl("Partial Array Self-Refresh?",
1241                ($bytes->[31] & 128) ? "Yes" : "No");
1242        printl("Thermal Sensor Accuracy",
1243                ($bytes->[32] & 128) ? sprintf($bytes->[32] & 127) :
1244                                        "Not implemented");
1245        printl("SDRAM Device Type",
1246                ($bytes->[33] & 128) ? sprintf($bytes->[33] & 127) :
1247                                        "Standard Monolithic");
1248        if ($bytes->[3] >= 1 && $bytes->[3] <= 6) {
1249
1250                prints("Physical Characteristics");
1251                printl("Module Height (mm)", ($bytes->[60] & 31) + 15);
1252                printl("Module Thickness (mm)", sprintf("%d front, %d back",
1253                                                ($bytes->[61] & 15) + 1,
1254                                                (($bytes->[61] >> 4) & 15) +1));
1255                printl("Module Width (mm)", ($bytes->[3] <= 2) ? 133.5 :
1256                                        ($bytes->[3] == 3) ? 67.6 : "TBD");
1257
1258                my $alphabet = "ABCDEFGHJKLMNPRTUVWY";
1259                my $ref = $bytes->[62] & 31;
1260                my $ref_card;
1261                if ($ref == 31) {
1262                        $ref_card = "ZZ";
1263                } else {
1264                        if ($bytes->[62] & 128) {
1265                                $ref += 31;
1266                        }
1267                        if ($ref < length $alphabet) {
1268                                $ref_card = substr $alphabet, $ref, 1;
1269                        } else {
1270                                my $ref1 = int($ref / (length $alphabet));
1271                                $ref -= (length $alphabet) * $ref1;
1272                                $ref_card = (substr $alphabet, $ref1, 1) .
1273                                            (substr $alphabet, $ref, 1);
1274                        }
1275                }
1276                printl("Module Reference Card", $ref_card);
1277        }
1278        if ($bytes->[3] == 1 || $bytes->[3] == 5) {
1279                prints("Registered DIMM");
1280
1281                my @rows = ("Undefined", 1, 2, 4);
1282                printl("# DRAM Rows", $rows[($bytes->[63] >> 2) & 3]);
1283                printl("# Registers", $rows[$bytes->[63] & 3]);
1284                printl("Register manufacturer",
1285                        manufacturer_ddr3($bytes->[65], $bytes->[66]));
1286                printl("Register device type",
1287                                (($bytes->[68] & 7) == 0) ? "SSTE32882" :
1288                                        "Undefined");
1289                printl("Register revision", sprintf("0x%.2X", $bytes->[67]));
1290                printl("Heat spreader characteristics",
1291                                ($bytes->[64] < 128) ? "Not incorporated" :
1292                                        sprintf("%.2X", ($bytes->[64] & 127)));
1293                my $regs;
1294                for (my $i = 0; $i < 8; $i++) {
1295                        $regs = sprintf("SSTE32882 RC%d/RC%d",
1296                                        $i * 2, $i * 2 + 1);
1297                        printl($regs, sprintf("%.2X", $bytes->[$i + 69]));
1298                }
1299        }
1300}
1301
1302# Parameter: EEPROM bytes 0-127 (using 4-5)
1303sub decode_direct_rambus($)
1304{
1305        my $bytes = shift;
1306
1307#size computation
1308        prints("Memory Characteristics");
1309
1310        my $ii;
1311
1312        $ii = ($bytes->[4] & 0x0f) + ($bytes->[4] >> 4) + ($bytes->[5] & 0x07) - 13;
1313
1314        if ($ii > 0 && $ii < 16) {
1315                printl("Size", (1 << $ii) . " MB");
1316        } else {
1317                printl("Size", sprintf("INVALID: 0x%02x, 0x%02x",
1318                                       $bytes->[4], $bytes->[5]));
1319        }
1320}
1321
1322# Parameter: EEPROM bytes 0-127 (using 3-5)
1323sub decode_rambus($)
1324{
1325        my $bytes = shift;
1326
1327#size computation
1328        prints("Memory Characteristics");
1329
1330        my $ii;
1331
1332        $ii = ($bytes->[3] & 0x0f) + ($bytes->[3] >> 4) + ($bytes->[5] & 0x07) - 13;
1333
1334        if ($ii > 0 && $ii < 16) {
1335                printl("Size", (1 << $ii) . " MB");
1336        } else {
1337                printl("Size", "INVALID: " . sprintf("0x%02x, 0x%02x",
1338                                               $bytes->[3], $bytes->[5]));
1339        }
1340}
1341
1342%decode_callback = (
1343        "SDR SDRAM"     => \&decode_sdr_sdram,
1344        "DDR SDRAM"     => \&decode_ddr_sdram,
1345        "DDR2 SDRAM"    => \&decode_ddr2_sdram,
1346        "DDR3 SDRAM"    => \&decode_ddr3_sdram,
1347        "Direct Rambus" => \&decode_direct_rambus,
1348        "Rambus"        => \&decode_rambus,
1349);
1350
1351# Parameter: Manufacturing year/week bytes
1352sub manufacture_date($$)
1353{
1354        my ($year, $week) = @_;
1355
1356        # In theory the year and week are in BCD format, but
1357        # this is not always true in practice :(
1358        if (($year & 0xf0) <= 0x90 && ($year & 0x0f) <= 0x09
1359         && ($week & 0xf0) <= 0x90 && ($week & 0x0f) <= 0x09) {
1360                # Note that this heuristic will break in year 2080
1361                return sprintf("%d%02X-W%02X",
1362                                $year >= 0x80 ? 19 : 20, $year, $week);
1363        # Fallback to binary format if it seems to make sense
1364        } elsif ($year <= 99 && $week >= 1 && $week <= 53) {
1365                return sprintf("%d%02d-W%02d",
1366                                $year >= 80 ? 19 : 20, $year, $week);
1367        } else {
1368                return sprintf("0x%02X%02X", $year, $week);
1369        }
1370}
1371
1372sub printl_mfg_location_code($)
1373{
1374        my $code = shift;
1375        my $letter = chr($code);
1376
1377        # Try the location code as ASCII first, as earlier specifications
1378        # suggested this. As newer specifications don't mention it anymore,
1379        # we still fall back to binary.
1380        printl_cond(spd_written($code), "Manufacturing Location Code",
1381                    $letter =~ m/^[\w\d]$/ ? $letter : sprintf("0x%.2X", $code));
1382}
1383
1384sub printl_mfg_assembly_serial(@)
1385{
1386        printl_cond(spd_written(@_), "Assembly Serial Number",
1387                    sprintf("0x%02X%02X%02X%02X", @_));
1388}
1389
1390# Parameter: EEPROM bytes 0-175 (using 117-149)
1391sub decode_ddr3_mfg_data($)
1392{
1393        my $bytes = shift;
1394
1395        prints("Manufacturer Data");
1396
1397        printl("Module Manufacturer",
1398               manufacturer_ddr3($bytes->[117], $bytes->[118]));
1399
1400        if (spd_written(@{$bytes}[148..149])) {
1401                printl("DRAM Manufacturer",
1402                       manufacturer_ddr3($bytes->[148], $bytes->[149]));
1403        }
1404
1405        printl_mfg_location_code($bytes->[119]);
1406
1407        if (spd_written(@{$bytes}[120..121])) {
1408                printl("Manufacturing Date",
1409                       manufacture_date($bytes->[120], $bytes->[121]));
1410        }
1411
1412        printl_mfg_assembly_serial(@{$bytes}[122..125]);
1413
1414        printl("Part Number", part_number(@{$bytes}[128..145]));
1415
1416        if (spd_written(@{$bytes}[146..147])) {
1417                printl("Revision Code",
1418                       sprintf("0x%02X%02X", $bytes->[146], $bytes->[147]));
1419        }
1420}
1421
1422# Parameter: EEPROM bytes 0-127 (using 64-98)
1423sub decode_manufacturing_information($)
1424{
1425        my $bytes = shift;
1426        my ($temp, $extra);
1427
1428        prints("Manufacturing Information");
1429
1430        # $extra is a reference to an array containing up to
1431        # 7 extra bytes from the Manufacturer field. Sometimes
1432        # these bytes are filled with interesting data.
1433        ($temp, $extra) = manufacturer(@{$bytes}[64..71]);
1434        printl("Manufacturer", $temp);
1435        $temp = manufacturer_data(@{$extra});
1436        printl_cond(defined $temp, "Custom Manufacturer Data", $temp);
1437
1438        printl_mfg_location_code($bytes->[72]);
1439
1440        printl("Part Number", part_number(@{$bytes}[73..90]));
1441
1442        printl_cond(spd_written(@{$bytes}[91..92]), "Revision Code",
1443                    sprintf("0x%02X%02X", @{$bytes}[91..92]));
1444
1445        printl_cond(spd_written(@{$bytes}[93..94]), "Manufacturing Date",
1446               manufacture_date($bytes->[93], $bytes->[94]));
1447
1448        printl_mfg_assembly_serial(@{$bytes}[95..98]);
1449}
1450
1451# Parameter: EEPROM bytes 0-127 (using 126-127)
1452sub decode_intel_spec_freq($)
1453{
1454        my $bytes = shift;
1455        my $temp;
1456
1457        prints("Intel Specification");
1458
1459        if ($bytes->[126] == 0x66) { $temp = "66MHz"; }
1460        elsif ($bytes->[126] == 100) { $temp = "100MHz or 133MHz"; }
1461        elsif ($bytes->[126] == 133) { $temp = "133MHz"; }
1462        else { $temp = "Undefined!"; }
1463        printl("Frequency", $temp);
1464
1465        $temp = "";
1466        if ($bytes->[127] & 1) { $temp .= "Intel Concurrent Auto-precharge\n"; }
1467        if ($bytes->[127] & 2) { $temp .= "CAS Latency = 2\n"; }
1468        if ($bytes->[127] & 4) { $temp .= "CAS Latency = 3\n"; }
1469        if ($bytes->[127] & 8) { $temp .= "Junction Temp A (100 degrees C)\n"; }
1470        else { $temp .= "Junction Temp B (90 degrees C)\n"; }
1471        if ($bytes->[127] & 16) { $temp .= "CLK 3 Connected\n"; }
1472        if ($bytes->[127] & 32) { $temp .= "CLK 2 Connected\n"; }
1473        if ($bytes->[127] & 64) { $temp .= "CLK 1 Connected\n"; }
1474        if ($bytes->[127] & 128) { $temp .= "CLK 0 Connected\n"; }
1475        if (($bytes->[127] & 192) == 192) { $temp .= "Double-sided DIMM\n"; }
1476        elsif (($bytes->[127] & 192) != 0) { $temp .= "Single-sided DIMM\n"; }
1477        printl("Details for 100MHz Support", $temp);
1478}
1479
1480# Read various hex dump style formats: hexdump, hexdump -C, i2cdump, eeprog
1481# note that normal 'hexdump' format on a little-endian system byte-swaps
1482# words, using hexdump -C is better.
1483sub read_hexdump($)
1484{
1485        my $addr = 0;
1486        my $repstart = 0;
1487        my @bytes;
1488        my $header = 1;
1489        my $word = 0;
1490
1491        # Look in the cache first
1492        return @{$hexdump_cache{$_[0]}} if exists $hexdump_cache{$_[0]};
1493
1494        open F, '<', $_[0] or die "Unable to open: $_[0]";
1495        while (<F>) {
1496                chomp;
1497                if (/^\*$/) {
1498                        $repstart = $addr;
1499                        next;
1500                }
1501                /^(?:0000 )?([a-f\d]{2,8}):?\s+((:?[a-f\d]{4}\s*){8}|(:?[a-f\d]{2}\s*){16})/i ||
1502                /^(?:0000 )?([a-f\d]{2,8}):?\s*$/i;
1503                next if (!defined $1 && $header);               # skip leading unparsed lines
1504
1505                defined $1 or die "Unable to parse input";
1506                $header = 0;
1507
1508                $addr = hex $1;
1509                if ($repstart) {
1510                        @bytes[$repstart .. ($addr-1)] =
1511                                (@bytes[($repstart-16)..($repstart-1)]) x (($addr-$repstart)/16);
1512                        $repstart = 0;
1513                }
1514                last unless defined $2;
1515                foreach (split(/\s+/, $2)) {
1516                        if (/^(..)(..)$/) {
1517                                $word |= 1;
1518                                if ($use_hexdump eq LITTLEENDIAN) {
1519                                        $bytes[$addr++] = hex($2);
1520                                        $bytes[$addr++] = hex($1);
1521                                } else {
1522                                        $bytes[$addr++] = hex($1);
1523                                        $bytes[$addr++] = hex($2);
1524                                }
1525                        } else {
1526                                $bytes[$addr++] = hex($_);
1527                        }
1528                }
1529        }
1530        close F;
1531        $header and die "Unable to parse any data from hexdump '$_[0]'";
1532        $word and printc("Using $use_hexdump 16-bit hex dump");
1533
1534        # Cache the data for later use
1535        $hexdump_cache{$_[0]} = \@bytes;
1536        return @bytes;
1537}
1538
1539# Returns the (total, used) number of bytes in the EEPROM,
1540# assuming it is a non-Rambus SPD EEPROM.
1541sub spd_sizes($)
1542{
1543        my $bytes = shift;
1544
1545        if ($bytes->[2] >= 9) {
1546                # For FB-DIMM and newer, decode number of bytes written
1547                my $spd_len = ($bytes->[0] >> 4) & 7;
1548                my $size = 64 << ($bytes->[0] & 15);
1549                if ($spd_len == 0) {
1550                        return ($size, 128);
1551                } elsif ($spd_len == 1) {
1552                        return ($size, 176);
1553                } elsif ($spd_len == 2) {
1554                        return ($size, 256);
1555                } else {
1556                        return (64, 64);
1557                }
1558        } else {
1559                my $size;
1560                if ($bytes->[1] <= 14) {
1561                        $size = 1 << $bytes->[1];
1562                } elsif ($bytes->[1] == 0) {
1563                        $size = "RFU";
1564                } else { $size = "ERROR!" }
1565
1566                return ($size, ($bytes->[0] < 64) ? 64 : $bytes->[0]);
1567        }
1568}
1569
1570# Read bytes from SPD-EEPROM
1571# Note: offset must be a multiple of 16!
1572sub readspd($$$)
1573{
1574        my ($offset, $size, $dimm_i) = @_;
1575        my @bytes;
1576        if ($use_hexdump) {
1577                @bytes = read_hexdump($dimm_i);
1578                return @bytes[$offset..($offset + $size - 1)];
1579        } elsif ($use_sysfs) {
1580                # Kernel 2.6 with sysfs
1581                sysopen(HANDLE, "$dimm_i/eeprom", O_RDONLY)
1582                        or die "Cannot open $dimm_i/eeprom";
1583                binmode HANDLE;
1584                sysseek(HANDLE, $offset, SEEK_SET)
1585                        or die "Cannot seek $dimm_i/eeprom";
1586                sysread(HANDLE, my $eeprom, $size)
1587                        or die "Cannot read $dimm_i/eeprom";
1588                close HANDLE;
1589                @bytes = unpack("C*", $eeprom);
1590        } else {
1591                # Kernel 2.4 with procfs
1592                for my $i (0 .. ($size-1)/16) {
1593                        my $hexoff = sprintf('%02x', $offset + $i * 16);
1594                        push @bytes, split(" ", `cat $dimm_i/$hexoff`);
1595                }
1596        }
1597        return @bytes;
1598}
1599
1600# Calculate and verify checksum of first 63 bytes
1601sub checksum($)
1602{
1603        my $bytes = shift;
1604        my $dimm_checksum = 0;
1605        local $_;
1606
1607        $dimm_checksum += $bytes->[$_] foreach (0 .. 62);
1608        $dimm_checksum &= 0xff;
1609
1610        return ("EEPROM Checksum of bytes 0-62",
1611                ($bytes->[63] == $dimm_checksum) ? 1 : 0,
1612                sprintf('0x%02X', $bytes->[63]),
1613                sprintf('0x%02X', $dimm_checksum));
1614}
1615
1616# Calculate and verify CRC
1617sub check_crc($)
1618{
1619        my $bytes = shift;
1620        my $crc = 0;
1621        my $crc_cover = $bytes->[0] & 0x80 ? 116 : 125;
1622        my $crc_ptr = 0;
1623        my $crc_bit;
1624
1625        while ($crc_ptr <= $crc_cover) {
1626                $crc = $crc ^ ($bytes->[$crc_ptr] << 8);
1627                for ($crc_bit = 0; $crc_bit < 8; $crc_bit++) {
1628                        if ($crc & 0x8000) {
1629                                $crc = ($crc << 1) ^ 0x1021;
1630                        } else {
1631                                $crc = $crc << 1
1632                        }
1633                }
1634                $crc_ptr++;
1635        }
1636        $crc &= 0xffff;
1637
1638        my $dimm_crc = ($bytes->[127] << 8) | $bytes->[126];
1639        return ("EEPROM CRC of bytes 0-$crc_cover",
1640                ($dimm_crc == $crc) ? 1 : 0,
1641                sprintf("0x%04X", $dimm_crc),
1642                sprintf("0x%04X", $crc));
1643}
1644
1645# Parse command-line
1646foreach (@ARGV) {
1647        if ($_ eq '-h' || $_ eq '--help') {
1648                print "Usage: $0 [-c] [-f [-b]] [-x|-X file [files..]]\n",
1649                        "       $0 -h\n\n",
1650                        "  -f, --format            Print nice html output\n",
1651                        "  -b, --bodyonly          Don't print html header\n",
1652                        "                          (useful for postprocessing the output)\n",
1653                        "      --side-by-side      Display all DIMMs side-by-side if possible\n",
1654                        "      --merge-cells       Merge neighbour cells with identical values\n",
1655                        "                          (side-by-side output only)\n",
1656                        "  -c, --checksum          Decode completely even if checksum fails\n",
1657                        "  -x,                     Read data from hexdump files\n",
1658                        "  -X,                     Same as -x except treat multibyte hex\n",
1659                        "                          data as little endian\n",
1660                        "  -h, --help              Display this usage summary\n";
1661                print <<"EOF";
1662
1663Hexdumps can be the output from hexdump, hexdump -C, i2cdump, eeprog and
1664likely many other progams producing hex dumps of one kind or another.  Note
1665that the default output of "hexdump" will be byte-swapped on little-endian
1666systems and you must use -X instead of -x, otherwise the dump will not be
1667parsed correctly.  It is better to use "hexdump -C", which is not ambiguous.
1668EOF
1669                exit;
1670        }
1671
1672        if ($_ eq '-f' || $_ eq '--format') {
1673                $opt_html = 1;
1674                next;
1675        }
1676        if ($_ eq '-b' || $_ eq '--bodyonly') {
1677                $opt_bodyonly = 1;
1678                next;
1679        }
1680        if ($_ eq '--side-by-side') {
1681                $opt_side_by_side = 1;
1682                next;
1683        }
1684        if ($_ eq '--merge-cells') {
1685                $opt_merge = 1;
1686                next;
1687        }
1688        if ($_ eq '-c' || $_ eq '--checksum') {
1689                $opt_igncheck = 1;
1690                next;
1691        }
1692        if ($_ eq '-x') {
1693                $use_hexdump = BIGENDIAN;
1694                next;
1695        }
1696        if ($_ eq '-X') {
1697                $use_hexdump = LITTLEENDIAN;
1698                next;
1699        }
1700
1701        if (m/^-/) {
1702                print STDERR "Unrecognized option $_\n";
1703                exit;
1704        }
1705
1706        push @dimm, { eeprom => $_, file => $_ } if $use_hexdump;
1707}
1708
1709if ($opt_html && !$opt_bodyonly) {
1710        print "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 3.2 Final//EN\">\n",
1711              "<html><head>\n",
1712                  "\t<meta HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=iso-8859-1\">\n",
1713                  "\t<title>PC DIMM Serial Presence Detect Tester/Decoder Output</title>\n",
1714                  "</head><body>\n";
1715}
1716
1717printc("decode-dimms version $revision");
1718printh('Memory Serial Presence Detect Decoder',
1719'By Philip Edelbrock, Christian Zuckschwerdt, Burkart Lingner,
1720Jean Delvare, Trent Piepho and others');
1721
1722
1723# From a sysfs device path and an attribute name, return the attribute
1724# value, or undef (stolen from sensors-detect)
1725sub sysfs_device_attribute
1726{
1727        my ($device, $attr) = @_;
1728        my $value;
1729
1730        open(local *FILE, "$device/$attr") or return "";
1731        $value = <FILE>;
1732        close(FILE);
1733        return unless defined $value;
1734
1735        chomp($value);
1736        return $value;
1737}
1738
1739sub get_dimm_list
1740{
1741        my (@dirs, $dir, $file, @files);
1742
1743        if ($use_sysfs) {
1744                @dirs = ('/sys/bus/i2c/drivers/eeprom', '/sys/bus/i2c/drivers/at24');
1745        } else {
1746                @dirs = ('/proc/sys/dev/sensors');
1747        }
1748
1749        foreach $dir (@dirs) {
1750                next unless opendir(local *DIR, $dir);
1751                while (defined($file = readdir(DIR))) {
1752                        if ($use_sysfs) {
1753                                # We look for I2C devices like 0-0050 or 2-0051
1754                                next unless $file =~ /^\d+-[\da-f]+$/i;
1755                                next unless -d "$dir/$file";
1756
1757                                # Device name must be eeprom (driver eeprom)
1758                                # or spd (driver at24)
1759                                my $attr = sysfs_device_attribute("$dir/$file", "name");
1760                                next unless defined $attr &&
1761                                            ($attr eq "eeprom" || $attr eq "spd");
1762                        } else {
1763                                next unless $file =~ /^eeprom-/;
1764                        }
1765                        push @files, { eeprom => "$file",
1766                                       file => "$dir/$file" };
1767                }
1768                close(DIR);
1769        }
1770
1771        if (@files) {
1772                return sort { $a->{file} cmp $b->{file} } @files;
1773        } elsif (! -d '/sys/module/eeprom') {
1774                print "No EEPROM found, are you sure the eeprom module is loaded?\n";
1775                exit;
1776        }
1777}
1778
1779# @dimm is a list of hashes. There's one hash for each EEPROM we found.
1780# Each hash has the following keys:
1781#  * eeprom: Name of the eeprom data file
1782#  * file: Full path to the eeprom data file
1783#  * bytes: The EEPROM data (array)
1784#  * is_rambus: Whether this is a RAMBUS DIMM or not (boolean)
1785#  * chk_label: The label to display for the checksum or CRC
1786#  * chk_valid: Whether the checksum or CRC is valid or not (boolean)
1787#  * chk_spd: The checksum or CRC value found in the EEPROM
1788#  * chk_calc: The checksum or CRC computed from the EEPROM data
1789# Keys are added over time.
1790@dimm = get_dimm_list() unless $use_hexdump;
1791
1792for my $i (0 .. $#dimm) {
1793        my @bytes = readspd(0, 128, $dimm[$i]->{file});
1794        $dimm[$i]->{bytes} = \@bytes;
1795        $dimm[$i]->{is_rambus} = $bytes[0] < 4;         # Simple heuristic
1796        if ($dimm[$i]->{is_rambus} || $bytes[2] < 9) {
1797                ($dimm[$i]->{chk_label}, $dimm[$i]->{chk_valid},
1798                 $dimm[$i]->{chk_spd}, $dimm[$i]->{chk_calc}) =
1799                        checksum(\@bytes);
1800        } else {
1801                ($dimm[$i]->{chk_label}, $dimm[$i]->{chk_valid},
1802                 $dimm[$i]->{chk_spd}, $dimm[$i]->{chk_calc}) =
1803                        check_crc(\@bytes);
1804        }
1805}
1806
1807# Checksum or CRC validation
1808if (!$opt_igncheck) {
1809        for (my $i = 0; $i < @dimm; ) {
1810                if ($dimm[$i]->{chk_valid}) {
1811                        $i++;
1812                } else {
1813                        splice(@dimm, $i, 1);
1814                }
1815        }
1816}
1817
1818# Process the valid entries
1819for $current (0 .. $#dimm) {
1820        my @bytes = @{$dimm[$current]->{bytes}};
1821
1822        if ($opt_side_by_side) {
1823                printl("Decoding EEPROM", $dimm[$current]->{eeprom});
1824        }
1825
1826        if (!$use_hexdump) {
1827                if ($dimm[$current]->{file} =~ /-([\da-f]+)$/i) {
1828                        my $dimm_num = hex($1) - 0x50 + 1;
1829                        if ($dimm_num >= 1 && $dimm_num <= 8) {
1830                                printl("Guessing DIMM is in", "bank $dimm_num");
1831                        }
1832                }
1833        }
1834
1835# Decode first 3 bytes (0-2)
1836        prints("SPD EEPROM Information");
1837
1838        printl($dimm[$current]->{chk_label}, ($dimm[$current]->{chk_valid} ?
1839                sprintf("OK (%s)", $dimm[$current]->{chk_calc}) :
1840                sprintf("Bad\n(found %s, calculated %s)",
1841                        $dimm[$current]->{chk_spd}, $dimm[$current]->{chk_calc})));
1842
1843        my $temp;
1844        if ($dimm[$current]->{is_rambus}) {
1845                if ($bytes[0] == 1) { $temp = "0.7"; }
1846                elsif ($bytes[0] == 2) { $temp = "1.0"; }
1847                elsif ($bytes[0] == 0) { $temp = "Invalid"; }
1848                else { $temp = "Reserved"; }
1849                printl("SPD Revision", $temp);
1850        } else {
1851                my ($spd_size, $spd_used) = spd_sizes(\@bytes);
1852                printl("# of bytes written to SDRAM EEPROM", $spd_used);
1853                printl("Total number of bytes in EEPROM", $spd_size);
1854
1855                # If there's more data than what we've read, let's
1856                # read it now.  DDR3 will need this data.
1857                if ($spd_used > @bytes) {
1858                        push (@bytes,
1859                              readspd(@bytes, $spd_used - @bytes,
1860                                      $dimm[$current]->{file}));
1861                }
1862        }
1863
1864        my $type = sprintf("Unknown (0x%02x)", $bytes[2]);
1865        if ($dimm[$current]->{is_rambus}) {
1866                if ($bytes[2] == 1) { $type = "Direct Rambus"; }
1867                elsif ($bytes[2] == 17) { $type = "Rambus"; }
1868        } else {
1869                my @type_list = (
1870                        "Reserved", "FPM DRAM",         # 0, 1
1871                        "EDO", "Pipelined Nibble",      # 2, 3
1872                        "SDR SDRAM", "Multiplexed ROM", # 4, 5
1873                        "DDR SGRAM", "DDR SDRAM",       # 6, 7
1874                        "DDR2 SDRAM", "FB-DIMM",        # 8, 9
1875                        "FB-DIMM Probe", "DDR3 SDRAM",  # 10, 11
1876                );
1877                if ($bytes[2] < @type_list) {
1878                        $type = $type_list[$bytes[2]];
1879                }
1880        }
1881        printl("Fundamental Memory type", $type);
1882
1883# Decode next 61 bytes (3-63, depend on memory type)
1884        $decode_callback{$type}->(\@bytes)
1885                if exists $decode_callback{$type};
1886
1887        if ($type eq "DDR3 SDRAM") {
1888                # Decode DDR3-specific manufacturing data in bytes
1889                # 117-149
1890                decode_ddr3_mfg_data(\@bytes)
1891        } else {
1892                # Decode next 35 bytes (64-98, common to most
1893                # memory types)
1894                decode_manufacturing_information(\@bytes);
1895        }
1896
1897# Next 27 bytes (99-125) are manufacturer specific, can't decode
1898
1899# Last 2 bytes (126-127) are reserved, Intel used them as an extension
1900        if ($type eq "SDR SDRAM") {
1901                decode_intel_spec_freq(\@bytes);
1902        }
1903}
1904
1905# Side-by-side output format is only possible if all DIMMs have a similar
1906# output structure
1907if ($opt_side_by_side) {
1908        for $current (1 .. $#dimm) {
1909                my @ref_output = @{$dimm[0]->{output}};
1910                my @test_output = @{$dimm[$current]->{output}};
1911                my $line;
1912
1913                if (scalar @ref_output != scalar @test_output) {
1914                        $opt_side_by_side = 0;
1915                        last;
1916                }
1917
1918                for ($line = 0; $line < @ref_output; $line++) {
1919                        my ($ref_func, $ref_label, @ref_dummy) = @{$ref_output[$line]};
1920                        my ($test_func, $test_label, @test_dummy) = @{$test_output[$line]};
1921
1922                        if ($ref_func != $test_func || $ref_label ne $test_label) {
1923                                $opt_side_by_side = 0;
1924                                last;
1925                        }
1926                }
1927        }
1928
1929        if (!$opt_side_by_side) {
1930                printc("Side-by-side output only possible if all DIMMS are similar\n");
1931
1932                # Discard "Decoding EEPROM" entry from all outputs
1933                for $current (0 .. $#dimm) {
1934                        shift(@{$dimm[$current]->{output}});
1935                }
1936        }
1937}
1938
1939# Find out the longest value string to adjust the column width
1940# Note: this could be improved a bit by not taking into account strings
1941# which will end up being merged.
1942$sbs_col_width = 15;
1943if ($opt_side_by_side && !$opt_html) {
1944        for $current (0 .. $#dimm) {
1945                my @output = @{$dimm[$current]->{output}};
1946                my $line;
1947                my @strings;
1948
1949                for ($line = 0; $line < @output; $line++) {
1950                        my ($func, $label, $value) = @{$output[$line]};
1951                        push @strings, split("\n", $value) if defined $value;
1952                }
1953
1954                foreach $line (@strings) {
1955                        my $len = length($line);
1956                        $sbs_col_width = $len if $len > $sbs_col_width;
1957                }
1958        }
1959}
1960
1961# Print the decoded information for all DIMMs
1962for $current (0 .. $#dimm) {
1963        if ($opt_side_by_side) {
1964                print "\n\n";
1965        } else {
1966                print "<b><u>" if $opt_html;
1967                printl2("\n\nDecoding EEPROM", $dimm[$current]->{file});
1968                print "</u></b>" if $opt_html;
1969        }
1970        print "<table border=1>\n" if $opt_html;
1971
1972        my @output = @{$dimm[$current]->{output}};
1973        for (my $line = 0; $line < @output; $line++) {
1974                my ($func, @param) = @{$output[$line]};
1975
1976                if ($opt_side_by_side) {
1977                        foreach ($current+1 .. $#dimm) {
1978                                my @xoutput = @{$dimm[$_]->{output}};
1979                                if (@{$xoutput[$line]} == 3) {
1980                                        # Line with data, stack all values
1981                                        push @param, @{$xoutput[$line]}[2];
1982                                } else {
1983                                        # Separator, make it span
1984                                        push @param, scalar @dimm;
1985                                }
1986                        }
1987                }
1988
1989                $func->(@param);
1990        }
1991
1992        print "</table>\n" if $opt_html;
1993        last if $opt_side_by_side;
1994}
1995printl2("\n\nNumber of SDRAM DIMMs detected and decoded", scalar @dimm);
1996
1997print "</body></html>\n" if ($opt_html && !$opt_bodyonly);
Note: See TracBrowser for help on using the browser.