Dear Sun-Managers,
I received a lot of responses to my question. Thanks for your help. A
summary of all messages that I received is below. In a nutshell, it looks
like a patch might be necessary for 2.6 and up. Also, there are several
scripts that I plan to try if the patch doesn't work.
Thanks,
Joel
X-Lotus-FromDomain: NDS
From: "Jeff Kennedy" <jeff.kennedy@natdecsys.com>
To: "Joel D. Spieth" <jspieth@rpm.com>
Message-ID: <8825670C.0063CAF5.00@imperial.natdecsys.com>
Date: Tue, 2 Feb 1999 10:09:51 -0800
Subject: Re: Remotely checking memory bank configuration
Mime-Version: 1.0
Content-type: multipart/mixed;
Boundary="0__=xfxN0guZ6FCl7i00X7ZP2MGPUBThu9wgarOw6XL173tLzLzpGPQuaIYl"
Content-Disposition: inline
Attached is a script that is just the thing you're looking for. It was
written by someone else, I found it in an archive while searching for this
exact solution. Works like a charm too. Tells you what size ram chip is
in which slot. Let me know if you have any questions, I'll answer what I
can.
(See attached file: memtest)
Jeff Kennedy
Date: Tue, 2 Feb 1999 09:59:34 -0800
From: howard.s.modell@boeing.com (Howard Modell)
Message-Id: <199902021759.JAA03808@warlok.ds.boeing.com>
To: jspieth@rpm.com
Subject: Re: Remotely checking memory bank configuration
try the attached perl script ..
<signed>
Howard S. Modell
________________________________________________________________________
Comptg Sys.Progr-Analyst/4 POBox 3707, m/s 4A-25, Boeing ISDS
howard.s.modell@boeing.com Seattle, WA 98124-2207
http://warlok.ds.boeing.com/~howie/ (206)662-0189[v] (206)662-4018[f]
Re Remotely checking memory ba
From: Paul.Teasdel@dresdnerkb.com
Message-Id: <199902021726.RAA13567@harpo.dresdnerkb.com>
Received: forwarded by SMTP 3.0.11.
To: jspieth@rpm.com
Subject: RE: Remotely checking memory bank configuration
Date: Tue, 2 Feb 1999 17:27:42 -0000
Return-Receipt-To: "Teasdel, Paul" <Paul.Teasdel@dresdnerkb.com
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2232.9)
Content-Type: text/plain
Have you added the prtdiag patch 105642?
I know there are issues with enterprise hardware not showing CPU's without
this patch.
Cheers
Paul
Date: Tue, 2 Feb 1999 09:02:00 -0800 (PST)
From: "John P. Dodge" <john.p.dodge@boeing.com>
X-Sender: dodge@cruciate
To: "Joel D. Spieth" <jspieth@rpm.com>
Subject: Re: Remotely checking memory bank configuration
In-Reply-To: <4.1.19990202095532.00b102c0@pop.rpm.com>
Message-Id: <Pine.GSO.4.00.9902020859230.1377-100000@cruciate>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
I use this memconf.pl perl script to display memory SIMM configurations:
-----------------------------------cut here--------------------------
#!/usr/local/bin/perl
#
# @(#) memconf - Identify sizes of SIMM/DIMM memory modules installed
# @(#) Micron Technology, Inc. - Tom Schmidt 17-Sep-98 V1.5.1
#
# Maintained by Tom Schmidt (tschmidt@micron.com)
#
# If memconf does not recognize a system, then please send the output of
# '/usr/sbin/prtconf -pv' (or '/usr/etc/devinfo -pv' on Solaris 1.X) to
# tschmidt@micron.com so that memconf can be enhanced to recognize it.
#
# Based on SunManagers SUMMARY by howie@warlok.ds.boeing.com (Howard Modell)
# on 29-Jan-97.
#
# Tested to work on:
# - sun4c SS2
# - sun4m 4/6x0, SS5, SS10, SS10SX, SS20, LX/ZX
# - sun4d SPARCserver-1000
# - sun4u Ultra 1, 2, 5, 30, 450
# - sun4u Enterprise 3000, 4000/5000
#
# Untested systems that should work:
# - sun4m SS4, Classic/ClassicX (with verbose output)
# - sun4m Xterminal-1, Voyager (no verbose output)
# - sun4d SPARCcenter-2000 (with verbose output)
# - sun4u Ultra 10 (with verbose output)
# - sun4u Ultra 60 (with verbose output, guessing on bank address range)
# - sun4u Enterprise 6000 (with verbose output)
# - sun4u1 Enterprise 10000 (no verbose output)
#
# Won't work on:
# - Systems without /dev/openprom
# - sun4c SS1, SS1+, IPC, IPX, SLC, ELC (no 'memory' lines in devinfo/prtconf
# output)
# - sun4 kernel architecture, and sun3 and older systems
#
# To Do:
# - Report empty slots as well in verbose mode.
# - Recognize VME bus memory cards in 4/6x0.
# - Recognize 4MB and 8MB VSIMMs on SS10SX and SS20SX (not in total memory).
# May be confused by Solaris 2.X sxconfig(1M) command.
# - Distinguish between SIMMs and DIMMs.
# - Test on untested systems above, adding verbose to those that lack it.
# - Add newer systems as they come out.
#
# Revision History:
# - 29-Jan-97 - V1.0 - From SunManagers SUMMARY by howie@warlok.ds.boeing.com
# (Howard Modell)
# - 05-Feb-97 - V1.1 - Ported to SunOS, added slot information, etc.
# - 17-Aug-98 - V1.2 - Added Ultra-30, Ultra Enterprise 4000/5000.
# - 18-Aug-98 - V1.2.1 - Added Ultra-5.
# - 20-Aug-98 - V1.3 - Fixed SS10SX. Added Ultra Enterprise 3000.
# - 02-Sep-98 - V1.3.1 - Cleanup Ultra 450 recognition.
# - 15-Sep-98 - V1.4 - Added verbose output for Sun 4/30 LX/ZX and Classic.
# - 17-Sep-98 - V1.5 - Added verbose output for SPARCserver 1000 and
SPARCcenter
# 2000. Added untested Ultra-60 verbose output.
# - 17-Sep-98 - V1.5.1 - Fixed Ultra 450.
$BSD = -f '/vmunix';
if ($BSD) {
if (! -f '/usr/etc/devinfo') {
printf "ERROR: no 'devinfo' command. Aborting.\n";
exit;
}
$config_cmd = "/usr/etc/devinfo -pv";
} else {
if (! -f '/usr/sbin/prtconf') {
printf "ERROR: no 'prtconf' command. Aborting.\n";
exit;
}
$config_cmd = "/usr/sbin/prtconf -pv";
}
@config = `$config_cmd`;
$hostname = `/usr/bin/uname -n`;
chop $hostname;
$filename = "";
$memory_size = "";
$installed_memory = 0;
$ultra = 0;
$simmbanks = 0;
$simmspergroup = 1;
$prtconfgroups = 1;
$bankcnt = 0;
$slot0 = 0;
$largestsimm = 0;
$found32mb = 0;
$sx = 0;
$memtype = "SIMM";
$verbose = 0;
#
# Parse options
#
if (-f "$ARGV[0]") {
# Test file with prtconf/devinfo output
@config = `/bin/cat $ARGV[0]`;
$hostname = "";
$filename = "$ARGV[0]";
$verbose = 2;
} elsif ($ARGV[0] eq "-v") {
$verbose = 1;
} elsif ($ARGV[0] eq "-d") {
$verbose = 2;
} elsif ($#ARGV > -1) {
printf "Usage: memconf [-v]\n";
exit;
}
sub header {
if ("$hostname" ne "") {
printf("hostname: $hostname\n");
}
if ("$filename" ne "") {
printf("filename: $filename\n");
}
if ($verbose eq 0) {
if ("$banner" ne "") {
printf("$banner\n");
} elsif ("$model" ne "") {
printf("$model\n");
}
} else {
if ("$banner" ne "") {
printf("banner: $banner\n");
}
if ("$model" ne "") {
printf("model: $model\n");
}
}
if ($verbose > 1) {
# printf "ultra = $ultra\n" if ($ultra != 0 | $ultra eq "e");
printf "memory line: $gotmemory\n" if ("$gotmemory" ne "");
# printf "module info: $gotmodule\n" if ("$gotmodule" ne "");
}
}
$i = 0;
$banner = "";
$model = "";
foreach $line (@config) {
if ($line =~ /banner-name:/) {
$banner = $line;
$banner =~ s/\s+banner-name:\s+//;
$banner =~ s/'//g;
chop $banner;
if ($line =~ /Enterprise/) { $ultra = "e"; }
if ($line =~ /Ultra 1/) { $ultra = 1; }
if ($line =~ /Ultra 2/) { $ultra = 2; }
if ($line =~ /Ultra 5/) { $ultra = 5; }
if ($line =~ /Ultra 10/) { $ultra = 10; }
if ($line =~ /Ultra 30/) { $ultra = 30; }
if ($line =~ /Ultra 60/) { $ultra = 60; }
if ($line =~ /450/) { $ultra = 450; }
}
if ($line =~ /SUNW,Ultra-/ | $line =~ /SUNW,SPARC/ | $line =~ /Sun 4/) {
$model = $line;
$model =~ s/\s+name:\s+//;
$model =~ s/'//g;
$model =~ s/SUNW,//g;
chop $model;
if ($model =~ /Ultra-1/) { $ultra = 1; }
if ($model =~ /Ultra-2/) { $ultra = 2; }
if ($model =~ /Ultra-5/) { $ultra = 5; }
if ($model =~ /Ultra-5_10/) { $ultra = 5; }
if ($model =~ /Ultra-30/) { $ultra = 30; }
if ($model =~ /Ultra-60/) { $ultra = 60; }
if ($model =~ /Ultra-4/) { $ultra = 450; }
if ($model =~ /Ultra-Enterprise/) { $ultra = "e"; }
}
if ($line =~ /\sname:\s+'memory'/) {
$j = $i - 2;
if ($config[$j] =~ /\sreg:/) {
$gotmemory = $config[$j];
chop $gotmemory;
# goto GotMemory;
}
}
if ($line =~ /\sdevice_type:\s+'memory-bank'/) {
$j = $i - 3;
if ($config[$j] =~ /\sreg:/ & $config[$j] !~ /.00000000$/) {
$config[$j] =~ s/\s+reg:\s+//;
if ("$gotmemory" ne "") {
$gotmemory = $gotmemory . "." . $config[$j];
} else {
$gotmemory = $config[$j];
}
chop $gotmemory;
}
}
# The following is not used yet
#if ($line =~ /\sdevice_type:\s+'memory-module'/) {
# if ($config[$i - 2] =~ /\sreg:/) {
# $config[$i - 3] =~ s/\s+socket-name:\s+//;
# if ("$gotmodule" ne "") {
# $gotmodule = $gotmodule . "." . $config[$i - 3];
# } else {
# $gotmodule = $config[$i - 3];
# }
# chop $gotmodule;
# $config[$i - 2] =~ s/\s+reg:\s+//;
# @module = split(/\./, $config[$i - 2]);
# $gotmodule = $gotmodule . "." . $module[3];
# chop $gotmodule;
# $config[$i + 1] =~ s/\s+name:\s+//;
# $config[$i + 1] =~ y/[a-z]/[A-Z]/;
# $gotmodule = $gotmodule . "." . $config[$i + 1];
# chop $gotmodule;
# $gotmodule =~ s/'//g;
# }
#}
if ($line =~ /\sname:\s+'cgfourteen'/) {
$sx = 1;
}
if ($line =~ /Memory size:\s/) {
$memory_size = $line;
chop $memory_size;
@memory = split(/\s/, $memory_size);
$installed_memory = $memory[2];
$BSD = 0; # prtconf only has this output
$config_cmd = "/usr/sbin/prtconf -pv";
}
$i = $i + 1;
}
if ("$gotmemory" eq "") {
header;
if ($installed_memory > 0) {
printf "total memory = " . $installed_memory . "MB\n";
}
printf "ERROR: no 'memory' line in \"$config_cmd\" output.\n";
if (! $BSD) {
printf " This is most likely because memconf does not ";
printf "recognize this system.\n";
printf " Send the output of \"$config_cmd\" ";
printf "to tschmidt\@micron.com\n";
printf " so that memconf can be enhanced to recognize ";
printf "this system.\n";
}
exit;
}
GotMemory:
$gotmemory =~ s/\s+reg:\s+//;
$gotmemory =~ s/'//g;
@slots = split(/\./, $gotmemory);
$slot = 1;
$totmem = 0;
header;
$machine = `/usr/bin/uname -m`;
# DIMMs are installed in pairs on Ultra 1, 5, and 10; quads on
# Ultra 2, 60, 450; 8's in Enterprise
if ($machine =~ /sun4u/ | $ultra != 0 | $ultra eq "e") {
$val0 = 3; # simmsize is in 4th field
$valaddr = 2; # address is 2 fields before simmsize
$valinc = 4; # fields per simm
$memtype = "DIMM";
} else {
$val0 = 2; # simmsize is in 3rd field
$valaddr = 1; # address is 1 field before simmsize
$valinc = 3; # fields per simm # fields per simm
}
if ($ultra eq "e" | $ultra == 60) {
$valinc = 8; # fields per prtconf group
}
#
# define SIMM layout for specific systems
#
if ("$model" eq "Sun 4/75") {
# Accepts 4MB SIMMs on motherboard and 32MB or 64MB SBus expansion card
$simmrangex = "01000000";
$simmbanks = 4;
$simmsperbank = 4;
@socketstr = qw(U0311 U0309 U0307 U0322 U0312 U0310 U0308 U0321 U0313
U0314 U0315 U0320 U0319 U0318 U0317 U0316);
@orderstr = qw();
@groupstr = qw();
@bankstr = qw(0 0 0 0 1 1 1 1 2 2 2 2 3 3 3 3);
@bytestr = qw(0 1 2 3 0 1 2 3 0 1 2 3 0 1 2 3);
}
if ("$model" =~ /SPARCstation-LX/ | "$model" =~ /SPARCclassic/) {
# LX (4/30) and Classic (4/15) accept 4MB and 16MB SIMMs on motherboard
# Classic-X (4/10) accepts 1MB, 2MB and 4MB SIMMs on motherboard
$simmrangex = "02000000";
$simmbanks = 3;
$simmsperbank = 2;
@socketstr = qw(U0304 U0303 U0301 U0302 U0402 U0401);
@orderstr = qw();
@groupstr = qw();
@bankstr = qw(1 1 2 2 3 3);
@bytestr = qw();
}
if ("$model" eq "SPARCstation-4") {
# Accepts 8MB and 32MB SIMMs on motherboard
$simmrangex = "02000000";
$simmbanks = 5;
$simmsperbank = 1;
@socketstr = qw(J0301 J0302 J0303 J0304 J0305);
@orderstr = qw();
@groupstr = qw();
@bankstr = qw(0 1 2 3 4);
@bytestr = qw();
}
if ("$model" eq "SPARCstation-5") {
# Accepts 8MB and 32MB SIMMs on motherboard
$simmrangex = "02000000";
$simmbanks = 8;
$simmsperbank = 1;
@socketstr = qw(J0300 J0301 J0302 J0303 J0400 J0401 J0402 J0403);
@orderstr = qw();
@groupstr = qw();
@bankstr = qw(0 1 2 3 4 5 6 7);
@bytestr = qw();
}
if ("$model" =~ /SPARCstation-10/) {
# Accepts 16MB and 64MB SIMMs on motherboard
$simmrangex = "04000000";
$simmbanks = 8;
$simmsperbank = 1;
@socketstr = qw(J0201 J0203 J0302 J0304 J0202 J0301 J0303 J0305);
@orderstr = qw(1st 3rd 4th 2nd 8th 6th 5th 7th);
@groupstr = qw();
@bankstr = qw(0 1 2 3 4 5 6 7);
@bytestr = qw();
}
if ("$model" eq "SPARCstation-20") {
# Accepts 16MB, 32MB and 64MB SIMMs on motherboard
$simmrangex = "04000000";
$simmbanks = 8;
$simmsperbank = 1;
@socketstr = qw(J0201 J0303 J0202 J0301 J0305 J0203 J0302 J0304);
@orderstr = qw(1st 2nd 3rd 4th 5th 6th 7th 8th);
@groupstr = qw();
@bankstr = qw(0 1 2 3 4 5 6 7);
@bytestr = qw();
}
if ("$model" eq "SPARCsystem-600") {
# Accepts 4MB or 16MB SIMMs on motherboard, 1MB or 4MB SIMMs on VME
# expansion card
$simmrangex = "10000000";
$simmbanks = 2;
$simmsperbank = 16;
@socketstr = qw(U1107 U1307 U1105 U1305 U1103 U1303 U1101 U1301 U1207
U1407 U1205 U1405 U1203 U1403 U1201 U1401 U1108 U1308 U1106 U1306 U1104
U1304 U1102 U1302 U1208 U1408 U1206 U1406 U1204 U1404 U1202 U1402);
@orderstr = qw();
@groupstr = qw();
@bankstr = qw(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1);
@bytestr = qw(0L0 0L1 1L0 1L1 2L0 2L1 3L0 3L1 4L0 4L1 5L0 5L1 6L0 6L1 7L0
7L1 0H0 0H1 1H0 1H1 2H0 2H1 3H0 3H1 4H0 4H1 5H0 5H1 6H0 6H1 7H0 7H1);
}
if ("$model" eq "SPARCserver-1000") {
# Accepts 8MB and 32MB SIMMs on motherboard
$simmrangex = "08000000";
$simmbanks = 4;
$simmsperbank = 4;
@socketstr = qw(J2800 J2900 J3000 J3100 J3200 J3300 J3400 J3500 J3600
J3700 J3800 J3900 J4000 J4100 J4200 J4300);
@orderstr = qw();
@groupstr = qw(0 0 0 0 1 1 1 1 2 2 2 2 3 3 3 3);
@bankstr = qw();
@bytestr = qw();
}
if ("$model" eq "SPARCcenter-2000") {
# Accepts 8MB and 32MB SIMMs on motherboard
$simmrangex = "08000000";
$simmbanks = 2;
$simmsperbank = 8;
@socketstr = qw(U4800 U5000 U4900 U5100 U4000 U4200 U4100 U4300 U4400
U4600 U4500 U4700 U3600 U3800 U3700 U3900);
@orderstr = qw();
@groupstr = qw(0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1);
@bankstr = qw();
@bytestr = qw();
}
if ("$model" eq "Ultra-1") {
# Accepts 16MB, 32MB, 64MB or 128MB DIMMs on motherboard
$memtype = "DIMM";
$simmrangex = "10000000";
$simmbanks = 4;
$simmsperbank = 2;
@socketstr = qw(U0701 U0601 U0702 U0602 U0703 U0603 U0704 U0604);
@orderstr = qw();
@groupstr = qw();
@bankstr = qw(0L 0H 1L 1H 2L 2H 3L 3H);
@bytestr = qw(00-15 16-31 00-15 16-31 00-15 16-31 00-15 16-31);
}
if ("$model" eq "Ultra-2") {
# Accepts 16MB, 32MB, 64MB or 128MB DIMMs on motherboard
$memtype = "DIMM";
$simmrangex = "20000000";
$simmbanks = 4;
$simmsperbank = 4;
@socketstr = qw(U0501 U0401 U0701 U0601 U0502 U0402 U0702 U0602 U0503
U0403 U0703 U0603 U0504 U0404 U0704 U0604);
@orderstr = qw();
@groupstr = qw(0 0 0 0 1 1 1 1 2 2 2 2 3 3 3 3);
@bankstr = qw(0L 0H 1L 1H 0L 0H 1L 1H 0L 0H 1L 1H 0L 0H 1L 1H);
@bytestr = qw(00-15 16-31 32-47 48-63 00-15 16-31 32-47 48-63 00-15 16-31
32-47 48-63 00-15 16-31 32-47 48-63);
}
if ("$model" eq "Ultra-30") {
# Accepts 16MB, 32MB, 64MB or 128MB DIMMs on motherboard
$memtype = "DIMM";
$simmrangex = "20000000";
$simmbanks = 4;
$simmsperbank = 4;
@socketstr = qw(U0701 U0801 U0901 U1001 U0702 U0802 U0902 U1002 U0703
U0803 U0903 U1003 U0704 U0804 U0904 U1004);
@orderstr = qw();
@groupstr = qw();
@bankstr = qw(0L 0L 0H 0H 1L 1L 1H 1H 2L 2L 2H 2H 3L 3L 3H 3H);
@bytestr = qw();
}
if ("$model" eq "Ultra-5_10") {
# Accepts 16MB, 32MB, 64MB, 128MB, or 256MB DIMMs on motherboard
$memtype = "DIMM";
$simmrangex = "10000000";
$simmbanks = 2;
$simmsperbank = 2;
@socketstr = qw(DIMM1 DIMM2 DIMM3 DIMM4);
@orderstr = qw();
@groupstr = qw();
@bankstr = qw(0L 0H 1L 1H);
@bytestr = qw();
}
if ("$model" eq "Ultra-60") {
# Accepts 16MB, 32MB, 64MB or 128MB DIMMs on motherboard
$memtype = "DIMM";
$simmrangex = "40000000";
$simmbanks = 4;
$simmsperbank = 4;
$prtconfgroups = 2;
$valinc = 8; # fields per prtconf group
# I am guessing here on the order of the DIMM address range
# Assume that bank 3 (top) is stuffed first (factory default)
@socketstr = qw(U0801 U0802 U0803 U0804 U0701 U0702 U0703 U0704 U1001
U1002 U1003 U1004 U0901 U0902 U0903 U0904);
@groupstr = qw();
@bankstr = qw(1 1 1 1 0 0 0 0 3 3 3 3 2 2 2 2);
@bytestr = qw();
}
if ("$model" eq "Ultra-4") {
# Accepts 16MB, 32MB, 64MB, 128MB or 256MB DIMMs on motherboard
$memtype = "DIMM";
$simmrangex = "40000000";
$simmbanks = 4;
$simmsperbank = 4;
@socketstr = qw(U1901 U1902 U1903 U1904 U1801 U1802 U1803 U1804 U1701
U1702 U1703 U1704 U1601 U1602 U1603 U1604);
@orderstr = qw();
@groupstr = qw(A A A A B B B B C C C C D D D D);
@bankstr = qw(2 2 2 2 3 3 3 3 0 0 0 0 1 1 1 1);
@bytestr = qw();
}
if ("$model" eq "Ultra-Enterprise") {
# Accepts 8MB, 32MB or 128MB DIMMs on motherboard, 2 banks of 8 DIMMs
$memtype = "DIMM";
$simmrangex = "80000000";
$simmbanks = 2;
$simmsperbank = 8;
$simmspergroup = 8;
$prtconfgroups = 2;
$valinc = 8; # fields per prtconf group
# Enterprise 3000, 4000, 5000, 6000
@socketstr = qw(J3100-J3800 J3101-J3801);
@orderstr = qw();
@groupstr = qw();
@bankstr = qw(0 1);
@bytestr = qw();
}
for($val=$val0; $val < scalar(@slots); $val = $val + $valinc) {
$simmsz = $slots[$val];
$simmaddr = $slots[$val - $valaddr];
if ($simmsz eq "80000000") { $simmsize = 2048; }
if ($simmsz eq "40000000") { $simmsize = 1024; }
if ($simmsz eq "20000000") { $simmsize = 512; }
if ($simmsz eq "10000000") { $simmsize = 256; }
if ($simmsz eq "08000000") { $simmsize = 128; }
if ($simmsz eq "04000000") { $simmsize = 64; }
if ($simmsz eq "02000000") { $simmsize = 32; }
if ($simmsz eq "01000000") { $simmsize = 16; }
if ($simmsz eq "00800000") { $simmsize = 8; }
if ($simmsz eq "00400000") { $simmsize = 4; }
if ($simmsz eq "00100000") { $simmsize = 1; }
$simmsize = $simmsize * $prtconfgroups;
$totmem += $simmsize;
if ("$model" eq "Sun 4/75" & $simmbanks < $bankcnt + 2) {
# SS2 SBus memory card
if ("$simmaddr" eq "08000000") {
printf "SBus primary contains ";
} else {
printf "SBus secondary contains ";
}
$simmstart = hex($simmaddr);
$simmrange = hex($simmrangex);
$simmstop = sprintf "%08lx", $simmstart + (2 * $simmrange) - 1;
$totmem += $simmsize;
$simmsize = $simmsize * 2;
$val = $val + $valinc;
printf $simmsize . "MB";
if ($verbose) {
printf " (address 0x$simmaddr - 0x$simmstop)";
}
printf "\n";
} elsif ($simmbanks > 0) {
$simmstart = hex($simmaddr);
$simmrange = hex($simmrangex);
$simmstop = sprintf "%08lx", $simmstart + $simmrange - 1;
$cnt = 0;
if ($simmspergroup > 1) {
$maxcnt = $simmbanks * $simmsperbank / $simmspergroup / $prtconfgroups;
} else {
$maxcnt = $simmbanks * $simmsperbank;
}
while ($cnt < $maxcnt) {
if ($simmstart == ($simmrange * $cnt)) {
$bankcnt = $cnt;
$cnt3 = ($bankcnt * $simmsperbank);
$socket = $socketstr[$cnt3];
$order = $orderstr[$cnt3];
$group = $groupstr[$cnt3];
$bank = $bankstr[$cnt3];
$byte = $bytestr[$cnt3];
}
$cnt = $cnt + 1;
}
#
# Check for 32MB SIMM. A 32MB SIMM is sometimes seen as 2 16MB
# SIMMs. This may report more slots than are really in a system
# (i.e. a SS20 with 8 32MB SIMMs reports 16 slots of 16MB each).
#
$start = $simmstart + ($simmrange / 2);
$startx = sprintf "%08lx", $start;
if ($slots[$val - 1 + $valinc] eq $startx) {
$found32mb = 1;
$totmem += $simmsize;
$simmsize = $simmsize * 2;
$val = $val + $valinc;
}
# if ($ultra eq "e") {
# $val = $val + $valinc;
# }
if ($simmstart == 0) {
$slot0 = $simmsize;
}
if ($simmsize > $largestsimm) {
$largestsimm = $simmsize;
}
$cnt2 = 0;
if ($simmspergroup > 1) {
$maxcnt2 = $simmsperbank / $simmspergroup;
} else {
$maxcnt2 = $simmsperbank;
}
while ($cnt2 < $maxcnt2) {
if ($simmspergroup > 1) {
printf "sockets $socket have $simmsperbank ";
printf $simmsize/$simmsperbank . "MB ${memtype}s";
} else {
printf "socket $socket has a ";
printf $simmsize/$simmsperbank . "MB $memtype";
}
if ($verbose) {
printf " (";
if ("$order" ne "") {
printf "$order $memtype, ";
}
if ("$group" ne "") {
printf "group $group, ";
}
if ("$bank" ne "") {
printf "bank $bank, ";
}
if ("$byte" ne "") {
printf "byte $byte, ";
}
printf "address 0x$simmaddr - 0x$simmstop)";
}
printf "\n";
$cnt2 = $cnt2 + 1;
$cnt3 = ($bankcnt * $simmsperbank) + $cnt2;
$socket = $socketstr[$cnt3];
$order = $orderstr[$cnt3];
$group = $groupstr[$cnt3];
$bank = $bankstr[$cnt3];
$byte = $bytestr[$cnt3];
}
} elsif ($ultra == 1 | $ultra == 5 | $ultra == 10 | $ultra == 30) {
printf "bank $slot has a pair of " . $simmsize/2 . "MB DIMMs\n";
} elsif ($ultra == 2 | $ultra == 450) {
printf "group $slot has four " . $simmsize/4 . "MB DIMMs\n";
} elsif ($ultra == 60) {
printf "group $slot has four " . $simmsize/2 . "MB DIMMs\n";
$totmem += $simmsize;
} elsif ($ultra eq "e") {
printf "group $slot has eight " . $simmsize/4 . "MB DIMMs\n";
$totmem += $simmsize;
} else {
printf "slot $slot has a " . $simmsize . "MB $memtype\n";
}
$slot = $slot + 1;
}
if ($sx) {
if ("$model" eq "SPARCstation-20") {
printf "socket J0304";
} else {
# SS10SX
printf "socket J0301";
}
printf " has a VSIMM installed for SX graphics\n";
}
printf "total memory = " . $totmem . "MB\n";
#
# Check for illegal SIMM stuffings
#
if ("$model" =~ /SPARCstation-10/) {
if ($slot0 < $largestsimm & $BSD) {
printf "ERROR: Install the highest capacity SIMM in socket ";
printf "$socketstr[0] under Solaris 1.X.\n";
}
if ($found32mb) {
printf "ERROR: The 32MB SIMM is not supported in the SS10 ";
printf "or SS10SX.\n";
}
}
#
# Check for possible memory detection errors by this program
#
if ($installed_memory > 0) {
if ($installed_memory != $totmem) {
printf "ERROR: Total memory installed (${installed_memory}MB) ";
printf "does not match total memory found (${totmem}MB\n";
printf " This is most likely because memconf does not ";
printf "recognize this system.\n";
printf " Send the output of \"$config_cmd\" ";
printf "to tschmidt\@micron.com\n";
printf " so that memconf can be enhanced to recognize ";
printf "this system.\n";
}
}
From: "Herman, Yvonne" <HermanY@bsci.com>
To: "'Joel D. Spieth'" <jspieth@rpm.com>
Subject: RE: Remotely checking memory bank configuration
Date: Tue, 2 Feb 1999 11:43:20 -0500
MIME-Version: 1.0
X-Mailer: Internet Mail Service (5.5.2232.9)
Content-Type: text/plain
I can do a prtdiag on my release of 2.6 I understand that if you have
firmware release 3.2.15 then you need the prtdiag patch so that prtdiag
works (on a fully loaded system - and I guess that is was only not showing 2
system boards). prtdiag should be located under /usr/platform/`uname
-i`/sbin
Yvonne Herman
Unix System Administrator
Andersen Consulting/Boston Scientific Corporation
hermany@bsci.com
508-652-5226
Sender: knash@dlemail.itg.ti.com
Message-ID: <36B72664.BB1102D9@ti.com>
Date: Tue, 02 Feb 1999 10:23:00 -0600
From: Kenneth Ash <knash@ti.com>
X-Mailer: Mozilla 4.5 [en] (X11; I; SunOS 5.7 sun4u)
X-Accept-Language: en
MIME-Version: 1.0
To: "Joel D. Spieth" <jspieth@rpm.com>
Subject: Re: Remotely checking memory bank configuration
References: <4.1.19990202095532.00b102c0@pop.rpm.com>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
prtdiag is still there. Try this command.
/usr/platform/`uname -m`/sbin/prtdiag
That should do it for you.
Date: Tue, 2 Feb 1999 11:20:03 -0500 (EST)
From: Tim Fritz <tim@wayback.er.usgs.gov>
X-Sender: tim@kazoo
To: "Joel D. Spieth" <jspieth@rpm.com>
Subject: Re: Remotely checking memory bank configuration
I attached memconf.pl which I got from this list.
Author information is in the comments.
Enjoy.
-- Tim Fritz, Unix Systems Administrator USGS Center for Coastal Geology, St. Petersburg, Florida voice 727.803.8747 x3033 fax 727.803.2032#!/usr/local/bin/perl # # @(#) memconf - Identify sizes of SIMM/DIMM memory modules installed # @(#) Micron Technology, Inc. - Tom Schmidt 17-Sep-98 V1.5.1 # # Maintained by Tom Schmidt (tschmidt@micron.com) # # If memconf does not recognize a system, then please send the output of # '/usr/sbin/prtconf -pv' (or '/usr/etc/devinfo -pv' on Solaris 1.X) to # tschmidt@micron.com so that memconf can be enhanced to recognize it. # # Based on SunManagers SUMMARY by howie@warlok.ds.boeing.com (Howard Modell) # on 29-Jan-97. # # Tested to work on: # - sun4c SS2 # - sun4m 4/6x0, SS5, SS10, SS10SX, SS20, LX/ZX # - sun4d SPARCserver-1000 # - sun4u Ultra 1, 2, 5, 30, 450 # - sun4u Enterprise 3000, 4000/5000 # # Untested systems that should work: # - sun4m SS4, Classic/ClassicX (with verbose output) # - sun4m Xterminal-1, Voyager (no verbose output) # - sun4d SPARCcenter-2000 (with verbose output) # - sun4u Ultra 10 (with verbose output) # - sun4u Ultra 60 (with verbose output, guessing on bank address range) # - sun4u Enterprise 6000 (with verbose output) # - sun4u1 Enterprise 10000 (no verbose output) # # Won't work on: # - Systems without /dev/openprom # - sun4c SS1, SS1+, IPC, IPX, SLC, ELC (no 'memory' lines in devinfo/prtconf # output) # - sun4 kernel architecture, and sun3 and older systems # # To Do: # - Report empty slots as well in verbose mode. # - Recognize VME bus memory cards in 4/6x0. # - Recognize 4MB and 8MB VSIMMs on SS10SX and SS20SX (not in total memory). # May be confused by Solaris 2.X sxconfig(1M) command. # - Distinguish between SIMMs and DIMMs. # - Test on untested systems above, adding verbose to those that lack it. # - Add newer systems as they come out. # # Revision History: # - 29-Jan-97 - V1.0 - From SunManagers SUMMARY by howie@warlok.ds.boeing.com # (Howard Modell) # - 05-Feb-97 - V1.1 - Ported to SunOS, added slot information, etc. # - 17-Aug-98 - V1.2 - Added Ultra-30, Ultra Enterprise 4000/5000. # - 18-Aug-98 - V1.2.1 - Added Ultra-5. # - 20-Aug-98 - V1.3 - Fixed SS10SX. Added Ultra Enterprise 3000. # - 02-Sep-98 - V1.3.1 - Cleanup Ultra 450 recognition. # - 15-Sep-98 - V1.4 - Added verbose output for Sun 4/30 LX/ZX and Classic. # - 17-Sep-98 - V1.5 - Added verbose output for SPARCserver 1000 and SPARCcenter # 2000. Added untested Ultra-60 verbose output. # - 17-Sep-98 - V1.5.1 - Fixed Ultra 450.
$BSD = -f '/vmunix'; if ($BSD) { if (! -f '/usr/etc/devinfo') { printf "ERROR: no 'devinfo' command. Aborting.\n"; exit; } $config_cmd = "/usr/etc/devinfo -pv"; } else { if (! -f '/usr/sbin/prtconf') { printf "ERROR: no 'prtconf' command. Aborting.\n"; exit; } $config_cmd = "/usr/sbin/prtconf -pv"; } @config = `$config_cmd`; $hostname = `/usr/bin/uname -n`; chop $hostname; $filename = ""; $memory_size = ""; $installed_memory = 0; $ultra = 0; $simmbanks = 0; $simmspergroup = 1; $prtconfgroups = 1; $bankcnt = 0; $slot0 = 0; $largestsimm = 0; $found32mb = 0; $sx = 0; $memtype = "SIMM"; $verbose = 0; # # Parse options # if (-f "$ARGV[0]") { # Test file with prtconf/devinfo output @config = `/bin/cat $ARGV[0]`; $hostname = ""; $filename = "$ARGV[0]"; $verbose = 2; } elsif ($ARGV[0] eq "-v") { $verbose = 1; } elsif ($ARGV[0] eq "-d") { $verbose = 2; } elsif ($#ARGV > -1) { printf "Usage: memconf [-v]\n"; exit; }
sub header { if ("$hostname" ne "") { printf("hostname: $hostname\n"); } if ("$filename" ne "") { printf("filename: $filename\n"); } if ($verbose eq 0) { if ("$banner" ne "") { printf("$banner\n"); } elsif ("$model" ne "") { printf("$model\n"); } } else { if ("$banner" ne "") { printf("banner: $banner\n"); } if ("$model" ne "") { printf("model: $model\n"); } } if ($verbose > 1) { # printf "ultra = $ultra\n" if ($ultra != 0 | $ultra eq "e"); printf "memory line: $gotmemory\n" if ("$gotmemory" ne ""); # printf "module info: $gotmodule\n" if ("$gotmodule" ne ""); } }
$i = 0; $banner = ""; $model = ""; foreach $line (@config) { if ($line =~ /banner-name:/) { $banner = $line; $banner =~ s/\s+banner-name:\s+//; $banner =~ s/'//g; chop $banner; if ($line =~ /Enterprise/) { $ultra = "e"; } if ($line =~ /Ultra 1/) { $ultra = 1; } if ($line =~ /Ultra 2/) { $ultra = 2; } if ($line =~ /Ultra 5/) { $ultra = 5; } if ($line =~ /Ultra 10/) { $ultra = 10; } if ($line =~ /Ultra 30/) { $ultra = 30; } if ($line =~ /Ultra 60/) { $ultra = 60; } if ($line =~ /450/) { $ultra = 450; } } if ($line =~ /SUNW,Ultra-/ | $line =~ /SUNW,SPARC/ | $line =~ /Sun 4/) { $model = $line; $model =~ s/\s+name:\s+//; $model =~ s/'//g; $model =~ s/SUNW,//g; chop $model; if ($model =~ /Ultra-1/) { $ultra = 1; } if ($model =~ /Ultra-2/) { $ultra = 2; } if ($model =~ /Ultra-5/) { $ultra = 5; } if ($model =~ /Ultra-5_10/) { $ultra = 5; } if ($model =~ /Ultra-30/) { $ultra = 30; } if ($model =~ /Ultra-60/) { $ultra = 60; } if ($model =~ /Ultra-4/) { $ultra = 450; } if ($model =~ /Ultra-Enterprise/) { $ultra = "e"; } } if ($line =~ /\sname:\s+'memory'/) { $j = $i - 2; if ($config[$j] =~ /\sreg:/) { $gotmemory = $config[$j]; chop $gotmemory; # goto GotMemory; } } if ($line =~ /\sdevice_type:\s+'memory-bank'/) { $j = $i - 3; if ($config[$j] =~ /\sreg:/ & $config[$j] !~ /.00000000$/) { $config[$j] =~ s/\s+reg:\s+//; if ("$gotmemory" ne "") { $gotmemory = $gotmemory . "." . $config[$j]; } else { $gotmemory = $config[$j]; } chop $gotmemory; } } # The following is not used yet #if ($line =~ /\sdevice_type:\s+'memory-module'/) { # if ($config[$i - 2] =~ /\sreg:/) { # $config[$i - 3] =~ s/\s+socket-name:\s+//; # if ("$gotmodule" ne "") { # $gotmodule = $gotmodule . "." . $config[$i - 3]; # } else { # $gotmodule = $config[$i - 3]; # } # chop $gotmodule; # $config[$i - 2] =~ s/\s+reg:\s+//; # @module = split(/\./, $config[$i - 2]); # $gotmodule = $gotmodule . "." . $module[3]; # chop $gotmodule; # $config[$i + 1] =~ s/\s+name:\s+//; # $config[$i + 1] =~ y/[a-z]/[A-Z]/; # $gotmodule = $gotmodule . "." . $config[$i + 1]; # chop $gotmodule; # $gotmodule =~ s/'//g; # } #} if ($line =~ /\sname:\s+'cgfourteen'/) { $sx = 1; } if ($line =~ /Memory size:\s/) { $memory_size = $line; chop $memory_size; @memory = split(/\s/, $memory_size); $installed_memory = $memory[2]; $BSD = 0; # prtconf only has this output $config_cmd = "/usr/sbin/prtconf -pv"; } $i = $i + 1; } if ("$gotmemory" eq "") { header; if ($installed_memory > 0) { printf "total memory = " . $installed_memory . "MB\n"; } printf "ERROR: no 'memory' line in \"$config_cmd\" output.\n"; if (! $BSD) { printf " This is most likely because memconf does not "; printf "recognize this system.\n"; printf " Send the output of \"$config_cmd\" "; printf "to tschmidt\@micron.com\n"; printf " so that memconf can be enhanced to recognize "; printf "this system.\n"; } exit; }
GotMemory: $gotmemory =~ s/\s+reg:\s+//; $gotmemory =~ s/'//g; @slots = split(/\./, $gotmemory); $slot = 1; $totmem = 0; header; $machine = `/usr/bin/uname -m`; # DIMMs are installed in pairs on Ultra 1, 5, and 10; quads on # Ultra 2, 60, 450; 8's in Enterprise if ($machine =~ /sun4u/ | $ultra != 0 | $ultra eq "e") { $val0 = 3; # simmsize is in 4th field $valaddr = 2; # address is 2 fields before simmsize $valinc = 4; # fields per simm $memtype = "DIMM"; } else { $val0 = 2; # simmsize is in 3rd field $valaddr = 1; # address is 1 field before simmsize $valinc = 3; # fields per simm # fields per simm } if ($ultra eq "e" | $ultra == 60) { $valinc = 8; # fields per prtconf group }
# # define SIMM layout for specific systems # if ("$model" eq "Sun 4/75") { # Accepts 4MB SIMMs on motherboard and 32MB or 64MB SBus expansion card $simmrangex = "01000000"; $simmbanks = 4; $simmsperbank = 4; @socketstr = qw(U0311 U0309 U0307 U0322 U0312 U0310 U0308 U0321 U0313 U0314 U0315 U0320 U0319 U0318 U0317 U0316); @orderstr = qw(); @groupstr = qw(); @bankstr = qw(0 0 0 0 1 1 1 1 2 2 2 2 3 3 3 3); @bytestr = qw(0 1 2 3 0 1 2 3 0 1 2 3 0 1 2 3); } if ("$model" =~ /SPARCstation-LX/ | "$model" =~ /SPARCclassic/) { # LX (4/30) and Classic (4/15) accept 4MB and 16MB SIMMs on motherboard # Classic-X (4/10) accepts 1MB, 2MB and 4MB SIMMs on motherboard $simmrangex = "02000000"; $simmbanks = 3; $simmsperbank = 2; @socketstr = qw(U0304 U0303 U0301 U0302 U0402 U0401); @orderstr = qw(); @groupstr = qw(); @bankstr = qw(1 1 2 2 3 3); @bytestr = qw(); } if ("$model" eq "SPARCstation-4") { # Accepts 8MB and 32MB SIMMs on motherboard $simmrangex = "02000000"; $simmbanks = 5; $simmsperbank = 1; @socketstr = qw(J0301 J0302 J0303 J0304 J0305); @orderstr = qw(); @groupstr = qw(); @bankstr = qw(0 1 2 3 4); @bytestr = qw(); } if ("$model" eq "SPARCstation-5") { # Accepts 8MB and 32MB SIMMs on motherboard $simmrangex = "02000000"; $simmbanks = 8; $simmsperbank = 1; @socketstr = qw(J0300 J0301 J0302 J0303 J0400 J0401 J0402 J0403); @orderstr = qw(); @groupstr = qw(); @bankstr = qw(0 1 2 3 4 5 6 7); @bytestr = qw(); } if ("$model" =~ /SPARCstation-10/) { # Accepts 16MB and 64MB SIMMs on motherboard $simmrangex = "04000000"; $simmbanks = 8; $simmsperbank = 1; @socketstr = qw(J0201 J0203 J0302 J0304 J0202 J0301 J0303 J0305); @orderstr = qw(1st 3rd 4th 2nd 8th 6th 5th 7th); @groupstr = qw(); @bankstr = qw(0 1 2 3 4 5 6 7); @bytestr = qw(); } if ("$model" eq "SPARCstation-20") { # Accepts 16MB, 32MB and 64MB SIMMs on motherboard $simmrangex = "04000000"; $simmbanks = 8; $simmsperbank = 1; @socketstr = qw(J0201 J0303 J0202 J0301 J0305 J0203 J0302 J0304); @orderstr = qw(1st 2nd 3rd 4th 5th 6th 7th 8th); @groupstr = qw(); @bankstr = qw(0 1 2 3 4 5 6 7); @bytestr = qw(); } if ("$model" eq "SPARCsystem-600") { # Accepts 4MB or 16MB SIMMs on motherboard, 1MB or 4MB SIMMs on VME # expansion card $simmrangex = "10000000"; $simmbanks = 2; $simmsperbank = 16; @socketstr = qw(U1107 U1307 U1105 U1305 U1103 U1303 U1101 U1301 U1207 U1407 U1205 U1405 U1203 U1403 U1201 U1401 U1108 U1308 U1106 U1306 U1104 U1304 U1102 U1302 U1208 U1408 U1206 U1406 U1204 U1404 U1202 U1402); @orderstr = qw(); @groupstr = qw(); @bankstr = qw(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1); @bytestr = qw(0L0 0L1 1L0 1L1 2L0 2L1 3L0 3L1 4L0 4L1 5L0 5L1 6L0 6L1 7L0 7L1 0H0 0H1 1H0 1H1 2H0 2H1 3H0 3H1 4H0 4H1 5H0 5H1 6H0 6H1 7H0 7H1); } if ("$model" eq "SPARCserver-1000") { # Accepts 8MB and 32MB SIMMs on motherboard $simmrangex = "08000000"; $simmbanks = 4; $simmsperbank = 4; @socketstr = qw(J2800 J2900 J3000 J3100 J3200 J3300 J3400 J3500 J3600 J3700 J3800 J3900 J4000 J4100 J4200 J4300); @orderstr = qw(); @groupstr = qw(0 0 0 0 1 1 1 1 2 2 2 2 3 3 3 3); @bankstr = qw(); @bytestr = qw(); } if ("$model" eq "SPARCcenter-2000") { # Accepts 8MB and 32MB SIMMs on motherboard $simmrangex = "08000000"; $simmbanks = 2; $simmsperbank = 8; @socketstr = qw(U4800 U5000 U4900 U5100 U4000 U4200 U4100 U4300 U4400 U4600 U4500 U4700 U3600 U3800 U3700 U3900); @orderstr = qw(); @groupstr = qw(0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1); @bankstr = qw(); @bytestr = qw(); } if ("$model" eq "Ultra-1") { # Accepts 16MB, 32MB, 64MB or 128MB DIMMs on motherboard $memtype = "DIMM"; $simmrangex = "10000000"; $simmbanks = 4; $simmsperbank = 2; @socketstr = qw(U0701 U0601 U0702 U0602 U0703 U0603 U0704 U0604); @orderstr = qw(); @groupstr = qw(); @bankstr = qw(0L 0H 1L 1H 2L 2H 3L 3H); @bytestr = qw(00-15 16-31 00-15 16-31 00-15 16-31 00-15 16-31); } if ("$model" eq "Ultra-2") { # Accepts 16MB, 32MB, 64MB or 128MB DIMMs on motherboard $memtype = "DIMM"; $simmrangex = "20000000"; $simmbanks = 4; $simmsperbank = 4; @socketstr = qw(U0501 U0401 U0701 U0601 U0502 U0402 U0702 U0602 U0503 U0403 U0703 U0603 U0504 U0404 U0704 U0604); @orderstr = qw(); @groupstr = qw(0 0 0 0 1 1 1 1 2 2 2 2 3 3 3 3); @bankstr = qw(0L 0H 1L 1H 0L 0H 1L 1H 0L 0H 1L 1H 0L 0H 1L 1H); @bytestr = qw(00-15 16-31 32-47 48-63 00-15 16-31 32-47 48-63 00-15 16-31 32-47 48-63 00-15 16-31 32-47 48-63); } if ("$model" eq "Ultra-30") { # Accepts 16MB, 32MB, 64MB or 128MB DIMMs on motherboard $memtype = "DIMM"; $simmrangex = "20000000"; $simmbanks = 4; $simmsperbank = 4; @socketstr = qw(U0701 U0801 U0901 U1001 U0702 U0802 U0902 U1002 U0703 U0803 U0903 U1003 U0704 U0804 U0904 U1004); @orderstr = qw(); @groupstr = qw(); @bankstr = qw(0L 0L 0H 0H 1L 1L 1H 1H 2L 2L 2H 2H 3L 3L 3H 3H); @bytestr = qw(); } if ("$model" eq "Ultra-5_10") { # Accepts 16MB, 32MB, 64MB, 128MB, or 256MB DIMMs on motherboard $memtype = "DIMM"; $simmrangex = "10000000"; $simmbanks = 2; $simmsperbank = 2; @socketstr = qw(DIMM1 DIMM2 DIMM3 DIMM4); @orderstr = qw(); @groupstr = qw(); @bankstr = qw(0L 0H 1L 1H); @bytestr = qw(); } if ("$model" eq "Ultra-60") { # Accepts 16MB, 32MB, 64MB or 128MB DIMMs on motherboard $memtype = "DIMM"; $simmrangex = "40000000"; $simmbanks = 4; $simmsperbank = 4; $prtconfgroups = 2; $valinc = 8; # fields per prtconf group # I am guessing here on the order of the DIMM address range # Assume that bank 3 (top) is stuffed first (factory default) @socketstr = qw(U0801 U0802 U0803 U0804 U0701 U0702 U0703 U0704 U1001 U1002 U1003 U1004 U0901 U0902 U0903 U0904); @groupstr = qw(); @bankstr = qw(1 1 1 1 0 0 0 0 3 3 3 3 2 2 2 2); @bytestr = qw(); } if ("$model" eq "Ultra-4") { # Accepts 16MB, 32MB, 64MB, 128MB or 256MB DIMMs on motherboard $memtype = "DIMM"; $simmrangex = "40000000"; $simmbanks = 4; $simmsperbank = 4; @socketstr = qw(U1901 U1902 U1903 U1904 U1801 U1802 U1803 U1804 U1701 U1702 U1703 U1704 U1601 U1602 U1603 U1604); @orderstr = qw(); @groupstr = qw(A A A A B B B B C C C C D D D D); @bankstr = qw(2 2 2 2 3 3 3 3 0 0 0 0 1 1 1 1); @bytestr = qw(); } if ("$model" eq "Ultra-Enterprise") { # Accepts 8MB, 32MB or 128MB DIMMs on motherboard, 2 banks of 8 DIMMs $memtype = "DIMM"; $simmrangex = "80000000"; $simmbanks = 2; $simmsperbank = 8; $simmspergroup = 8; $prtconfgroups = 2; $valinc = 8; # fields per prtconf group # Enterprise 3000, 4000, 5000, 6000 @socketstr = qw(J3100-J3800 J3101-J3801); @orderstr = qw(); @groupstr = qw(); @bankstr = qw(0 1); @bytestr = qw(); }
for($val=$val0; $val < scalar(@slots); $val = $val + $valinc) { $simmsz = $slots[$val]; $simmaddr = $slots[$val - $valaddr]; if ($simmsz eq "80000000") { $simmsize = 2048; } if ($simmsz eq "40000000") { $simmsize = 1024; } if ($simmsz eq "20000000") { $simmsize = 512; } if ($simmsz eq "10000000") { $simmsize = 256; } if ($simmsz eq "08000000") { $simmsize = 128; } if ($simmsz eq "04000000") { $simmsize = 64; } if ($simmsz eq "02000000") { $simmsize = 32; } if ($simmsz eq "01000000") { $simmsize = 16; } if ($simmsz eq "00800000") { $simmsize = 8; } if ($simmsz eq "00400000") { $simmsize = 4; } if ($simmsz eq "00100000") { $simmsize = 1; } $simmsize = $simmsize * $prtconfgroups; $totmem += $simmsize;
if ("$model" eq "Sun 4/75" & $simmbanks < $bankcnt + 2) { # SS2 SBus memory card if ("$simmaddr" eq "08000000") { printf "SBus primary contains "; } else { printf "SBus secondary contains "; } $simmstart = hex($simmaddr); $simmrange = hex($simmrangex); $simmstop = sprintf "%08lx", $simmstart + (2 * $simmrange) - 1; $totmem += $simmsize; $simmsize = $simmsize * 2; $val = $val + $valinc; printf $simmsize . "MB"; if ($verbose) { printf " (address 0x$simmaddr - 0x$simmstop)"; } printf "\n"; } elsif ($simmbanks > 0) { $simmstart = hex($simmaddr); $simmrange = hex($simmrangex); $simmstop = sprintf "%08lx", $simmstart + $simmrange - 1; $cnt = 0; if ($simmspergroup > 1) { $maxcnt = $simmbanks * $simmsperbank / $simmspergroup / $prtconfgroups; } else { $maxcnt = $simmbanks * $simmsperbank; } while ($cnt < $maxcnt) { if ($simmstart == ($simmrange * $cnt)) { $bankcnt = $cnt; $cnt3 = ($bankcnt * $simmsperbank); $socket = $socketstr[$cnt3]; $order = $orderstr[$cnt3]; $group = $groupstr[$cnt3]; $bank = $bankstr[$cnt3]; $byte = $bytestr[$cnt3]; } $cnt = $cnt + 1; } # # Check for 32MB SIMM. A 32MB SIMM is sometimes seen as 2 16MB # SIMMs. This may report more slots than are really in a system # (i.e. a SS20 with 8 32MB SIMMs reports 16 slots of 16MB each). # $start = $simmstart + ($simmrange / 2); $startx = sprintf "%08lx", $start; if ($slots[$val - 1 + $valinc] eq $startx) { $found32mb = 1; $totmem += $simmsize; $simmsize = $simmsize * 2; $val = $val + $valinc; } # if ($ultra eq "e") { # $val = $val + $valinc; # } if ($simmstart == 0) { $slot0 = $simmsize; } if ($simmsize > $largestsimm) { $largestsimm = $simmsize; }
$cnt2 = 0; if ($simmspergroup > 1) { $maxcnt2 = $simmsperbank / $simmspergroup; } else { $maxcnt2 = $simmsperbank; } while ($cnt2 < $maxcnt2) { if ($simmspergroup > 1) { printf "sockets $socket have $simmsperbank "; printf $simmsize/$simmsperbank . "MB ${memtype}s"; } else { printf "socket $socket has a "; printf $simmsize/$simmsperbank . "MB $memtype"; } if ($verbose) { printf " ("; if ("$order" ne "") { printf "$order $memtype, "; } if ("$group" ne "") { printf "group $group, "; } if ("$bank" ne "") { printf "bank $bank, "; } if ("$byte" ne "") { printf "byte $byte, "; } printf "address 0x$simmaddr - 0x$simmstop)"; } printf "\n"; $cnt2 = $cnt2 + 1; $cnt3 = ($bankcnt * $simmsperbank) + $cnt2; $socket = $socketstr[$cnt3]; $order = $orderstr[$cnt3]; $group = $groupstr[$cnt3]; $bank = $bankstr[$cnt3]; $byte = $bytestr[$cnt3]; } } elsif ($ultra == 1 | $ultra == 5 | $ultra == 10 | $ultra == 30) { printf "bank $slot has a pair of " . $simmsize/2 . "MB DIMMs\n"; } elsif ($ultra == 2 | $ultra == 450) { printf "group $slot has four " . $simmsize/4 . "MB DIMMs\n"; } elsif ($ultra == 60) { printf "group $slot has four " . $simmsize/2 . "MB DIMMs\n"; $totmem += $simmsize; } elsif ($ultra eq "e") { printf "group $slot has eight " . $simmsize/4 . "MB DIMMs\n"; $totmem += $simmsize; } else { printf "slot $slot has a " . $simmsize . "MB $memtype\n"; } $slot = $slot + 1; } if ($sx) { if ("$model" eq "SPARCstation-20") { printf "socket J0304"; } else { # SS10SX printf "socket J0301"; } printf " has a VSIMM installed for SX graphics\n"; } printf "total memory = " . $totmem . "MB\n"; # # Check for illegal SIMM stuffings # if ("$model" =~ /SPARCstation-10/) { if ($slot0 < $largestsimm & $BSD) { printf "ERROR: Install the highest capacity SIMM in socket "; printf "$socketstr[0] under Solaris 1.X.\n"; } if ($found32mb) { printf "ERROR: The 32MB SIMM is not supported in the SS10 "; printf "or SS10SX.\n"; } }
# # Check for possible memory detection errors by this program # if ($installed_memory > 0) { if ($installed_memory != $totmem) { printf "ERROR: Total memory installed (${installed_memory}MB) "; printf "does not match total memory found (${totmem}MB\n"; printf " This is most likely because memconf does not "; printf "recognize this system.\n"; printf " Send the output of \"$config_cmd\" "; printf "to tschmidt\@micron.com\n"; printf " so that memconf can be enhanced to recognize "; printf "this system.\n"; } }
Date: Tue, 2 Feb 1999 17:12:56 +0100 (MET) From: Fischer Jens <fischjns@kat.ina.de> Reply-To: Fischer Jens <fischjns@kat.ina.de> Subject: Re: Remotely checking memory bank configuration To: jspieth@rpm.com MIME-Version: 1.0 Content-Type: MULTIPART/mixed; BOUNDARY=Pride_of_Lions_208_000 X-Mailer: dtmail 1.2.1 CDE Version 1.2.1 SunOS 5.6 sun4u sparc
Content-Type: TEXT/plain; charset=us-ascii Content-MD5: 9iLwKURMzEQcpEkCLxQymQ==
Hi Joel,
the attached summaries are describing two possibilities to check this. The first is a script I have written two years ago, but I haven't found any wrong results even with newer hardware yet. The other one is an executable which you can retrieve from the net which does nearly the same.
Hope that helps.
Regards - Jens
I User : Jens Fischer Department : DV-Anwendungsentwicklung Technik I N A Company : INA Werk Schaeffler oHG Address Industriestrasse 1-3 A D 91074 - Herzogenaurach Phone : (+49)9132-824764 FAX : (+49)9132-824953 e-mail : fischjns@kat.ina.de Content-Type: TEXT/plain; name=Untitled; charset=us-ascii Content-Description: Untitled Content-MD5: eN1vfCZ4SC2A5iQwhnSmhQ==
From: sburch@derwent.co.uk Mime-Version: 1.0 Date: Thu, 15 May 1997 14:51:03 +0100 Subject: SUMMARY: installed memory config To: sun-managers@ra.mcs.anl.gov Content-Transfer-Encoding: 7bit Content-Description: cc:Mail note part
My original question was :-
Is is possible to display the exact sim configuration in a system without physically removing the lid.
The answer is yes, the following is a summary of the replies I recieved :-
1) /usr/kvm/ptrdiag, though this only seems to be available pre Solaris 2.5. Post 2.5 it seems to have disappeared as a result of OS changes.
2) use the prom diagnostics as follows :-
- shut down to PROM level
- setenv diag-switch? true
- reset
The system will take some time to reset, but when the video comes on there will be a list of what is in each memory slot. You can STOP-A and reset diag-switch? back to false, after that.
Obviously this requires system down time which I was trying to avoid however for those people with a screwdriver...
3) Several scripts were supplied, the one which seemed to provide the most consistent and correct results was as follows (courtesy of fischjns@kat.ina.de)
#!/bin/sh prtconf -pv | grep -v translations > /tmp/prtconf.tmp type=`grep banner-name /tmp/prtconf.tmp | sed -e 's/.*'\''\(.*\)'\''/\1/'`
ss20=false case "$type" in "Sun Ultra"*) groups=4 ;; "SPARCstation 20"*) groups=3 ss20=true ;; "SPARCstation LX"*) groups=3 ;; "SPARCstation 5"*) groups=3 ;; "") # IPX shows no banner name, don't no about other sun4c machines groups=3 ;; default) echo "unknown machine type $banner-name for $var" ;; esac
# for debugging: # echo "$type $groups" # echo $reg
banks=`awk ' BEGIN { groups='$groups' } /reg:/ {reg=$2} /name:.*'\''memory'\''/ { nreg=split(reg,regar,".") for(i=groups;i<=nreg;i+=groups) print substr(regar[i],1,3) }' /tmp/prtconf.tmp | (echo 'ibase=16';cat) | bc`
if [ $ss20 = true ] then echo $banks | awk '{for(i=1;i<=NF;i++) printf("%5s",$i)} END {print}' | sed -e 's/16 16/32/g' else echo $banks | awk '{for(i=1;i<=NF;i++) printf("%5s",$i)} END {print}' fi
Jens made the following follow up comments:-
I forgot to mention in my mail that the output of my script shows the amount of memory in each bank, so you need to know how much SIMMs belong to each bank if you realy want to know the size of each single SIMM.
E.g. if the output is 64 64 on an Ultra 1 this means that there are two banks with 64 MB, each of them consist of 2 SIMMs with 32 MB each as the SIMMs in an Ultra 1 are installed in pairs.
Kind Regards - Jens Fischer
Basically when I ran the script on my system it reported 3x32MB sim banks which basically means (2x16MB)x3 (Ultras take simms in pairs). This meant given the 8 total simm slots I had two to play with or a further pair (2x16=32,2x32=64,2x128=256).
A second script, memconf, was supplied (from a previous summary) but this seemed to produce incorrect results for one of my Ultras.
Some of this information came from a previous summary which can be found by search the sun manager archives (for simm) at :-
http://www.dataman.nl/cgi-bin/sunmanagers
or
http://www.latech.edu/sunman.html
Again many thanks to those people who replied.
Date: Tue, 2 Feb 1999 09:00:38 -0700 (MST) From: Jerry Litteer <gll@inel.gov> Reply-To: Jerry Litteer <gll@inel.gov> Subject: Re: Remotely checking memory bank configuration To: jspieth@rpm.com : : : X-Mailer: dtmail 1.2.1 CDE Version 1.2.1 SunOS 5.6 sun4u sparc
I just checked on my e/5000 (on 2.6) using prtdiag [-v] I get
========================= Memory =========================
Intrlv. Intrlv. Brd Bank MB Status Condition Speed Factor With --- ----- ---- ------- ---------- ----- ------- ------- 0 0 1024 Active OK 60ns 4-way A 0 1 256 Active OK 60ns 4-way B 2 0 1024 Active OK 60ns 4-way A 2 1 256 Active OK 60ns 4-way B 4 0 1024 Active OK 60ns 4-way A 4 1 256 Active OK 60ns 4-way B 5 0 1024 Active OK 60ns 4-way A 5 1 256 Active OK 60ns 4-way B 6 0 1024 Active OK 60ns 2-way C 6 1 256 Active OK 60ns 2-way D 7 0 1024 Active OK 60ns 2-way C 7 1 256 Active OK 60ns 2-way D
This archive was generated by hypermail 2.1.2 : Fri Sep 28 2001 - 23:13:14 CDT