#!/usr/bin/env perl
#
# @(#) memconf - Identify sizes of SIMM/DIMM memory modules installed on a
# @(#)           Sun workstation or server.
# @(#) Micron Technology, Inc. - Tom Schmidt 11-Oct-2001 V1.42
#
# Maintained by Tom Schmidt (tschmidt@micron.com)
#
#   If memconf does not recognize a system, then please E-mail the output of
#   'memconf -v', '/usr/sbin/prtconf -pv' (or '/usr/etc/devinfo -pv' on Solaris
#   1.X) and '/usr/platform/`uname -i`/sbin/prtdiag -v' if available to
#   tschmidt@micron.com so that memconf can be enhanced to recognize it.
#   If the unrecognized system is a Sun clone, please also send any hardware
#   documentation on the memory layout that you may have. Check my website
#   at http://www.4schmidts.com/unix.html to get the latest version of memconf.
#
# Usage: memconf [ -v | -D | -h ] [explorer_dir]
#                  -v            verbose mode
#                  -D            E-mail results to memconf maintainer
#                  -h            print help
#                  explorer_dir  Sun Explorer output directory
#
# memconf reports the size of each SIMM/DIMM memory module installed in a
# system. It also reports the system type and any empty memory sockets.
# In verbose mode, it also reports:
#  - banner name, model and CPU/system frequencies
#  - address range and bank numbers for each module
#
# memconf is Y2K compliant. There are no date calls in the program. Your
# Operating System or Perl version may not be Y2K compliant.
#
# memconf is free software; you can redistribute it and/or modify it under
# the terms of the GNU General Public License as published by the Free
# Software Foundation; either version 2 of the License, or (at your option)
# any later version.
#
# Based on SunManagers SUMMARY by Howard Modell (h.modell@ieee.org)
# on 29-Jan-1997.
#
# Tested to work on:
# - sun4c Sun SS1, SS2, IPC, IPX, ELC with Open Boot PROM V2.X
# - sun4m Sun 4/6x0, SS4, SS5, SS10, SS10SX, SS20, LX/ZX, Classic, Voyager
# - sun4d Sun SPARCserver-1000, 1000E, SPARCcenter-2000, 2000E
# - sun4u Sun Ultra 1, 2, 5, 10, 30, 60, 450
# - sun4u Sun Ultra Enterprise 220R, 250, 450
# - sun4u Sun Ultra Enterprise 3000, 3500, 4000/5000, 4500/5500, 6000, 6500
# - sun4u1 Sun Ultra Enterprise 10000
# - sun4u Sun SPARCengine Ultra AX, AXi, AXmp, AXmp+, AXe
# - sun4u Sun SPARCengine CP 1500
# - sun4u Sun Netra t1 100/105, t1120/1125, ft1800, X1, T1 200, AX1105-500
# - sun4u Sun Blade 1000, Sun Blade 100
# - sun4u Sun Fire 280R
# - sun4u Sun Fire 3800, 4800, 4810, and 6800 (does not report empty sockets)
# - sun4u Sun Fire 880 (does not report empty sockets)
# - sun4m Tatung COMPstation 5, 10, 20AL, 20S and 20SL clones
# - sun4m transtec SPARCstation 20I clone
# - sun4m Rave Axil-255 SPARCstation 5 clone
# - sun4m Rave Axil-245, 311 and 320 clones (no verbose output)
# - sun4u AXUS Ultra 250
# - sun4u Cycle CycleQUAD
# - sun4u Tatung COMPstation U2, U60 and U80D clones
# - Force Computers SPARC clones (no verbose output)
# - Tadpole SPARCbook 3 (no verbose output)
# - Auspex 7000/650 (no verbose output)
# - Fujitsu S-4/10H and S-4/20H clones (no verbose output)
# - Fujitsu GP7000 and GP7000F
# - Fujitsu Siemens PrimePower 200, 400, and 800
# - Twinhead TWINstation 5G and 20G
# - Detects VSIMMs for SX graphics on SS10SX/SS20 (1st VSIMM only)
# - Detects Prestoserve NVSIMMs on SS10/SS20/SS1000/SC2000
#
# Untested systems that might work:
# - sun4c Sun SS1+ with Open Boot PROM V2.X
# - sun4u Sun Fire 15000 (does not report empty sockets)
# - sun4m Tatung COMPstation 20A clone
# - Fujitsu Siemens PrimePower 600
# - May not work properly on Sun clones
#
# Won't work on:
# - sun4u Sun Ultra 80, Ultra Enterprise 420R, and Netra t1400/1405.
#   Not enough information is provided about the memory in the prtconf and
#   prtdiag outputs by the Open Boot PROM.
# - Systems without /dev/openprom
# - sun4c Sun SS1, SS1+, SLC, IPC with Open Boot PROM V1.X (no 'memory' lines
#   in devinfo/prtconf output)
# - sun4 kernel architecture, and sun3 and older systems
# - i86pc Solaris on Intel-based (x86) machines only show total memory
# - Perl 5.001 is known to have problems with hex number conversions
# - Does not detect unused VSIMMs (another FB installed) or second VSIMM
#
# To Do list and Revision History can be found on the maintainers web site at
# http://www.4schmidts.com/unix.html

# Uncomment for debugging (perl 5 only)
#use diagnostics;

$version = "V1.42";
$version_date = "11-Oct-2001";
$URL = "http://www.4schmidts.com/unix.html";
$ENV{PATH} = "/usr/sbin:/bin:/usr/bin:/usr/ucb:/usr/local/bin:/var/local/bin:$ENV{PATH}";
$_ = $];
$^W = 1; # Enables -w warning switch, put here for SunOS4 compatibility.
($PERL_VERSION_MAJOR) = /(\d).*/;
if ($PERL_VERSION_MAJOR < 5) {
	($PERL_VERS) = /(\d\.\d)/;
	($PERL_PATCH) = /(\d{2})$/;
	$PERL_VERSION = "$PERL_VERS$PERL_PATCH";
} else {
	($PERL_VERSION) = /(\d\.\d{3}).*/;
}

if (-x '/usr/bin/uname') {
	$hostname = `/usr/bin/uname -n`;
	chop $hostname;
	$machine = `/usr/bin/uname -m`;
	chop $machine;
	$operating_system = `/usr/bin/uname`;
	chop $operating_system;
	$sunos = `/usr/bin/uname -r`;
	chop $sunos;
	$platform = $machine;
} else {
	$hostname = "";
	$machine = "";
	$operating_system = "this unsupported";
	$sunos = "";
}
$prtdiag_cmd = "";
$prtdiag_exec = "";
if (-d '/usr/platform') {
	$platform = `/usr/bin/uname -i`;
	chop $platform;
	if (-x "/usr/platform/$platform/sbin/prtdiag") {
		$prtdiag_cmd = "/usr/platform/$platform/sbin/prtdiag";
	} elsif (-x "/usr/platform/$machine/sbin/prtdiag") {
		$prtdiag_cmd = "/usr/platform/$machine/sbin/prtdiag";
	}
} elsif (-x '/usr/kvm/prtdiag') {
	$platform = $machine;
	$prtdiag_cmd = '/usr/kvm/prtdiag';
}
if ($prtdiag_cmd) {
	# Force C locale so that prtdiag output is in English
	$prtdiag_exec = "/bin/sh -c 'LC_ALL=C $prtdiag_cmd'";
}
$buffer = "";
$filename = "";
$memory_size = "";
$installed_memory = 0;
$ultra = 0;
$simmbanks = 0;
$simmspergroup = 1;
$bankcnt = 0;
$slot0 = 0;
$smallestsimm = 16777216;
$largestsimm = 0;
$found16mb = 0;
$found32mb = 0;
$sxmem = 0;
$nvmem = 0;
$nvmem1 = 0;
$nvmem2 = 0;
$memtype = "SIMM";
$sockettype = "socket";
$verbose = 0;
$recognized = 1;
$untested = 1;
$untested_type = "";
$perlhexbug = 0;
$exitstatus = 0;
$meg = 1048576;
@socketstr = ("");
@orderstr = ("");
@groupstr = ("");
@bankstr = ("");
@bytestr = ("");
@slotstr = ("");
@simmsizes = (0,16777216);
@simmsizesfound = ();
$socket = "";
$order = "";
$group = "";
$slotnum = "";
$bank = "";
$dualbank = 0;
$byte = "";
$gotmemory = "";
$gotmodule = "";
$gotmodulenames = "";
$slotname0 = "";
@boards_cpu = "";
@boards_mem = "";
$empty_banks = "";
$nvsimm_banks = "";
$boardslot_cpu = " ";
$boardslot_cpus = " ";
@boardslot_cpus = ();
$boardslot_mem = " ";
$boardslot_mems = " ";
@boardslot_mems = ();
$boardfound_cpu = 0;
$boardfound_mem = 0;
$prtdiag_has_mem = 0;
$prtdiag_failed = 0;
$flag_cpu = 0;
$flag_mem = 0;
$format_cpu = 0;
$format_mem = 0;
$foundname = 0;
$sockets_used = "";
$sockets_empty = "";
$sortslots = 1;
$devtype = "";
$interleave = 0;
$freq = 0;
$sysfreq = 0;
$cpufreq = 0;
$cputype = "";
$ncpu = 0;
$header_shown = 0;
$romver = "";
$romvernum = "";
$tenbit = 0;
$SUNWexplo = 0;
$banner = "";
$bannermore = "";
$model = "";
$modelmore = "";
$BSD = 1;	# Initially assume SunOS 4.X
$config_cmd = "/usr/etc/devinfo -pv";
$config_command = "devinfo";
$config_permission = 0;

#
# Parse options
#
if ($#ARGV >= 0) {
	foreach $name (@ARGV) {
		if ($name eq "-v") {
			# verbose mode
			$verbose = 1;
		} elsif ($name eq "-d") {
			# more verbose debug mode
			$verbose = 2;
		} elsif ($name eq "-D") {
			# E-mail information of system to maintainer
			$verbose = 3;
			open(MAILFILE, ">/tmp/memconf.$hostname") || die "can't open /tmp/memconf.$hostname: $!";
			print MAILFILE "Output from 'memconf -d' on $hostname\n";
			print MAILFILE "----------------------------------------------------\n";
			close(MAILFILE);
			open(STDOUT, "| tee -a /tmp/memconf.$hostname") || die "can't open /tmp/memconf.$hostname: $!";
		} elsif (-f "$name/sysconfig/prtconf-vp.out") {
			# Sun Explorer output
			$SUNWexplo = 1;
			open(FILE, "<$name/sysconfig/prtconf-vp.out");
			@config = <FILE>;
			close(FILE);
			if (-f "$name/sysconfig/prtdiag-v.out") {
				open(FILE, "<$name/sysconfig/prtdiag-v.out");
				@prtdiag = <FILE>;
				close(FILE);
			}
			if (-f "$name/sysconfig/uname-a.out") {
				open(FILE, "<$name/sysconfig/uname-a.out");
				$uname = <FILE>;
				close(FILE);
				chop($uname);
				@unamearr = split(/\s/, $uname);
				$hostname = $unamearr[1];
				$machine = $unamearr[4];
				$sunos = $unamearr[2];
				$platform = $unamearr[6];
				$prtdiag_cmd = "/usr/platform/$platform/sbin/prtdiag";
			} else {
				if ($config[0] =~ /System Configuration:/) {
					@machinearr = split(/\s+/, $config[0]);
					$machine = $machinearr[4];
				}
				$sunos = "";
				$hostname = "";
			}
			if (-f "$name/sysconfig/prtconf-V.out") {
				open(FILE, "<$name/sysconfig/prtconf-V.out");
				$romver = <FILE>;
				close(FILE);
				chop $romver;
			}
			$filename = "$name";
		} elsif (-f $name) {
			# Test file with prtconf/devinfo output
			open(FILE, "<$name");
			@config = <FILE>;
			close(FILE);
			# Test file may also have prtdiag output
			@prtdiag = @config;
			$hostname = "";
			if ($config[0] =~ /System Configuration:/) {
				@machinearr = split(/\s+/, $config[0]);
				$machine = $machinearr[4];
			}
			$sunos = "";
			$filename = "$name";
		} else {
			&show_help;
		}
	}
}
if ($filename eq "") {
	if ("$operating_system" ne "SunOS") {
		print "ERROR: memconf is only supported on SPARC and i86pc ";
		print "systems running SunOS\n       4.X or 5.X, not on ";
		print "$operating_system $machine systems.\n";
		print "       It may be able to process Sun Explorer data ";
		print "on this machine.\n";
		exit 1;
	}
	if (-f '/vmunix') {
		# SunOS 4.X (Solaris 1.X)
		$BSD = 1;
		if (! -x '/usr/etc/devinfo') {
			print "ERROR: no 'devinfo' command. Aborting.\n";
			exit 1;
		}
		$config_cmd = "/usr/etc/devinfo -pv";
		$config_command = "devinfo";
	} else {
		# Solaris 2.X or later
		$BSD = 0;
		if (! -x '/usr/sbin/prtconf') {
			print "ERROR: no 'prtconf' command. Aborting.\n";
			exit 1;
		}
		$config_cmd = "/usr/sbin/prtconf -pv";
		$config_command = "prtconf";
	}
}
$kernbit = "";
$hasprtconfV = 0;
$solaris = "";
if ($sunos eq "4.1.1") { $solaris = "1.0"; }
if ($sunos eq "4.1.2") { $solaris = "1.0.1"; }
if ($sunos =~ /4.1.3/) { $solaris = "1.1"; }
if ($sunos eq "4.1.3_U1") { $solaris = "1.1.1"; }
if ($sunos eq "4.1.4") { $solaris = "1.1.2"; }
if ($sunos =~ /5./) {
	$sunosminor = $sunos;
	$sunosminor =~ s/5.//;
	$release = "";
	if ($SUNWexplo == 1) {
		if (-f "$filename/etc/release") {
			open(FILE, "<$filename/etc/release");
			$release = <FILE>;
			close(FILE);
		}
	} else {
		if (-f '/etc/release') {
			open(FILE, "</etc/release");
			$release = <FILE>;
			close(FILE);
		}
	}
	if ($release =~ "Solaris") {
		$release =~ s/\s+//;
		chop $release;
		$solaris = "$release";
	}
	if ($sunosminor =~ /[7-9]/) {
		$hasprtconfV = 1;
		$solaris = $sunosminor if ($solaris eq "");
		$kernbit = 32;
		$cpuarch = "";
		if ($SUNWexplo == 1) {
			if (-f "$filename/sysconfig/isainfo.out") {
				open(FILE, "<$filename/sysconfig/isainfo.out");
				$cpuarch = <FILE>;
				close(FILE);
			} elsif (-f "$filename/sysconfig/isainfo-kv.out") {
				open(FILE, "<$filename/sysconfig/isainfo-kv.out");
				$cpuarch = <FILE>;
				close(FILE);
			}
		} elsif (-x '/bin/isainfo') {
			$cpuarch = `/bin/isainfo -k`;
		}
		if ($cpuarch =~ /sparcv9/ ) {
			$kernbit = 64;
		}
	} elsif ($sunosminor =~ /[4-6]/) {
		$hasprtconfV = 1;
		$solaris = "2.$sunosminor" if ($solaris eq "");
	} else {
		$solaris = "2.$sunosminor";
	}
	if ("$machine" eq "i86pc" & $sunosminor =~ /[0-5]/) {
		# x86 Solaris 2.5.1 and earlier has different syntax than SPARC
		$hasprtconfV = 0;
		$config_cmd = "/usr/sbin/prtconf -v";
	}
}
if ($filename eq "") {
	@config = `$config_cmd`;
	if ($hasprtconfV) {
		# Solaris 2.4 or later
		$romver = `/usr/sbin/prtconf -V 2>/dev/null`;
		chop $romver;
		@romverarr = split(/\s/, $romver);
		$romvernum = $romverarr[1];
	} else {
		# Solaris 2.3 or older
		# Try to use sysinfo if installed to determine the OBP version.
		# sysinfo is available from http://www.MagniComp.com/sysinfo/
		close(STDERR);
		$romver = `sysinfo -show romver 2>/dev/null | tail -1`;
		open(STDERR);
		if ($romver eq "") {
			# Assume it is old
			$romver = "2.X" if ($machine =~ /sun4/);
		} else {
			chop $romver;
			@romverarr = split(/\s/, $romver);
			$romver = $romverarr[$#romverarr];
		}
		$romvernum = $romver;
	}
}

sub show_help {
	print "Usage: memconf [ -v | -D | -h ] [explorer_dir]\n";
	print "                 -v            verbose mode\n";
	print "                 -D            E-mail results to memconf maintainer\n";
	print "                 -h            print help\n";
	print "                 explorer_dir  Sun Explorer output directory\n";
	print "\nThis is memconf, $version $version_date\n\n";
	print "Please send bug reports and enhancement requests along with ";
	print "the output of\n\"$config_cmd\" ";
	print "and \"$prtdiag_cmd -v\" " if ($prtdiag_cmd);
	print "\nto tschmidt\@micron.com as E-mail attachments so that ";
	print "memconf can be enhanced.\nYou can do this using the 'memconf ";
	print "-D' command. Check my website at\n";
	print "$URL to get the latest version of memconf.\n";
	exit;
}

sub show_header {
	if ($header_shown == 1) {
		return;
	}
	$header_shown = 1;
	print "memconf:  $version $version_date $URL\n" if ($verbose);
	print "hostname: $hostname\n" if ($hostname);
	if ($filename) {
		if ($SUNWexplo == 1) {
			print "Sun Explorer directory: $filename\n";
		} else {
			print "filename: $filename\n";
		}
	}
	if ($verbose) {
		if ($banner) {
			print "banner:   $banner";
			print " $bannermore" if ($bannermore);
			print "\n";
		}
		if ($model) {
			print "model:    ";
			print "$manufacturer " if ($manufacturer);
			print "$model";
			print " $modelmore" if ($modelmore);
			print " $realmodel" if ($realmodel);
			print "\n";
		}
		if ($filename eq "" | $SUNWexplo == 1) {
			if ($solaris) {
				print "Solaris " if ($solaris !~ /Solaris/);
				print "${solaris}, ";
			}
			print "${kernbit}-bit kernel, " if ($kernbit);
			print "SunOS ${sunos}\n";
		} elsif ($BSD) {
			print "Solaris 1.X, SunOS 4.X\n";
		} else {
			print "Solaris 2.X, SunOS 5.X\n";
		}
		if ($ncpu > 0 & $cpufreq > 0) {
			print "$ncpu $cputype cpu";
			print "s" if ($ncpu > 1);
		}
		if ($cpufreq) {
			print ", cpu freq: ${cpufreq}MHz";
			if ($sysfreq) {
				print ", ";
			} else {
				print "\n";
			}
		}
		print "system freq: ${sysfreq}MHz\n" if ($sysfreq);
	} else {
		if ($manufacturer ne "" & $banner !~ /^$manufacturer/) {
			print "$manufacturer ";	
		}
		if ($bannermore) {
			print "$banner $bannermore";
		} elsif ($modelmore) {
			print "$model $modelmore";
		} elsif ($banner) {
			print "$banner";
			print " $bannermore" if ($bannermore);
		} elsif ($model) {
			print "$model";
		}
		print " $realmodel" if ($realmodel);
		print "\n";
	}
	# debug output
	if ($verbose > 1) {
		print "manufacturer = $manufacturer\n" if ($manufacturer);
		print "banner = $banner\n" if ($banner);
		print "bannermore = $bannermore\n" if ($bannermore);
		print "model = $model\n" if ($model);
		print "modelmore = $modelmore\n" if ($modelmore);
		print "machine = $machine\n";
		print "platform = $platform\n";
		print "ultra = $ultra\n" if ($ultra);
		print "motherboard = $motherboard\n" if ($motherboard);
		print "romver = $romver\n" if ($romver);
		print "perl version: $]\n";
		print "memory line: $gotmemory\n" if ($gotmemory);
		print "module info: $gotmodule\n" if ($gotmodule);
		print "module name info: $gotmodulenames\n" if ($gotmodulenames);
	}
	if ($verbose >= 1 & $boardfound_cpu) {
		print "CPU Units:\n";
		print @boards_cpu;
		print "Memory Units:\n";
	}
	if ($interleave) {
		print "Memory Interleave Factor = " . $interleave . "-way\n";
	}
}

sub show_unrecognized {
	print "       This is most likely because memconf $version does not ";
	print "completely\n";
	print "       recognize this SunOS $sunos $platform system.\n";
	&show_request if ($untested == 0);
}

sub show_untested {
	if ($untested_type eq "OS") {
		print "WARNING: This is an untested SunOS $sunos operating";
	} elsif ($untested_type eq "OBP") {
		print "ERROR: This is an untested SunOS $sunos OBP $romvernum";
	} else {
		print "ERROR: This is an untested SunOS $sunos";
	}
	print " system by memconf $version\n";
	print "       Please let the author know how it works.\n";
	$exitstatus = 1;
	&show_request;
}

sub show_request {
	print "       Check my website at $URL\n";
	print "       for a newer version of memconf that may recognize this ";
	print "system better.\n";
	print "       Please run 'memconf -D' to E-mail the output of the ";
	print "following commands\n       to Tom Schmidt ";
	print "(tschmidt\@micron.com) so that memconf $version can be\n";
	print "       enhanced to properly recognize this system:\n";
	print "            memconf -d\n            $config_cmd\n";
	print "            $prtdiag_cmd -v\n" if ($prtdiag_cmd);
	if ($untested) {
		print "       If this system is a Sun clone, ";
		print "please also send any hardware\n       documentation ";
		print "on the memory layout that you may have.\n";
	}
}

sub check_prtdiag {
	if ("$prtdiag_exec" eq "" & $filename eq "") {
		return;
	}
	@prtdiag = `$prtdiag_exec` if ($filename eq "");
	foreach $line (@prtdiag) {
		if ($line =~ /[Pp]rtdiag [Ff]ailed/) {
			$prtdiag_failed = 1;
		}
		if ($line =~ /=====/) {
			$flag_cpu = 0;	# End of CPU section
			$flag_mem = 0;	# End of memory section
		}
		if ($line =~ /Memory Units: Group Size/) {
			# Start of CPU and memory section on SS1000/SC2000
			$flag_cpu = 1;
			$flag_mem = 1;
		}
		$line = "Memory $line" if ($line =~ /^Segment Table:/);
		if ($flag_mem >= 1 & $line ne "\n") {
			push(@boards_mem, "$line");
			$boardfound_mem = 1;
			$boardfound_mem = 0 if ($line =~ /Cannot find/);
			@linearr = split(' ', $line);
			if ($#linearr >= 2) {
				if ($linearr[2] =~ /\bU\d\d\d\d\b/) {
					$sockets_used .= " $linearr[2]";
				} elsif ($linearr[2] =~ /\b\d\d\d\d\b/) {
					$sockets_used .= " U$linearr[2]";
				}
			}
			if ($linearr[$#linearr] =~ /\bDIMM\d/) {
				$sockets_used .= " $linearr[$#linearr]";
			}
			if ($linearr[$#linearr] =~ /\b[UJ]\d\d\d\d[\b,]/) {
				$sockets_used .= " $linearr[$#linearr]";
				$sockets_used =~ s/,/ /g;
			}
			if ($ultra eq "Sun Fire 280R") {
				if ($line =~ / CA    0     [0-3] .+4-way/) {
					$sockets_used = "J0100 J0202 J0304 J0406 J0101 J0203 J0305 J0407";
				} elsif ($line =~ / CA    0     [02] /) {
					$sockets_used .= " J0100 J0202 J0304 J0406";
				} elsif ($line =~ / CA    1     [13] /) {
					$sockets_used .= " J0101 J0203 J0305 J0407";
				}
			}
		}
		if ($line =~ /CPU Units:/ | $line =~ /===== CPU/) {
			$flag_cpu = 1;	# Start of CPU section
			$flag_mem = 0;	# End of memory section
		}
		if ($line =~ /Memory Units:/ | $line =~ /===== Memory / | $line =~ /Used Memory:/) {
			$flag_cpu = 0;	# End of CPU section
			$flag_mem = 1;	# Start of memory section
		}
		if ($line =~ /CPU Units:/ & $line =~ /Memory Units:/) {
			$flag_cpu = 1;	# Start of CPU section
			$flag_mem = 1;	# Start of memory section
		}
		if ($flag_cpu >= 1 & $line ne "\n") {
			push(@boards_cpu, "$line");
			$boardfound_cpu = 1;
		}
		if ($flag_cpu == 1 & $line =~ /------/) {
			# Next lines are the CPUs on each system board
			$flag_cpu = 2;
		}
		if ($flag_mem == 1 & $line =~ /------/) {
			# Next lines are the memory on each system board
			$flag_mem = 2;
		}
	}
}

sub found_empty_bank {
	$empty_banks .= "," if ($empty_banks ne "");
	$boardslot_mem =~ s/[: ]//g;
	$empty_banks .= " Board $boardslot_mem @_";
}

sub found_nvsimm_bank {
	$nvsimm_banks .= ", Board $boardslot_mem @_";
}

$motherboard = "";
$realmodel = "";
$manufacturer = "";
$i = 0;
foreach $line (@config) {
	if ($line =~ /Node /) {
		$config_permission = 1;
	}
	if ($line =~ /banner-name:/ & $banner eq "") {
		$banner = $line;
		$banner =~ s/\s+banner-name:\s+//;
		$banner =~ s/'//g;
		$banner =~ s/SUNW,//g;
                $banner =~ s/TWS,//g;
                $banner =~ s/CYCLE,//g;
		chop $banner;
		$ultra = "ultra" if ($banner =~ /Ultra/);
		$ultra = "sparc64" if ($banner =~ /SPARC64/);
		$ultra = "e" if ($banner =~ /Enterprise/);
		$ultra = 1 if ($banner =~ /Ultra 1\b/);
		$ultra = 2 if ($banner =~ /Ultra 2\b/);
		$ultra = 5 if ($banner =~ /Ultra 5\b/);
		$ultra = "5_10" if ($banner =~ /Ultra 5\/10\b/);
		$ultra = 10 if ($banner =~ /Ultra 10\b/);
		$ultra = 30 if ($banner =~ /Ultra 30\b/);
		$ultra = 60 if ($banner =~ /Ultra 60\b/);
		$ultra = "220R" if ($banner =~ /Enterprise 220R\b/);
		$ultra = 80 if ($banner =~ /Ultra 80[\b\/]/);
		# E410 is prototype name of E420R, but may still be in the
		# banner as "Sun Ultra 80/Enterprise 410 UPA/PCI"
		$ultra = "420R" if ($banner =~ /Enterprise 410\b/);
		$ultra = "420R" if ($banner =~ /Enterprise 420R\b/);
		$ultra = 250 if ($banner =~ /\b250\b/);
		$ultra = 450 if ($banner =~ /\b450\b/);
		$ultra = "Netra t1" if ($banner =~ /Netra t1\b/);
		$ultra = "cp1400" if ($banner =~ /Ultra CP 1400\b/);
		$ultra = "cp1500" if ($banner =~ /Ultra CP 1500\b/);
		$ultra = "Sun Blade 1000" if ($banner =~ /Sun Excalibur\b/); # prototype
		$ultra = "Sun Blade 1000" if ($banner =~ /Sun Blade 1000\b/);
		$ultra = "Sun Blade 100" if ($banner =~ /Sun Grover\b/); # prototype
		$ultra = "Sun Blade 100" if ($banner =~ /Sun Blade 100\b/);
		$ultra = "Sun Fire 280R" if ($banner =~ /Enterprise 820R\b/); # prototype
		$ultra = "Sun Fire 280R" if ($banner =~ /Sun Fire 280R\b/);
		$ultra = "Sun Fire" if ($banner =~ /Serengeti\b/); # prototype
		$ultra = "Sun Fire" if ($banner eq "Sun Fire");
		$ultra = "Sun Fire 880" if ($banner =~ /Sun Fire 880\b/);
		# New Sun Fire 15000 system - untested
		$ultra = "Sun Fire 15000" if ($banner =~ /Sun Fire 15000\b/);
		if ($banner =~ /Ultra 4FT\b/) {
			$ultra = "Netra ft1800";
			$bannermore = "(Netra ft1800)";
			$modelmore = "(Netra ft1800)";
		}
		if ($banner =~ /\bMP-250\b/) {
			$ultra = "axus250";
			$bannermore = "Ultra-250";
			$modelmore = "(Ultra-250)";
		}
		$manufacturer = "AXUS" if ($ultra =~ /axus/);
		$manufacturer = "Rave" if ($banner =~ /Axil/);
		$manufacturer = "Cycle" if ($banner =~ /Cycle/);
		$manufacturer = "Tadpole" if ($banner =~ /Tadpole/);
		$manufacturer = "Tatung" if ($banner =~ /COMPstation/);
		$manufacturer = "Twinhead" if ($banner =~ /TWINstation/);
		$manufacturer = "Fujitsu" if ($banner =~ /Fujitsu/);
		$manufacturer = "Fujitsu Siemens" if ($banner =~ /Fujitsu Siemens/);
		# Only add "Sun" to those that don't already have it
		$manufacturer = "Sun" if ($banner =~ /^SPARCstation/ |
			$banner =~ /^SPARCsystem/ | $banner =~ /^SPARCclassic/ |
			$banner =~ /^SPARCserver/ | $banner =~ /^SPARCcenter/ |
			$banner =~ /Enterprise/ | $banner =~ /Premier 24/);
	}
	if ($line =~ /model:.*AXUS/ ) {
		# AXUS clones with their name on OBP
		$manufacturer = "AXUS";
	}
	if ($line =~ /SUNW,Ultra-/ | $line =~ /SUNW,SPARC/ | $line =~ /Sun.4/ |
	    $line =~ /SUNW,S240/ | $line =~ /SUNW,Ultra.*Engine/ |
	    $line =~ /SUNW,Premier-24/ | $line =~ /SUNW,UltraAX-/ |
	    $line =~ /\s+name:.*SUNW,Sun-/ |
	    $line =~ /SUNW,Grover/ | $line =~ /SUNW,Enterprise/ |
	    $line =~ /\s+name:.*'i86pc'/ | $line =~ /^i86pc/ |
	    $line =~ /model:\s+'SPARC CPU-/ | $line =~ /model:\s+'SPARC CPCI-/ |
	    $line =~ /SUNW,Axil-/ | $line =~ /\s+name:.*COMPstation/ |
	    $line =~ /\s+name:.*Tadpole/ | $line =~ /\s+name:.*Auspex/ |
	    $line =~ /\s+name:.*S-4/ | $line =~ /\s+name:.*FJSV,GP/ |
	    $line =~ /\s+name:.*CompuAdd/ ) {
		$model = $line;
		$model =~ s/\s+name:\s+//;
		$model =~ s/\s+model:\s+//;
		$model =~ s/'//g;
		chop $model;
		if ($filename ne "") {
			$platform = $model;
			$prtdiag_cmd = "/usr/platform/$platform/sbin/prtdiag" if ($prtdiag_cmd =~ /platform/);
		}
		$model =~ s/SUNW,//g;
                $model =~ s/TWS,//g;
                $model =~ s/CYCLE,//g;
                $model =~ s/Tadpole_//g;
                $model =~ s/ASPX,//g;
                $model =~ s/PFU,//g;
                $model =~ s/FJSV,//g;
                $model =~ s/CompuAdd //g;
		$ultra = "ultra" if ($model =~ /Ultra/);
		$ultra = "sparc64" if ($model =~ /SPARC64/);
		$ultra = 1 if ($model =~ /Ultra-1\b/);
		$ultra = 2 if ($model =~ /Ultra-2\b/);
		$ultra = 5 if ($model =~ /Ultra-5\b/);
		$ultra = "5_10" if ($model =~ /Ultra-5_10\b/);
		$ultra = 30 if ($model =~ /Ultra-30\b/);
		$ultra = 60 if ($model =~ /Ultra-60\b/);
		$ultra = 80 if ($model =~ /Ultra-80[\b\/]/);
		$ultra = 250 if ($model =~ /Ultra-250\b/);
		$ultra = 450 if ($model =~ /Ultra-4\b/);
		$ultra = "Netra t1" if ($banner =~ /Netra t1\b/);
		if ($model =~ /Ultra-4FT\b/) {
			$ultra = "Netra ft1800";
			$bannermore = "(Netra ft1800)";
			$modelmore = "(Netra ft1800)";
		}
		$ultra = "Sun Blade 1000" if ($model =~ /Ultra-100\b/); # prototype
		$ultra = "Sun Blade 1000" if ($model =~ /Sun-Blade-1000\b/);
		$ultra = "Sun Blade 100" if ($model =~ /Grover\b/); # prototype
		$ultra = "Sun Blade 100" if ($model =~ /Sun-Blade-100\b/);
		$ultra = "Sun Fire 280R" if ($model =~ /Enterprise-820R\b/); # prototype
		$ultra = "Sun Fire 280R" if ($model =~ /Sun-Fire-280R\b/);
		$ultra = "Sun Fire" if ($model =~ /Serengeti\b/); # prototype
		$ultra = "Sun Fire" if ($model eq "Sun-Fire");
		$ultra = "Sun Fire 880" if ($model =~ /Sun-Fire-880\b/);
		# New Sun Fire 15000 system - untested
		$ultra = "Sun Fire 15000" if ($model =~ /Sun-Fire-15000\b/);
		$ultra = "e" if ($model =~ /Ultra-Enterprise/);
		if ($banner =~ /\bMP-250\b/) {
			$ultra = "axus250";
			$bannermore = "Ultra-250";
			$modelmore = "(Ultra-250)";
		}
		$manufacturer = "AXUS" if ($ultra =~ /axus/);
		$modelmore = "SPARCstation SLC" if ($model eq "Sun 4/20");
		$modelmore = "SPARCstation ELC" if ($model eq "Sun 4/25");
		$modelmore = "SPARCstation IPC" if ($model eq "Sun 4/40");
		$modelmore = "SPARCstation IPX" if ($model eq "Sun 4/50");
		$modelmore = "SPARCstation 1" if ($model eq "Sun 4/60");
		$modelmore = "SPARCstation 1+" if ($model eq "Sun 4/65");
		$modelmore = "SPARCstation 2" if ($model eq "Sun 4/75");
		$modelmore = "(SPARCsystem 600)" if ($model =~ /Sun.4.600/ & $banner !~ /SPARCsystem/);
		$modelmore = "Sun 4/30" if ($model =~ /SPARCstation-LX/);
		$modelmore = "Sun 4/15" if ($model =~ /SPARCclassic/);
		$modelmore = "Sun 4/10" if ($model =~ /SPARCclassic-X/);
		$modelmore = "(SPARCstation 10SX)" if ($model =~ /Premier-24/);
		if ($model eq "i86pc") {
			$modelmore = "(Solaris on Intel-based (x86) machine)";
			$cputype = "x86";
			if ($filename eq "" & -x '/usr/sbin/psrinfo') {
				$ncpu = `/usr/sbin/psrinfo | wc -l`;
				$ncpu =~ s/\s+//;
				chop $ncpu;
				@psrinfo = `/usr/sbin/psrinfo -v`;
				if ($psrinfo[2] =~ /MHz/) {
					$cpufreq = $psrinfo[2];
					$cpufreq =~ s/.+ operates at //;
					$cpufreq =~ s/ MHz.+//;
					chop $cpufreq;
				}
			}
		}
		if ($model eq "S240") {
			$manufacturer = "Sun";
			$modelmore = "SPARCstation Voyager";
		}
		if ($model =~ /SPARC CP/) {
			$manufacturer = "Force Computers";
		}
		if ($model eq "S3GX") {
			$bannermore = "(SPARCbook 3GX)";
			$modelmore = "(SPARCbook 3GX)";
		}
		if ($model eq "S3XP") {
			$bannermore = "(SPARCbook 3XP)";
			$modelmore = "(SPARCbook 3XP)";
		}
		$manufacturer = "Sun" if ($model =~ /^SPARCstation/ |
			$model =~ /^SPARCsystem/ | $model =~ /^SPARCclassic/ |
			$model =~ /^SPARCserver/ | $model =~ /^SPARCcenter/ |
			$model =~ /Enterprise/ | $model =~ /Premier 24/);
		if ($model =~ /Auspex/) {
			$manufacturer = "Auspex";
                	$model =~ s/Auspex //g;
                	$bannermore = "Netserver";
                	$modelmore = "Netserver";
		}
		if ($model =~ /S-4/ | $model eq "GP" | $model eq "GPUS") {
			$manufacturer = "Fujitsu" if ($manufacturer eq "");
                	$model =~ s,_,/,g;
		}
		if ($line =~ /CompuAdd/) {
			$manufacturer = "CompuAdd";
			if ($model eq "SS-2") {
				$banner = $model if ($banner eq "");
				$bannermore = "SPARCstation 2";
				$modelmore = "SPARCstation 2";
			}
		}
	}
	$foundname = 1 if ($line =~ /\s+name:\s+/ );
	if ($line =~ /\s+model:\s+'.+,/ & $foundname == 0) {
		# Ultra 5/10 motherboard is 375-xxxx part number
		# SS10/SS20 motherboard is Sxx,501-xxxx part number
		if ($line =~ /,375-/ | $line =~ /,500-/ | $line =~ /,501-/) {
			$motherboard = $line;
			$motherboard =~ s/\s+model:\s+//;
			$motherboard =~ s/'//g;
			chop $motherboard;
		}
	}
	if ($line =~ /\sname:\s+'memory'/) {
		$j = $i - 2;
		if ($config[$j] =~ /\sreg:\s/) {
			$gotmemory = $config[$j];
			chop $gotmemory;
		} elsif ($config[$j - 1] =~ /\sreg:\s/) {
			$gotmemory = $config[$j - 1];
			chop $gotmemory;
		} elsif ($config[$j + 1] =~ /\sreg:\s/) {
			$gotmemory = $config[$j + 1];
			chop $gotmemory;
		}
	}
	if ($line =~ /\sdevice_type:\s+'memory-bank'/) {
		$j = $i - 3;
		if ($config[$j] =~ /\sreg:\s/ & $config[$j] !~ /.00000000$/) {
			$config[$j] =~ s/\s+reg:\s+//;
			if ($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:\s/) {
	#		$config[$i - 3] =~ s/\s+socket-name:\s+//;
	#		if ($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 .= ".$module[3]";
	#		chop $gotmodule;
	#		$config[$i + 1] =~ s/\s+name:\s+//;
	#		$config[$i + 1] =~ y/[a-z]/[A-Z]/;
	#		$gotmodule .= ".$config[$i + 1]";
	#		chop $gotmodule;
	#		$gotmodule =~ s/'//g;
	#	}
	#}
	if ($line =~ /\ssimm-use:\s+/) {
		# DIMM usage on Fujitsu GP7000
		$gotmodule = $config[$i];
		$gotmodule =~ s/\s+simm-use:\s+//;
		chop $gotmodule;
		$slotname0 = "SLOT0" if ($banner =~ /GP7000\b/);
	}
	if ($line =~ /\sdevice_type:\s+'memory-module'/) {
		# DIMM usage on Fujitsu GP7000F and PrimePower systems
		$slotname = "";
		if ($config[$i - 3] =~ /\scomponent-name:\s/) {
			$slotname = $config[$i - 3];
		}
		if ($config[$i - 4] =~ /\scomponent-name:\s/) {
			$slotname = $config[$i - 4];
		}
		if ($slotname ne "") {
			$slotname =~ s/\s+component-name:\s+//;
			$slotname =~ s/'//g;
			chop $slotname;
			if ($gotmodulenames) {
				$gotmodulenames .= ".$slotname";
			} else {
				$gotmodulenames = $slotname;
			}
			$slotname0 = $slotname if (! $slotname0);
			$config[$i - 1] =~ s/\s+reg:\s+//;
			@module = split(/\./, $config[$i - 1]);
			$gotmodulenames .= ".$module[1]";
			chop $gotmodulenames;
		}
	}
	if ($line =~ /\sname:\s+'cgfourteen'/) {
		# Determine size of VSIMM
		# Currently assumes only one VSIMM is installed
		if ($config[$i - 2] =~ /\sreg:\s/) {
			$sx_line = $config[$i - 2];
			chop $sx_line;
		} elsif ($config[$i - 3] =~ /\sreg:\s/) {
			$sx_line = $config[$i - 3];
			chop $sx_line;
		}
		@sxline = split(/\./, $sx_line);
		$sxmem = hex("0x$sxline[5]") / $meg;
	}
	if ($line =~ /501-2197/) {
		# 1MB Prestoserve NVSIMMs (SS1000/SC2000)
		if ($config[$i + 1] =~ /\sreg:\s/) {
			$nv_line = $config[$i + 1];
			chop $nv_line;
		} elsif ($config[$i + 2] =~ /\sreg:\s/) {
			$nv_line = $config[$i + 2];
			chop $nv_line;
		}
		@nvline = split(/\./, $nv_line);
		$nvmem += hex("0x$nvline[2]") / $meg;
	}
	if ($line =~ /501-2001/) {
		# 2MB Prestoserve NVSIMMs (SS10/SS20)
		if ($config[$i + 1] =~ /\sreg:\s/) {
			$nv_line = $config[$i + 1];
			chop $nv_line;
		} elsif ($config[$i + 2] =~ /\sreg:\s/) {
			$nv_line = $config[$i + 2];
			chop $nv_line;
		}
		@nvline = split(/\./, $nv_line);
		$nvmem += hex("0x$nvline[2]") / $meg;
		$nvmem1 = 1 if ($nvline[1] eq "10000000");
		$nvmem2 = 1 if ($nvline[1] eq "14000000" | $nvline[1] eq "1c000000");
	}
	if ($line =~ /Memory size:\s/ & $installed_memory == 0) {
		$memory_size = $line;
		chop $memory_size;
		@memory = split(/\s/, $memory_size);
		$installed_memory = $memory[2];
		$installed_memory =~ s/Mb//;
		$BSD = 0;	# prtconf and prtdiag only have this output
		$config_cmd = "/usr/sbin/prtconf -pv" if ($config_cmd !~ /prtconf/);
		$config_command = "prtconf";
	}
	if ($sysfreq == 0 & $freq > 0) {
		$sysfreq = $freq;
		$freq = 0;
	}
	if ($devtype eq "cpu") {
		$cpufreq = $freq;
		if ($cpufreq == 0 | $cputype eq "") {
			$cpuline = $line;
			$j = $i;
			while ($cpuline !~ /^$/) {
				if ($cpuline =~ /clock-frequency:/) {
					@freq_line = split(' ', $cpuline);
					if ($model eq "i86pc") {
						$cpufreq = int(hex("0x$freq_line[1]") / 10000 + 0.5);
					} else {
						$cpufreq = int(hex("0x$freq_line[1]") / 1000000 + 0.5);
					}
				}
				if ($cpuline =~ /\sname:\s/ & $cpuline !~ /Sun 4/ & $cpuline !~ /SPARCstation/ & $cpuline !~ /CompuAdd/) {
					$cputype = $cpuline;
					$cputype =~ s/\s+name:\s+//;
					$cputype =~ s/'//g;
					$cputype =~ s/SUNW,//g;
					chop $cputype;
				}
				$j++;
				if ($config[$j]) {
					$cpuline = $config[$j];
				} else {
					$cpuline = "";
				}
			};
		}
		$freq = 0;
		$devtype = "";
		$ncpu++;
	}
	if ($line =~ /device_type:/) {
		@dev_line = split(/\'/, $line);
		$devtype = $dev_line[1];
	}
	if ($line =~ /clock-frequency:/) {
		@freq_line = split(' ', $line);
		if ($model eq "i86pc") {
			$freq = int(hex("0x$freq_line[1]") / 10000 + 0.5);
		} else {
			$freq = int(hex("0x$freq_line[1]") / 1000000 + 0.5);
		}
	}
	if ($line =~ /\sversion:\s+'OBP/ & $romver eq "") {
		$romver = $line;
		$romver =~ s/\s+version:\s+//;
		$romver =~ s/'//g;
		chop $romver;
		@romverarr = split(/\s/, $romver);
		$romvernum = $romverarr[1];
	}
	if ($line =~ /compatible:\s+'sun4/ & $sunos eq "") {
		@compatible_line = split(/\'/, $line);
		$machine = $compatible_line[1];
	}
	$i++;
}
if ($sunos eq "") {
	if ($BSD) {
		$sunos = "4.X";
		$config_cmd = "/usr/etc/devinfo -pv";
		$config_command = "devinfo";
	} else {
		$sunos = "5.X";
		$solaris = "2.X";
		$config_cmd = "/usr/sbin/prtconf -pv";
		$config_command = "prtconf";
	}
}
$sysfreq = $freq if ($sysfreq == 0 & $freq > 0);
$cpufreq = $sysfreq if ($sysfreq > $cpufreq & $ncpu > 0);
if ($cputype eq "") {
	$cputype = $machine;
	$cputype = "SPARC" if ($cputype =~ /^sun4/);
	@bannerarr = split(/\s/, $banner);
	foreach $field (@bannerarr) {
		if ($field =~ /SPARC/ & $field !~ /SPARCstation/) {
			$cputype = $field;
		} elsif ($field =~ /390Z5/) {
			$field = "TI,TMS$field" if ($field =~ /^390Z5/);
			if ($cpufreq > 70) {
				$cputype = "SuperSPARC-II $field";
			} else {
				$cputype = "SuperSPARC $field";
			}
		} elsif ($field =~ /RT62[56]/) {
			$cputype = "hyperSPARC $field";
			$machine = "sun4m";
		}
	}
	$cputype =~ s/[()]//g;
} elsif ($cputype =~ /MB86904/ | $cputype =~ /390S10/) {
	if ($cpufreq > 70) {
		$cputype = "microSPARC-II $cputype";
	} else {
		$cputype = "microSPARC $cputype";
	}
} elsif ($cputype =~ /^Ross,RT62[56]/) {
	$cputype = "hyperSPARC $cputype";
	$machine = "sun4m";
}
@romverarr = split(/\./, $romvernum) if ($romver);
$romvermajor = ($romverarr[0]) ? $romverarr[0] : 2;
$romverminor = ($romverarr[1]) ? $romverarr[1] : 0;
$romverminor = 0 if ($romverminor eq "" | $romverminor eq "X");
if ($banner =~ /^ \(/) {
	# banner-name does not include the eeprom banner name. This happens
	# sometimes when OBP 3.23 is installed on Ultra-60/E220R and
	# Ultra-80/E420R systems.
	$bannermore = "Ultra 60 or Enterprise 220R" if ($model eq "Ultra-60");
	$bannermore = "Ultra 80 or Enterprise 420R" if ($model eq "Ultra-80");
}
#
# SPARCengine systems
#
$ultra = "AX" if ($motherboard =~ /501-3043/);
$ultra = "AX-300" if ($motherboard =~ /501-5037/);
$ultra = "AXi" if ($motherboard =~ /501-4559/);
$ultra = "AXmp" if ($banner =~ /UltraAX-MP/ | $model =~ /UltraAX-MP/ | $motherboard =~ /501-5296/ | $motherboard =~ /501-5487/ | $motherboard =~ /501-5670/);
$ultra = "AXmp+" if ($banner =~ /UltraAX-MP\+/ | $model =~ /UltraAX-MP\+/ | $motherboard =~ /501-4324/);
$ultra = "AXe" if ($banner =~ /UltraAXe\b/ | $model =~ /UltraAX-e\b/ | $motherboard =~ /375-0088/);
$ultra = "AX-e2" if ($banner =~ /Netra AX1105-500\b/ | $model =~ /UltraAX-e2\b/ | $motherboard =~ /375-0128/);
$ultra = "Netra X1" if ($banner =~ /Netra X1\b/ | $model =~ /Netra X1\b/ | $motherboard =~ /375-3015/);
$ultra = "Netra T1 200" if ($banner =~ /Netra T1 200\b/ | $model =~ /Netra T1 200\b/ | $motherboard =~ /375-0132/);
if ($ultra =~ /AX/) {
	if ($banner !~ /SPARCengine.*Ultra/) {
		if ($bannermore) {
			$bannermore = "(SPARCengine Ultra $ultra) $bannermore";
		} else {
			$bannermore = "(SPARCengine Ultra $ultra)";
		}
	}
}

$need_obp2 = 0;
if ($model eq "Sun 4/20" | $model eq "Sun 4/25" | $model eq "Sun 4/40" | $model eq "Sun 4/50" | $model eq "Sun 4/60" | $model eq "Sun 4/65" | $model eq "Sun 4/75" | $model eq "SS-2") {
	$machine = "sun4c";
	if ($model eq "Sun 4/40" | $model eq "Sun 4/60" | $model eq "Sun 4/65") {
		$need_obp2 = 1;
	}
}
if ($gotmemory eq "") {
	&show_header;
	print "total memory = ${installed_memory}MB\n" if ($installed_memory);
	print "ERROR: no 'memory' line in \"$config_cmd\" output.\n";
	if (! $config_permission & $machine =~ /sun4/) {
		print "       This user may not have permission to run $config_command.\n";
		print "       Try running memconf as a privileged user like root.\n";
	} elsif ($need_obp2) {
		print "       Upgrading from Open Boot PROM V1.X to V2.X will ";
		print "allow memconf to\n       detect the memory installed.\n";
	} else {
		print "       This is an unsupported system by memconf.\n";
	}
	if ($machine !~ /sun4/) {
		print "       Currently it is only supported on SPARC systems, not on $machine systems.\n";
	}
	$exitstatus = 1;
	goto mailmaintainer;
}

$gotmemory =~ s/\s+reg:\s+//;
$gotmemory =~ s/'//g;
@slots = split(/\./, $gotmemory);
$slot = 1;
$totmem = 0;
#$start1x = 0;
$manufacturer = "" if (($banner =~ /^Sun\b/ | $model =~ /^Sun\b/) & $manufacturer eq "Sun");
if ($manufacturer ne "" & $manufacturer ne "Sun") {
	if ($manufacturer ne "Force Computers") {
		$bannermore = ($bannermore) ? "$bannermore clone" : "clone";
	}
	$modelmore = ($modelmore) ? "$modelmore clone" : "clone";
}
# DIMMs are installed in pairs on Ultra 1, 5 and 10; quads on
# Ultra 2, 60, 80, 220R, 420R, 450; 8's in Ultra Enterprise
#
# On 64-bit systems, prtconf format is AAAAAAAA.AAAAAAAA.SSSSSSSS.SSSSSSSS
# and on 32-bit systems, prtconf format is AAAAAAAA.AAAAAAAA.SSSSSSSS
# where A is for Address, S is for Size.
# Minimum module size is 1MB (0x00100000), so strip off last 5 hex digits of LSB
# and prepend last 5 digits of MSB, which allows recognizing up to 4500TB!
#
if ($ultra) {
	$val0 = 3;	# simmsize is in 3rd and 4th fields
	$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
}

#
# Define memory layout for specific systems
#
if ($model eq "Sun 4/20") {
	# SLC accepts 4MB SIMMs on motherboard
	#   501-1676 (4MB 100ns), 501-1698 (4MB 80ns)
	#   33-bit 72-pin Fast Page Mode (36-bit work also)
	# Does not support Open Boot PROM V2.X, so devinfo/prtconf output will
	# not have memory lines.
	$untested = 1;
	$simmrangex = "00000010";
	$simmbanks = 4;
	$simmsperbank = 1;
	@simmsizes = (4);
	@socketstr = ("U0502","U0501","U0602","U0601");
}
if ($model eq "Sun 4/25") {
	# ELC accepts 4MB or 16MB SIMMs on motherboard
	#   501-1698 or 501-1812 (4MB 80ns), 501-1822 (16MB 80ns)
	#   33-bit 72-pin Fast Page Mode (36-bit work also)
	$untested = 0;
	$simmrangex = "00000010";
	$simmbanks = 4;
	$simmsperbank = 1;
	@simmsizes = (4,16);
	@socketstr = ("U0407","U0408","U0409","U0410");
	@bankstr = ("MEM1","MEM2","MEM3","MEM4");
}
if ($model eq "Sun 4/40") {
	# IPC accepts 1MB or 4MB SIMMs on motherboard
	#   501-1697 (1MB 80ns), 501-1625 (4MB 100ns), 501-1739 (4MB 80ns)
	# Does not show memory with Open Boot PROM V1.X, but does with OBP V2.X
	$untested = 0;
	$simmrangex = "00000010";
	$simmbanks = 3;
	$simmsperbank = 4;
	@simmsizes = (1,4);
	@socketstr = ("U0588","U0587","U0586","U0585","U0584","U0591","U0590","U0589","U0678","U0676","U0683","U0677");
	@bankstr = (0,0,0,0,1,1,1,1,2,2,2,2);
	@bytestr = (0,1,2,3,0,1,2,3,0,1,2,3);
}
if ($model eq "Sun 4/50") {
	# IPX accepts 4MB or 16MB SIMMs on motherboard
	#   501-1812 (4MB 80ns), 501-1915 or 501-1822 (16MB 80ns)
	#   33-bit 72-pin Fast Page Mode (36-bit work also)
	$untested = 0;
	$simmrangex = "00000010";
	$simmbanks = 4;
	$simmsperbank = 1;
	@simmsizes = (4,16);
	@socketstr = ("U0310","U0309","U0308","U0307");
	@bankstr = (0,1,2,3);
}
if ($model eq "Sun 4/60" | $model eq "Sun 4/65") {
	# SS1 and SS1+ accepts 1MB or 4MB SIMMs on motherboard
	#   501-1408 (1MB 100ns), 501-1697 (SS1+ only) (1MB 80ns),
	#   501-1625 (4MB 100ns), 501-1739 (4MB 80ns)
	# Does not show memory with Open Boot PROM V1.X, but does with OBP V2.X
	$untested = 0;
	$untested = 1 if ($model eq "Sun 4/65");
	$simmrangex = "00000010";
	$simmbanks = 4;
	$simmsperbank = 4;
	@simmsizes = (1,4);
	@socketstr = ("U0588","U0587","U0586","U0585","U0584","U0591","U0590","U0589","U0678","U0676","U0683","U0677","U0682","U0681","U0680","U0679");
	@bankstr = (0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3);
	@bytestr = (0,1,2,3,0,1,2,3,0,1,2,3,0,1,2,3);
}
if ($model eq "Sun 4/75" | $model eq "SS-2") {
	# SS2 accepts 4MB SIMMs on motherboard and 32MB or 64MB SBus expansion
	# card (501-1823 Primary and 501-1824 Secondary)
	#   501-1739 (4MB 80ns)
	$untested = 0;
	$simmrangex = "00000010";
	$simmbanks = 4;
	$simmsperbank = 4;
	@simmsizes = (4);
	@socketstr = ("U0311","U0309","U0307","U0322","U0312","U0310","U0308","U0321","U0313","U0314","U0315","U0320","U0319","U0318","U0317","U0316");
	@bankstr = (0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3);
	@bytestr = (0,1,2,3,0,1,2,3,0,1,2,3,0,1,2,3);
}
if ($model =~ /SPARCclassic/ | $model =~ /SPARCstation-LX/) {
	# Classic-X (4/10) accepts 1MB, 2MB, 4MB and 16MB SIMMs on motherboard
	# Classic (4/15) and LX (4/30) accepts 4MB and 16MB SIMMs on motherboard
	# Can accept 32MB SIMMs in bank 1, allowing 128MB total (2x32, 4x16)
	#   501-2289 (1MB), 501-2433 (2MB) on Classic-X only
	#   501-1991 (4MB), 501-2059 (16MB)
	#   36-bit 72-pin 60ns Fast Page Mode
	if ($model =~ /SPARCclassic-X/) {
		$untested = 1;
		@simmsizes = (1,2,4,16,32);
	} else {
		$untested = 0;
		@simmsizes = (4,16,32);
	}
	$simmrangex = "00000020";
	$simmbanks = 3;
	$simmsperbank = 2;
	@socketstr = ("U0304","U0303","U0301","U0302","U0402","U0401");
	@bankstr = (1,1,2,2,3,3);
}
if ($model eq "S240") {
	# Voyager has 16MB on motherboard, plus accepts one or two 16MB or 32MB
	# Memory cards (501-2327 32MB, 501-2366 16MB)
	# Motherboard, address 0x00000000-0x007fffff, 0x01000000-0x017fffff
	# Lower slot = Mem 1, address 0x02000000-0x07ffffff
	# Upper slot = Mem 2, address 0x0a000000-0x0fffffff
	$untested = 0;
	$memtype = "memory card";
	$sockettype = "slot";
	$simmrangex = "00000020";
	$simmbanks = 8;	# Count the skipped address range
	$simmsperbank = 1;
	@simmsizes = (16,32);
	@socketstr = ("motherboard","Mem 1","Mem 1","Mem 1","?","Mem 2","Mem 2","Mem 2");
	@orderstr = ("","lower slot","lower slot","lower slot","?","upper slot","upper slot","upper slot");
}
if ($model eq "SPARCstation-4") {
	# Accepts 8MB and 32MB SIMMs on motherboard
	#   501-2470 (8MB), 501-2471 (32MB)
	#   168-pin 60ns Fast Page Mode
	$untested = 0;
	$simmrangex = "00000020";
	$simmbanks = 5;
	$simmsperbank = 1;
	@simmsizes = (8,32);
	@socketstr = ("J0301","J0302","J0303","J0304","J0305");
	@bankstr = (0,1,2,3,4);
}
if ($model eq "SPARCstation-5" | $model eq "micro COMPstation 5" | $model =~ /Axil-255/ | $banner =~ /TWINstation 5G\b/) {
	# Accepts 8MB and 32MB SIMMs on motherboard
	#   501-2470 (8MB), 501-2471 (32MB)
	#   168-pin 60ns Fast Page Mode
	$untested = 0;
	$simmrangex = "00000020";
	$simmbanks = 8;
	$simmsperbank = 1;
	@simmsizes = (8,32);
	@socketstr = ("J0300","J0301","J0302","J0303","J0400","J0401","J0402","J0403");
	@bankstr = (0,1,2,3,4,5,6,7);
	if ($banner =~ /TWINstation 5G\b/) {
		$simmbanks = 6;
		@socketstr = (0,1,2,3,4,5);
	}
	if ($model ne "SPARCstation-5") {
		$bannermore = "SPARCstation 5 clone";
		$modelmore = "SPARCstation 5 clone";
	}
}
if ($model =~ /SPARCstation-10/ | $model eq "Premier-24") {
	# Accepts 16MB and 64MB SIMMs on motherboard
	#   501-1785 or 501-2273 (16MB 80ns), 501-2479 (16MB 60ns),
	#   501-2622 (32MB 60ns), 501-1930 (64MB 80ns), 501-2480 (64MB 60ns)
	#   200-pin 60ns or 80ns Fast Page Mode ECC
	# 32MB SIMMs not supported according to Sun, but appears to work fine
	# depending on the OBP revision. OBP 2.12 and older detects the 32MB
	# SIMM as 16MB, OBP 2.19 and later properly detects the 32MB SIMM.
	$untested = 0;
	$simmrangex = "00000040";
	$simmbanks = 8;
	$simmsperbank = 1;
	$romvernum = "2.X" if ($romvernum eq "");
	$romverminor = 0 if ($romverminor eq "" | $romverminor eq "X");
	if ($romvermajor eq 2 & $romverminor >= 19) {
		@simmsizes = (16,32,64);
	} else {
		@simmsizes = (16,64);
	}
	@socketstr = ("J0201","J0203","J0302","J0304","J0202","J0301","J0303","J0305");
	@orderstr = ("1st","3rd","4th","2nd","8th","6th","5th","7th");
	@bankstr = (0,1,2,3,4,5,6,7);
}
if ($model =~ /SPARCstation-20/ | $model =~ /COMPstation-20S/ | $banner =~ /TWINstation 20G\b/) {
	# Accepts 16MB, 32MB and 64MB SIMMs on motherboard
	#   501-2479 (16MB), 501-2622 (32MB), 501-2480 (64MB)
	#   200-pin 60ns Fast Page Mode ECC
	$untested = 0;
	$simmrangex = "00000040";
	$simmbanks = 8;
	$simmsperbank = 1;
	@simmsizes = (16,32,64);
	@socketstr = ("J0201","J0303","J0202","J0301","J0305","J0203","J0302","J0304");
	@orderstr = ("1st","2nd","3rd","4th","5th","6th","7th","8th");
	@bankstr = (0,1,2,3,4,5,6,7);
	if ($model !~ /SPARCstation-20/) {
		$bannermore = "SPARCstation 20 clone";
		$modelmore = "SPARCstation 20 clone";
	}
	if ($model eq "SPARCstation-20I") {
		$bannermore = "(SPARCstation-20I) clone";
		$modelmore = "clone";
	}
	if ($banner =~ /TWINstation 20G\b/) {
#		@socketstr = ("J0201","J0303","J0202","J0301","J0305","J0203","J0302","J0304");
#		@orderstr = ("1st","6th","2nd","4th","8th","3rd","5th","7th");
		@socketstr = (0,1,2,3,4,5,6,7);
		@orderstr = ("");
	}
}
if ($model eq "SPARCsystem-600" | $model =~ /Sun.4.600/) {
	# Accepts 4MB or 16MB SIMMs on motherboard, 1MB, 4MB or 16MB SIMMs on
	# VME expansion card
	$untested = 0;
	$simmrangex = "00000100";
	$simmbanks = 6;	# 2 banks on CPU board, 4 banks on VME expansion card
	$simmsperbank = 16;
	@simmsizes = (4,16);
	# Sockets on CPU board
	@socketstr = ("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");
	# Sockets on memory expansion board
	@socketstr_exp = ("U1501","U1503","U1505","U1507","U1601","U1603","U1605","U1607","U1701","U1703","U1705","U1707","U1801","U1803","U1805","U1807","U1502","U1504","U1506","U1508","U1602","U1604","U1606","U1608","U1702","U1704","U1706","U1708","U1802","U1804","U1806","U1808","U1901","U1903","U1905","U1907","U2001","U2003","U2005","U2007","U2101","U2103","U2105","U2107","U2201","U2203","U2205","U2207","U1902","U1904","U1906","U1908","U2002","U2004","U2006","U2008","U2102","U2104","U2106","U2108","U2202","U2204","U2206","U2208");
	@bankstr = (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,"B0","B0","B0","B0","B0","B0","B0","B0","B0","B0","B0","B0","B0","B0","B0","B0","B1","B1","B1","B1","B1","B1","B1","B1","B1","B1","B1","B1","B1","B1","B1","B1","B2","B2","B2","B2","B2","B2","B2","B2","B2","B2","B2","B2","B2","B2","B2","B2","B3","B3","B3","B3","B3","B3","B3","B3","B3","B3","B3","B3","B3","B3","B3","B3");
	@bytestr = ("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","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","8L0","8L1","9L0","9L1","aL0","aL1","bL0","bL1","cL0","cL1","dL0","dL1","eL0","eL1","fL0","fL1","8H0","8H1","9H0","9H1","aH0","aH1","bH0","bH1","cH0","cH1","dH0","dH1","eH0","eH1","fH0","fH1");
}
if ($model eq "Ultra-1" | $ultra eq 1) {
	# Accepts 16MB, 32MB, 64MB or 128MB DIMMs on motherboard
	#   501-2479 (16MB), 501-2622 (32MB), 501-2480 or 501-5691 (64MB),
	#   501-3136 (128MB)
	#   200-pin 60ns Fast Page Mode ECC
	$untested = 0;
	$simmrangex = "00000100";
	$simmbanks = 4;
	$simmsperbank = 2;
	@simmsizes = (16,32,64,128);
	@socketstr = ("U0701","U0601","U0702","U0602","U0703","U0603","U0704","U0604");
	@bankstr = ("0L","0H","1L","1H","2L","2H","3L","3H");
	@bytestr = ("00-15","16-31","00-15","16-31","00-15","16-31","00-15","16-31");
}
if ($model eq "Ultra-2" | $ultra eq 2) {
	# Accepts 16MB, 32MB, 64MB or 128MB DIMMs on motherboard
	$untested = 0;
	$simmrangex = "00000200";
	$simmbanks = 4;
	$simmsperbank = 4;
	@simmsizes = (16,32,64,128);
	@socketstr = ("U0501","U0401","U0701","U0601","U0502","U0402","U0702","U0602","U0503","U0403","U0703","U0603","U0504","U0404","U0704","U0604");
	@groupstr = (0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3);
	@bankstr = ("0L","0H","1L","1H","0L","0H","1L","1H","0L","0H","1L","1H","0L","0H","1L","1H");
	@bytestr = ("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" | $ultra eq 30) {
	# Accepts 16MB, 32MB, 64MB or 128MB DIMMs on motherboard
	#   501-2479 (16MB), 501-2622 (32MB), 501-2480 or 501-5691 (64MB),
	#   501-3136 (128MB)
	#   200-pin 60ns Fast Page Mode ECC
	# Two DIMMs form a pair, two pairs of DIMMs form a quad.
	# Minumum requirements is two DIMMs in any adjacent pair.
	# DIMMs can be installed in any order of pairs.
	# Interleaving requires a fully populated quad.
	# Each quad addresses 512MB of memory.
	$untested = 0;
	# simmrangex, simmbanks, and simmsperbank set later after determining
	# if interleaving banks using quads rather than pairs
	@simmsizes = (16,32,64,128);
	@socketstr = ("U0701","U0801","U0901","U1001","U0702","U0802","U0902","U1002","U0703","U0803","U0903","U1003","U0704","U0804","U0904","U1004");
	@bankstr = ("Quad 0 Pair 0","Quad 0 Pair 0","Quad 0 Pair 1","Quad 0 Pair 1","Quad 1 Pair 0","Quad 1 Pair 0","Quad 1 Pair 1","Quad 1 Pair 1","Quad 2 Pair 0","Quad 2 Pair 0","Quad 2 Pair 1","Quad 2 Pair 1","Quad 3 Pair 0","Quad 3 Pair 0","Quad 3 Pair 1","Quad 3 Pair 1");
}
if ($model eq "Ultra-5_10" | $ultra eq "5_10" | $ultra eq 5 | $ultra eq 10) {
	# Accepts 16MB, 32MB, 64MB, 128MB or 256MB DIMMs on motherboard
	# 16MB DIMM uses 10-bit column addressing and was not sold
	# 32, 64, 128 and 256MB DIMMs use 11-bit column addressing
	# Do not mix 16MB DIMMs with other sizes
	# 256MB DIMM not supported in Ultra 5 according to Sun documentation,
	# but they do work as long as you use low-profile DIMMs or take out the
	# floppy drive. 
	# Memory speed is 60ns if 50ns and 60ns DIMMs are mixed
	# 2-way interleaving supported with four identical sized DIMMs
	# 50ns DIMMs supported on 375-0066 & 375-0079 motherboards
	# Bank 0 DIMM1/DIMM2 0x00000000-0x0fffffff, 0x20000000-0x2fffffff
	# Bank 1 DIMM3/DIMM4 0x10000000-0x1fffffff, 0x30000000-0x3fffffff
	$untested = 0;
	$simmrangex = "00000100";
	$simmbanks = 2;
	$simmsperbank = 2;
	@simmsizes = (16,32,64,128,256);
	@socketstr = ("DIMM1","DIMM2","DIMM3","DIMM4");
	@bankstr = ("0L","0H","1L","1H");
	$sortslots = 0;
}
if ($model eq "Ultra-60" | $ultra eq 60 | $ultra eq "220R") {
	# Also Netra t1120/1125
	# Accepts 16MB, 32MB, 64MB or 128MB DIMMs on motherboard
	#   501-2479 (16MB), 501-2622 (32MB), 501-2480 or 501-5691 (64MB),
	#   501-3136 (128MB)
	#   200-pin 60ns Fast Page Mode ECC
	# U1001-U1004 bank 3 address 0xa0000000-0xbfffffff
	# U0901-U0904 bank 2 address 0x80000000-0x9fffffff
	# U0801-U0804 bank 1 address 0x20000000-0x3fffffff
	# U0701-U0704 bank 0 address 0x00000000-0x1fffffff
	$untested = 0;
	$simmrangex = "00000200";
	$simmbanks = 6;	# Count the skipped address range
	$simmsperbank = 4;
	@simmsizes = (16,32,64,128);
	@socketstr = ("U0701","U0702","U0703","U0704","U0801","U0802","U0803","U0804","?","?","?","?","?","?","?","?","U0901","U0902","U0903","U0904","U1001","U1002","U1003","U1004");
	@bankstr = (0,0,0,0,1,1,1,1,"?","?","?","?","?","?","?","?",2,2,2,2,3,3,3,3);
}

#
# SPARCengine systems
#
if ($banner =~ /Netra t1\b/ | $ultra eq "Netra t1" | $banner =~ /Ultra CP 1500\b/ | $ultra eq "cp1500") {
	# Netra t1 100/105, Netra ct 400/800, SPARCengine CP1500
	# Accepts 1 or 2 64MB, 128MB, 256MB or 512MB mezzanine memory cards
	# Install the highest capacity memory board first
	# The 370-4155 was sold for use in the Netra t1 100/105
	# Up to four 370-4155 256MB memory boards can be installed
	# Only one 370-4155 can be mixed with any other memory boards
	# Cannot distinguish between 4 370-4155 256MB and 2 512MB memory boards
	# Maximum memory: 768MB for 270MHz/33MHz, 1GB for 360MHz/440MHz systems
	#
	#   Top slot ->  64MB    64MB   128MB   128MB   256MB   256MB   512MB 
	# Bottom slot   SSF SS  DSF SS  SSF SS  DSF SS  DSF DS  DSF SS  DSF DS 
	#       | 
	#       v       ------  ------  ------  ------  ------  ------  ------ 
	#  64MB SSF SS  Y       N       Y       N       N       Y       N 
	#  64MB DSF SS  Y       Y       Y       Y       Y       Y       Y
	# 128MB SSF SS  Y       N       Y       N       N       Y       N
	# 128MB DSF SS  Y       Y       Y       Y       Y       Y       Y
	# 256MB DSF SS  Y       Y       Y       Y       Y       Y       Y
	# 512MB DSF DS  Y/N *   Y/N *   Y/N *   Y/N *   Y/N *   Y/N *   Y/N *
	#
	# SSF=single-sided fab, DSF=double-sided fab
	# SS=stuffed on one side, DS=stuffed on both sides
        # * 512MB DSF DS board is supported on 360MHz and 440MHz systems,
        #   512MB DSF DS board is not supported on 270MHz and 333MHz systems
	# Lower board, address 0x00000000-0x0fffffff, 0x20000000-0x2fffffff
	# upper board, address 0x10000000-0x1fffffff, 0x30000000-0x3fffffff
	$untested = 0;
	$memtype = "memory card";
	$sockettype = "";
	$simmrangex = "00000100";
	$simmbanks = 2;
	$simmsperbank = 1;
	@simmsizes = (64,128,256,512);
	@socketstr = ("base mezzanine board","additional mezzanine board");
	@orderstr = ("lower board","upper board");
	$sortslots = 0;
}
if ($banner =~ /Ultra CP 1400\b/ | $ultra eq "cp1400") {
	# Accepts 1 or 2 64MB, 128MB, 256MB or 512MB mezzanine memory cards
	# Has 64MB on-board memory on motherboard
	# Maximum memory: 832MB (64MB motherboard, 512MB bottom, 256MB top)
	#
	#   Top slot ->  64MB    64MB   128MB   128MB   256MB   512MB 
	# Bottom slot   SSF SS  DSF SS  SSF SS  DSF SS  DSF SS  DSF DS 
	#       | 
	#       v       ------  ------  ------  ------  ------  ------ 
	#  64MB SSF SS  Y       N       Y       N       Y       N 
	#  64MB DSF SS  Y       Y       Y       Y       Y       N
	# 128MB SSF SS  Y       N       Y       N       Y       N
	# 128MB DSF SS  Y       Y       Y       Y       Y       N
	# 256MB DSF SS  Y       Y       Y       Y       Y       N
	# 512MB DSF DS  Y       Y       Y       Y       Y       N
	#
	# SSF=single-sided fab, DSF=double-sided fab
	# SS=stuffed on one side, DS=stuffed on both sides
        # 512MB DSF DS board is only supported in bottom slot
	#
	# ******   UNTESTED! ******
	# Do not know what the address range of 64MB motherboard memory is!
	#
	# Motherboard, address ????
	# Lower board, address 0x00000000-0x0fffffff, 0x20000000-0x2fffffff ???
	# upper board, address 0x10000000-0x1fffffff, 0x30000000-0x3fffffff ???
	$untested = 1;
	$memtype = "memory card";
	$sockettype = "";
	$simmrangex = "00000100";
	$simmbanks = 3;
	$simmsperbank = 1;
	@simmsizes = (64,128,256,512);
	@socketstr = ("motherboard","base mezzanine board","additional mezzanine board");
	@orderstr = ("","lower board","upper board");
	$sortslots = 0;
}
if ($ultra eq "AX" | $ultra eq "AX-300") {
	# SPARCengine Ultra AX and AX-300
	# Accepts 8MB, 16MB, 32MB or 64MB DIMMs on motherboard
	# AX-300 also accepts 128MB DIMMs on motherboard
	$untested = 0;		# unsure if socket order is correct
	$simmrangex = "00000200";
	$simmbanks = 2;
	$simmsperbank = 4;
	@simmsizes = (8,16,32,64,128);
	@socketstr = ("U0301","U0302","U0303","U0304","U0401","U0402","U0403","U0404");
	@bankstr = (0,0,0,0,1,1,1,1);
}
if ($ultra eq "AXi") {
	# SPARCengine Ultra AXi
	# Accepts 8MB, 16MB, 32MB, 64MB or 128MB single or dual bank 10-bit
	#  column address type DIMMs on motherboard in all socket pairs
	# Accepts 8MB, 16MB, 32MB, 64MB, 128MB or 256MB dual bank 11-bit
	#  column address type DIMMs on motherboard in Pairs 0 & 2
	#  (leave Pairs 1 & 3 empty)
	# DIMMs should be chosen as all 10-bit or all 11-bit column address type
	# Use 60ns DIMMs only
	$untested = 0;
	$simmrangex = "00000100";
	$simmbanks = 4;
	$simmsperbank = 2;
	@simmsizes = (8,16,32,64,128,256);
	@socketstr = ("U0404","U0403","U0304","U0303","U0402","U0401","U0302","U0301");
	@bankstr = (0,0,2,2,1,1,3,3);
	$sortslots = 0;
}
if ($ultra eq "AXmp" | $ultra eq "AXmp+") {
	# SPARCengine Ultra AXmp
	#  Accepts 8MB, 16MB, 32MB, 64MB or 128MB DIMMs on motherboard
	#  Accepts 256MB dual-bank DIMMs in bank 0 or 1 (not both)
	#  Can't distinguish dual-bank DIMMs from two banks of single bank DIMMs
	# SPARCengine Ultra AXmp+
	#  Accepts 8MB, 16MB, 32MB, 64MB, 128MB or 256MB DIMMs on motherboard
	#  Accepts dual-bank DIMMs in both bank 0 and 1
	#  Can't distinguish dual-bank DIMMs from two banks of single bank DIMMs
	$untested = 0;
	$simmbanks = 2;
	$simmsperbank = 8;
	if ($ultra eq "AXmp+") {
		$simmrangex = "00000400";
		@simmsizes = (8,16,32,64,128,256);
	} else {
		$simmrangex = "00000800";
		@simmsizes = (8,16,32,64,128);
	}
	@socketstr = ("U0701","U0702","U0703","U0704","U0801","U0802","U0803","U0804","U0901","U0902","U0903","U0904","U1001","U1002","U1003","U1004");
	@bankstr = (0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1);
	$sortslots = 0;
}
if ($ultra eq "AXe") {
	# SPARCengine Ultra AXe
	# Accepts 32MB, 64MB, 128MB or 256MB single or dual bank DIMMs
	# DIMMs should be chosen as all 10-bit or all 11-bit column address type
	$untested = 0;
	$simmrangex = "00000100";
	$simmbanks = 2;
	$simmsperbank = 2;
	@simmsizes = (32,64,128,256);
	@socketstr = ("DIMM3","DIMM4","DIMM1","DIMM2");
	@bankstr = (0,0,1,1);
	# Assume stacked DIMMs like AXi since only 128MB DIMMs have been tested
	$sortslots = 0;
}
if ($ultra eq "AX-e2") {
	# Netra AX1105-500
	# Accepts up to 4 64MB, 128MB, 256MB or 512MB registered SDRAM PC133
	# DIMMs; 128MB Minimum, 2GB Maximum
	# DIMM0 & DIMM1 form Bank 0, DIMM2 & DIMM3 form Bank 1
	# DIMMs don't have to be installed as pairs
	$untested = 0;
	$simmrangex = "00000200";
	$simmbanks = 4;
	$simmsperbank = 1;
	@simmsizes = (64,128,256,512);
	@socketstr = ("DIMM0","DIMM1","DIMM2","DIMM3");
	@bankstr = (0,0,1,1);
}
if ($ultra eq "Netra X1") {
	# Netra X1, UltraAX-i2
	# Accepts up to 4 128MB or 256MB PC133 DIMMs
	$untested = 0;
	$simmrangex = "00000200";
	$simmbanks = 4;
	$simmsperbank = 1;
	@simmsizes = (128,256);
	@socketstr = ("DIMM0","DIMM1","DIMM2","DIMM3");
}
if ($ultra eq "Netra T1 200") {
	# Netra T1 200, UltraAX-i2
	# Accepts up to 4 256MB or 512MB PC133 DIMMs
	$untested = 0;
	$simmrangex = "00000200";
	$simmbanks = 4;
	$simmsperbank = 1;
	@simmsizes = (256,512);
	@socketstr = ("DIMM0","DIMM1","DIMM2","DIMM3");
}

#
# Clones: most do not have verbose output since I don't have any socket data
# on them
#
if ($ultra eq "axus250" | $modelmore =~ /Ultra-250/) {
	# AXUS Microsystems, Inc. http://www.axus.com.tw
	# AXUS 250 clone
	# accepts up to 128MB DIMMs on motherboard
	$untested = 0;
	$simmrangex = "00000200";
	$simmbanks = 4;
	$simmsperbank = 4;
	@simmsizes = (8,16,32,64,128);
	@socketstr = ("U0501","U0601","U0701","U0801","U0502","U0602","U0702","U0802","U0503","U0603","U0703","U0803","U0504","U0604","U0704","U0804");
	@bankstr = (0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3);
}
if ($model =~ /SPARC CPU-/) {
	# Force Computers, http://www.forcecomputers.com
	$untested = 0;
}
if ($model =~ /SPARC CPCI-/) {
	# Force Computers, http://www.forcecomputers.com
	$untested = 1;
}
if ($model =~ /Axil/) {
	# RAVE Computer Association, http://rave.com
	$untested = 1;
	$untested = 0 if ($model =~ /Axil-245/);
	$untested = 0 if ($model =~ /Axil-255/);
	$untested = 0 if ($model =~ /Axil-311/);
	$untested = 0 if ($model =~ /Axil-320/);
}
if ($manufacturer eq "Tadpole") {
	# Tadpole RDI, http://www.tadpole.com
	$untested = 1;
	$untested = 0 if ($banner =~ /Tadpole S3/);
}
if ($manufacturer eq "Auspex") {
	# Auspex Netserver, http://www.auspex.com
	$memtype = "Memory Module";
	$untested = 1;
	$untested = 0 if ($model eq "SPARC Processor");
	if ($sunos =~ /^5./ ) {
		$untested = 1;	# Untested with Solaris 2.X
		$untested_type = "OS";
	}
}
if ($manufacturer =~ /Fujitsu/) {
	# Hal Computer Systems, a Fujitsu Company, http://www.hal.com
	# Fujitsu Siemens, http://www.fujitsu-siemens.com
	$untested = 1;
	$untested = 0 if ($model =~ /S-4\/10H/ | $model =~ /S-4\/20[ABH]/);
	if ($banner =~ /GP7000\b/ | $banner =~ /GP7000F\b/) {
		$untested = 0;
		if ($sunos =~ /^5.9/ ) {
			$untested = 1;	# Untested with Solaris 9
			$untested_type = "OS";
		}
		if ($slotname0 =~ /SLOT[0-9]/) {
			# M200
			# Up to 4GB of memory
			# System board has 16 DIMM slots, #00 - #15
			# Banks - 0,0,1,1,2,2,2,2,3,3,3,3,4,4,4,4
			# First Modules installed in Bank 0, slots 0-1
			# Second Modules Installed in Bank 1, slots 2-3
			# Modules in Bank 0 and 1 must be same size
			# Subsequent memory expansion installed in sets of four
			#   modules in Bank 2 - 4 (Slots 4-7, 8-11, 12-15)
			@socketstr = ("SLOT0","SLOT1","SLOT2","SLOT3","SLOT4","SLOT5","SLOT6","SLOT7","SLOT8","SLOT9","SLOT10","SLOT11","SLOT12","SLOT13","SLOT14","SLOT15");
		}
		if ($slotname0 =~ /SLOT[AB][0-9]/) {
			# M400 and M600
			# Up to 4GB of memory
			# System board has 32 DIMM slots, #00 - #15 Group A & B
			# Banks - 0,0,1,1,2,2,2,2,3,3,3,3,4,4,4,4
			# First Modules installed in Bank 0 Group A, slots 0-1
			# Second Modules installed in Bank 0 Group B, slots 0-1
			# Modules in Group A and B must be same size
			# Next memory expansion installs in Bank 1 Group A & B,
			#   slots 2-3 using modules of same size as Bank 0
			# Subsequent memory expansion installed in sets of eight
			#   modules in Bank 2 - 4 (Slots 4-7, 8-11, 12-15) in
			#   both Group A and B
			@socketstr = ("SLOTA0","SLOTA1","SLOTA2","SLOTA3","SLOTA4","SLOTA5","SLOTA6","SLOTA7","SLOTA8","SLOTA9","SLOTA10","SLOTA11","SLOTA12","SLOTA13","SLOTA14","SLOTA15","SLOTB0","SLOTB1","SLOTB2","SLOTB3","SLOTB4","SLOTB5","SLOTB6","SLOTB7","SLOTB8","SLOTB9","SLOTB10","SLOTB11","SLOTB12","SLOTB13","SLOTB14","SLOTB15");
		}
	}
	if ($banner =~ /PRIMEPOWER [246]00\b/ | $banner =~ /PRIMEPOWER[246]00\b/) {
		# Up to 8GB of memory
		# Each system board has 16 DIMM slots, #00 - #15
		# Four banks of 4 (0-3,4-7,8-11,12-15)
		# PrimePower 200 and 400 use 1 system board
		# PrimePower 600 uses 2 system boards (00, 01)
		$untested = 0;
		if ($sunos =~ /^5.9/ ) {
			$untested = 1;	# Untested with Solaris 9
			$untested_type = "OS";
		}
		if ($slotname0 =~ /00-SLOT[0-9]/) {
			@socketstr = ("00-SLOT0","00-SLOT1","00-SLOT2","00-SLOT3","00-SLOT4","00-SLOT5","00-SLOT6","00-SLOT7","00-SLOT8","00-SLOT9","00-SLOT10","00-SLOT11","00-SLOT12","00-SLOT13","00-SLOT14","00-SLOT15");
		}
		if ($gotmodulenames =~ /01-SLOT[0-9]/) {
			push (@socketstr, ("01-SLOT0","01-SLOT1","01-SLOT2","01-SLOT3","01-SLOT4","01-SLOT5","01-SLOT6","01-SLOT7","01-SLOT8","01-SLOT9","01-SLOT10","01-SLOT11","01-SLOT12","01-SLOT13","01-SLOT14","01-SLOT15"));
		}
		if ($banner =~ /PRIMEPOWER 600\b/ | $banner =~ /PRIMEPOWER600\b/) {
			$untested = 1;
		}
	}
	if ($banner =~ /PRIMEPOWER 800\b/ | $banner =~ /PRIMEPOWER800\b/) {
		# Minimum Memory: 1GB / system board, 2GB / system
		# Maximum Memory: 8GB / system board, 32GB / system
		$untested = 0;
		if ($sunos =~ /^5.9/ ) {
			$untested = 1;	# Untested with Solaris 9
			$untested_type = "OS";
		}
		if ($slotname0 =~ /00-SLOT#[AB][0-9]/) {
			@socketstr = ("00-SLOT#A00","00-SLOT#A01","00-SLOT#A02","00-SLOT#A03","00-SLOT#A10","00-SLOT#A11","00-SLOT#A12","00-SLOT#A13","00-SLOT#A20","00-SLOT#A21","00-SLOT#A22","00-SLOT#A23","00-SLOT#A30","00-SLOT#A31","00-SLOT#A32","00-SLOT#A33","00-SLOT#B00","00-SLOT#B01","00-SLOT#B02","00-SLOT#B03","00-SLOT#B10","00-SLOT#B11","00-SLOT#B12","00-SLOT#B13","00-SLOT#B20","00-SLOT#B21","00-SLOT#B22","00-SLOT#B23","00-SLOT#B30","00-SLOT#B31","00-SLOT#B32","00-SLOT#B33");
		}
		if ($gotmodulenames =~ /01-SLOT#[AB][0-9]/) {
			push (@socketstr, ("01-SLOT#A00","01-SLOT#A01","01-SLOT#A02","01-SLOT#A03","01-SLOT#A10","01-SLOT#A11","01-SLOT#A12","01-SLOT#A13","01-SLOT#A20","01-SLOT#A21","01-SLOT#A22","01-SLOT#A23","01-SLOT#A30","01-SLOT#A31","01-SLOT#A32","01-SLOT#A33","01-SLOT#B00","01-SLOT#B01","01-SLOT#B02","01-SLOT#B03","01-SLOT#B10","01-SLOT#B11","01-SLOT#B12","01-SLOT#B13","01-SLOT#B20","01-SLOT#B21","01-SLOT#B22","01-SLOT#B23","01-SLOT#B30","01-SLOT#B31","01-SLOT#B32","01-SLOT#B33"));
		}
		if ($gotmodulenames =~ /02-SLOT#[AB][0-9]/) {
			push (@socketstr, ("02-SLOT#A00","02-SLOT#A01","02-SLOT#A02","02-SLOT#A03","02-SLOT#A10","02-SLOT#A11","02-SLOT#A12","02-SLOT#A13","02-SLOT#A20","02-SLOT#A21","02-SLOT#A22","02-SLOT#A23","02-SLOT#A30","02-SLOT#A31","02-SLOT#A32","02-SLOT#A33","02-SLOT#B00","02-SLOT#B01","02-SLOT#B02","02-SLOT#B03","02-SLOT#B10","02-SLOT#B11","02-SLOT#B12","02-SLOT#B13","02-SLOT#B20","02-SLOT#B21","02-SLOT#B22","02-SLOT#B23","02-SLOT#B30","02-SLOT#B31","02-SLOT#B32","02-SLOT#B33"));
		}
		if ($gotmodulenames =~ /03-SLOT#[AB][0-9]/) {
			push (@socketstr, ("03-SLOT#A00","03-SLOT#A01","03-SLOT#A02","03-SLOT#A03","03-SLOT#A10","03-SLOT#A11","03-SLOT#A12","03-SLOT#A13","03-SLOT#A20","03-SLOT#A21","03-SLOT#A22","03-SLOT#A23","03-SLOT#A30","03-SLOT#A31","03-SLOT#A32","03-SLOT#A33","03-SLOT#B00","03-SLOT#B01","03-SLOT#B02","03-SLOT#B03","03-SLOT#B10","03-SLOT#B11","03-SLOT#B12","03-SLOT#B13","03-SLOT#B20","03-SLOT#B21","03-SLOT#B22","03-SLOT#B23","03-SLOT#B30","03-SLOT#B31","03-SLOT#B32","03-SLOT#B33"));
		}
	}
}
if ($model =~ /COMPstation.10/) {
	# Tatung Science and Technology, http://www.tsti.com
	# Accepts 16MB and 64MB SIMMs on motherboard
	# Bank 0 must be filled first
	# Layout is like SPARCstation-10, but I don't know if it can accept
	# 32MB SIMMs or NVSIMMs
	$untested = 0;
	$simmrangex = "00000040";
	$simmbanks = 8;
	$simmsperbank = 1;
	@simmsizes = (16,64);
	@socketstr = ("J0201","J0203","J0302","J0304","J0202","J0301","J0303","J0305");
	@bankstr = (0,2,4,6,1,3,5,7);
}
if ($model =~ /COMPstation-20A\b/) {
	# Tatung Science and Technology, http://www.tsti.com
	# Accepts 16MB, 32MB and 64MB SIMMs on motherboard
	$untested = 1;
	$simmrangex = "00000040";
	$simmbanks = 8;
	$simmsperbank = 1;
	@simmsizes = (16,32,64);
	@socketstr = ("J0201","J0304","J0203","J0302","J0303","J0301","J0305","J0202");
	@orderstr = ("1st","2nd","3rd","4th","5th","6th","7th","8th");
	@bankstr = (1,2,3,4,5,6,7,8);
}
if ($model =~ /COMPstation-20AL/) {
	# Tatung Science and Technology, http://www.tsti.com
	# Accepts 16MB, 32MB and 64MB SIMMs on motherboard
	$untested = 0;
	$simmrangex = "00000040";
	$simmbanks = 8;
	$simmsperbank = 1;
	@simmsizes = (16,32,64);
	@socketstr = ("J0201","J0203","J0302","J0304","J0202","J0301","J0303","J0305");
	@orderstr = ("1st","2nd","3rd","4th","5th","6th","7th","8th");
	@bankstr = (0,1,2,3,4,5,6,7);
}
if ($banner =~ /COMPstation_U60_Series/ | $banner =~ /COMPstation_U80D_Series/) {
	# Tatung Science and Technology, http://www.tsti.com
	# Accepts 16MB, 32MB, 64MB, 128MB or 256MB DIMMs on motherboard
	# 4 banks with 4 DIMMs per bank
	$untested = 0;
	$simmrangex = "00000200"; # use "00000400" with 256MB DIMMs
	$simmbanks = 6;	# Count the skipped address range
	$simmsperbank = 4;
	@simmsizes = (16,32,64,128,256);
}

#
# systems below may have memory information available in prtdiag output
#
if ($model eq "SPARCserver-1000" | $model eq "SPARCcenter-2000") {
	&show_header;
	# Accepts 8MB and 32MB SIMMs on motherboard
	$untested = 0;
	if ($sunos =~ /^5.9/ ) {
		$untested = 1;	# Untested with Solaris 9
		$untested_type = "OS";
	}
	$prtdiag_has_mem = 1;
	&check_prtdiag;
	if ($boardfound_mem) {
		print @boards_mem;
		print "Each memory unit group is comprised of 4 SIMMs\n";
		foreach $line (@boards_mem) {
			if ($line =~ /Board/) {
				$boardslot_mem = substr($line,5,1);
				$group_size = int substr($line,46,3);
				if ($group_size == 0) {
					&found_empty_bank("Group 0");
				}
				if ($group_size == 4) {
					&found_nvsimm_bank("Group 0");
				}
				$group_size = int substr($line,54,3);
				if ($group_size == 0) {
					&found_empty_bank("Group 1");
				}
				if ($group_size == 4) {
					&found_nvsimm_bank("Group 1");
				}
				$group_size = int substr($line,62,3);
				if ($group_size == 0) {
					&found_empty_bank("Group 2");
				}
				if ($group_size == 4) {
					&found_nvsimm_bank("Group 2");
				}
				$group_size = int substr($line,70,3);
				if ($group_size == 0) {
					&found_empty_bank("Group 3");
				}
				if ($group_size == 4) {
					&found_nvsimm_bank("Group 3");
				}
			}
		}
		$empty_banks = " None" if ($empty_banks eq "");
		print "empty memory groups:$empty_banks\n";
	} else {
		$recognized = 0;
	}
	$totmem = $installed_memory;
	goto finish;
}
if ($model eq "Ultra-4" | $ultra eq 450 | $model eq "Ultra-4FT" | $ultra eq "Netra ft1800") {
	# Accepts 32MB, 64MB, 128MB or 256MB DIMMs on motherboard
	#   501-2622 (32MB), 501-2480 or 501-5691 (64MB), 501-3136 (128MB),
	#   501-4743 or 501-5896 (256MB)
	#   200-pin 60ns Fast Page Mode ECC
	# Netra ft1800 is based on Ultra 450
	$untested = 0;
	if ($sunos =~ /^5.9/ ) {
		$untested = 1;	# Untested with Solaris 9
		$untested_type = "OS";
	}
	$simmrangex = "00000400";
	$simmbanks = 4;
	$simmsperbank = 4;
	@simmsizes = (32,64,128,256);
	@socketstr = ("U1901","U1902","U1903","U1904","U1801","U1802","U1803","U1804","U1701","U1702","U1703","U1704","U1601","U1602","U1603","U1604");
	@groupstr = ("A","A","A","A","B","B","B","B","C","C","C","C","D","D","D","D");
	@bankstr = (2,2,2,2,3,3,3,3,0,0,0,0,1,1,1,1);
}
if ($model eq "Ultra-250" | $ultra eq 250) {
	# Accepts 16MB, 32MB, 64MB, or 128MB DIMMs on motherboard
	#   501-2479 (16MB), 501-2622 (32MB), 501-2480 or 501-5691 (64MB),
	#   501-3136 (128MB)
	#   200-pin 60ns Fast Page Mode ECC
	$untested = 0;
	if ($sunos =~ /^5.9/ ) {
		$untested = 1;	# Untested with Solaris 9
		$untested_type = "OS";
	}
	$simmrangex = "00000200";
	$simmbanks = 4;
	$simmsperbank = 4;
	@simmsizes = (16,32,64,128);
	@socketstr = ("U0701","U0801","U0901","U1001","U0702","U0802","U0902","U1002","U0703","U0803","U0903","U1003","U0704","U0804","U0904","U1004");
	@bankstr = ("A","A","A","A","B","B","B","B","C","C","C","C","D","D","D","D");
}
if ($model eq "Ultra-80" | $ultra eq 80 | $ultra eq "420R") {
	# Also Netra t1400/1405
	# Accepts 32MB, 64MB, 128MB or 256MB DIMMs on motherboard, but Sun
	# only supports 64MB or 256MB DIMMs on motherboard
	#   501-5691 (64MB), 501-4743 (256MB)
	#   200-pin 60ns 5V Fast Page Mode ECC, 576 bits data width
	# 64MB DIMMs same as in Ultra-60, 256MB DIMMs same as in Enterprise-450
	# U0403,U0404,U1403,U1404 bank 3 address 0xc0000000-0xffffffff
	# U0303,U0304,U1303,U1304 bank 2 address 0x80000000-0xbfffffff
	# U0401,U0402,U1401,U1402 bank 1 address 0x40000000-0x7fffffff
	# U0301,U0302,U1301,U1302 bank 0 address 0x00000000-0x3fffffff
	# The minimum requirement is four DIMMs in any bank. DIMMs can be
	# installed in any bank order. DIMMs are required on both the Riser
	# Board (U0[34]0?) and the System Board (U1[34]0?). Two-way and
	# four-way memory bank interleaving is supported.
	#
	# prtconf does not reliably show the size of DIMMs in each slot.
	# It shows this:
	#  4096MB system: 00000000.00000000.00000001.00000000
	#  1536MB system: 00000000.00000000.00000000.60000000
	#  1024MB system: 00000000.00000000.00000000.40000000
	#   512MB system: 00000000.00000000.00000000.20000000
	#   256MB system: 00000000.00000000.00000000.10000000
	# which is useless! A system with 4GB is reported as having
	# 4 1GB DIMMs instead of 16 256MB DIMMs.
	# This is apparently an issue that Sun may fix in the OBP.
	# It is broken with OBP 3.27.0 2000/08/23 (patch 109082-02) and older.
	# Sun ships U80 1GB configurations w/ 4x256MB DIMMs
	# Sun ships U80 256MB configurations w/ 4x64MB DIMMs
	# 64MB DIMM 501-2480 and 128MB DIMM 501-3136 are not supported.
	# 16MB and 32MB DIMMs are not sold for the Ultra 80.
	$untested = 0;
	if ($sunos =~ /^5.9/ ) {
		$untested = 1;	# Untested with Solaris 9
		$untested_type = "OS";
	}
	$recognized = -1;
	$simmrangex = "00000400";
	$simmbanks = 4;
	$simmsperbank = 4;
	@simmsizes = (32,64,128,256); # Sun only supports 64MB and 256MB DIMMs
#	@simmsizes = (64,256);	# Sun only supports 64MB and 256MB DIMMs
	@socketstr = ("U0301","U0302","U1301","U1302","U0401","U0402","U1401","U1402","U0303","U0304","U1303","U1304","U0403","U0404","U1403","U1404");
	@bankstr = (0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3);
}
if ($model eq "Sun-Blade-1000" | $ultra eq "Sun Blade 1000") {
	# Accepts 128MB, 256MB, 512MB or 1GB DIMMs on motherboard
	# Uses 232-pin 3.3V ECC 7ns SDRAM
	# J0407 Group 1 Bank 1/3 address 0x0fa000000 - 0x1f3ffffff
	# J0406 Group 0 Bank 0/2 address 0x000000000 - 0x0f9ffffff
	# J0305 Group 1 Bank 1/3 address 0x0fa000000 - 0x1f3ffffff
	# J0304 Group 0 Bank 0/2 address 0x000000000 - 0x0f9ffffff
	# J0203 Group 1 Bank 1/3 address 0x0fa000000 - 0x1f3ffffff
	# J0202 Group 0 Bank 0/2 address 0x000000000 - 0x0f9ffffff
	# J0101 Group 1 Bank 1/3 address 0x0fa000000 - 0x1f3ffffff
	# J0100 Group 0 Bank 0/2 address 0x000000000 - 0x0f9ffffff
	# The minimum memory requirement is four DIMMs in any Group
	$untested = 0;
	if ($sunos =~ /^5.9/ ) {
		$untested = 1;	# Untested with Solaris 9
		$untested_type = "OS";
	}
	$prtdiag_has_mem = 1;
	$simmrangex = "00001000";
	$simmbanks = 2;
	$simmsperbank = 4;
	@simmsizes = (128,256,512,1024);
	@socketstr = ("J0100","J0202","J0304","J0406","J0101","J0203","J0305","J0407");
	@bankstr = (0,0,0,0,1,1,1,1);
}
if ($model eq "Sun-Blade-100" | $ultra eq "Sun Blade 100") {
	# Accepts 128MB, 256MB or 512MB DIMMs on motherboard
	# Uses 168-pin 3.3V ECC 7ns PC133 CL=3 SDRAM
	# U5 DIMM3 address 0x60000000 - 0x7fffffff or 0xc0000000 - 0xffffffff
	# U4 DIMM2 address 0x40000000 - 0x5fffffff or 0x80000000 - 0xbfffffff
	# U3 DIMM1 address 0x20000000 - 0x3fffffff or 0x40000000 - 0x7fffffff
	# U2 DIMM0 address 0x00000000 - 0x1fffffff or 0x00000000 - 0x3fffffff
	# The minimum memory requirement is one DIMM in U2
	# The memory installation sequence is U2, U3, U4, U5
	# Each bank addresses 512MB of memory with 500MHz UltraSPARC
	# Each bank addresses 1GB of memory with >= 550MHz UltraSPARC
	$untested = 0;
	if ($sunos =~ /^5.9/ ) {
		$untested = 1;	# Untested with Solaris 9
		$untested_type = "OS";
	}
	$prtdiag_has_mem = 1;
	$simmrangex = "00000200";
#	$simmrangex = ($cpufreq > 500) ? "00000400" : "00000200";
	$simmbanks = 4;
	$simmsperbank = 1;
	@simmsizes = (128,256,512);
	@socketstr = ("DIMM0","DIMM1","DIMM2","DIMM3");
	@bankstr = (0,1,2,3);
}
if ($ultra eq "Sun Fire 280R") {
	# Accepts up to 8 128MB, 256MB, 512MB or 1GB DIMMs installed in groups
	# of four DIMMs per bank on motherboard
	# Uses 232-pin 3.3V ECC 7ns SDRAM
	# J0407 Group 1 Bank 1/3 address 0x0fa000000 - 0x1f3ffffff
	# J0406 Group 0 Bank 0/2 address 0x000000000 - 0x0f9ffffff
	# J0305 Group 1 Bank 1/3 address 0x0fa000000 - 0x1f3ffffff
	# J0304 Group 0 Bank 0/2 address 0x000000000 - 0x0f9ffffff
	# J0203 Group 1 Bank 1/3 address 0x0fa000000 - 0x1f3ffffff
	# J0202 Group 0 Bank 0/2 address 0x000000000 - 0x0f9ffffff
	# J0101 Group 1 Bank 1/3 address 0x0fa000000 - 0x1f3ffffff
	# J0100 Group 0 Bank 0/2 address 0x000000000 - 0x0f9ffffff
	# The minimum memory requirement is four DIMMs in any Group
	# For maximum 4-way interleaving, install 8 DIMMs of identical sizes
	$untested = 0;
	if ($sunos =~ /^5.9/ ) {
		$untested = 1;	# Untested with Solaris 9
		$untested_type = "OS";
	}
	$prtdiag_has_mem = 1;
	$simmrangex = "00001000";
	$simmbanks = 2;
	$simmsperbank = 4;
	@simmsizes = (128,256,512,1024);
	@socketstr = ("J0100","J0202","J0304","J0406","J0101","J0203","J0305","J0407");
	@bankstr = (0,0,0,0,1,1,1,1);
}

if ($ultra eq "Sun Fire") {
	# Sun Fire 3800, 4800, 4810 and 6800 system
	# I don't have any hardware information on this system yet to determine
	# empty slots, but prtdiag output shows the memory installed.
	$untested = 0;
	$prtdiag_has_mem = 1;
}
if ($ultra eq "Sun Fire 880") {
	# I don't have any hardware information on this system yet to determine
	# empty slots, but prtdiag output shows the memory installed.
	$untested = 0;
	if ($sunos =~ /^5.9/ ) {
		$untested = 1;	# Untested with Solaris 9
		$untested_type = "OS";
	}
	$prtdiag_has_mem = 1;
}
if ($ultra eq "Sun Fire 15000") {
	# New Sun Fire 15000 system - untested
	# I don't have any hardware information on this system yet to determine
	# empty slots, but prtdiag output probably shows the memory installed.
	$untested = 1;
	$prtdiag_has_mem = 1;
}

if ($model =~ /Ultra-Enterprise/ | $ultra eq "e") {
	# E3x00/E4x00/E5x00/E6x00 accepts 8MB, 32MB, 128MB or 256MB DIMMs on
	#  motherboard, 2 banks of 8 DIMMs per board.
	#  256MB DIMMs (2GB kit X7026A) can be used with OBP 3.2.24 or later and
	#  Solaris 2.5.1 11/97, Solaris 2.6 3/98 or later
	#   501-2652 (8MB), 501-2653 (32MB), 501-2654 (128MB), 501-5658 (256MB)
	#   168-pin 60ns 3.3V ECC
	# E10000 accepts 32MB or 128MB DIMMs on motherboard,
	#  using 2 or 4 banks of 8 DIMMs per board.
	#   501-2653 (32MB), 501-2654 (128MB)
	#   168-pin 60ns 3.3V ECC
	&show_header;
	$untested = 1;
	$untested = 0 if ($banner =~ /\bE?[3-6][05]00\b/);
	$untested = 0 if ($model =~ /-10000\b/);
	if ($sunos =~ /^5.9/ ) {
		$untested = 1;	# Untested with Solaris 9
		$untested_type = "OS";
	}
	$prtdiag_has_mem = 1;
	@prtdiag = `$prtdiag_exec` if ($filename eq "");
	$i = 0;
	foreach $line (@prtdiag) {
		if ($line =~ /Memory Units:/) {
			# Start of memory section, Solaris 2.5.1 format
			$flag_mem = 1;
			$format_mem = 1;
			$flag_cpu = 0;	# End of CPU section
		}
		if ($line =~ /===== Memory /) {
			# Start of memory section, Solaris 2.6 and later format
			$flag_mem = 1;
			$format_mem = 2;
			$flag_cpu = 0;	# End of CPU section
		}
		if ($line =~ /Factor/) {
			# No interleave factor on E10000
			$format_mem += 2 if ($format_mem == 1 | $format_mem == 2);
		}
		if ($line =~ /IO Cards/) {
			$flag_cpu = 0;	# End of CPU section
			$flag_mem = 0;	# End of memory section
		}
		if ($flag_cpu >= 1 & $line ne "\n") {
			push(@boards_cpu, "$line");
			$boardfound_cpu = 1;
			if ($line =~ /Board/) {
				$boardslot_cpu = substr($line,6,2);
			} else {
				$boardslot_cpu = substr($line,0,2);
			}
			$boardslot_cpu =~ s/[: ]//g;
			if ($flag_cpu == 2 & $boardslot_cpus !~ /\s$boardslot_cpu\s/ & $boardslot_cpu ne "") {
				push(@boardslot_cpus, "$boardslot_cpu");
				$boardslot_cpus .= $boardslot_cpu . " ";
			}
		}
		if ($line =~ /CPU Units:/) {
			$flag_cpu = 1;  # Start of CPU section
			$flag_mem = 0;  # End of memory section
			$format_cpu = 1;
		}
		if ($line =~ /===== CPUs =====/) {
			$flag_cpu = 1;  # Start of CPU section
			$flag_mem = 0;  # End of memory section
			$format_cpu = 2;
		}
		if ($flag_mem == 2 & $line ne "\n") {
			if ($line =~ /Board/) {
				$boardslot_mem = substr($line,6,2);
			} else {
				$boardslot_mem = substr($line,0,2);
			}
			$boardslot_mem =~ s/[: ]//g;
			if ($boardslot_mems !~ /\s$boardslot_mem\s/) {
				push(@boardslot_mems, "$boardslot_mem");
				$boardslot_mems .= $boardslot_mem . " ";
			}
			if ($format_mem == 1) {
				# Memory on each system board, E10000
				$mem0 = substr($line,12,4);
				$mem0 = 0 if ($mem0 !~ /\d+/);
				$dimm0 = $mem0 / 8;
				if ($dimm0 > 0) {
					$dimms0 = sprintf("8x%3d", $dimm0);
				} else {
					$dimms0 = "     ";
					&found_empty_bank("Bank 0");
				}
				$mem1 = substr($line,20,4);
				$mem1 = 0 if ($mem1 !~ /\d+/);
				$dimm1 = $mem1 / 8;
				if ($dimm1 > 0) {
					$dimms1 = sprintf("8x%3d", $dimm1);
				} else {
					$dimms1 = "     ";
					&found_empty_bank("Bank 1");
				}
				$mem2 = substr($line,28,4);
				$mem2 = 0 if ($mem2 !~ /\d+/);
				$dimm2 = $mem2 / 8;
				if ($dimm2 > 0) {
					$dimms2 = sprintf("8x%3d", $dimm2);
				} else {
					$dimms2 = "     ";
					&found_empty_bank("Bank 2");
				}
				$mem3 = substr($line,36,4);
				$mem3 = 0 if ($mem3 !~ /\d+/);
				$dimm3 = $mem3 / 8;
				if ($dimm3 > 0) {
					$dimms3 = sprintf("8x%3d", $dimm3);
				} else {
					$dimms3 = "     ";
					&found_empty_bank("Bank 3");
				}
				$newline = substr($line,0,10);
				$newline .= "  " . $mem0 . "  " . $dimms0;
				$newline .= "  " . $mem1 . "  " . $dimms1;
				$newline .= "  " . $mem2 . "  " . $dimms2;
				$newline .= "  " . $mem3 . "  " . $dimms3;
				$newline .= "\n";
				push(@boards_mem, "$newline");
				$boardfound_mem = 1;
			}
			if ($format_mem == 2) {
				# Memory on each system board, E10000
				# Not detecting empty banks
				$untested = 1;
				$bank_slot = substr($line,7,1);
				$mem = substr($line,12,4);
				$mem = 0 if ($mem !~ /\d+/);
				$dimm = $mem / 8;
				if ($dimm > 0) {
					$dimms = sprintf("8x%3d", $dimm);
					$newline = substr($line,0,18) . $dimms;
					$newline .= substr($line,16,47);
					push(@boards_mem, "$newline");
					$boardfound_mem = 1;
				} else {
					$flag_mem = 0;
					&found_empty_bank("Bank $bank_slot");
				}
			}
			if ($format_mem == 3) {
				# Memory on each system board, E[3456]x00
				$mem0 = substr($line,10,4);
				$mem0 = 0 if ($mem0 !~ /\d+/);
				$dimm0 = $mem0 / 8;
				if ($dimm0 > 0) {
					$dimms0 = sprintf("8x%3d", $dimm0);
				} else {
					$dimms0 = "     ";
					&found_empty_bank("Bank 0");
				}
				$memlength = length $line;
				if ($memlength > 34) {
					$mem1 = substr($line,34,4);
				} else {
					$mem1 = 0;
				}
				$mem1 = 0 if ($mem1 !~ /\d+/);
				$dimm1 = $mem1 / 8;
				if ($dimm1 > 0) {
					$dimms1 = sprintf("8x%3d", $dimm1);
				} else {
					$dimms1 = "     ";
					&found_empty_bank("Bank 1");
				}
				$newline = substr($line,0,16) . $dimms0;
				$newline .= substr($line,16,24);
				if ($dimm1 > 0) {
					$newline .= $dimms1;
					$newline .= substr($line,39,16);
				}
				push(@boards_mem, "$newline");
				$boardfound_mem = 1;
			}
			if ($format_mem == 4) {
				# Memory on each system board, E[3456]x00
				$bank_slot = substr($line,7,1);
				$mem = substr($line,12,4);
				$mem = 0 if ($mem !~ /\d+/);
				$dimm = $mem / 8;
				if ($dimm > 0) {
					$dimms = sprintf("8x%3d", $dimm);
					$newline = substr($line,0,18) . $dimms;
					$newline .= substr($line,16,47);
					push(@boards_mem, "$newline");
					$boardfound_mem = 1;
				} else {
					$flag_mem = 0;
					&found_empty_bank("Bank $bank_slot");
				}
				if ($bank_slot == 0) {
					$next_boardslot_mem = substr($prtdiag[$i + 1],0,2);
					$next_boardslot_mem =~ s/[: ]//g;
					if ($next_boardslot_mem ne $boardslot_mem) {
						&found_empty_bank("Bank 1");
					}
				}
				if ($bank_slot == 1) {
					$prev_boardslot_mem = substr($prtdiag[$i - 1],0,2);
					$prev_boardslot_mem =~ s/[: ]//g;
					if ($prev_boardslot_mem ne $boardslot_mem) {
						&found_empty_bank("Bank 0");
					}
				}
			}
		}
		if ($flag_cpu == 1 & $line =~ /-----/) {
			# Next lines are the CPUs on each system board
			$flag_cpu = 2;
		}
		if ($flag_mem == 1 & $line =~ /-----/) {
			# Next lines are the memory on each system board
			$flag_mem = 2;
		}
		$i++;
	}
	if ($boardfound_cpu & $verbose >= 1) {
		if ($format_cpu == 1) {
			print "CPU Units: Frequency Cache-Size Version\n";
		} else {
			print "CPU Units:\n";
		}
		print @boards_cpu;
	}
	if ($boardfound_mem) {
		if ($boardfound_cpu) {
			foreach $board (@boardslot_cpus) {
				if ($boardslot_mems !~ /\s$board\s/) {
					$boardslot_mem = $board;
					if ($format_mem <= 2 ) {
						# E10000
						&found_empty_bank("Bank 0");
						&found_empty_bank("Bank 1");
						&found_empty_bank("Bank 2");
						&found_empty_bank("Bank 3");
					} else {
						# E3x00/E4x00/E5x00/E6x00
						&found_empty_bank("Bank 0");
						&found_empty_bank("Bank 1");
					}
				}
			}
		}
		print "Memory Units:\n" if ($verbose >= 1);
		if ($format_mem == 1) {
			# E10000 running Solaris 2.5.1
			print "               Bank 0       Bank 1       Bank 2       Bank 3\n";
			print "             MB   DIMMs   MB   DIMMs   MB   DIMMs   MB   DIMMs\n";
			print "            ----  -----  ----  -----  ----  -----  ----  -----\n";
			print @boards_mem;
		}
		if ($format_mem == 2) {
			# E10000 running Solaris 2.6 or later
			print "Brd   Bank   MB   DIMMs   Status   Condition  Speed\n";
			print "---  -----  ----  -----  -------  ----------  -----\n";
			print @boards_mem;
		}
		if ($format_mem == 3) {
			# E3x00/E4x00/E5x00/E6x00 running Solaris 2.5.1
			print "                   Bank 0                       Bank 1\n";
			print "          J3100-J3800   Interleave     J3101-J3801   Interleave\n";
			print "           MB   DIMMs  Factor  With     MB   DIMMs  Factor  With\n";
			print "          ----  -----  ------  ----    ----  -----  ------  ----\n";
			print @boards_mem;
		}
		if ($format_mem == 4) {
			# E3x00/E4x00/E5x00/E6x00 running Solaris 2.6 or later
			print "                                                     Intrlv.  Intrlv.\n";
			print "Brd   Bank   MB   DIMMs   Status   Condition  Speed   Factor   With\n";
			print "---  -----  ----  -----  -------  ----------  -----  -------  -------\n";
			print @boards_mem;
			print "Bank 0 uses sockets J3100-J3800, Bank 1 uses sockets J3101-J3801\n";
		}
		$empty_banks = " None" if ($empty_banks eq "");
		print "empty memory banks:$empty_banks\n";
	}
	$totmem = $installed_memory;
	goto finish;
}

#
# Check to see if this system has memory defined in the prtdiag output
#
&check_prtdiag;
if ($boardfound_mem) {
	&show_header;
	print @boards_mem;
	$totmem = $installed_memory;
}
#
# Check to see if this system has module information in prtconf output
# (Seen on Fujitsu GP7000, GP7000F, PrimePower 200 & 400)
#
if ($gotmodule | $gotmodulenames) {
	&show_header;
	if ($gotmodulenames) {
		@simmslots = split(/\./, $gotmodulenames);
	} else {
		@simmslots = split(/\./, $gotmodule);
	}
	for($val = 0; $val < scalar(@simmslots); $val += 2) {
		if ($gotmodulenames) {
			$socket = $simmslots[$val];
		} else {
			$socket = "SLOT" . $val / 2;
		}
		$simmsz = $simmslots[$val + 1];
		$simmsize = hex("0x$simmsz") / $meg;
		$perlhexbug = 1 if ($simmsize < 0);
		$totmem += $simmsize;
		if ($simmsize > 0) {
			if (! $boardfound_mem) {
				print "$socket has a ${simmsize}MB";
				print " (", $simmsize/1024, "GB)" if ($simmsize > 1023);
				print " $memtype\n";
			}
			$sockets_used .= " $socket";
		}
	}
	$totmem = $installed_memory;
	goto finish;
}
goto finish if ($boardfound_mem);

#
# OK, get ready to print out results
#
for($val = $val0; $val < scalar(@slots); $val += $valinc) {
	$newaddrmsb = substr($slots[$val - $valaddr - 1],3,5);
	$newaddrlsb = substr($slots[$val - $valaddr],0,3);
	if ($valinc == 4) {
		$newsizemsb = substr($slots[$val - 1],3,5);
	} else {
		$newsizemsb = "";
	}
	$newsizelsb = substr($slots[$val],0,3);
	if ($sortslots) {
		$mods{"$newaddrmsb$newaddrlsb"} = "$newsizemsb$newsizelsb";
	} else {
		push(@newslots, "$newaddrmsb$newaddrlsb");
		push(@newslots, "$newsizemsb$newsizelsb");
	}
}
if ($sortslots) {
	for(sort keys %mods) {
		push(@newslots, $_);
		push(@newslots, $mods{$_});
	}
}

# For Ultra-30, determine if interleaving of banks using four DIMMs
if ($model eq "Ultra-30" | $ultra eq 30) {
	$interleave = 2;
	# pairs show up in odd numbered address ranges
	for($val = 0; $val < scalar(@newslots); $val += 2) {
		$interleave = 1 if ($newslots[$val] =~ /00000[1357]00/);
	}
	if ($interleave eq 2) {
		$simmrangex = "00000200";
		$simmbanks = 4;
		$simmsperbank = 4;
	} else {
		$simmrangex = "00000100";
		$simmbanks = 8;
		$simmsperbank = 2;
	}
}

# Check if SPARCsystem-600 has memory expansion board
if ($model eq "SPARCsystem-600" | $model =~ /Sun.4.600/) {
	for($val = 0; $val < scalar(@newslots); $val += 2) {
		if ($newslots[$val] =~ /00000[4-9a-f]00/) {
			@simmsizes = (1,4,16);
			push (@socketstr, @socketstr_exp);
			last;
		}
	}
}

# Hack: Try to rewrite memory line for Ultra-80 or Enterprise 420R
if ($model eq "Ultra-80" | $ultra eq 80 | $ultra eq "420R") {
	# 4GB of memory (maximum allowed)
	if ($newslots[1] eq "00001000") {
		$newslots[1] = "00000400";
		$newslots[2] = "00000400";
		$newslots[3] = "00000400";
		$newslots[4] = "00000800";
		$newslots[5] = "00000400";
		$newslots[6] = "00000c00";
		$newslots[7] = "00000400";
		$recognized = -2;
	}
	# 2GB of memory (eliminate unsupported 512MB DIMM error)
	if ($newslots[1] eq "00000800") {
		$newslots[1] = "00000400";
		$newslots[2] = "00000400";
		$newslots[3] = "00000400";
	}
}

# Hack: Fix address ranges for Tatung COMPstation U60 and U80D
if ($banner =~ /COMPstation_U60_Series/ | $banner =~ /COMPstation_U80D_Series/) {
	# Tatung Science and Technology, http://www.tsti.com
	for($val = 0; $val < scalar(@newslots); $val += 2) {
		if ($newslots[$val] =~ /00000[46]00/) {
			$simmbanks = 4;
		}
		# Check for 256MB DIMMs or 256MB address range per bank
		if ($newslots[$val+1] =~ /00000400/ | $newslots[$val] =~ /00000c00/) {
			$simmrangex = "00000400";
			$simmbanks = 4;
		}
	}
	if ($simmbanks eq 6) {
		# Skipped address range similar to Sun Ultra 60
		@socketstr = ("J17","J32","J36","J40","J18","J33","J37","J41","?","?","?","?","?","?","?","?","J19","J34","J38","J42","J20","J35","J39","J43");
		@slotstr = (1,2,3,4,5,6,7,8,"?","?","?","?","?","?","?","?",9,10,11,12,13,14,15,16);
		@bankstr = (0,0,0,0,1,1,1,1,"?","?","?","?","?","?","?","?",2,2,2,2,3,3,3,3);
	} else {
		@socketstr = ("J17","J32","J36","J40","J18","J33","J37","J41","J19","J34","J38","J42","J20","J35","J39","J43");
		@slotstr = (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
		@bankstr = (0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3);
	}
}

# Hack: Try to rewrite memory line for Sun Blade 1000 if prtdiag output did
#       not show the memory
if (($model eq "Sun-Blade-1000" | $ultra eq "Sun Blade 1000") & ! $boardfound_mem) {
	# Assume 8GB is 8x1GB instead of 4x2GB
	if ($newslots[1] eq "00002000") {
		$newslots[1] = "00001000";
		$newslots[2] = "00001000";
		$newslots[3] = "00001000";
		$recognized = -2;
	}
	# Assume 6GB is 4x1GB + 4x512MB
	if ($newslots[1] eq "00001800") {
		$newslots[1] = "00001000";
		$newslots[2] = "00001000";
		$newslots[3] = "00000800";
		$recognized = -1;
	}
	# Assume 5GB is 4x1GB + 4x256MB
	if ($newslots[1] eq "00001400") {
		$newslots[1] = "00001000";
		$newslots[2] = "00001000";
		$newslots[3] = "00000400";
		$recognized = -1;
	}
	# Assume 4.5GB is 4x1GB + 4x128MB
	if ($newslots[1] eq "00001200") {
		$newslots[1] = "00001000";
		$newslots[2] = "00001000";
		$newslots[3] = "00000200";
		$recognized = -1;
	}
}

# Check for dual bank DIMMs on Ultra AXmp+
if ($ultra eq "AXmp+") {
	if ($#newslots eq 3) {
		if ($newslots[2] =~ /00000[8c]00/) {
			$simmrangex = "00000800";
			$dualbank = 1 if ($newslots[1] eq $newslots[3]);
		}
	}
	if ($#newslots ge 5) {
		$dualbank = 1 if ($newslots[4] =~ /00000[8c]00/);
	}
	if ($dualbank eq 1) {
		@bankstr = ("0,2","0,2","0,2","0,2","0,2","0,2","0,2","0,2","1,3","1,3","1,3","1,3","1,3","1,3","1,3","1,3");
		# Rearrange slots if necessary
		if ($#newslots ge 5) {
			if ($newslots[4] eq "00000800") {
				$temp1 = $newslots[2];
				$temp2 = $newslots[3];
				$newslots[2] = $newslots[4];
				$newslots[3] = $newslots[5];
				$newslots[4] = $temp1;
				$newslots[5] = $temp2;
			}
		}
	}
}

for($val = 0; $val < scalar(@newslots); $val += 2) {
	$simmaddr = $newslots[$val];
	$simmsz = $newslots[$val + 1];
	$simmsize = hex("0x$simmsz");
	$perlhexbug = 1 if ($simmsize < 0);
	$totmem += $simmsize;

	if (($model eq "Sun 4/75" | $model eq "SS-2") & $simmbanks < $bankcnt + 2) {
		# SS2 SBus memory card
		if ($simmaddr eq "00000080") {
			$buffer .= "SBus primary contains ";
		} else {
			$buffer .= "SBus secondary contains ";
		}
		$start1 = hex("0x$simmaddr") * $meg;
		$perlhexbug = 1 if ($start1 < 0);
		$simmrange = hex("0x$simmrangex") * $meg;
		$perlhexbug = 1 if ($simmrange < 0);
		$start1x = sprintf("%08lx", $start1);
		$stop1x = sprintf("%08lx", $start1 + (2 * $simmrange) - 1);
		$totmem += $simmsize;
		$simmsize *= 2;
		$val += 2;
		$buffer .= "${simmsize}MB";
		$buffer .= " (address 0x${start1x}-0x$stop1x)" if ($verbose);
		$buffer .= "\n";
	} elsif ($simmbanks > 0) {
		$start1 = hex("0x$simmaddr") * $meg;
		$perlhexbug = 1 if ($start1 < 0);
		$simmrange = hex("0x$simmrangex") * $meg;
		$perlhexbug = 1 if ($simmrange < 0);
		if ($simmrange < hex("0x00001000") * $meg) {
			$start1x = sprintf("%08lx", $start1);
			$stop1x = sprintf("%08lx", $start1 + ($simmsize * $meg) - 1);
		} else {
			# Systems with > 4GB of memory
			$start1x = $simmaddr . "00000";
			$start1x =~ s/^0000//g;
			$stop1x = sprintf("%08lx", ($start1 / $meg ) + $simmsize - 1) . "fffff";
			$stop1x =~ s/^0000//g;
		}
		$cnt = 0;
		$maxcnt = $simmbanks * $simmsperbank / $simmspergroup;
		while ($cnt < $maxcnt) {
			if ($start1 >= ($simmrange * $cnt) & $start1 < ($simmrange * ($cnt + 1))) {
				$bankcnt = $cnt;
				$cnt3 = ($bankcnt * $simmsperbank / $simmspergroup);
				if ($#socketstr) {
					$socket = $socketstr[$cnt3];
					$socket = $socketstr[$cnt3+4] if ($tenbit & $newslots[$val] !~ /00000[0-3]00/);
				}
				$order = $orderstr[$cnt3] if ($#orderstr);
				$group = $groupstr[$cnt3] if ($#groupstr);
				$slotnum = $slotstr[$cnt3] if ($#slotstr);
				if ($#bankstr) {
					$bank = $bankstr[$cnt3];
					$bank = $bankstr[$cnt3+4] if ($tenbit & $newslots[$val] !~ /00000[0-3]00/);
				}
				$byte = $bytestr[$cnt3] if ($#bytestr);
			}
			$cnt++;
		}
		#
		# Check for stacked DIMMs. A 128MB DIMM is sometimes seen as 2
		# 64MB DIMMs with a hole in the address range. 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).
		# Special handling for $sortslots == 0 systems (Ultra 5/10,
		# Netra t1, Ultra CP 1400/1500, Ultra AXi/AXe/AXmp/AXmp+ )
		#
		$stacked = 0;
		if ($val < $#newslots - 2) {
			if ($sortslots == 0) {
				$start2 = $start1 + ($simmrange * 2);
				$start2x = sprintf("%08lx", $start2 / $meg);
				$stacked = 2 if ($stacked == 0 & $newslots[$val + 2] eq $start2x & $newslots[$val + 3] eq $simmsz);
				if ($memtype eq "memory card") {
					# Some 256MB mezzanine boards are seen
					# as 4 64MB memory blocks with holes in
					# the address range.
					if ($simmsize eq 64) {
						$start3 = $start1 + ($simmsize * 2 * $meg);
					}
					# Some 512MB mezzanine boards are seen
					# as 4 128MB memory blocks.
					if ($simmsize eq 128) {
						$start3 = $start1 + ($simmsize * $meg);
					}
					$start3x = sprintf("%08lx", $start3 / $meg);
					if ($val < $#newslots - 6 & $stacked != 0) {
						$stacked = 4 if ($newslots[$val + 4] eq $start3x & $newslots[$val + 5] eq $simmsz & $simmrange != $start3 );
					}
				}
				if ($ultra eq "AXi") {
					# Check for 10-bit column address DIMMs
					$tenbit = 1 if ($newslots[$val] =~ /00000[0-3]80/);
					if ($tenbit & $newslots[$val] !~ /00000[0-3]00/) {
						$socket = $socketstr[$cnt3+4];
						$bank = $bankstr[$cnt3+4];
					}
				}
			} else {
				$start2 = $start1 + ($simmrange / 2);
				$start2x = sprintf("%08lx", $start2 / $meg);
				$stacked = 2 if ($newslots[$val + 2] eq $start2x & $newslots[$val + 3] eq $simmsz & ($simmsize ne 64));
			}
			#
			# Check for 32MB SIMMs in bank 1 on Classic or LX.
			# They look like 16MB SIMMs at 0x0000000 and 0x06000000
			#
			if ($model =~ /SPARCclassic/ | $model =~ /SPARCstation-LX/) {
				if ($start1 == 0 & $simmsize == 32) {
					if ($newslots[$#newslots - 1] eq "00000060") {
						$totmem += $simmsize;
						$start2 = hex("0x$newslots[$#newslots - 1]") * $meg;
						$start2x = sprintf("%08lx", $start2);
						$stop2x = sprintf("%08lx", $start2 + ($simmsize * $meg) - 1);
						$stop1x .= ", 0x${start2x}-0x$stop2x";
						$simmsize *= 2;
						pop(@newslots);
						pop(@newslots);
					}
				}
			}
			if ($stacked == 2) {
				$totmem += $simmsize;
				$start2 = hex("0x$newslots[$val + 2]") * $meg;
				$start2x = sprintf("%08lx", $start2);
				$stop2x = sprintf("%08lx", $start2 + ($simmsize * $meg) - 1);
				$stop1x .= ", 0x${start2x}-0x$stop2x";
				$simmsize *= 2;
				$val += 2;
			}
			if ($stacked == 4) {
				$totmem += $simmsize * 3;
				$start2 = hex("0x$newslots[$val + 2]") * $meg;
				$start2x = sprintf("%08lx", $start2);
				$stop2x = sprintf("%08lx", $start2 + ($simmsize * $meg) - 1);
				$stop1x .= ", 0x${start2x}-0x$stop2x";
				$start3 = hex("0x$newslots[$val + 4]") * $meg;
				$start3x = sprintf("%08lx", $start3);
				$stop3x = sprintf("%08lx", $start3 + ($simmsize * $meg) - 1);
				$stop1x .= ", 0x${start3x}-0x$stop3x";
				$start4 = hex("0x$newslots[$val + 6]") * $meg;
				$start4x = sprintf("%08lx", $start4);
				$stop4x = sprintf("%08lx", $start4 + ($simmsize * $meg) - 1);
				$stop1x .= ", 0x${start4x}-0x$stop4x";
				$simmsize *= 4;
				$val += 6;
			}
		}
		#
		# Check for Voyager memory cards. A 32MB memory card is seen
		# as 4 8MB memory blocks with holes in the address range.
		#
		if ($model eq "S240" & $start1 > 0 & $simmsize == 16 & $val < $#newslots - 4) {
			$start = hex("0x$newslots[$val + 4]") - hex("0x$newslots[$val]");
			$perlhexbug = 1 if ($start < 0);
			$startx = sprintf("%08lx", $start);
			if ($newslots[$val + 1] eq "008" & $newslots[$val + 3] eq "008" & $startx eq "00000040") {
				$totmem += $simmsize;
				$startx = $newslots[$val + 2];
				$start = hex("0x$startx") * $meg;
				$startx = sprintf("%08lx", $start);
				$perlhexbug = 1 if ($start < 0);
				$stopx = sprintf("%08lx", $start + ($simmsize * $meg) - 1);
				$stop1x .= ", 0x${startx}-0x$stopx";
				$startx = $newslots[$val + 4];
				$start = hex("0x$startx") * $meg;
				$startx = sprintf("%08lx", $start);
				$perlhexbug = 1 if ($start < 0);
				$stopx = sprintf("%08lx", $start + ($simmsize * $meg) - 1);
				$stop1x .= ", 0x${startx}-0x$stopx";
				$simmsize *= 2;
				$val += 4;
			}
		}
		$slot0 = $simmsize if ($start1 == 0);
		$simmsizeperbank = $simmsize / $simmsperbank;
		$smallestsimm = $simmsizeperbank if ($simmsize < $smallestsimm);
		$largestsimm = $simmsizeperbank if ($simmsize > $largestsimm);
		$found16mb = 1 if ($simmsizeperbank == 16);
		$found32mb = 1 if ($simmsizeperbank == 32);
		push(@simmsizesfound, "$simmsizeperbank");

		$cnt2 = 0;
		$maxcnt2 = $simmsperbank / $simmspergroup;
		while ($cnt2 < $maxcnt2) {
			$socket = '?' if ($socket eq "");
			$recognized = 0 if ($socket eq "?");
			$sockets_used .= " $socket";
			if ($simmspergroup > 1) {
				$buffer .= "${sockettype}s $socket have $simmsperbank ";
				$buffer .= $simmsize/$simmsperbank . "MB ${memtype}s";
			} else {
				if ($socket eq "motherboard") {
					$buffer .= "$socket has ";
					$buffer .= $simmsize/$simmsperbank . "MB";
				} else {
					if ($model eq "SPARCsystem-600" | $model =~ /Sun.4.600/) {
						if ($bank =~ /B[0-3]/) {
							$buffer .= "Expansion board ";
						}
					}
					if ($sockettype) {
						$buffer .= "${sockettype} $socket has a ";
					} else {
						$buffer .= "$socket is a ";
					}
					$buffer .= $simmsize/$simmsperbank . "MB";
					$buffer .= " (" . $simmsize/$simmsperbank/1024 . "GB)" if ($simmsize/$simmsperbank > 1023);
					$buffer .= " $memtype";
				}
			}
			if ($verbose) {
				$buffer .= " (";
				if ($order ne "") {
					$buffer .= "$order";
					if ($memtype !~ /memory card/) {
						$buffer .= " $memtype";
					}
				}
				if ($slotnum ne "") {
					$buffer .= "slot $slotnum";
				}
				if ($order ne "" | $slotnum ne "") {
					$buffer .= ", ";
				}
				$buffer .= "group $group, " if ($group ne "");
				if ($bank ne "") {
					if ($bank =~ /Quad/) {
						$buffer .= "$bank, ";
					} elsif ($dualbank eq 1) {
						$buffer .= "banks $bank, ";
					} else {
						$buffer .= "bank $bank, ";
					}
				}
				$buffer .= "byte $byte, " if ($byte ne "");
				$buffer .= "address 0x${start1x}-0x$stop1x)";
			}
			$buffer .= "\n";
			$cnt2++;
			$cnt3 = ($bankcnt * $simmsperbank / $simmspergroup) + $cnt2;
			if ($#socketstr) {
				$socket = $socketstr[$cnt3];
				$socket = $socketstr[$cnt3+4] if ($tenbit & $newslots[$val] !~ /00000[0-3]00/);
			}
			$order = $orderstr[$cnt3] if ($#orderstr);
			$group = $groupstr[$cnt3] if ($#groupstr);
			$slotnum = $slotstr[$cnt3] if ($#slotstr);
			if ($#bankstr) {
				$bank = $bankstr[$cnt3];
				$bank = $bankstr[$cnt3+4] if ($tenbit & $newslots[$val] !~ /00000[0-3]00/);
			}
			$byte = $bytestr[$cnt3] if ($#bytestr);
		}
	} elsif ($ultra eq 1 | $ultra eq 5 | $ultra eq 10 | $ultra eq 30) {
		$buffer .= "bank $slot has a pair of " . $simmsize/2 . "MB DIMMs\n";
	} elsif ($ultra eq 2 | $ultra eq 250 | $ultra eq 450 | $ultra eq 80 | $ultra eq "420R" | $ultra eq "Netra ft1800") {
		$buffer .= "group $slot has four " . $simmsize/4 . "MB DIMMs\n";
	} elsif ($ultra eq 60 | $ultra eq "220R") {
		$buffer .= "group $slot has four " . $simmsize/2 . "MB DIMMs\n";
	} elsif ($ultra eq "e") {
		$buffer .= "group $slot has eight " . $simmsize/8 . "MB DIMMs\n";
	} elsif ($socket eq "motherboard") {
		$buffer .= "$slot has ${simmsize}MB\n";
	} else {
		$buffer .= "slot $slot has a ${simmsize}MB";
		$buffer .= " (" . $simmsize/1024 . "GB)" if ($simmsize > 1023);
		$buffer .= " $memtype\n";
	}
	$slot++;
}

#
# Try to distinguish Ultra 5 from Ultra 10
# Cannot distinguish Ultra 5/333MHz from Ultra 10/333MHz (375-0066 motherboard)
# Cannot distinguish Ultra 5/440MHz from Ultra 10/440MHz (375-0079 motherboard)
#
if ($model eq "Ultra-5_10" | $ultra eq "5_10" | $ultra eq 5 | $ultra eq 10) {
	if ($motherboard =~ /375-0009/) {
		$ultra = ($sysfreq > 91) ? 10 : 5;
		$realmodel = ($ultra eq 5) ? "(Ultra 5)" : "(Ultra 10)";
	}
	# Determine if interleaving of banks using four identical sized DIMMs
	# Assume 1-way interleaving with mix of stacked and unstacked DIMMs
	$interleave = 1;
	if ($#newslots == 3 & $stacked == 0) {
		$interleave = 2 if ($newslots[1] eq $newslots[3]);
	}
	if ($#newslots == 7 & $stacked == 2) {
		$interleave = 2 if ($newslots[1] eq $newslots[5]);
	}
}

finish:
&show_header;
#print "newslots = @newslots\n" if ($#newslots > 0 & $verbose > 1);
print $buffer if ($buffer ne "");
#
# Special memory options
#
if ($sxmem) {
	# Currently assumes only one VSIMM is installed.
	# Auxiliary Video Board 501-2020 (SS10SX) or 501-2488 (SS20) required
	# if two VSIMMs are installed.
	if ($model eq "SPARCstation-20" | $model eq "SuperCOMPstation-20S") {
		# SS20 first VSIMM in J0304/J0407, second in J0305/J0406
		print "sockets J0304/J0407 have";
		$sockets_used .= " J0304";
	} elsif ($model =~ /COMPstation-20A\b/) {
		# first VSIMM in J0202, second in J0301
		print "socket J0202 has";
		$sockets_used .= " J0202";
	} else {
		# SS10SX first VSIMM in J0301/J1203, second in J0202/J1201
		print "sockets J0301/J1203 have";
		$sockets_used .= " J0301";
	}
	print " a ${sxmem}MB VSIMM installed for SX (CG14) graphics\n";
}
if ($nvmem) {
	# NVSIMMs for Prestoserve
	if ($model eq "SPARCstation-20" | $model eq "SuperCOMPstation-20S") {
		# SS20 first 2MB NVSIMM in J0305/J0406, second in J0304/J0407
		if ($nvmem1) {
			$sockets_used .= " J0305";
			print "sockets J0305/J0406";
			print " have a 2MB NVSIMM installed for Prestoserve\n";
		}
		if ($nvmem2) {
			$sockets_used .= " J0304";
			print "sockets J0304/J0407";
			print " have a 2MB NVSIMM installed for Prestoserve\n";
		}
	} elsif ($model =~ /COMPstation-20A\b/) {
		# first 2MB NVSIMM in J0301, second in J0202
		if ($nvmem1) {
			$sockets_used .= " J0301";
			print "socket J0301";
			print " has a 2MB NVSIMM installed for Prestoserve\n";
		}
		if ($nvmem2) {
			$sockets_used .= " J0202";
			print "socket J0202";
			print " has a 2MB NVSIMM installed for Prestoserve\n";
		}
	} elsif ($model =~ /SPARCstation-10/ | $model eq "Premier-24") {
		# SS10 first 2MB NVSIMM in J0202/J1201, second in J0301/J1203
		if ($nvmem1) {
			$sockets_used .= " J0202";
			print "sockets J0202/J1201";
			print " have a 2MB NVSIMM installed for Prestoserve\n";
		}
		if ($nvmem2) {
			$sockets_used .= " J0301";
			print "sockets J0301/J1203";
			print " have a 2MB NVSIMM installed for Prestoserve\n";
		}
	} else {
		# SS1000 supports two banks of four 1MB NVSIMMs
		# SC2000 supports one bank of eight 1MB NVSIMMs
		print "Has ${nvmem}MB of NVSIMM installed for Prestoserve ";
		if ($model eq "SPARCserver-1000") {
			print "(1 bank of 4" if ($nvmem == 4);
			print "(2 banks of 4" if ($nvmem == 8);
		} else {
			print "(1 bank of 8";
		}
		print " 1MB NVSIMMs$nvsimm_banks)\n";
	}
}

#
# Check for empty sockets
#
if ($#socketstr > 0) {
	if ($sockettype) {
		print "empty ${sockettype}s:";
	} else {
		print "empty memory slots:";
	}
	foreach $socket (@socketstr) {
		if ($socket ne "?") {
			if ($sockets_used !~ /\b$socket\b/ &
			    $sockets_empty !~ /\b$socket\b/) {
				if ($memtype =~ /memory card/ &
				    $sockets_empty ne "") {
					$sockets_empty .= ", $socket";
				} else {
					$sockets_empty .= " $socket";
				}
			}
		}
	}
	if ($sockets_empty ne "") {
		print "$sockets_empty\n";
	} else {
		print " None\n";
	}
} elsif ($verbose > 1 & $sockets_used ne "") {
	print "memory sockets used: ${sockets_used}\n";
}

#
# Print total memory
#
print "total memory = ${totmem}MB";
print " (", $totmem / 1024, "GB)" if ($totmem > 1023);
print "\n";

#
# Check for illegal memory stuffings
#
if ($model eq "Sun 4/50" | $model eq "Sun 4/25") {	# IPX, ELC
	if ($slot0 != 16 & $largestsimm == 16 & $sunos =~ /4.1.1/) {
		print "ERROR: Install the highest capacity 16MB SIMM in ";
		print "socket $socketstr[0] under SunOS 4.1.1.\n";
		$exitstatus = 1;
	}
}
if ($model =~ /SPARCclassic/ | $model =~ /SPARCstation-LX/) {
	if ($found32mb) {
		# Reportedly can accept 32MB SIMMs in bank 1, allowing 128MB
		# total (2x32, 4x16)
		print "WARNING: The 32MB SIMM is not supported in the $model ";
		print "according to\n    Sun. However it does appear to work ";
		print "in bank 1, allowing a maximum of\n    128MB of total ";
		print "memory (2x32MB bank 1 + 4x16MB banks 2 & 3).\n";
	}
}
if ($model =~ /SPARCstation-10/ | $model eq "Premier-24") {
	if ($slot0 < $largestsimm & $BSD) {
		print "ERROR: Install the highest capacity SIMM in socket ";
		print "$socketstr[0] under Solaris 1.X.\n";
		$exitstatus = 1;
	}
	if (! $found32mb & $found16mb & $romvermajor eq 2 & $romverminor < 19) {
		print "WARNING: The 32MB SIMM is not supported in the SS10 ";
		print "or SS10SX according to\n    Sun. However it does work ";
		print "correctly depending on the Open Boot PROM\n    ";
		print "version. This system is running OBP $romvernum, so ";
		print "32MB SIMMs will only be\n    recognized as 16MB SIMMs. ";
		print "You should upgrade to OBP 2.19 or later in order\n";
		print "    to be able to detect and utilize 32MB SIMMs.\n";
		# OBP 2.14 and earlier see the 32MB SIMM as 16MB.
		# OBP 2.15 on a SS20 does see the 32MB SIMM as 32MB.
		# Have not tested 32MB SIMMs on SS10 with OBP 2.15 - 2.18
		if ($romverminor > 14) {
			$untested = 1;
			$untested_type = "OBP";
		}
	}
	if ($found32mb & $romvermajor eq 2 & $romverminor < 19) {
		print "WARNING: The 32MB SIMM is not supported in the SS10 ";
		print "or SS10SX according to\n    Sun. However it does work ";
		print "correctly depending on the Open Boot PROM\n    ";
		print "version. This system is running OBP $romvernum, and ";
		print "32MB SIMMs were properly\n    recognized.\n";
		@simmsizes = (16,32,64);
		if ($romvernum ne "2.X") {
			$untested = 1;
			$untested_type = "OBP";
		}
	}
	if (! $nvmem1 & $nvmem2) {
		print "ERROR: First NVSIMM should be installed in socket J0202, not socket J0301\n";
		$exitstatus = 1;
	}
}
if ($model eq "SPARCstation-20" | $model eq "SuperCOMPstation-20S") {
	if (! $nvmem1 & $nvmem2) {
		print "ERROR: First NVSIMM should be installed in socket J0305, not socket J0304\n";
		$exitstatus = 1;
	}
}
if ($model eq "SPARCstation-5") {
	if ($slot0 < $largestsimm & $BSD) {
		print "ERROR: Install the highest capacity SIMM in socket ";
		print "$socketstr[0] under Solaris 1.X.\n";
		$exitstatus = 1;
	}
	if ($sunos eq "4.1.3_U1" & $found32mb) {
		# Look to see if patch 101508-07 or later (-15 latest) is
		# installed for 32MB SIMMs to work properly (bug 1176458)
		$what = `/usr/ucb/what /sys/sun4m/OBJ/module_vik.o`;
		chop $what;
		if ($what !~ /module_vik.c 1.38 94\/08\/22 SMI/) {
			print "WARNING: Install SunOS 4.1.3_U1 patch 101508-07";
			print " or later in order for 32MB\n    SIMMs to work";
			print " reliably on the SPARCstation 5.\n";
		}
	}
}
if ($model eq "Ultra-5_10" | $ultra eq "5_10" | $ultra eq 5 | $ultra eq 10) {
	# Look for 16MB DIMMs
	if ($smallestsimm == 16 & $largestsimm > 16) {
		print "ERROR: 16MB DIMMs cannot be mixed with larger DIMMs ";
		print "on Ultra 5/10 systems.\n";
		$exitstatus = 1;
	}
}
if ($ultra eq 5) {
	# Look for 256MB DIMMs
	if ($largestsimm == 256) {
		print "WARNING: The 256MB DIMM is not supported in the ";
		print "Ultra 5 according to\n    Sun. However it does work ";
		print "correctly as long as you use low-profile\n    DIMMs ";
		print "or take out the floppy drive.\n";
	}
}

finish:
#
# Check for buggy perl version
#
if ($perlhexbug) {
	print "ERROR: Perl V5.001 is known to be buggy.\n" if ($PERL_VERSION == 5.001);
	$exitstatus = 1;
}
if ($PERL_VERSION < 5.002) {
	print "WARNING: Perl V5.002 or later is recommended for best results.\n";
	print "         You are running Perl V${PERL_VERSION}\n";
}

#
# Check for bad eeprom banner-name. This happens sometimes when OBP 3.23 or
# later is installed on Ultra-60/E220R and Ultra-80/E420R systems.
#
if ($banner =~ /^ \(/) {
	print "ERROR: banner-name not set in EEPROM (BugID 4257412). Cannot";
	print " distinguish an\n       Ultra ";
	print "60 from an Enterprise 220R" if ($model eq "Ultra-60");
	print "80 from an Enterprise 420R" if ($model eq "Ultra-80");
	print ". To correct this problem, please run\n       one of the";
	print " following commands as root depending on the system you have:\n";
	if ($model eq "Ultra-60") {
		print "            eeprom banner-name='Sun Ultra 60 UPA/PCI'\n";
		print "            eeprom banner-name='Sun Enterprise 220R'\n";
		print "Note: Netra t1120/1125 systems also use the 'Sun Ultra 60 UPA/PCI' banner\n";
	}
	if ($model eq "Ultra-80") {
		print "            eeprom banner-name='Sun Ultra 80 UPA/PCI'\n";
		print "            eeprom banner-name='Sun Enterprise 420R'\n";
		print "Note: Netra t1400/1405 systems also use the 'Sun Ultra 80 UPA/PCI' banner\n";
	}
	$exitstatus = 1;
}

#
# Check for unsupported memory sizes
#
if ($smallestsimm < $simmsizes[0]) {
	print "ERROR: Smaller than expected $memtype found ";
	print "(found ${smallestsimm}MB, smallest expected ";
	print "${simmsizes[0]}MB)\n";
	$exitstatus = 1;
}
if ($largestsimm > $simmsizes[$#simmsizes]) {
	print "ERROR: Larger than expected $memtype found ";
	print "(found ${largestsimm}MB, largest expected ";
	print "${simmsizes[$#simmsizes]}MB)\n";
	$exitstatus = 1;
}
undef %saw;
@saw{@simmsizesfound} = ();
@simmsizesfound = sort keys %saw;
foreach $i (@simmsizesfound) {
	$simmsizelegal = 0;
	foreach $j (@simmsizes) {
		if ($i == $j) {
			$simmsizelegal = 1;
		}
	}
	if ($simmsizelegal == 0) {
		print "ERROR: Unsupported ${i}MB $memtype found (supported ";
		if ($#simmsizes == 0) {
			print "size is @{simmsizes}MB)\n";
		} else {
			print "MB sizes are: @simmsizes)\n";
		}
		$exitstatus = 1;
	}
}
#
# Check for possible memory detection errors by this program
#
if (! $boardfound_mem & $prtdiag_has_mem) {
	print "WARNING: Memory should have been reported in the output from\n";
	if ($prtdiag_cmd) {
		print "       $prtdiag_cmd";
	} else {
		print "       prtdiag, which was not found";
		if (-d '/usr/platform') {
			print " in /usr/platform/$machine/sbin";
		}
	}
	print "\nERROR: Prtdiag failed!" if ($prtdiag_failed);
	print "\n       This system may be misconfigured or missing";
	print " software packages,\n       or may need the latest ";
	print "recommended Sun patches installed.\n";
	print "       Check my website at $URL\n";
	print "       to get the latest version of memconf.\n";
	$exitstatus = 1;
}
if ($recognized == 0) {
	print "ERROR: Layout of memory ${sockettype}s not completely ";
	print "recognized on this system.\n";
	$exitstatus = 1;
}
if ($recognized < 0) {
	print "WARNING: Layout of memory ${sockettype}s not completely ";
	print "recognized on this system.\n";
	if ($model eq "Ultra-80" | $ultra eq 80 | $ultra eq "420R") {
		if ($recognized == -2) {
			# Hack: If Ultra-80 or Enterprise 420R has 4GB of memory
			# (maximum allowed), then memory line was rewritten to show
			# memory stuffing.
			print "       The memory configuration displayed should be";
			print " correct though since this\n";
			print "       is a fully stuffed system.\n";
		} else {
			print "       The memory configuration displayed is a guess which may be incorrect.\n";
			if ($totmem eq 2048) {
				print "       The 2GB of memory installed may be 8 256MB DIMMs populating any 2 of\n";
				print "       the 4 banks, or 16 128MB DIMMs populating all 4 banks.\n";
			}
			if ($totmem eq 1024) {
				print "       The 1GB of memory installed may be 4 256MB DIMMs populating any 1 of\n";
				print "       the 4 banks, 8 128MB DIMMs populating any 2 of the 4 banks, or 16 64MB\n";
				print "       DIMMs populating all 4 banks.\n";
			}
			if ($totmem eq 512) {
				print "       The 512MB of memory installed may be 4 128MB DIMMs populating any 1 of\n";
				print "       the 4 banks, 8 64MB DIMMs populating any 2 of the 4 banks, or 16 32MB\n";
				print "       DIMMs populating all 4 banks.\n";
			}
			if ($totmem eq 256) {
				print "       The 256MB of memory installed may be 4 64MB DIMMs populating any 1 of\n";
				print "       the 4 banks, or 8 32MB DIMMs populating any 2 of the 4 banks.\n";
			}
		}
		print "       This is a known bug due to Sun's 'prtconf' ";
		if ($prtdiag_cmd) {
			print "and 'prtdiag' commands not\n";
		} else {
			print "command not\n";
		}
		print "       providing enough detail for the memory layout of this\n";
		print "       SunOS $sunos $platform system to be determined.\n";
		print "       A newer version of Open Boot PROM may improve this.\n";
		print "       This system is using $romver\n";
		$exitstatus = 1;
	}
	if ($model eq "Sun-Blade-1000" | $ultra eq "Sun Blade 1000") {
		# Do this if memory was not in the output of prtdiag
		if ($recognized == -2) {
			# Hack: If Sun Blade 1000 has 8GB of memory (maximum
			# allowed), then memory line was rewritten to show
			# memory stuffing.
			print "       The memory configuration displayed should be";
			print " correct though since this\n";
			print "       is a fully stuffed system.\n";
		} else {
			print "       The memory configuration displayed is a guess which may be incorrect.\n";
		}
	}
}
if ($banner =~ /Netra t1\b/ | $ultra eq "Netra t1") {
	if ($totmem eq 1024) {
		print "WARNING: Cannot distinguish between four 370-4155 ";
		print "256MB mezzanine boards and\n         two 512MB ";
		print "mezzanine boards.\n";
	}
}
if ($installed_memory > 0) {
	if ($installed_memory != $totmem) {
		print "ERROR: Total memory installed (${installed_memory}MB) ";
		print "does not match total memory found.\n";
		$recognized = 0;
		$exitstatus = 1;
	}
}
&show_unrecognized if ($recognized == 0);
# Future/Beta SunOS releases
if ($sunos =~ /^5.1[0-9]/ | $sunos =~ /^[6-9]/ ) {
	$untested = 1;
	$untested_type = "OS";
}
&show_untested if ($untested);

mailmaintainer:
if ($verbose == 3) {
	# E-mail information of system to maintainer. Use system call to
	# mail instead of Mail::Send module so that this works for perl4
	print "\nSending E-mail to memconf maintainer tschmidt\@micron.com";
	print " with output of:\n            memconf -d  (seen above)\n";
	print "            $config_cmd\n";
	print "            $prtdiag_cmd -v\n" if ($prtdiag_cmd);
	if (-x '/usr/ucb/mail') {
		$mail_prog = '/usr/ucb/mail -s "memconf output from ' . $hostname . '"';
	} else {
		$mail_prog = 'mail';
	}
	close(STDOUT);
	open(MAILFILE, ">>/tmp/memconf.$hostname") || die "can't open /tmp/memconf.$hostname: $!";
	print MAILFILE "\n";
	print MAILFILE "----------------------------------------------------\n";
	print MAILFILE "Attaching output from '" . $config_cmd . "' uuencoded\n";
	print MAILFILE "----------------------------------------------------\n";
	close(MAILFILE);
	open(MAILFILE, "| /usr/bin/uuencode $config_command.$hostname >>/tmp/memconf.$hostname") || die "can't open /tmp/memconf.$hostname: $!";
	print MAILFILE @config;
	close(MAILFILE);
	if ($prtdiag_cmd) {
		open(MAILFILE, ">>/tmp/memconf.$hostname") || die "can't open /tmp/memconf.$hostname: $!";
		print MAILFILE "\n";
		print MAILFILE "----------------------------------------------------\n";
		print MAILFILE "Output from '" . $prtdiag_cmd . " -v'\n";
		print MAILFILE "----------------------------------------------------\n";
		print MAILFILE @prtdiag;
		close(MAILFILE);
	}
	`$mail_prog tschmidt\@micron.com < /tmp/memconf.$hostname`;
	unlink "/tmp/memconf.$hostname";
}
exit $exitstatus;