Merge lp:~lulu-masse/ocsinventory-unix-agent/Solaris into lp:ocsinventory-unix-agent

[luluM]

Changement Solaris

[lp:~lulu-masse/ocsinventory-unix-agent/Solaris]

962. By luluM on 2010-06-03

Ajout fonction addCPU

963. By luluM on 2010-06-17

Modification Bug sur Network.pm de l'agent HPUX et ajout d ela fonction addCPU dans inventory.pm

964. By luluM on 2010-06-21

.

965. By luluM on 2010-06-21

fonction AddCPU modifiée

Unmerged revisions

965. By luluM on 2010-06-21

fonction AddCPU modifiée

964. By luluM on 2010-06-21

.

963. By luluM on 2010-06-17

Modification Bug sur Network.pm de l'agent HPUX et ajout d ela fonction addCPU dans inventory.pm

962. By luluM on 2010-06-03

Ajout fonction addCPU

961. By luluM on 2010-05-31

Ajout contribution pour agent solaris

960. By luluM on 2010-05-31

Modification agent solaris

=== added file 'contrib/install.sh'
--- contrib/install.sh	1970-01-01 00:00:00 +0000
+++ contrib/install.sh	2010-06-21 09:39:28 +0000
@@ -0,0 +1,198 @@
+#!/bin/ksh
+set -x
+REP_BASE=/opt
+REP_OCS=/opt/ocsinventory-agent/
+REP_PERL_SUN=/net/SUNOS/opt/perl/bin/perl
+REP_PERL_HP=/opt/perl-5.10
+REP_LIB_PERL_SUN=/net/SUNOS/opt/perl/lib:/opt/ocsinventory-agent/lib/
+REP_LIB_PERL_HP=$REP_PERL_HP/lib:/opt/ocsinventory-agent/lib/
+REP_LIB_OCS=/var/lib/ocsinventory-agent/
+REP_ETC_OCS=/etc/ocsinventory/
+REP_SIS=/var/sis/
+
+#SERVEUR_OCS=xxx.xxx.xxx.xxx
+SERVEUR_OCS=xxx.xxx.xxx.xxx
+SERVEUR_NFS=xxx.xxx.xxx.xxx
+PARTAGE_NFS=/net/SUNOS/partage/ocs/
+LOG_FILE=${REP_OCS}install_ocs.log
+MYHOSTNAME=`/bin/hostname`
+MYPERL=`which perl`
+MYCRONTAB=`which crontab`
+PWD=`/bin/pwd`
+LOG=/tmp/ocsinventory-agent.log
+OSTYPE=`/sbin/uname`
+OSLEVEL=`/sbin/uname -r`
+export PATH=$PATH:$REP_OCS
+echo_message()
+{
+ #if [ $1 -ne 0 -a $1 -ne 3 ]
+ if [ $1 -ne 0 ]
+ then
+   echo $2 : $3
+ else
+   echo $2
+ fi
+}
+
+case "$OSTYPE" in
+  "SunOS")
+         case "$OSLEVEL" in
+         "5.8")
+                PERL_BIN=$REP_PERL_SUN;PERL5LIB=$PERL5LIB:$REP_LIB_PERL_SUN;LIBRARY_PATH=$LIBRARY_PATH:$REP_LIB_PERL_SUN;LD_LIBRARY_PATH=$LD_LIBRARY_PATH:$REP_LIB_PERL_SUN;PATH=$PATH:$REP_OCS;;
+         "5.10")
+                PERL_BIN=$REP_PERL_SUN;PERL5LIB=$PERL5LIB:$REP_LIB_PERL_SUN;LIBRARY_PATH=$LIBRARY_PATH:$REP_LIB_PERL_SUN;LD_LIBRARY_PATH=$LD_LIBRARY_PATH:$REP_LIB_PERL_SUN;PATH=$PATH:$REP_OCS;;
+         esac;;
+  "HP-UX")
+     PERL_BIN=$REP_PERL_HP;PERL5LIB=$PERL5LIB:$REP_LIB_PERL_HP;LIBRARY_PATH=$LIBRARY_PATH:$REP_LIB_PERL_HP;LD_LIBRARY_PATH=$LD_LIBRARY_PATH:$REP_LIB_PERL_HP;PATH=$PATH:$REP_OCS;;
+  "Linux")
+     PERL_BIN=$MYPERL;;
+esac
+
+#case "$OSTYPE" in
+  #"SunOS")
+     #    case "$OSLEVEL" in
+     #    "5.8")
+     #           PERL_BIN=$REP_PERL;PERL5LIB=$PERL5LIB:$REP_LIB_PERL;LIBRARY_PATH=$LIBRARY_PATH:$REP_LIB_PERL;LD_LIBRARY_PATH=$LD_LIBRARY_PATH:$REP_LIB_PERL;;
+      #   "5.10")
+      #          PERL_BIN=$REP_PERL;PERL5LIB=$PERL5LIB:/opt/ocsinventory-agent/lib;LIBRARY_PATH=$LIBRARY_PATH:/opt/ocsinventory-agent/lib;LD_LIBRARY_PATH=$LD_LIBRARY_PATH:/opt/ocsinventory-agent/lib;;
+      #   esac;;
+  #"HP-UX")
+     #PERL_BIN=/usr/contrib/bin/perl ;;
+  #"Linux")
+   #  PERL_BIN=$MYPERL;;
+#esac
+
+
+export PERL5LIB
+export LIBRARY_PATH
+export LD_LIBRARY_PATH
+export PATH
+
+echo "Execution d OCS ... "
+if [ -d $REP_BASE ]
+then
+        echo_message $? "Pas de repertoire $REP_BASE a creer\n  "
+else
+        /bin/mkdir $REP_BASE > $LOG 2>&1
+        echo_message $? "Creation du repertoire $REP_BASE" "ERREUR"
+fi
+
+
+if [ -d $REP_OCS ]
+then
+        echo_message $? "Pas de repertoire $REP_OCS a creer\n  "
+		/bin/rm /opt/ocsinventory-agent
+		/bin/rm -R $REP_OCS
+		/bin/mkdir ${REP_OCS}
+else
+        /bin/mkdir $REP_OCS > $LOG 2>&1
+        echo_message $? "Creation du repertoire $REP_OCS" "ERREUR"
+fi
+
+if [ -d /var/lib ]
+then
+        echo_message $? "Pas de repertoire /var/lib a creer \n "
+else
+        /bin/mkdir /var/lib > $LOG 2>&1
+        echo_message $? "Creation du repertoire /var/lib" "ERREUR"
+fi
+
+if [ -d $REP_LIB_OCS ]
+then
+        echo_message $? "Pas de repertoire $REP_LIB_OCS a creer "
+else
+        /bin/mkdir $REP_LIB_OCS > $LOG 2>&1
+        echo_message $? "Creation du repertoire $REP_LIB_OCS" "ERREUR"
+fi
+
+if [ -d $REP_ETC_OCS  ]
+then
+        echo_message $? "le repertoire $REP_ETC_OCS existe déja...\n  "
+else
+        /bin/mkdir $REP_ETC_OCS > $LOG 2>&1
+        echo_message $? "Creation du repertoire $REP_ETC_OCS ...\n  "
+fi
+
+/bin/cp -R ocsinventory-agent lib memconf update_info.sh sneep $REP_OCS
+/bin/chmod +x ${REP_OCS}ocsinventory-agent
+/bin/chmod +x ${REP_OCS}memconf
+/bin/chmod +x ${REP_OCS}update_info.sh
+/bin/chmod +x ${REP_OCS}sneep
+
+#if [ -d $REP_SIS  ]
+#then
+       # echo_message $? "le repertoire $REP_SIS existe déja...\n  "
+#else
+        /bin/mkdir $REP_SIS  > $LOG 2>&1
+        echo_message $? "Creation du repertoire $REP_SIS ...\n  "
+		echo "Recherche des fichiers de signature"
+		/bin/find /opt -name "*.SIS" -exec cp {} $REP_SIS \; | grep -v /zones
+		if [ -d /oracle  ]
+		then
+			touch $PARTAGE_NFS$MYHOSTNAME.ORACLE
+			/bin/find /oracle -name "*.SIS" -exec cp {} $REP_SIS \; | grep -v /zones >> $PARTAGE_NFS$MYHOSTNAME.ORACLE	
+			/bin/find /oracle -name "*.SIS" -exec echo {} \; >> $PARTAGE_NFS$MYHOSTNAME.ORACLE
+			/bin/ls -ltr /oracle/product >> $PARTAGE_NFS$MYHOSTNAME.ORACLE	
+		fi	
+		if [ -d /sybase ]
+		then
+			touch $PARTAGE_NFSMYHOSTNAME.SYBASE
+			/bin/find /sybase -name "*.SIS" -exec cp {} $REP_SIS \; | grep -v /zones >> $PARTAGE_NFS$MYHOSTNAME.SYBASE	
+			/bin/find /sybase -name "*.SIS" -exec echo {} \; >> $PARTAGE_NFS$MYHOSTNAME.SYBASE
+			/bin/ls -ltr /sybase >> $PARTAGE_NFS$MYHOSTNAME.SYBASE			
+		fi
+#fi
+
+
+
+echo "Mise a jour du cron"
+#INFOCRONTAB=`$MYCRONTAB -l | grep ocsinventory-agent`
+INFOCRONTAB=
+if [  "1${INFOCRONTAB}" = "1" ]
+then		  
+	echo_message $? "MAJ du cron"
+    $MYCRONTAB -l > ${REP_OCS}ocscrontab.bak
+	$MYCRONTAB -l > ${REP_OCS}ocscrontab
+vi - ${REP_OCS}/ocscrontab << FILE
+:/ocsinventory-agent/d
+:wq!
+FILE
+	
+heure=$(($RANDOM % 24)) 
+
+if [ ${#heure} = "1" ]
+then
+heure="0$heure";
+fi
+min1=$(($RANDOM % 6 )) 
+min2=$(($RANDOM % 10 ))
+echo "$min1$min2 $heure * * 1 cd ${REP_OCS};./update_info.sh > /dev/null 2>&1" >> $REP_OCS/ocscrontab
+$MYCRONTAB $REP_OCS/ocscrontab
+       
+else
+
+	 echo_message $? "Pas de MAJ du cron"
+		 
+fi
+
+
+#cp $REP_OCS/etc/ocsinventory-agent.cfg $REP_ETC_OCS
+#cp $REP_OCS/etc/modules.conf $REP_ETC_OCS
+
+
+echo "Info OCS "
+$PERL_BIN -I ${REP_OCS}lib/ -MXML::SAX -e "XML::SAX->add_parser('XML::SAX::PurePerl')->save_parsers()"
+echo "Recuperation des infos ... $PERL_BIN $REP_OCS/ocsinventory-agent --devlib ./lib --server http://$SERVEUR_OCS/ocsinventory -f -i -debug --force "
+#$PERL_BIN ${REP_OCS}ocsinventory-agent --devlib ./lib -l /opt/ocsinventory-agent -i --debug  --force
+echo "Changement de repertoire : $REP_OCS  "
+#cd $REP_OCS 
+#$PERL_BIN $REP_OCS/ocsinventory-agent --devlib ./lib --server http://$SERVEUR_OCS/ocsinventory  --debug --force 
+$PERL_BIN ${REP_OCS}ocsinventory-agent --devlib ./lib --server http://$SERVEUR_OCS/ocsinventory  --debug --force
+#perl ocsinventory-agent --devlib ./lib  --debug --force 
+
+
+
+echo "Backup des infos\n"
+#/usr/bin/cp $REP_OCS/*.ocs $PARTAGE_NFS
+
+
 
=== added file 'contrib/memconf'
--- contrib/memconf	1970-01-01 00:00:00 +0000
+++ contrib/memconf	2010-06-21 09:39:28 +0000
@@ -0,0 +1,8244 @@
+#!/usr/bin/env perl 
+#
+# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+# MODIFY THE LOCATION OF PERL ABOVE IF NECESSARY
+# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+#
+# @(#) memconf - Identify sizes of memory modules installed on a
+# @(#)           Solaris, Linux, FreeBSD or HP-UX workstation or server.
+# @(#) Micron Technology, Inc. - Tom Schmidt 29-Sep-2009 V2.11
+#
+# Maintained by Tom Schmidt ([e-mail])
+#
+#   Check my website at http://www.4schmidts.com/unix.html to get the latest
+#   version of memconf.
+#
+#   If memconf does not recognize a system, then please run 'memconf -D' to
+#   have it automatically E-mail me the information I need to 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.
+#
+# 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 the following information if available:
+#  - 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.
+#
+# Original version based on SunManagers SUMMARY by Howard Modell
+# ([e-mail]) on 29-Jan-1997.
+#
+# Tested to work on:
+# - Solaris 10 6/06 or later on x86 with /usr/platform/i86pc/sbin/prtdiag
+# - Linux on SPARC with sparc-utils and /dev/openprom
+# - Linux/FreeBSD on x86 with kernel-utils or pmtools for /usr/sbin/dmidecode
+# - most HP-UX systems with Support Tools Manager (cstm)
+# - Solaris (SunOS 4.X or 5.X) on the following SPARC systems
+#   - sun4c Sun SS1, SS2, IPC, IPX, ELC with Open Boot PROM V2.X
+#   - sun4m Sun 4/6x0, SS4, SS5, SS10, SS20, LX/ZX, Classic, Voyager, JavaEngine1
+#   - sun4d Sun SPARCserver-1000, 1000E, SPARCcenter-2000, 2000E
+#   - sun4u Sun Ultra 1, 2, 5, 10, 30, 60, 450
+#   - sun4u Sun Ultra 80, Ultra Enterprise 420R, and Netra t1400/1405.
+#   - 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 StorEdge N8400 and N8600 Filer
+#   - sun4u Sun SPARCengine Ultra AX, AXi, AXmp, AXmp+, AXe
+#   - sun4u Sun SPARCengine CP 1400, CP 1500, CP2140
+#   - sun4u Sun Netra t1 100/105, t1120/1125, ft1800, X1, T1 200, AX1105-500, 120
+#   - sun4u Sun Netra 20 (Netra T4)
+#   - sun4u Sun Netra ct800
+#   - sun4u Sun Blade 100, 150, 1000, 1500, 2000, 2500
+#   - sun4u Sun Fire 280R
+#   - sun4u Sun Fire 3800, 4800, 4810, 6800
+#   - sun4u Sun Fire V100, V120, V210, V240, V250, V440
+#   - sun4u Sun Netra 210, 240, 440
+#   - sun4u Sun Fire V125, V215, V245, V445
+#   - sun4u Sun Fire V480, V490, V880, V880z, V890
+#   - sun4u Sun Fire 12000, 15000, E20K, E25K
+#   - sun4u Sun Fire V1280, Netra 1280 (Netra T12)
+#   - sun4u Sun Fire E2900, E4900, E6900
+#   - sun4u Sun Fire B100s Blade Server
+#   - sun4u Sun Ultra 25 Workstation
+#   - sun4u Sun Ultra 45 Workstation
+#   - sun4u Sun/Fujitsu Siemens SPARC Enterprise M3000, M4000, M5000, M8000 Server
+#   - sun4v Sun Fire T2000, T1000, Netra T2000
+#   - sun4v Sun Blade T6300, T6320
+#   - sun4v Sun SPARC Enterprise T2000, T1000 Server
+#   - sun4v Sun SPARC Enterprise T5120, T5140, T5220, T5240 Server, Netra T5220
+#   - sun4v Sun SPARC Enterprise T5440 Server
+#   - 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 Tatung COMPstation U2, U60 and U80D clones
+#   - Force Computers SPARC clones (no verbose output)
+#   - Tadpole SPARCbook 3 and RDI PowerLite-170 (no verbose output)
+#   - Tadpole VoyagerIIi
+#   - Tadpole (Cycle) 3200 CycleQUAD Ultra 2 upgrade motherboard
+#   - Tadpole (Cycle) UP-520-IIi SPARCstation 5/20 upgrade motherboard
+#   - Tadpole SPARCle
+#   - Auspex 7000/650 (no verbose output)
+#   - Fujitsu S-4/10H, S-4/20L and S-4/20H clones (no verbose output)
+#   - Fujitsu GP7000, GP7000F
+#   - Fujitsu Siemens PrimePower 200, 400, 600, 800, 1000, 2000
+#   - Fujitsu Siemens PrimePower 250, 450, 650, 850
+#   - Fujitsu Siemens PrimePower 900, 1500, 2500, HPC2500
+#   - Twinhead TWINstation 5G, 20G
+#   - Detects VSIMMs for SX graphics on SS10SX/SS20 (1st VSIMM only)
+#   - Detects Prestoserve NVSIMMs on SS10/SS20/SS1000/SC2000
+#
+# Untested systems that should work:
+# - sun4c Sun SS1+ with Open Boot PROM V2.X
+# - sun4m Tatung COMPstation 20A clone
+# - sun4u Sun Netra ct400, ct410, ct810
+# - sun4u Sun SPARCengine CP2040, CP2060, CP2080, CP2160
+# - sun4u Sun/Fujitsu Siemens SPARC Enterprise M9000 Server
+# - May not work properly on Sun clones
+#
+# Won't work on:
+# - SPARC 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
+# - 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;
+$^W=1;	# Enables -w warning switch, put here for SunOS4 compatibility.
+
+$version="V2.11";
+$version_date="29-Sep-2009";
+$URL="http://www.4schmidts.com/unix.html";
+
+$newpath="/usr/sbin:/bin:/usr/bin:/usr/ucb:/usr/local/bin:/var/local/bin";
+$ENV{PATH}=(defined($ENV{PATH})) ? "$newpath:$ENV{PATH}" : $newpath;
+# Force C locale so that output is in English
+$ENV{LC_ALL}="C";
+$_=$];
+($PERL_VERSION_MAJOR)=/(\d).*/;
+if ($PERL_VERSION_MAJOR < 5) {
+	($PERL_VERS)=/(\d\.\d)/;
+	($PERL_PATCH)=/(\d*)$/;
+	$PERL_PATCH="0$PERL_PATCH" if ($PERL_PATCH < 10);
+	$PERL_VERSION="$PERL_VERS$PERL_PATCH";
+} else {
+	($PERL_VERSION)=/(\d\.\d{3}).*/;
+}
+
+$uname="/usr/bin/uname";
+$uname="/bin/uname" if (-x '/bin/uname');
+if (-x $uname) {
+	$hostname=&mychomp(`$uname -n`);
+	$machine=&mychomp(`$uname -m`);
+	$os=&mychomp(`$uname`);
+	$os="Linux" if ("$os" eq "FreeBSD");
+	$osrel=&mychomp(`$uname -r`);
+	$kernver=&mychomp(`$uname -v`);
+	$platform=$machine;
+} else {
+	$hostname="";
+	$machine="";
+	$os="this unsupported";
+	$osrel="";
+	$kernver="";
+}
+$osrelease="";
+$prtdiag_cmd="";
+$prtdiag_exec="";
+$have_prtdiag_data=0;
+$prtdiag_checked=0;
+$prtfru_cmd="";
+$have_prtfru_data=0;
+$prtpicl_cmd="";
+$have_prtpicl_data=0;
+$psrinfo_cmd="";
+$have_psrinfo_data=0;
+$use_psrinfo_data=1;
+$psrinfo_checked=0;
+$cfgadm_cmd="";
+$have_cfgadm_data=0;
+$ipmitool_cmd="";
+$have_ipmitool_data=0;
+$ipmi_cpu_cnt=0;
+$ipmi_cputype="";
+@ipmi_mem=("");
+$smbios_cmd="";
+$have_smbios_data=0;
+@smbios_mem=("");
+$ldm_cmd="";
+$have_ldm_data=0;
+$ldm_memory=0;
+$free_cmd="";
+$have_free_data=0;
+$have_x86_devname=0;
+if (-d '/usr/platform') {
+	$platform=&mychomp(`$uname -i`);
+	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/sbin/prtdiag") {
+		$prtdiag_cmd="/usr/sbin/prtdiag";
+	}
+} elsif (-x '/usr/kvm/prtdiag') {
+	$platform=$machine;
+	$prtdiag_cmd='/usr/kvm/prtdiag';
+} elsif (-x "/usr/sbin/prtdiag") {
+	$platform=$machine;
+	$prtdiag_cmd="/usr/sbin/prtdiag";
+}
+if ($prtdiag_cmd ne "") {
+	if (-x $prtdiag_cmd) {
+		$prtdiag_exec="$prtdiag_cmd";
+	}
+}
+$buffer="";
+$filename="";
+$installed_memory=0;
+$failed_memory=0;
+$spare_memory=0;
+$failing_memory=0;
+$failed_fru="";
+$ultra=0;
+$simmbanks=0;
+$simmspergroup=1;
+$bankcnt=0;
+$slot0=0;
+$smallestsimm=16777216;
+$largestsimm=0;
+$found8mb=0;
+$found16mb=0;
+$found32mb=0;
+$found10bit=0;
+$found11bit=0;
+$foundbank1or3=0;
+$sxmem=0;
+$nvmem=0;
+$nvmem1=0;
+$nvmem2=0;
+$memtype="SIMM";
+$sockettype="socket";
+$verbose=0;
+$DEBUG=0;
+$starttime=time;
+$recognized=1;
+$untested=1;
+$untested_type="";
+$perlhexbug=0;
+$exitstatus=0;
+$meg=1048576;
+@socketstr=("");
+@socketlabelstr=("");
+@orderstr=("");
+@groupstr=("");
+@bankstr=("");
+@banksstr=("");
+$bankname="banks";
+@bytestr=("");
+@slotstr=("");
+$simmrangex=0;
+$simmrange=1;
+$showrange=1;
+$start1x="";
+$stop1x="";
+@simmsizes=(0,16777216);
+@simmsizesfound=();
+@memorylines=("");
+$socket="";
+$socketlabel="";
+$order="";
+$group="";
+$slotnum="";
+$bank="";
+$dualbank=0;
+$byte="";
+$gotmemory="";
+$gotmodule="";
+$gotmodulenames="";
+$gotcpunames="";
+$gotcpuboards="";
+$slotname0="";
+@boards_cpu="";
+@boards_mem="";
+$empty_banks="";
+$banks_used="";
+$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_banktable_has_dimms=0;
+$prtdiag_failed=0;
+$prtconf_warn="";
+$flag_cpu=0;
+$flag_mem=0;
+$flag_rewrite_prtdiag_mem=0;
+$format_cpu=0;
+$format_mem=0;
+$foundname=0;
+$sockets_used="";
+$sockets_empty="";
+$sortslots=1;
+$devtype="";
+$interleave=0;
+$stacked=0;
+$freq=0;
+$sysfreq=0;
+$cpufreq=0;
+$cputype="";
+$cputype_prtconf="";
+$cputype_psrinfo="";
+@cpucnt=();
+$cpucntfrom="";
+$cpucntflag=0;
+@diagcpucnt=();
+$diagthreadcnt=0;
+$psrcpucnt=0;
+$foundpsrinfocpu=0;
+$ncpu=0;	# remains 0 if using prtdiag output only
+$ndcpu=0;
+$npcpu=0;
+$nvcpu=0;
+$threadcnt=0;
+$corecnt=1;
+$hyperthread=0;
+$header_shown=0;
+$romver="";
+$romvernum="";
+$SUNWexplo=0;
+$banner="";
+$bannermore="";
+$cpubanner="";
+$diagbanner="";
+$model="";
+$modelmore="";
+$model_checked=0;
+$BSD=0; # Initially assume SunOS 5.X
+$config_cmd="/usr/sbin/prtconf -vp";
+$config_command="prtconf";
+$config_permission=0;
+$permission_error="";
+$dmidecode_error="";
+$freephys=0;
+$isX86=0;
+$HPUX=0;
+$devname="";	# Sun internal development code name
+$familypn="";	# Sun family part number (system code)
+$clone=0;
+$totmem=0;
+$LnxDMI=0;
+$latest_dmidecode_ver="2.10";
+$dmidecode_ver="0";
+$dmidecodeURL="http://www.nongnu.org/dmidecode/";
+$cpuarr=-1;
+$memarr=-1;
+$release="";
+$waitshown=0;
+$helpers_defined=0;
+$picl_foundmemory=0;
+@picl_mem_pn=();
+@picl_mem_bank=();
+@picl_mem_dimm=();
+$linebreak="----------------------------------------------------\n";
+$uid=&mychomp(`id`);
+$uid=~s/uid=//;
+$uid=~s/\(.*//;
+
+#
+# Parse options
+#
+foreach $name (@ARGV) {
+	if ($name eq "-v") {
+		# verbose mode
+		$verbose=1;
+	} elsif ($name eq "-d") {
+		# more verbose debug mode
+		$verbose=2;
+	} elsif ($name eq "-debug") {
+		# most verbose debug mode
+		$DEBUG=1;
+	} elsif ($name eq "-D") {
+		# E-mail information of system to maintainer
+		$verbose=3;
+		open(MAILFILE, ">/tmp/memconf.output") || die "can't open /tmp/memconf.output: $!";
+		print MAILFILE "Output from 'memconf -d' on $hostname\n";
+		print MAILFILE "$linebreak";
+		close(MAILFILE);
+		open(STDOUT, "| tee -a /tmp/memconf.output") || die "can't open /tmp/memconf.output: $!";
+		print "Gathering memconf data to E-mail to maintainer. This may take a few minutes.\nPlease wait...\n";
+	} elsif (-f "$name/sysconfig/prtconf-vp.out") {
+		# Sun Explorer output
+		$SUNWexplo=1;
+		# Special case for regression testing Sun Explorer data
+		$os="SunOS";
+		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>;
+			$have_prtdiag_data=1;
+			$prtdiag_cmd="/usr/platform/$platform/sbin/prtdiag";
+			$prtdiag_exec="$prtdiag_cmd";
+			close(FILE);
+		}
+		if (-f "$name/fru/prtfru_-x.out") {
+			open(FILE, "<$name/fru/prtfru_-x.out");
+			@prtfru=<FILE>;
+			$have_prtfru_data=1;
+			$prtfru_cmd='/usr/sbin/prtfru';
+			close(FILE);
+		}
+		if (-f "$name/sysconfig/prtpicl-v.out") {
+			open(FILE, "<$name/sysconfig/prtpicl-v.out");
+			@prtpicl=<FILE>;
+			$have_prtpicl_data=1;
+			$prtpicl_cmd='/usr/sbin/prtpicl';
+			close(FILE);
+		}
+		if (-f "$name/sysconfig/psrinfo-v.out") {
+			open(FILE, "<$name/sysconfig/psrinfo-v.out");
+			@psrinfo=<FILE>;
+			$have_psrinfo_data=1;
+			$psrinfo_cmd='/usr/sbin/psrinfo';
+			close(FILE);
+		}
+		# Sun Explorer does not include "psrinfo -p" or
+		# "psrinfo -p -v" data yet.
+		if (-f "$name/sysconfig/cfgadm-alv.out") {
+			open(FILE, "<$name/sysconfig/cfgadm-alv.out");
+			@cfgadm=<FILE>;
+			$have_cfgadm_data=1;
+			$cfgadm_cmd='/usr/sbin/cfgadm';
+			close(FILE);
+		}
+		if (-f "$name/sysconfig/uname-a.out") {
+			open(FILE, "<$name/sysconfig/uname-a.out");
+			$uname=&mychomp(<FILE>);
+			close(FILE);
+			@unamearr=split(/\s/, $uname);
+			$hostname=$unamearr[1];
+			$machine=$unamearr[4];
+			$osrel=$unamearr[2];
+			$platform=$unamearr[6];
+			$prtdiag_cmd="/usr/platform/$platform/sbin/prtdiag";
+			$prtdiag_exec="$prtdiag_cmd";
+		} else {
+			if ($config[0] =~ /System Configuration:/) {
+				@machinearr=split(/\s+/, $config[0]);
+				$machine=$machinearr[4];
+			}
+			$osrel="";
+			$hostname="";
+		}
+		if (-f "$name/sysconfig/prtconf-V.out") {
+			open(FILE, "<$name/sysconfig/prtconf-V.out");
+			$romver=&mychomp(<FILE>);
+			close(FILE);
+		}
+		$filename="$name";
+	} elsif (-f $name) {
+		# Regression test file with prtconf/dmidecode output
+		open(FILE, "<$name");
+		@config=<FILE>;
+		close(FILE);
+		# Regression test file may also have prtdiag, etc.
+		@prtdiag=@config;
+		@prtfru=@config;
+		$have_prtfru_data=1;
+		@prtpicl=@config;
+		$have_prtpicl_data=1;
+		@psrinfo=@config;
+		$have_psrinfo_data=1;
+		@cfgadm=@config;
+		$have_cfgadm_data=1;
+		@ipmitool=@config;
+		$have_ipmitool_data=1;
+		@ldm=@config;
+		$have_ldm_data=1;
+		@free=@config;
+		$have_free_data=1;
+		@smbios=@config;
+		$have_smbios_data=1;
+		@machinfo=@config;
+		$hostname="";
+		$osrel="";
+		for ($val=0; $val < 10; $val++) {
+			if ($config[$val]) {
+				if ($config[$val] =~ /System Configuration:/) {
+					# Special case for regression testing SunOS prtconf files
+					$os="SunOS";
+					@machinearr=split(/\s+/, $config[$val]);
+					$machine=$machinearr[4];
+					$machine="" if (! defined($machine));
+					last;
+				} elsif ($config[$val] =~ / dmidecode / || $config[$val] =~ /DMI .* present/) {
+					# Special case for regression testing Linux dmidecode files
+					$os="Linux";
+					$LnxDMI=1;
+					if ($config[$val] =~ / dmidecode /) {
+						$dmidecode_ver=&mychomp($config[$val]);
+						$dmidecode_ver=~s/.* dmidecode //;
+					}
+					$machine="";
+					$platform="";
+					last;
+				}
+			}
+		}
+		# Special case for regression testing SunOS4 files
+		if ($name =~ /devinfo\./) {
+			$os="SunOS";
+			$BSD=1;
+		}
+		# Special case for regression testing Linux SPARC files
+		$os="Linux" if ($name =~ /prtconf\.Linux/);
+		$filename="$name";
+	} else {
+		&show_help;
+	}
+}
+&linux_dmi if ($LnxDMI);
+if ($filename eq "") {
+	if ("$os" eq "HP-UX") {
+		$HPUX=1;
+		if (-x '/usr/sbin/cstm') {
+			&hpux_cstm;
+		} else {
+			&show_header;
+			&show_supported;
+		}
+	} elsif ("$os" eq "Linux") {
+		&linux_release if ("$release" eq "");
+		&find_helpers;
+		&linux_dmi if ($config_cmd =~ /dmidecode/);
+		if ("$machine" =~ /.86/ || ! -e '/dev/openprom') {
+			&show_header;
+			&show_supported;
+		}
+	} elsif ("$os" ne "SunOS") {
+		&show_header;
+		&show_supported;
+	}
+	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 -vp";
+		$config_command="prtconf";
+	}
+}
+$kernbit="";
+$hasprtconfV=0;
+$solaris="";
+$solaris="1.0" if ($osrel eq "4.1.1");
+$solaris="1.0.1" if ($osrel eq "4.1.2");
+$solaris="1.1" if ($osrel =~ /4.1.3/);
+$solaris="1.1.1" if ($osrel eq "4.1.3_U1");
+$solaris="1.1.2" if ($osrel eq "4.1.4");
+if ($osrel =~ /^5./) {
+	$osminor=$osrel;
+	$osminor=~s/5.//;
+	if ($SUNWexplo) {
+		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+//;
+		$release=&mychomp($release);
+		$solaris="$release";
+	}
+	if ($osminor =~ /[7-9]|1[0-9]/) {
+		$hasprtconfV=1;
+		$solaris=$osminor if ($solaris eq "");
+		$kernbit=32;
+		if ($SUNWexplo) {
+			$cpuarch="";
+			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);
+			}
+			$kernbit=64 if ($cpuarch =~ /sparcv9/ || $cpuarch =~ /amd64/);
+		} elsif (-x '/bin/isainfo') {
+			$kernbit=&mychomp(`/bin/isainfo -b`);
+		}
+	} elsif ($osminor =~ /[4-6]/) {
+		$hasprtconfV=1;
+		$solaris="2.$osminor" if ($solaris eq "");
+	} else {
+		$solaris="2.$osminor";
+	}
+	if ("$machine" eq "i86pc" && $osminor =~ /[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=&run("$config_cmd");
+	if ($hasprtconfV) {
+		# Solaris 2.4 or later
+		$romver=&mychomp(`/usr/sbin/prtconf -V 2>&1`);
+		if ($romver eq "Cannot open openprom device") {
+			$prtconf_warn="ERROR: $romver";
+			$romver="";
+		} else {
+			@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 {
+			$romver=&mychomp($romver);
+			@romverarr=split(/\s/, $romver);
+			$romver=$romverarr[$#romverarr];
+		}
+		$romvernum=$romver;
+	}
+}
+
+sub please_wait {
+	return if ($waitshown);
+	$waitshown=1;
+	print "Gathering data for memconf. This may take over a minute. Please wait...\n";
+}
+
+sub find_helpers {
+	return if ($helpers_defined);
+	$helpers_defined=1;
+	if ("$os" eq "HP-UX") {
+		$config_cmd="echo 'selclass qualifier cpu;info;wait;selclass qualifier memory;info;wait;infolog'|/usr/sbin/cstm";
+	} elsif ("$os" eq "Linux") {
+		if (defined($ENV{DMIDECODE}) && -x $ENV{DMIDECODE}) {
+			# this may be a setuid-root version of dmidecode
+			$config_cmd=$ENV{DMIDECODE};
+		} else {
+			foreach $bin ('/usr/local/sbin','/usr/local/bin','/usr/sbin','/usr/bin','/bin') {
+				if (-x "$bin/dmidecode") {
+					$config_cmd="$bin/dmidecode";
+					last;
+				}
+			}
+		}
+	} elsif (-x '/usr/sbin/prtconf') {
+		# Solaris 2.X or later
+		$config_cmd="/usr/sbin/prtconf -vp";
+		$prtfru_cmd='/usr/sbin/prtfru' if (-x '/usr/sbin/prtfru');
+		$prtpicl_cmd='/usr/sbin/prtpicl' if (-x '/usr/sbin/prtpicl');
+		$psrinfo_cmd='/usr/sbin/psrinfo' if (-x '/usr/sbin/psrinfo');
+		$cfgadm_cmd='/usr/sbin/cfgadm' if (-x '/usr/sbin/cfgadm');
+		$smbios_cmd='/usr/sbin/smbios' if (-x '/usr/sbin/smbios');
+		$ldm_cmd='/opt/SUNWldm/bin/ldm' if (-x '/opt/SUNWldm/bin/ldm');
+	}
+	if ("$os" eq "Linux") {
+		$free_cmd='/usr/bin/free -m';
+	}
+	if ("$os" eq "SunOS" || "$os" eq "Linux") {
+		if (defined($ENV{IPMITOOL}) && -x $ENV{IPMITOOL}) {
+			# this may be a setuid-root version of ipmitool
+			$ipmitool_cmd=$ENV{IPMITOOL};
+		} else {
+			foreach $bin ('/usr/sfw/bin','/usr/local/sbin','/usr/local/bin','/usr/sbin','/usr/bin','/bin') {
+				if (-x "$bin/ipmitool") {
+					$ipmitool_cmd="$bin/ipmitool";
+					last;
+				}
+			}
+		}
+	}
+}
+
+sub show_helpers {
+	$s=shift;
+	print "$s$config_cmd\n";
+	if ("$os" eq "SunOS") {
+		print "$s$prtdiag_cmd -v\n" if ($prtdiag_exec ne "");
+		print "$s$prtfru_cmd -x\n" if ($prtfru_cmd ne "");
+		print "$s$prtpicl_cmd -v\n" if ($prtpicl_cmd ne "");
+		if ($psrinfo_cmd ne "") {
+			print "$s$psrinfo_cmd -v\n";
+			$tmp=&mychomp(`$psrinfo_cmd -p 2>/dev/null`);
+			if ($tmp ne "") {
+				print "$s$psrinfo_cmd -p\n";
+				print "$s$psrinfo_cmd -p -v\n";
+			}
+		}
+		print "$s$cfgadm_cmd -al\n" if ($cfgadm_cmd ne "");
+		print "$s$smbios_cmd\n" if ($smbios_cmd ne "");
+		print "$s$ldm_cmd list-devices -a -p\n" if ($ldm_cmd ne "");
+	}
+	if ("$os" eq "Linux") {
+		print "$s$free_cmd\n" if ($free_cmd ne "");
+	}
+	if ("$os" eq "SunOS" || "$os" eq "Linux") {
+		print "$s$ipmitool_cmd fru\n" if ($ipmitool_cmd ne "");
+	}
+	if ("$os" eq "HP-UX") {
+		print "$s/usr/contrib/bin/machinfo\n" if (-x '/usr/contrib/bin/machinfo');
+	}
+}
+
+sub show_help {
+	&find_helpers;
+	$config_cmd="dmidecode" if ("$os" eq "Linux" && $config_cmd =~ /prtconf/);
+	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\nCheck my website ";
+	print "at $URL to get the latest\nversion of memconf.\n\n";
+	&show_supported if ("$os" ne "SunOS" && "$os" ne "HP-UX" && "$os" ne "Linux");
+	print "Please send bug reports and enhancement requests along with ";
+	print "the output of the\nfollowing commands to tschmidt\@micron.com ";
+	print "as E-mail attachments so that memconf\nmay be enhanced. ";
+	print "You can do this using the 'memconf -D' command if this system\n";
+	print "can E-mail to the Internet.\n";
+	&show_helpers("    ");
+	exit;
+}
+
+sub cpubanner {
+	print &runtime . "in cpubanner, corecnt=$corecnt, npcpu=$npcpu, nvcpu=$nvcpu, cputype=$cputype\n" if ($DEBUG);
+	if ($modelmore =~ /(Solaris x86 machine)/ && $cpubanner eq "" && $cputype ne "x86") {
+		$modelmore="";
+		while (($cf,$cnt)=each(%cpucnt)) {
+			$cf=~/^(.*) (\d+)$/;
+			$cputype=$1;
+			$cpufreq=$2;
+		}
+		&x86multicorecnt($cputype);
+		$ncpu=$cpucnt{"$cputype $cpufreq"};
+		if ($cpucntflag == 0 && $npcpu == 0) {
+			for $tmp (2,3,4,6,8,12) {
+				$ncpu /= $tmp if ($corecnt == $tmp && $ncpu % $tmp == 0);
+			}
+		}
+		$ncpu=$npcpu if ($npcpu != 0);
+		$cpubanner .= "$ncpu X " if ($ncpu > 1);
+		$cpubanner .= "Dual Core " if ($corecnt == 2 && $cputype !~ /Dual.Core/i);
+		$cpubanner .= "Triple Core " if ($corecnt == 3 && $cputype !~ /Triple.Core/i);
+		$cpubanner .= "Quad Core " if ($corecnt == 4 && $cputype !~ /Quad.Core/i);
+		$cpubanner .= "Hex Core " if ($corecnt == 6 && $cputype !~ /Hex.Core/i);
+		$cpubanner .= "Octal Core " if ($corecnt == 8 && $cputype !~ /Octal.Core/i);
+		$cpubanner .= "Twelve Core " if ($corecnt == 12 && $cputype !~ /Twelve.Core/i);
+		$cpubanner .= "hyperthreaded " if ($hyperthread);
+		$cpubanner .= "$cputype";
+		$cpubanner .= " x86" if ($cputype eq "AMD");
+		$cpubanner .= " ${cpufreq}MHz" if ($cpufreq ne "" && $cpufreq ne "0" && $cputype !~ /Hz$/);
+		$cpubanner=~s/-Core/ Core/;
+	}
+}
+
+sub show_header {
+	return if ($header_shown);
+	print &runtime . "cpucntfrom=$cpucntfrom\n" if ($DEBUG);
+	&cpubanner;
+	$header_shown=1;
+	undef %saw;
+	@saw{@simmsizesfound}=();
+	@simmsizesfound=sort numerically keys %saw;
+	print "memconf:  $version $version_date $URL\n" if ($verbose);
+	print "hostname: $hostname\n" if ($hostname);
+	if ($filename) {
+		if ($SUNWexplo) {
+			print "Sun Explorer directory: $filename\n";
+		} else {
+			print "filename: $filename\n";
+		}
+	}
+	if ($diagthreadcnt && $cpucntfrom eq "prtdiag") {
+		# Replace @cpucnt with @diagcpucnt
+		while (($cf,$tmp)=each(%cpucnt)) {
+			delete $cpucnt{"$cf"};
+			$cpucnt{"$cf"}=$diagcpucnt{"$cf"};
+		}
+	}
+	if ($banner) {
+		# See if banner includes CPU information
+		if ($banner !~ /\(.*SPARC/ && $banner !~ /MHz/) {
+			@cputypecnt=keys(%cpucnt);
+			$x=0;
+			while (($cf,$cnt)=each(%cpucnt)) {
+				$x++;
+				$cf=~/^(.*) (\d*)$/;
+				$ctype=$1;
+				$cfreq=$2;
+				&multicore_cpu_cnt("");
+				$cpubanner .= "$cnt X " if ($cnt > 1);
+				if ($ctype =~ /390Z5/) {
+					$cpubanner .= "SuperSPARC";
+					$cpubanner .= "-II" if ($cfreq > 70);
+				} elsif ($ctype =~ /MB86907/) {
+					$cpubanner .= "TurboSPARC-II";
+				} elsif ($ctype =~ /MB86904/ || $ctype =~ /390S10/) {
+					$cpubanner .= "microSPARC";
+					$cpubanner .= "-II" if ($cfreq > 70);
+				} elsif ($ctype =~ /L2A0925/) {
+					$cpubanner .= "microSPARC-IIep";
+				} elsif ($ctype =~ /,RT62[56]/) {
+					$cpubanner .= "hyperSPARC";
+				} else {
+					$cpubanner .= "$ctype";
+				}
+				$cpubanner .= " ${cfreq}MHz" if ($cfreq ne "" && $cpubanner !~ /Hz$/);
+				$cpubanner .= ", " if ($x < scalar(@cputypecnt));
+			}
+		} elsif ($banner =~ /\(/ && $banner !~ /MHz/) {
+			# CPU listed without speed
+			while (($cf,$cnt)=each(%cpucnt)) {
+				$cf=~/^(.*) (\d*)$/;
+				$cfreq=$2;
+				$banner=~s/\)/ ${cfreq}MHz\)/g if ($cfreq);
+			}
+		}
+	}
+	$modelmore="" if ($modelmore =~ /(Solaris x86 machine)/ && $model ne "i86pc");
+	if ($verbose) {
+		if ($banner) {
+			print "banner:   $banner";
+			print " $bannermore" if ($bannermore);
+			print " ($cpubanner)" if ($cpubanner);
+			print "\n";
+		}
+		print "manufacturer: $manufacturer\n" if ($manufacturer);
+		if ($model) {
+			print "model:    $model";
+			print " $modelmore" if ($modelmore);
+			print " $realmodel" if ($realmodel);
+			print " ($cpubanner)" if ($cpubanner ne "" && $banner eq "");
+			print "\n";
+		}
+		print "Sun development codename: $devname\n" if ($devname ne "" && ! $clone);
+		print "Sun Family Part Number: $familypn\n" if ($familypn ne "" && ! $clone);
+		if ($filename eq "" || $SUNWexplo) {
+			if ($solaris) {
+				print "Solaris " if ($solaris !~ /Solaris/);
+				print "$solaris, ";
+				print "${kernbit}-bit kernel, " if ($kernbit);
+			}
+			if ("$os" eq "Linux" && "$release" ne "") {
+				print "$release\n";
+			} else {
+				print "$os $osrel";
+				print " ($osrelease)" if ($osrelease ne "");
+				print ", ${kernbit}" if ($kernbit && $HPUX);
+				print "\n";
+			}
+		} elsif ($HPUX) {
+			print "$os";
+			print " $osrel" if ($osrel ne "");
+			print " ($osrelease)" if ($osrelease ne "");
+			print ", ${kernbit}" if ($kernbit);
+			print "\n";
+		} elsif ("$os" eq "Linux") {
+			if ("$release" ne "") {
+				print "$release\n";
+			} elsif ($LnxDMI) {
+				print "Linux x86\n";
+			} elsif (-e '/dev/openprom' || $filename =~ /prtconf\.Linux/) {
+				print "Linux SPARC\n";
+			}
+		} elsif ($BSD) {
+			print "Solaris 1.X, SunOS 4.X\n";
+		} else {
+			print "Solaris 2.X, SunOS 5.X\n";
+		}
+		$ncpu=1 if ($ncpu == 0);	# Assume it has at least 1 CPU
+		if ($cpuarr == -1) {
+			@cputypecnt=keys(%cpucnt);
+			$x=0;
+			while (($cf,$cnt)=each(%cpucnt)) {
+				if ($cpucntflag == 0 && $npcpu == 0 && $cpucntfrom ne "prtdiag") {
+					for $tmp (2,3,4,6,8,12) {
+						$cnt /= $tmp if ($corecnt == $tmp && $cnt % $tmp == 0);
+					}
+					$cpucntflag=1;
+				}
+				if ($npcpu != 0) {
+					$cnt=$npcpu;
+				} else {
+ 					$cnt=$ndcpu if ($ndcpu != 0);
+				}
+				$x++;
+				$cf=~/^(.*) (\d*)$/;
+				$ctype=$1;
+				$ctype=$cf if (! $ctype);
+				$cfreq=$2;
+				&checkX86;
+				if ($isX86) {
+					$ctype="hyperthreaded $ctype" if ($hyperthread);
+					$ctype="Dual Core $ctype" if ($corecnt == 2 && $ctype !~ /Dual.Core/i);
+					$ctype="Triple Core $ctype" if ($corecnt == 3 && $ctype !~ /Triple.Core/i);
+					$ctype="Quad Core $ctype" if ($corecnt == 4 && $ctype !~ /Quad.Core/i);
+					$ctype="Hex Core $ctype" if ($corecnt == 6 && $ctype !~ /Hex.Core/i);
+					$ctype="Octal Core $ctype" if ($corecnt == 8 && $ctype !~ /Octal.Core/i);
+					$ctype="Twelve Core $ctype" if ($corecnt == 12 && $ctype !~ /Twelve.Core/i);
+					$ctype=~s/-Core/ Core/;
+				}
+				&multicore_cpu_cnt("");
+				print "$cnt $ctype";
+				if ($cfreq) {
+					print " ${cfreq}MHz" if ($cfreq > 0 && $ctype !~ /Hz$/);
+				}
+				print " cpu";
+				print "s" if ($cnt > 1);
+				print ", " if ($x < scalar(@cputypecnt));
+			}
+			if ($x > 0) {
+				if ($sysfreq) {
+					print ", ";
+				} else {
+					print "\n";
+				}
+			}
+		}
+		print "system freq: ${sysfreq}MHz\n" if ($sysfreq);
+	} else {
+		$modelbuf="";
+		if ($manufacturer) {
+			$modelbuf .= "$manufacturer " if ($banner !~ /^$manufacturer/ && $model !~ /^$manufacturer/ && ($banner ne "" || $model ne ""));
+		}
+		if ($banner ne "" && $bannermore ne "") {
+			$modelbuf .= "$banner $bannermore";
+		} elsif ($modelmore) {
+			$modelbuf .= "$model $modelmore";
+		} elsif ($banner) {
+			$modelbuf .= "$banner";
+		} elsif ($diagbanner) {
+			$modelbuf .= "$diagbanner";
+		} elsif ($model) {
+			$modelbuf .= "$model";
+		}
+		$modelbuf .= " ($cpubanner)" if ($cpubanner);
+		$modelbuf .= " $realmodel" if ($realmodel);
+		print "$modelbuf\n" if ($modelbuf);
+	}
+	# debug output
+	if ($verbose > 1) {
+		if ($banner) {
+			print "banner = $banner\n";
+		} else {
+			print "diagbanner = $diagbanner\n" if ($diagbanner);
+		}
+		print "cpubanner = $cpubanner\n" if ($cpubanner);
+		print "bannermore = $bannermore\n" if ($bannermore);
+		print "model = $model\n" if ($model);
+		print "modelmore = $modelmore\n" if ($modelmore);
+		print "machine = $machine\n" if ($machine);
+		print "platform = $platform\n" if ($platform);
+		print "ultra = $ultra\n" if ($ultra);
+		if ($ultra eq "AXi") {
+			print "found10bit = $found10bit\n";
+			print "found11bit = $found11bit\n";
+		}
+		print "motherboard = $motherboard\n" if ($motherboard);
+		print "romver = $romver\n" if ($romver);
+		print "freephys = $freephys\n" if ($freephys);
+		print "perl version: " . &mychomp($]) . "\n";
+		print "memory line: $gotmemory\n" if ($gotmemory);
+		print "module info: $gotmodule\n" if ($gotmodule);
+		print "dmidecode version: $dmidecode_ver\n" if ($dmidecode_ver);
+
+		# Fujitsu GP7000F and PrimePower systems
+		print "cpu name info: $gotcpunames\n" if ($gotcpunames);
+		print "cpu board info: $gotcpuboards\n" if ($gotcpuboards);
+		print "module name info: $gotmodulenames\n" if ($gotmodulenames);
+
+		print "simmsizes = @simmsizes\n" if ($simmsizes[0] > 0);
+		print "simmsizesfound = @simmsizesfound\n" if ($simmsizesfound[0]);
+	}
+	if (($verbose >= 1) && $boardfound_cpu) {
+		if ($format_cpu == 1) {
+			print "CPU Units: Frequency Cache-Size Version\n" if ($model =~ /-Enterprise/ || $ultra eq "e");
+		} else {
+			print "CPU Units:\n" if (! $ldm_memory);
+		}
+		if ($model ne "SPARCserver-1000" && $model ne "SPARCcenter-2000") {
+			print @boards_cpu if (! $ldm_memory);
+			print "Memory Units:\n";
+		}
+	}
+	if ($interleave) {
+		print "Memory Interleave Factor: $interleave";
+		print "-way" if ($interleave =~/^\d+$/);
+		print "\n";
+	}
+}
+
+sub show_unrecognized {
+	if ($perlhexbug) {
+		print "       This is most likely because Perl V$PERL_VERSION";
+		print " is buggy in hex number\n       conversions. Please";
+		print " upgrade your perl release to Perl V5.002 or later\n";
+		print "       for best results.\n";
+	} else {
+		print "       This is most likely because memconf $version";
+		print " does not completely\n";
+		print "       recognize this $os $osrel $platform system.\n";
+		&show_request if ($untested == 0);
+	}
+}
+
+sub show_untested {
+	if ($untested_type eq "OS") {
+		print "WARNING: This is an untested $os $osrel operating";
+	} elsif ($untested_type eq "OBP") {
+		print "ERROR: This is an untested $os $osrel OBP $romvernum";
+	} elsif ($untested_type eq "CPU") {
+		print "ERROR: This is an untested CPU type on this $os $osrel";
+	} else {
+		print "ERROR: This is an untested $os $osrel";
+	}
+	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' if this system can E-mail to ";
+	print "the Internet\n       or send the output of the following ";
+	print "commands manually to Tom Schmidt\n       (tschmidt\@micron.com)";
+	print " so that memconf $version may be enhanced to\n       properly ";
+	print "recognize this system:\n";
+	print "            memconf -d\n";
+	&show_helpers("            ");
+	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 show_supported {
+	print "memconf:  $version $version_date $URL\n" if (! $verbose);
+	print "ERROR: memconf $version is not supported on this $os";
+	print" $osrel $machine system.\n       memconf is supported on:\n";
+	print "           Solaris (SunOS 4.X or 5.X) on SPARC\n";
+	print "           Solaris 10 6/06 or later on x86 with /usr/platform/i86pc/sbin/prtdiag\n";
+	print "           Linux on SPARC with sparc-utils and /dev/openprom\n";
+	print "           Linux on x86 with kernel-utils or pmtools for /usr/sbin/dmidecode\n";
+	print "           most HP-UX systems with Support Tools Manager (cstm)\n";
+	if ("$os" eq "Linux") {
+		print "NOTICE: This may be corrected by installing the ";
+		if ("$machine" =~ /.86/) {
+			print "kernel-utils or pmtools";
+		} else {
+			print "sparc-utils";
+		}
+		print "\n       package if available for this $machine system.\n";
+	}
+	print "       memconf may be able to process Sun Explorer data on this";
+	print " machine.\n";
+	print "       Check my website at $URL\n";
+	print "       for a newer version of memconf that may recognize this ";
+	print "system better.\n";
+	exit 1;
+}
+
+sub show_memory {
+	$mem=shift;
+	print "${mem}MB";
+	print " (", $mem / 1024, "GB)" if ($mem > 1023);
+	print "\n";
+}
+
+sub show_memory_label {
+	$mem=shift;
+	return if (! defined($mem));
+	return "$mem" if ($mem =~ /[MG]B/);
+	return $mem / 1024 . "GB" if ($mem >= 1024);
+	return "${mem}MB";
+}
+
+sub check_model {
+	print &runtime . "in check_model, model=$model\n" if ($DEBUG);
+	&find_helpers;
+	if ($filename) {
+		$platform=$model;
+		$platform="SUNW,Ultra-5_10" if ($diagbanner =~ /Sun Ultra 5\/10/);
+		$platform="SUNW,Sun-Fire" if ($diagbanner =~ /Sun Fire [346]8[01]0\b/ || $diagbanner =~ /Sun Fire E[246]900\b/);
+		$platform="SUNW,Sun-Fire-15000" if ($diagbanner =~ /Sun Fire E2[05]K\b/);
+		$platform=~s/-S$// if ($model =~ /Sun-Blade-[12]500-S\b/);
+		$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;
+	$model=~s/RDI,//g;
+	$model=~s/\s+$//;
+	$ultra="ultra" if ($ultra eq 0 && ($model =~ /Ultra/ || $model =~ /Blade/ || $model =~ /Fire/));
+	if ($model =~ /Fire[- ]X/i || $model =~ /Fire[- ]B[12]00x/i) {
+		# Sun Fire X??00 Servers, i86pc
+		# Sun B100x or B200x Blade Servers, i86pc
+		$ultra="";
+		$machine="x86" if ($machine ne "i86pc");
+		$untested=1;
+		&x86_devname;
+	}
+	$ultra="sparc64" if ($model =~ /SPARC64/);
+	$ultra="e" if ($model =~ /-Enterprise/ && $model !~ /SPARC-Enterprise/);
+	$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 2000" if ($model =~ /Sun-Blade-2000\b/);
+	$ultra="Netra 20" if ($model =~ /Netra-20\b/);
+	$ultra="Netra 20" if ($model =~ /Netra-T4\b/);
+	# E2900/E4900 also use Netra-T12
+	$ultra="Netra T12" if ($model =~ /Netra-T12\b/ && $ultra !~ /Sun Fire/);
+	$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" || $model =~ /Sun-Fire-[346]8[01]0\b/);
+	$ultra="Sun Fire V480" if ($model =~ /Sun-Fire-480R\b/);
+	$ultra="Sun Fire V490" if ($model =~ /Sun-Fire-V490\b/);
+	$ultra="Sun Fire V880" if ($model =~ /Sun-Fire-880\b/);
+	$ultra="Sun Fire V890" if ($model =~ /Sun-Fire-V890\b/);
+	# Sun Fire 12K, E25K, etc. systems identifies itself as Sun Fire 15K
+	$ultra="Sun Fire 15K" if ($model =~ /Sun-Fire-15000\b/ && $ultra !~ /Sun Fire /);
+	$ultra="Sun Fire 12K" if ($model =~ /Sun-Fire-12000\b/);
+	$ultra="Serverblade1" if ($model =~ /Serverblade1\b/);
+	# UltraSPARC-IIIi (Jalapeno) systems
+	$ultra="Enchilada" if ($model =~ /Enchilada\b/); # prototype
+	$ultra="Enchilada" if ($model =~ /Sun-Fire-V210\b/);
+	$ultra="Enchilada" if ($model =~ /Netra-210\b/);
+	$ultra="Enchilada" if ($model =~ /Sun-Fire-V240\b/);
+	$ultra="Enchilada" if ($model =~ /Netra-240\b/);
+	$ultra="Sun Fire V440" if ($model =~ /Sun-Fire-V440\b/);
+	$ultra="Netra 440" if ($model =~ /Netra-440\b/);
+	$ultra="Sun Fire V250" if ($model =~ /Sun-Fire-V250\b/);
+	$ultra="Sun Blade 1500" if ($model =~ /Sun-Blade-1500\b/);
+	$ultra="Sun Blade 2500" if ($model =~ /Sun-Blade-2500\b/);
+	if ($model =~ /Sun-Blade-[12]500-S\b/) {
+		$model=~s/-S$//;
+		$modelmore="(Silver)" if ($banner !~ /\(Silver\)/);
+	}
+	$ultra="Sun Ultra 45 Workstation" if ($model =~ /Sun-Ultra-45-Workstation\b/ || $model eq "A70");
+	$ultra="Sun Ultra 25 Workstation" if ($model =~ /Sun-Ultra-25-Workstation\b/ || $model eq "Ultra-25");
+	$ultra="Sun Ultra 45 or Ultra 25 Workstation" if ($model =~ /Sun-Ultra-45-or-Ultra-25-Workstation\b/);
+	$ultra="Sun Fire V125" if ($model =~ /Sun-Fire-V125\b/);
+	$ultra="Seattle" if ($model =~ /Sun-Fire-V215\b/);
+	$ultra="Seattle" if ($model =~ /Sun-Fire-V245\b/);
+	$ultra="Boston" if ($model =~ /Sun-Fire-V445\b/);
+	# UltraSPARC-IV (Jaguar) or UltraSPARC-IV+ (Panther) systems
+	$ultra="Sun Fire E2900" if ($model =~ /Sun-Fire-E2900\b/);
+	$ultra="Sun Fire E4900" if ($model =~ /Sun-Fire-E4900\b/);
+	$ultra="Sun Fire E6900" if ($model =~ /Sun-Fire-E6900\b/);
+	$ultra="Sun Fire E20K" if ($model =~ /Sun-Fire-E20K\b/ || $model =~ /Sun-Fire-Enterprise-20K\b/);
+	$ultra="Sun Fire E25K" if ($model =~ /Sun-Fire-E25K\b/ || $model =~ /Sun-Fire-Enterprise-25K\b/);
+	# SPARC64-VI or SPARC64-VII systems
+	$ultra=$banner if ($banner =~ /SPARC Enterprise M[34589]000 Server/);
+	# UltraSPARC-T1 (Niagara) systems
+	if ($model =~ /Sun-Fire-T200\b/) {
+		$ultra="T2000";
+		$modelmore="(Sun Fire T2000)";
+	}
+	$ultra="T2000" if ($model =~ /Sun-Fire-T2000\b/ || $model =~ /SPARC-Enterprise-T2000/ || $banner =~ /SPARC Enterprise T2000/ || $model =~ /Netra-T2000\b/  || $banner =~ /Netra T2000\b/);
+	$ultra="T1000" if ($model =~ /Sun-Fire-T1000\b/ || $model =~ /SPARC-Enterprise-T1000/ || $banner =~ /SPARC Enterprise T1000/);
+	$ultra="T6300" if ($model =~ /Sun-Blade-T6300\b/ || $banner =~ /\bT6300\b/);
+	# UltraSPARC-T2 (Niagara-II) systems
+	$ultra="T5120" if ($model =~ /SPARC-Enterprise-T5120/ || $banner =~ /\bT5120\b/);
+	$ultra="T5220" if ($model =~ /SPARC-Enterprise-T5220/ || $model =~ /Netra-T5220/ || $banner =~ /\bT5220\b/);
+	$ultra="T6320" if ($model =~ /Sun-Blade-T6320\b/ || $banner =~ /\bT6320\b/);
+	$ultra="T6340" if ($model =~ /Sun-Blade-T6340\b/ || $banner =~ /\bT6340\b/);
+	# UltraSPARC-T2+ (Victoria Falls) systems
+	$ultra="T5140" if ($model =~ /SPARC-Enterprise-T5140/ || $banner =~ /\bT5140\b/);
+	$ultra="T5240" if ($model =~ /SPARC-Enterprise-T5240/ || $banner =~ /\bT5240\b/ || $model =~ /SPARC-USBRDT-5240/);
+	$ultra="T5440" if ($model =~ /SPARC-Enterprise-T5440/ || $model =~ /Netra-T5440/ || $banner =~ /\bT5440\b/ || $model =~ /SPARC-USBRDT-5440/);
+	# Older SPARCstations
+	$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 "S240") {
+		$manufacturer="Sun Microsystems, Inc.";
+		$modelmore="SPARCstation Voyager";
+	}
+	# x86
+	&checkX86;
+	if ($isX86) {
+		$modelmore="(Solaris x86 machine)";
+		$cputype="x86";
+		$machine=$model;
+		$ultra=0;
+		$cpucntfrom="prtconf" if ($cpucntfrom eq "");
+		return if ($model_checked);
+		&check_prtdiag if ($use_psrinfo_data == 2);
+		&check_psrinfo;
+		&cpubanner;
+		$cpucnt{"$cputype $cpufreq"}++;
+	}
+	# Clones
+	if ($banner =~ /\bMP-250[(\b]/) {
+		$ultra="axus250";
+		$bannermore="Ultra-250";
+		$modelmore="(Ultra-250)";
+	}
+	$manufacturer="AXUS" if ($ultra =~ /axus/);
+	$manufacturer="Force Computers" if ($model =~ /SPARC CP/);
+	if ($model eq "S3GX") {
+		$bannermore="(SPARCbook 3GX)";
+		$modelmore="(SPARCbook 3GX)";
+	}
+	if ($model eq "S3XP") {
+		$bannermore="(SPARCbook 3XP)";
+		$modelmore="(SPARCbook 3XP)";
+	}
+	$manufacturer="Sun Microsystems, Inc." if ($banner !~ /Axil/ && (
+		$model =~ /^SPARCstation/ || $model =~ /^SPARCsystem/ ||
+		$model =~ /^SPARCclassic/ || $model =~ /^SPARCserver/ ||
+		$model =~ /^SPARCcenter/ || $model =~ /Enterprise/ ||
+		$model =~ /Premier 24/ || $model =~ /Netra/ ||
+		$model =~ /Sun.Fire/ || $model =~ /Sun.Blade/ ||
+		$model =~ /Serverblade1/));
+	if ($model =~ /Auspex/) {
+		$manufacturer="Auspex";
+		$model=~s/Auspex //g;
+		$bannermore="Netserver";
+		$modelmore="Netserver";
+	}
+	$manufacturer="Fujitsu" if ($banner =~ /Fujitsu/);
+	$manufacturer="Fujitsu Siemens" if ($banner =~ /Fujitsu Siemens/);
+	$manufacturer="Fujitsu Siemens Computers" if ($banner =~ /Fujitsu Siemens Computers/);
+	if ($model =~ /S-4/ || $model eq "GP" || $model =~ /^GPU[SZU]/) {
+		$manufacturer="Fujitsu" if ($manufacturer !~ /^Fujitsu/);
+		$model=~s,_,/,g;
+		$untested=1 if ($model =~ /^GPUSC-L/);
+		$untested=1 if ($model =~ /^GPUU/);
+	}
+	if ($model =~ /PowerLite-/) {
+		$bannermore=$model;
+		$bannermore=~s/PowerLite-//g;
+	}
+	$model_checked=1;
+}
+
+sub check_banner {
+	print &runtime . "in check_banner, banner=$banner, ultra=$ultra\n" if ($DEBUG);
+	$ultra="ultra" if ($ultra eq 0 && ($banner =~ /Ultra/ || $banner =~ /Blade/ || $banner =~ /Fire/));
+	$ultra="sparc64" if ($banner =~ /SPARC64/);
+	$ultra=5 if ($banner =~ /Ultra 5\b/);
+	$ultra="5_10" if ($banner =~ /Ultra 5\/10\b/);
+	$ultra=10 if ($banner =~ /Ultra 10\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="Netra t140x" if ($banner =~ /Netra t 1400\/1405\b/);
+	$ultra="CP1400" if ($banner =~ /Ultra CP 1400\b/);
+	$ultra="CP1500" if ($banner =~ /Ultra CP 1500\b/);
+	$ultra="CP2000" if ($banner =~ /\bCP2000\b/);
+	$ultra="CP2040" if ($banner =~ /\bCP2000 model 40\b/);
+	$ultra="CP2060" if ($banner =~ /\bCP2000 model 60\b/);
+	$ultra="CP2080" if ($banner =~ /\bCP2000 model 80\b/);
+	$ultra="CP2140" if ($banner =~ /\bCP2000 model 140\b/);
+	$ultra="CP2160" if ($banner =~ /\bCP2000 model 160\b/);
+	$ultra="Sun Blade 1000" if ($banner =~ /Sun Excalibur\b/); # prototype
+	$ultra="Sun Blade 2000" if ($banner =~ /Sun Blade 2000\b/);
+	$ultra="Netra ct400" if ($banner =~ /Netra ct400\b/);
+	$ultra="Netra ct410" if ($banner =~ /Netra ct410\b/);
+	$ultra="Netra ct800" if ($banner =~ /Netra ct800\b/);
+	$ultra="Netra ct810" if ($banner =~ /Netra ct810\b/);
+	$ultra="Sun Blade 150" if ($banner =~ /Sun Blade 150\b/);
+	# Sun Fire 12K, E25K, etc. systems identifies itself as Sun Fire 15K
+	$ultra="Sun Fire 12K" if ($banner =~ /Sun Fire 12000\b/ || $banner =~ /Sun Fire 12K\b/);
+	if ($banner =~ /Ultra 4FT\b/) {
+		$ultra="Netra ft1800";
+		$bannermore="(Netra ft1800)";
+		$modelmore="(Netra ft1800)";
+	}
+	# UltraSPARC-IIIi (Jalapeno) systems
+	$ultra="Sun Ultra 45 Workstation" if ($banner =~ /Sun Ultra 45 Workstation\b/);
+	$ultra="Sun Ultra 25 Workstation" if ($banner =~ /Sun Ultra 25 Workstation\b/);
+	# UltraSPARC-IV (Jaguar) or UltraSPARC-IV+ (Panther) systems
+	$ultra="Sun Fire E2900" if ($banner =~ /Sun Fire E2900\b/);
+	$ultra="Sun Fire E4900" if ($banner =~ /Sun Fire E4900\b/);
+	$ultra="Sun Fire E6900" if ($banner =~ /Sun Fire E6900\b/);
+	$ultra="Sun Fire E20K" if ($banner =~ /Sun Fire E20K\b/);
+	$ultra="Sun Fire E25K" if ($banner =~ /Sun Fire E25K\b/);
+	# SPARC64-VI or SPARC64-VII systems
+	$ultra=$banner if ($banner =~ /SPARC Enterprise M[34589]000 Server/);
+	# Clones
+	if ($banner =~ /\bMP-250[(\b]/) {
+		$ultra="axus250";
+		$bannermore="Ultra-250";
+		$modelmore="(Ultra-250)";
+	}
+	$manufacturer="AXUS" if ($ultra =~ /\baxus\b/);
+	$manufacturer="Rave" if ($banner =~ /Axil/);
+	$manufacturer="Tadpole/Cycle" if ($banner =~ /Cycle/ || $banner =~ /\bUP-20\b/ || $banner =~ /\b520IIi\b/);
+	$manufacturer="Tadpole" if ($banner =~ /Tadpole/ || $banner =~ /\bRDI\b/ || $banner =~ /\bVoyagerIIi\b/ || $banner =~ /\bSPARCLE\b/);
+	$manufacturer="Tatung" if ($banner =~ /COMPstation/);
+	$manufacturer="Twinhead" if ($banner =~ /TWINstation/);
+	$manufacturer="Fujitsu" if ($banner =~ /Fujitsu/);
+	$manufacturer="Fujitsu Siemens" if ($banner =~ /Fujitsu Siemens/);
+	$manufacturer="Fujitsu Siemens Computers" if ($banner =~ /Fujitsu Siemens Computers/);
+}
+
+sub check_for_prtdiag {
+	return if ("$prtdiag_exec" eq "" && $filename eq "");
+	return if ($have_prtdiag_data);
+	&find_helpers;
+	# Check for LDOMs
+	if ($ldm_cmd ne "" && $have_ldm_data == 0) {
+		# Warn that ldm and prtdiag may take a while to run
+		&please_wait;
+		@ldm=&run("$ldm_cmd list-devices -a -p");
+		$have_ldm_data=1;
+		foreach $line (@ldm) {
+			$line=&dos2unix($line);
+			$line=&mychomp($line);
+			&check_LDOM;
+		}
+	}
+	@prtdiag=&run("$prtdiag_exec") if ($filename eq "");
+	$have_prtdiag_data=1;
+	foreach $line (@prtdiag) {
+		$line=&dos2unix($line);
+		# Some Solaris prtdiag outputs have malformed header, so
+		# handle them also.
+		if ($line =~ /^System Configuration: +/ || $line =~ /.BIOS Configuration: / || $line =~ /Sun Microsystems *Sun Fire X/i || $line =~ /Sun Microsystems *Sun Blade X/i || $line =~ /Sun Microsystems .*Memory size: / || ($line =~ /Sun Microsystems *Sun Ultra / && $machine eq i86pc)) {
+			$line=&mychomp($line);
+			$tmp=$line;
+			$line=~s/System Configuration: +//g;
+			$line=~s/BIOS Configuration: .*//g;
+			if ($line =~ /^Sun Microsystems/i) {
+				$manufacturer="Sun Microsystems, Inc.";
+			} elsif ($line =~ /Inc\./) {
+				$manufacturer=$line;
+				$manufacturer=~s/^(.* Inc\.).*/$1/;
+				if ($tmp !~ /BIOS Configuration: / && $model eq "" && $machine eq "i86pc") {
+					$diagbanner=$line;
+					$diagbanner=~s/^.* Inc\. *(.*)/$1/;
+				}
+			} elsif ($line =~ /Corporation/) {
+				$manufacturer=$line;
+				$manufacturer=~s/^(.* Corporation).*/$1/;
+				if ($tmp !~ /BIOS Configuration: / && $model eq "" && $machine eq "i86pc") {
+					$diagbanner=$line;
+					$diagbanner=~s/^.* Corporation *(.*)/$1/;
+				}
+			} else {
+				$manufacturer=$line;
+				$manufacturer=~s/^(\w+)[ \/].*/$1/;
+			}
+			if ($line =~ /^Sun Microsystems +sun\w+ +/) {
+				$diagbanner=$line;
+				$diagbanner=~s/Sun Microsystems +sun\w+ +//g;
+				$diagbanner=~s/Memory size: .*$//g;
+			} elsif ($line =~ /^Sun Microsystems *Sun +/i) {
+				$diagbanner=$line;
+				$diagbanner=~s/Sun Microsystems *Sun/Sun/ig;
+				$diagbanner=~s/Memory size: .*$//g;
+				$diagbanner=~s/ BLADE / Blade /g;
+				$diagbanner=~s/ FIRE / Fire /g;
+				$diagbanner=~s/ SERVER / Server /g;
+			} elsif ($line =~ /^Sun Microsystems, Inc. *Sun +/i) {
+				$diagbanner=$line;
+				$diagbanner=~s/Sun Microsystems, Inc. *Sun/Sun/ig;
+				$diagbanner=~s/Memory size: .*$//g;
+				$diagbanner=~s/ BLADE / Blade /g;
+				$diagbanner=~s/ FIRE / Fire /g;
+				$diagbanner=~s/ SERVER / Server /g;
+			} elsif ($line =~ /^Sun Microsystems.*Ultra/) {
+				$diagbanner=$line;
+				$diagbanner=~s/Sun Microsystems.*Ultra/Ultra/g;
+				$diagbanner=~s/Memory size: .*$//g;
+			}
+		}
+		$prtdiag_failed=1 if ($line =~ /Prtdiag Failed/i);
+		# prtdiag only works on the global zone (container), so find out
+		# if we are in a Solaris zone. solaris8 brand container shows
+		# kernel version of "Generic_Virtual"
+		$prtdiag_failed=2 if ($line =~ /prtdiag can only be run in the global /i || $kernver eq "Generic_Virtual");
+	}
+	if ($psrinfo_cmd ne "" && $have_psrinfo_data == 0) {
+		@psrinfo=&run("$psrinfo_cmd -v");
+		$tmp=&mychomp(`$psrinfo_cmd -p 2>/dev/null`);	# physical CPUs
+		if ($tmp ne "") {
+			push(@psrinfo, "#psrinfo -p\n$tmp\n");
+			$tmp=&mychomp(`$psrinfo_cmd -p -v 2>/dev/null`);
+			push(@psrinfo, "#psrinfo -p -v\n$tmp\n");
+		}
+		$have_psrinfo_data=1;
+	}
+	if ($ipmitool_cmd ne "" && $have_ipmitool_data == 0) {
+		@ipmitool=&run("$ipmitool_cmd fru");
+		$have_ipmitool_data=1;
+	}
+	if ($smbios_cmd ne "" && $have_smbios_data == 0) {
+		@smbios=&run("$smbios_cmd");
+		$have_smbios_data=1;
+	}
+	if (($filename eq "") && ($verbose == 3)) {
+		# Only run the following commands if E-mailing maintainer since
+		# this data is used by memconf only for some systems
+		if ($prtfru_cmd ne "" && $have_prtfru_data == 0) {
+			@prtfru=&run("$prtfru_cmd -x");
+			$have_prtfru_data=1;
+		}
+		if ($prtpicl_cmd ne "" && $have_prtpicl_data == 0) {
+			@prtpicl=&run("$prtpicl_cmd -v");
+			$have_prtpicl_data=1;
+		}
+		if ($cfgadm_cmd ne "" && $have_cfgadm_data == 0) {
+			@cfgadm=&run("$cfgadm_cmd -al");
+			$have_cfgadm_data=1;
+		}
+		if ($ldm_cmd ne "" && $have_ldm_data == 0) {
+			@ldm=&run("$ldm_cmd list-devices -a -p");
+			$have_ldm_data=1;
+		}
+	}
+}
+
+sub check_prtdiag {
+	return if ($prtdiag_checked);
+	print &runtime . "in check_prtdiag\n" if ($DEBUG);
+	$prtdiag_checked=1;
+	return if ("$prtdiag_exec" eq "" && $filename eq "");
+	&check_for_prtdiag;
+	foreach $line (@prtdiag) {
+		$line=&dos2unix($line);
+		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 !~ /^\s*\n$/)) {
+			$boardfound_mem=1;
+			$boardfound_mem=0 if ($line =~ /Cannot find/);
+			@linearr=split(' ', $line);
+			if ($linearr[0] =~ /^0x/ && $ultra =~ /Sun Blade 1[05]0\b/ && ($linearr[$#linearr] eq "chassis/system-board" || $linearr[$#linearr] eq "-")) {
+				# Sometimes socket is unlabeled on prtdiag
+				# output on Sun Blade 100/150
+				$socket=$socketstr[0] if ($linearr[0] =~ /^0x0/);
+				if ($simmrangex eq "00000400") {
+					$socket=$socketstr[1] if ($linearr[0] =~ /^0x4/);
+					$socket=$socketstr[2] if ($linearr[0] =~ /^0x8/);
+					$socket=$socketstr[3] if ($linearr[0] =~ /^0xc/);
+				} else {
+					$socket=$socketstr[1] if ($linearr[0] =~ /^0x2/);
+					$socket=$socketstr[2] if ($linearr[0] =~ /^0x4/);
+					$socket=$socketstr[3] if ($linearr[0] =~ /^0x6/);
+				}
+				if ($linearr[$#linearr] eq "-") {
+					$line=~s/-$/$socket/g;
+					$linearr[$#linearr]=$socket;
+				} else {
+					$line=~s/-board/-board\/$socket/g;
+					$linearr[$#linearr]="chassis/system-board/$socket";
+				}
+			}
+			push(@boards_mem, "$line");
+			$flag_rewrite_prtdiag_mem=1 if ($line =~ /^MB\/CMP[0-3]\/BR[0-3]\/CH[01]\/D[01]/);
+			if ($#linearr >= 2) {
+				if ($linearr[2] =~ /\bU\d\d\d\d\b/) {
+					# Sun Ultra-250 format
+					$sockets_used .= " $linearr[2]";
+				} elsif ($linearr[2] =~ /\b\d\d\d\d\b/) {
+					# Sun Ultra-4 format
+					$sockets_used .= " U$linearr[2]";
+				}
+			}
+			if ($#linearr >= 3) {
+				if ($linearr[3] ne "BankIDs" && $linearr[3] ne "GroupID" && $line !~ /^0x\d[\d ]+\d.+ +\d +-$/) {
+					if ($linearr[1] =~ /\b\d+MB\b/) {
+						# Sun Blade 100/1000 format
+						$simmsize=$linearr[1];
+						$simmsize=~s/MB//g;
+						push(@simmsizesfound, "$simmsize");
+					} elsif ($linearr[1] =~ /\b\d+GB\b/) {
+						# Sun Blade 1000 format
+						$simmsize=$linearr[1];
+						$simmsize=~s/GB//g;
+						$simmsize *= 1024;
+						push(@simmsizesfound, "$simmsize");
+					}
+				}
+				if ($model eq "Ultra-250" || $ultra eq 250 || $model eq "Ultra-4" || $ultra eq 450 || $model eq "Ultra-4FT" || $ultra eq "Netra ft1800") {
+					if ($linearr[3] =~ /\b\d+\b/) {
+						$simmsize=$linearr[3];
+						push(@simmsizesfound, "$simmsize");
+					}
+				}
+			}
+			if ($linearr[$#linearr] =~ /\bDIMM\d/ || $linearr[$#linearr] =~ /\b[UJ]\d\d\d\d[\b,]/ || ($linearr[$#linearr - 1] eq "Label" && $linearr[$#linearr] eq "-")) {
+				$sockets_used .= " $linearr[$#linearr]";
+				# May be multiple sockets separated by ","
+				$sockets_used=~s/,/ /g;
+			} elsif ($#linearr >= 2) {
+				if ($linearr[2] =~ /MB\/P[01]\/B[01]\/D[01]/ || $linearr[2] =~ /C[0-3]\/P[01]\/B[01]\/D[01]/) {
+					$sockets_used .= " $linearr[2]";
+					# May be multiple sockets separated by ","
+					$sockets_used=~s/,/ /g;
+				}
+			}
+			if ($linearr[0] !~ /^0x/ && ($linearr[$#linearr] eq "-" || $linearr[$#linearr] =~ /^-,/)) {
+				# unlabeled sockets
+				$sockets_used .= " $linearr[$#linearr]";
+				# May be multiple sockets separated by ","
+				$sockets_used=~s/,/ /g;
+			}
+			if ($linearr[$#linearr] =~ /\/J\d\d\d\d$/) {
+				$linearr[$#linearr]=~s/.+\///g;
+				$sockets_used .= " $linearr[$#linearr]";
+			}
+			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" if ($sockets_used !~ / J0100 /);
+				} elsif ($line =~ / CA +[01] +[13] /) {
+					$sockets_used .= " J0101 J0203 J0305 J0407" if ($sockets_used !~ / J0101 /);
+				}
+			}
+			# Memory on Sun Fire systems
+			if ($line =~ /^\/N\d\/SB\d\/P\d\/B\d\b/) {
+				$boardslot_mem=substr($line,0,13);
+				push(@boardslot_mems, "$boardslot_mem");
+				$boardslot_mems .= $boardslot_mem . " ";
+			} elsif ($line =~ /^\/N\d\/SB\d\d\/P\d\/B\d\b/) {
+				$boardslot_mem=substr($line,0,14);
+				push(@boardslot_mems, "$boardslot_mem");
+				$boardslot_mems .= $boardslot_mem . " ";
+			} elsif ($line =~ /^\/SB\d\d\/P\d\/B\d\b/) {
+				$boardslot_mem=substr($line,0,11);
+				push(@boardslot_mems, "$boardslot_mem");
+				$boardslot_mems .= $boardslot_mem . " ";
+			} elsif ($line =~ /\bSB\d\/P\d\/B\d\/D\d\b,/) {
+				$boardslot_mem=substr($line,24,51);
+				push(@boardslot_mems, "$boardslot_mem");
+				$boardslot_mems .= $boardslot_mem . " ";
+			} elsif ($line =~ /\bSB\d\/P\d\/B\d\/D\d\b/) {
+				$boardslot_mem=substr($line,24,12);
+				push(@boardslot_mems, "$boardslot_mem");
+				$boardslot_mems .= $boardslot_mem . " ";
+			}
+			if (($ultra =~ /Sun Fire/) && ($#linearr >= 5)) {
+				if ($linearr[5] =~ /\d+MB/) {
+					$simmsize=$linearr[5];
+					$simmsize=~s/MB//g;
+					push(@simmsizesfound, "$simmsize");
+				}
+			}
+			if ($ultra =~ /Sun Fire V[48][89]0\b/) {
+				# Fire V480, V490, V880, V890
+				$bankname="groups";
+				if ($banks_used ne "A0 A1 B0 B1") {
+					$banks_used="A0 B0" if ($line =~ /^  ?[ABCD] .+ 4-way /);
+					$banks_used="A0 A1 B0 B1" if ($line =~ /^  ?[ABCD] .+ 8-way /);
+				}
+			}
+			if ($linearr[$#linearr] =~ /MB\/CMP0\/CH[0-3]\/R[01]\/D[01]/) {
+				# UltraSPARC-T1 systems
+				if ($#linearr >= 5) {
+					if ($linearr[5] eq "MB") {
+						$simmsize=$linearr[4];
+						$simmsize=~s/MB//g;
+						$simmsize /= 2;
+						push(@simmsizesfound, "$simmsize");
+					} elsif ($linearr[5] eq "GB") {
+						$simmsize=$linearr[4];
+						$simmsize=~s/GB//g;
+						$simmsize *= 512;
+						push(@simmsizesfound, "$simmsize");
+					}
+				}
+				$sockets_used .= " $linearr[$#linearr]";
+			}
+			if ($linearr[$#linearr] =~ /MB\/CMP[0-3]\/BR[0-3]\/CH[01]\/D[01]/ || $linearr[$#linearr] =~ /MB\/CMP[01]\/MR[01]\/BR[01]\/CH[01]\/D[23]/) {
+				# UltraSPARC-T2 systems: T5120, T5220, T6320
+				# UltraSPARC-T2+ systems: T5140, T5240
+				$sockets_used .= " $linearr[$#linearr]";
+			}
+			if ($linearr[$#linearr] =~ /MB\/CPU[01]\/CMP[01]\/BR[01]\/CH[01]\/D[01]/ || $linearr[$#linearr] =~ /MB\/MEM[01]\/CMP[01]\/BR[01]\/CH[01]\/D[01]/) {
+				$sockets_used .= " $linearr[$#linearr]";
+			}
+		}
+		if ($line =~ /CPU Units:/) {
+			$flag_cpu=1;	# Start of CPU section
+			$flag_mem=0;	# End of memory section
+			$format_cpu=1;
+		}
+		if ($line =~ /==== CPU/ || $line =~ /==== Processor Sockets / || $line =~ /==== Virtual CPU/) {
+			$flag_cpu=1;	# Start of CPU section
+			$flag_mem=0;	# End of memory section
+			$format_cpu=2;
+		}
+		if ($line =~ /Memory Units:/ || $line =~ /==== Memory / || $line =~ /==== Physical 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 !~ /^\s*\n$/)) {
+			if ($model eq "Ultra-5_10" || $ultra eq "5_10" || $ultra eq 5 || $ultra eq 10) {
+				$newline=$line;
+				$newline=~s/^       //g if ($line !~ /Run   Ecache   CPU    CPU/);
+				push(@boards_cpu, "$newline");
+			} else {
+				push(@boards_cpu, "$line");
+			}
+			$boardfound_cpu=1;
+			&checkX86;
+			if (($flag_cpu == 2) && $isX86) {
+				# Solaris x86 CPU type found in prtdiag
+				$cputype2=&mychomp($line);
+				$cputype2=~s/\s\s+.*//;
+				$cputype2=~s/(^.* Processor \d+) .*/$1/;
+				$cputype2=~s/ CPU / /;
+				$cputype2=~s/\s+/ /g;
+				$cputype2=~s/^\s+//;
+				$cputype2=~s/\s+$//;
+				&x86multicorecnt($cputype2);
+				# rewrite %cpucnt $cputype2
+				$cfreq=0;
+				while (($cf,$cnt)=each(%cpucnt)) {
+					$cf=~/^(.*) (\d+)$/;
+					if (! defined($2)) {
+						delete $cpucnt{"$cf"};
+					} else {
+						$cfreq=$2;
+						delete $cpucnt{"$1 $2"};
+					}
+				}
+				$ndcpu++;
+				if ($cpucntfrom ne "psrinfo") {
+					$cpucntfrom="prtdiag";
+					$cpucntflag=1;
+					$ncpu++ if ($filename);
+				}
+				$cputype=$cputype2 if ($cputype2 ne "");
+				$cputype=$cputype_prtconf if ($cputype eq "AMD" && $cputype_prtconf ne "");
+				$cputype=$cputype_psrinfo if ($cputype_psrinfo ne "");
+				$cpucnt{"$cputype $cfreq"}=$ncpu;
+			}
+			# CPUs on Sun Fire systems
+			if ($line =~ /^\/N\d\/SB\d\/P\d\b/) {
+				$boardslot_cpu=substr($line,0,10);
+				push(@boardslot_cpus, "$boardslot_cpu");
+				$boardslot_cpus .= $boardslot_cpu . " ";
+			} elsif ($line =~ /^\/N\d\/SB\d\d\/P\d\b/) {
+				$boardslot_cpu=substr($line,0,11);
+				push(@boardslot_cpus, "$boardslot_cpu");
+				$boardslot_cpus .= $boardslot_cpu . " ";
+			} elsif ($line =~ /^\/SB\d\d\/P\d\b/) {
+				$boardslot_cpu=substr($line,0,8);
+				push(@boardslot_cpus, "$boardslot_cpu");
+				$boardslot_cpus .= $boardslot_cpu . " ";
+				&prtdiag_threadcount(1);
+			} elsif ($line =~ /^    SB\d\/P\d\b/) {
+				$boardslot_cpu=substr($line,4,6);
+				push(@boardslot_cpus, "$boardslot_cpu");
+				$boardslot_cpus .= $boardslot_cpu . " ";
+				# prtdiag does not show cpuid or cputype
+			} elsif ($line =~ /    SB\d\/P\d$/) {
+				$boardslot_cpu=substr($line,length($line)-7,6);
+				push(@boardslot_cpus, "$boardslot_cpu");
+				$boardslot_cpus .= $boardslot_cpu . " ";
+				&prtdiag_threadcount(0);
+			}
+		}
+		if ($flag_cpu && $line =~ /------/) {
+			# Next lines are the CPUs on each system board
+			$flag_cpu=2;
+		}
+		if ($flag_mem && $line =~ /------/) {
+			# Next lines are the memory on each system board
+			$flag_mem=2;
+		}
+		if ($filename && $use_psrinfo_data) {
+			# May have "psrinfo -v" output in regression test file
+			if ($line =~ /.+ operates at \d+ MHz/) {
+				$cpufreq=&mychomp($line);
+				$cpufreq=~s/.+ operates at //;
+				$cpufreq=~s/ MHz.+//;
+				$cpucntfrom="psrinfo" if ($cpucntfrom ne "ldm");
+				$cpucntflag="0";	# reset flag
+				$psrcpucnt++;
+				# rewrite %cpucnt $cputype with frequency
+				while (($cf,$cnt)=each(%cpucnt)) {
+					$cf=~/^(.*) (\d+)$/;
+					$tmp=$1;
+					if (defined($tmp)) {
+						delete $cpucnt{"$1 $2"} if ($2 == 0);
+					}
+				}
+				if (defined($tmp)) {
+					$cpucnt{"$tmp $cpufreq"}=$psrcpucnt;
+					$ncpu=$psrcpucnt;
+				}
+			}
+			# May have "psrinfo -p -v" output in regression test
+			# file that has more detailed information about the
+			# CPUs. Assumes all CPUs are same.
+			$foundpsrinfocpu=1 if ($line =~ /.+ \d+ virtual processor/);
+			if ($foundpsrinfocpu && (($line =~ /.+Hz$/ && $line !~ /Speed: / && $line !~ / PCI/) || $line =~ /\bAMD .* Processor /) && $line !~ / x86 /) {
+				$cputype=&mychomp($line);
+				$cputype=~s/ CPU / /;
+				$cputype=~s/\s+/ /g;
+				$cputype=~s/^\s+//;
+				$cputype=~s/\s+$//;
+				$cputype=~s/^Version:\s+//;
+				# rewrite %cpucnt $cputype with cputype
+				while (($cf,$cnt)=each(%cpucnt)) {
+					$cf=~/^(.*) (\d+)$/;
+					$cpufreq=$2;
+					delete $cpucnt{"$1 $2"};
+				}
+				$cpucnt{"$cputype $cpufreq"}=$psrcpucnt;
+			}
+		}
+	}
+
+	# Rewrite prtdiag output to include DIMM information on SB1X00, SB2X00,
+	# Enchilada, Chalupa (Sun Fire V440), Netra T12, Seattle and Boston
+	# systems
+	@new_boards_mem="";
+	$grpcnt=0;
+	$intcnt=0;
+	if ($ultra =~ /Sun Blade [12][05]00\b/ || $ultra eq "Sun Fire 280R" || $ultra eq "Netra 20" || $ultra eq "Sun Fire V250" || $ultra eq "Netra T12") {
+		foreach $line (@boards_mem) {
+			$line=&mychomp($line);
+			$newline=$line;
+			if (($line eq "-----------------------------------------------------------") && ($prtdiag_banktable_has_dimms == 0)) {
+				$newline=$line . "------";
+			} elsif ($line eq "--------------------------------------------------") {
+				$newline=$line . "-----------";
+			} elsif (($line =~ /ControllerID  GroupID   Size/) && ($prtdiag_banktable_has_dimms == 0)) {
+				$newline="ID       ControllerID  GroupID   Size    DIMMs    Interleave Way";
+			} elsif ($line =~ /ControllerID   GroupID  Labels         Status/) {
+				$newline=$line . "       DIMMs";
+			} elsif ($line =~ /ControllerID   GroupID  Labels/) {
+				$newline=$line . "                      DIMMs";
+			} elsif ($line =~ /ControllerID   GroupID  Size       Labels/) {
+				$newline=$line . "          DIMMs";
+			} elsif ($line =~ /^\d[\d ]       \d[\d ]            \d /) {
+				&read_prtdiag_bank_table;
+			} elsif ($line =~ /^0x\d[\d ]+\d.+ +\d +-$/ || $line =~ /  GroupID \d[\d ]$/) {
+				&read_prtdiag_memory_segment_table;
+			} elsif ($line =~ /J0100,/) {
+				$sz=$grpsize{0,0};
+				if (defined($sz)) {
+					$sz=~s/ //g;
+					$newline=$line . "     4x$sz";
+				}
+			} elsif ($line =~ /J0101,/) {
+				$sz=$grpsize{0,1};
+				if (defined($sz)) {
+					$sz=~s/ //g;
+					$newline=$line . "     4x$sz";
+				}
+			} elsif ($line =~ /\/J0[1-4]0[0246]\b/) {
+				$sz=$grpsize{0,0};
+				if (defined($sz)) {
+					$sz=~s/ //g;
+					$newline=$line . "  $sz";
+				}
+			} elsif ($line =~ /\/J0[1-4]0[1357]\b/) {
+				$sz=$grpsize{0,1};
+				if (defined($sz)) {
+					$sz=~s/ //g;
+					$newline=$line . "  $sz";
+				}
+			} elsif ($line =~ /\bSB\d\/P\d\/B\d\/D\d,/) {
+				$tmp=substr($line,0,2);
+				$tmp=~s/ //g;
+				$sz=$grpsize{$tmp,substr($line,15,1)};
+				$sz=$grpsize{0,substr($line,15,1)} if (! defined($sz));
+				if (defined($sz)) {
+					$sz=~s/ //g;
+					$newline=$line . "         4x$sz";
+				}
+			} elsif ($line =~ /\bSB\d\/P\d\/B\d\/D\d\b/) {
+				$tmp=substr($line,0,2);
+				$tmp=~s/ //g;
+				$sz=$grpsize{$tmp,substr($line,15,1)};
+				$sz=$grpsize{0,substr($line,15,1)} if (! defined($sz));
+				if (defined($sz)) {
+					$sz=~s/ //g;
+					$newline=$line . "         $sz";
+				}
+			} elsif ($line =~ / MB\/DIMM\d,/) {
+				$sz=$grpsize{0,substr($line,15,1)};
+				$newline=$line . "           2x$sz" if (defined($sz));
+			} elsif ($line =~ /DIMM\d,DIMM\d/) {
+				@linearr=split(' ', $line);
+				if ($linearr[2] =~ /\d+[MG]B/) {
+					$sz=$linearr[2];
+					if ($sz =~ /\dGB/) {
+						$sz=~s/GB//g;
+						$sz *= 512;
+					} else {
+						$sz=~s/MB//g;
+						$sz /= 2;
+					}
+					$sz=&show_memory_label($sz);
+				}
+				$newline=$line . "     2x$sz" if (defined($sz));
+				if ($line =~ /DIMM[13],DIMM[24]/ && $ultra eq "Sun Blade 1500") {
+					# prototype has sockets DIMM1-DIMM4
+					@socketstr=("DIMM1".."DIMM4");
+				}
+				if ($line =~ /DIMM[1357],DIMM[2468]/ && $ultra eq "Sun Blade 2500") {
+					# prototype has sockets DIMM1-DIMM8
+					if ($line =~ /DIMM[13],DIMM[24]/) {
+						@socketstr=("DIMM1".."DIMM4");
+					} elsif ($line =~ /DIMM[57],DIMM[68]/) {
+						push(@socketstr, "DIMM5".."DIMM8");
+					}
+				}
+			}
+			push(@new_boards_mem, "$newline\n") if ($newline ne "");
+		}
+		@boards_mem=@new_boards_mem;
+	} elsif ($ultra eq "Enchilada" || $ultra eq "Sun Fire V440" || $ultra eq "Netra 440" || $ultra =~ /Sun Ultra [24]5 .*Workstation/ || $ultra eq "Sun Fire V125" || $ultra eq "Seattle" || $ultra eq "Boston" || $banner =~ /Sun Fire E[24]900\b/ || $diagbanner =~ /Sun Fire E[24]900/) {
+		foreach $line (@boards_mem) {
+			$line=&mychomp($line);
+			$newline=$line;
+			if (($line eq "-----------------------------------------------------------") && ($prtdiag_banktable_has_dimms == 0)) {
+				$newline=$line . "------";
+			} elsif ($line eq "--------------------------------------------------") {
+				$newline=$line . "-----------";
+			} elsif (($line =~ /ControllerID  GroupID   Size/) && ($prtdiag_banktable_has_dimms == 0)) {
+				$newline="ID       ControllerID  GroupID   Size    DIMMs    Interleave Way";
+			} elsif ($line =~ /ControllerID   GroupID  Labels         Status/) {
+				$newline=$line . "           DIMMs";
+			} elsif ($line =~ /ControllerID   GroupID  Labels/) {
+				$newline=$line . "                      DIMMs";
+			} elsif ($line =~ /^\d[\d ]       \d[\d ]            \d /) {
+				&read_prtdiag_bank_table;
+			} elsif ($line =~ /^0x\d[\d ]+\d.+ +\d +-$/ || $line =~ /  GroupID \d[\d ]$/) {
+				&read_prtdiag_memory_segment_table;
+			} elsif ($line =~ / MB\/P[01]\/B[01]\/D[01],/ || $line =~ /C[0-3]\/P[01]\/B[01]\/D[01],/) {
+				$sz=$grpsize{substr($line,0,1),substr($line,15,1)};
+				$sz=$grpsize{0,substr($line,15,1)} if (! defined($sz));
+				if (defined($sz)) {
+					$newline=$line . "     2x$sz";
+				} else {
+					$newline=$line . "     Failing";
+					$failing_memory=1;
+				}
+			} elsif ($line =~ / MB\/P[01]\/B[01]\/D[01]\b/ || $line =~ /C[0-3]\/P[01]\/B[01]\/D[01]\b/) {
+				$sz=$grpsize{substr($line,0,1),substr($line,15,1)};
+				$sz=$grpsize{0,substr($line,15,1)} if (! defined($sz));
+				if (defined($sz)) {
+					$sz=~s/ //g;
+					$sz=&show_memory_label($sz);
+				}
+				$space="    ";
+				$space="" if ($line =~ / okay/);
+				if ($line =~ / failed/) {
+					if (defined($sz)) {
+						$failed_memory += $sz;
+					} else {
+						$failing_memory=1;
+					}
+				}
+				if (defined($sz)) {
+					# If interleave factor is 16, then print 4x$sz
+					if (defined($grpinterleave{substr($line,28,1),0})) {
+						if (($grpinterleave{substr($line,28,1),0} eq "0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15") && ($prtdiag_banktable_has_dimms == 0)) {
+							$newline=$line . "$space           4x$sz";
+						} else {
+							$newline=$line . "$space             $sz";
+						}
+					} else {
+						$newline=$line . "$space             $sz";
+					}
+				}
+			} elsif ($line =~ / MB\/DIMM[0-7]\b/) {
+				$sz=$grpsize{substr($line,0,1),substr($line,15,1)};
+				$sz=$grpsize{0,substr($line,15,1)} if (! defined($sz));
+				$newline=$line . "                 $sz" if (defined($sz));
+			} elsif ($line =~ /\bSB\d\/P\d\/B\d\/D\d,/) {
+				$tmp=substr($line,0,2);
+				$tmp=~s/ //g;
+				$sz=$grpsize{$tmp,substr($line,15,1)};
+				$sz=$grpsize{0,substr($line,15,1)} if (! defined($sz));
+				if (defined($sz)) {
+					$sz=~s/ //g;
+					$newline=$line . "             4x$sz";
+				}
+			} elsif ($line =~ /\bSB\d\/P\d\/B\d\/D\d\b/) {
+				$tmp=substr($line,0,2);
+				$tmp=~s/ //g;
+				$sz=$grpsize{$tmp,substr($line,15,1)};
+				$sz=$grpsize{0,substr($line,15,1)} if (! defined($sz));
+				if (defined($sz)) {
+					$sz=~s/ //g;
+					$newline=$line . "             $sz";
+				}
+			}
+			push(@new_boards_mem, "$newline\n") if ($newline ne "");
+		}
+		@boards_mem=@new_boards_mem;
+	}
+	# Rewrite prtdiag output to exclude redundant labels
+	@new_boards_mem="";
+	$flag_group=0;
+	foreach $line (@boards_mem) {
+		$line=&mychomp($line);
+		$newline=$line;
+		$flag_group++ if ($line =~ /Memory Module Groups:/);
+		if ($flag_group ge 2) {
+			$newline="" if ($line =~ /Memory Module Groups:/ || $line =~ "--------------------------------------------------" || $line =~ /ControllerID   GroupID/);
+		}
+		push(@new_boards_mem, "$newline\n") if ($newline ne "");
+	}
+	if (($ultra eq "T5120" || $ultra eq "T5220" || $ultra eq "T6320" || $ultra eq "T5140" || $ultra eq "T5240" || $ultra eq "T5440") && $sockets_used ne "") {
+		if ($prtpicl_cmd ne "" && $have_prtpicl_data == 0) {
+			# Warn that prtpicl may take a while to run
+			&please_wait;
+			@prtpicl=&run("$prtpicl_cmd -v");
+			$have_prtpicl_data=1;
+		}
+		&check_prtpicl if ($have_prtpicl_data);
+		if ($picl_foundmemory) {
+			@new_boards_mem="";
+			$bank_cnt=scalar(keys %picl_mem_bank);
+			if (scalar(keys %picl_mem_dimm) == 1 || $bank_cnt > 1) {
+				$pn_cnt=scalar(keys %picl_mem_pn);
+				while (($socket,$simmsize)=each(%picl_mem_bank)) {
+					if ($pn_cnt == $bank_cnt * 2 || $interleave == 8) {
+						# CH1 was not listed
+						$simmsize /= 2;
+						$picl_mem_dimm{"$socket"}=$simmsize;
+						$socket=~s/CH0/CH1/g;
+						$picl_mem_dimm{"$socket"}=$simmsize;
+						$sockets_used .= " $socket" if ($sockets_used !~ /$socket/);
+					} else {
+						$picl_mem_dimm{"$socket"}=$simmsize;
+					}
+				}
+			}
+			while (($socket,$simmsize)=each(%picl_mem_dimm)) {
+				$pn=$picl_mem_pn{"$socket"};
+				$sz=&show_memory_label($simmsize);
+				$newline="socket $socket has a ";
+				$newline .= $pn . " " if (defined($pn));
+				$newline .= $sz . " " if (defined($sz));
+				$newline .= "$memtype";
+				push(@new_boards_mem, "$newline\n");
+				push(@simmsizesfound, $simmsize) if (defined($sz));
+			}
+			@new_boards_mem=sort @new_boards_mem;
+		} elsif ($flag_rewrite_prtdiag_mem) {
+			# Hack: Rewrite prtdiag output better than original
+			if ($sockets_used =~ /MB\/CMP[01]\/BR[0-3]\/CH[01]\/D1/) {
+				# All 16 DIMMs are installed
+				@new_boards_mem="";
+				if ($sockets_used !~ /MB\/CMP[01]\/BR[0-3]\/CH1\/D[01]/) {
+					foreach $line (@boards_mem) {
+						$line=&mychomp($line);
+						$newline=$line;
+						if ($line =~ /MB\/CMP[01]\/BR[0-3]\/CH0\/D[01]/) {
+							$line=~s/\s+$//;
+							$tmp=$line;
+							$tmp=~s/^.*(MB\/CMP.*)/$1/;
+							$tmp=~s/CH0/CH1/g;
+							$space="";
+							$space="                                       " if ($line =~ /^MB\/CMP/);
+							$newline="$space$line,$tmp";
+						}
+						push(@new_boards_mem, "$newline\n") if ($newline ne "");
+					}
+				}
+				$sockets_used="";
+				for ($cnt=0; $cnt <= $#socketstr; $cnt++) {
+					$sockets_used .= " $socketstr[$cnt]";
+				}
+				$simmsize=$installed_memory / 16;
+			} else {
+				# 8-DIMMs or 4-DIMMs are installed.
+				# Hack: assume 4-DIMM configuration since
+				# 8-DIMM has prtpicl output.
+				@new_boards_mem="";
+				foreach $line (@boards_mem) {
+					$line=&mychomp($line);
+					$newline=$line;
+					if ($line =~ /MB\/CMP[01]\/BR[0-3]\/CH0\/D[01]/) {
+						$line=~s/\s+$//;
+						$space="";
+						$space="                                       " if ($line =~ /^MB\/CMP/);
+						$newline="$space$line";
+					}
+					push(@new_boards_mem, "$newline\n") if ($newline ne "");
+				}
+				$simmsize=$installed_memory / 4;
+			}
+			# Round up DIMM value
+			$simmsize=int(($simmsize + 128) / 1024) * 1024;
+			push(@simmsizesfound, $simmsize);
+		} else {
+			$tmp=0;
+			foreach $socket (sort split(' ', $sockets_used)) {
+				$tmp++;
+			}
+			if ($tmp) {
+				$simmsize=$installed_memory / $tmp;
+				# Round up DIMM value
+				$simmsize=int(($simmsize + 128) / 1024) * 1024;
+				push(@simmsizesfound, $simmsize);
+			}
+		}
+	}
+
+	@boards_mem=@new_boards_mem;
+}
+
+sub prtdiag_threadcount {
+	$arg=shift;
+	$diagthreadcnt++;
+	$tmp=$line;
+	$tmp=~s/,\s+/,/;
+	@linearr=split(' ', $tmp);
+	if ($line =~ /\bUS-/) {
+		$cputype=$linearr[4];
+		$cputype=~s/US-/UltraSPARC-/;
+		$cputype=~s/UltraSPARC-IV/dual-core UltraSPARC-IV/;
+		$cpufreq=$linearr[2];
+	}
+	$diagcpucnt{"$cputype $cpufreq"}++;
+	if ($linearr[$arg] =~ /,/) {
+		$tmp=$linearr[$arg];
+		@linearr=split(',', $tmp);
+		$diagthreadcnt += $#linearr;
+	}
+	$cpucntfrom="prtdiag";
+}
+
+sub check_prtpicl {
+	print &runtime . "in check_prtpicl\n" if ($DEBUG);
+	$flag_mem_seg=0;
+	$flag_mem_bank=0;
+	$flag_mem_chan=0;
+	$flag_mem_mod=0;
+	$cpumembrd="";
+	foreach $line (@prtpicl) {
+		$line=&dos2unix($line);
+		$line=&mychomp($line);
+		$line=~s/\s+$//;
+		if ($line =~ /^\s+:Label\s+CPU[01]/ || $line =~ /^\s+:Label\s+MEM[01]/) {
+			$cpumembrd=$line;
+			$cpumembrd=~s/^.*:Label\s+(.*)$/$1/;
+			$cpumembrd .= "/";
+		}
+		if ($line =~ /^\s+:Label\s+CMP[0-3]/) {
+			$cmp=$line;
+			$cmp=~s/^.*:Label\s+(.*)$/$1/;
+		}
+		if ($line =~ /\s+:name\s/) {
+			$flag_mem_seg=0;
+			if ($flag_mem_mod) {
+				$socket="MB/$cpumembrd$cmp/$mem_branch/$mem_channel/$mem_dimm";
+				$flag_mem_mod=0;	# End of memory module section
+				$sockets_used .= " $socket" if ($sockets_used !~ /$socket/);
+				$picl_mem_pn{"$socket"}="$mem_mfg $mem_model";
+				if ($sockets_used =~ /\/CH1\//) {
+					$picl_mem_dimm{"$socket"}=$bank_size / 2;
+				} else {
+					$picl_mem_dimm{"$socket"}=$bank_size;
+				}
+			}
+			if ($flag_mem_bank && ! $flag_mem_mod) {
+				if ($bank_nac) {
+					$socket="$bank_nac" if ($bank_nac ne "");
+				}
+				$flag_mem_bank=0;	# End of memory bank section
+				$sockets_used .= " $socket" if ($sockets_used !~ /$socket/);
+				$picl_mem_bank{"$socket"}=$bank_size;
+			}
+		}
+		if ($line =~ /^\s+memory-segment\s/) {
+			$flag_mem_seg=1;	# Start of memory segment section
+		}
+		if ($flag_mem_seg) {
+			if ($line =~ /^\s+:InterleaveFactor\s/) {
+				$interleave=$line;
+				$interleave=~s/^.*:InterleaveFactor\s+(.*)$/$1/;
+				$interleave=hex($interleave) if ($interleave =~ /^0x\d/);
+			}
+			if ($line =~ /^\s+:Size\s/) {
+				$segment_size=$line;
+				$segment_size=~s/^.*:Size\s+(.*)$/$1/;
+				if ($segment_size =~ /^0x\d/) {
+					$segment_size=~s/^(.*)00000$/$1/;
+					$segment_size=hex($segment_size);
+				} else {
+					$segment_size /= $meg;
+				}
+			}
+		}
+		if ($line =~ /^\s+memory-bank\s/) {
+			$flag_mem_bank=1;	# Start of memory bank section
+		}
+		if ($flag_mem_bank) {
+			if ($line =~ /^\s+:Label\s/) {
+				$bank_label=$line;
+				$bank_label=~s/^.*:Label\s+(.*)$/$1/;
+			}
+			if ($line =~ /^\s+:nac\s/) {
+				$bank_nac=$line;
+				$bank_nac=~s/^.*:nac\s+(.*)$/$1/;
+			}
+			if ($line =~ /^\s+:Size\s/) {
+				$bank_size=$line;
+				$bank_size=~s/^.*:Size\s+(.*)$/$1/;
+				if ($bank_size =~ /^0x\d/) {
+					$bank_size=~s/^(.*)00000$/$1/;
+					$bank_size=hex($bank_size);
+				} else {
+					$bank_size=$segment_size / $meg;
+				}
+			}
+		}
+		if ($line =~ /^\s+memory-module\s/ && $flag_mem_bank) {
+			$flag_mem_mod=1;	# Start of memory module section
+		}
+		if ($flag_mem_mod) {
+			if ($line =~ /^\s+:nac\s/) {
+				$mem_dimm=$line;
+				$mem_dimm=~s/^.*:nac\s+(.*)$/$1/;
+			}
+		}
+		if ($line =~ /^\s+BR\d\s/) {
+			$flag_mem_chan=0;
+			$mem_branch=$line;
+			$mem_branch=~s/^.*(BR\d).*/$1/;
+		}
+		if ($line =~ /^\s+CH\d\s/) {
+			$flag_mem_chan=1;	# Start of memory channel section
+			$mem_channel=$line;
+			$mem_channel=~s/^.*(CH\d).*/$1/;
+		}
+		if ($flag_mem_chan && $line =~ /^\s+D\d\s/) {
+			$flag_mem_mod=1;	# Start of memory module section
+			$picl_foundmemory=1;
+			$mem_dimm=$line;
+			$mem_dimm=~s/^.*(D\d).*/$1/;
+		}
+		if ($flag_mem_mod) {
+			if ($line =~ /\s+:ModelName\s/) {
+				$mem_model=$line;
+				$mem_model=~s/^.*:ModelName\s+(.*)$/$1/;
+			}
+			if ($line =~ /\s+:MfgName\s/) {
+				$mem_mfg=$line;
+				$mem_mfg=~s/^.*:MfgName\s+(.*)$/$1/;
+			}
+		}
+	}
+}
+
+sub multicore_cpu_cnt {
+	$arg=shift;
+#	return if ($isX86);
+	&check_psrinfo;
+	print &runtime . "in multicore_cpu_cnt, cputype=$cputype\n" if ($DEBUG);
+	if ($cputype =~ /UltraSPARC-T1\b/) {
+		$cputype="UltraSPARC-T1";
+		# Count 4-thread (4, 6, or 8 core) Niagara CPUs as 1 CPU
+		if ($npcpu && ! $have_ldm_data) {
+			$ncpu=$npcpu;
+		} else {
+			# Assume each CPU has 8 cores max (32 threads)
+			$ncpu=int(($threadcnt - 1) / 32) + 1;
+		}
+		if (defined($arg)) {
+			$cnt=$ncpu;
+			return;
+		}
+		$cputype=$threadcnt / 4 / $ncpu . "-core quad-thread $cputype";
+		$cpucnt{"$cputype $cpufreq"}=$ncpu;
+	} elsif ($cputype =~ /UltraSPARC-T2\+/) {
+		$cputype="UltraSPARC-T2+";
+		# Count 8-thread (4, 6, or 8 core) Victoria Falls CPUs as 1 CPU
+		if ($npcpu && ! $have_ldm_data) {
+			$ncpu=$npcpu;
+		} else {
+			# Assume there are no single-cpu systems with the US-T2+
+			$ncpu=2;
+			# Valid configurations:
+			#  T5140,T5240: 2 x 4-core (64 threads), 2 x 6-core
+			#    (96 threads), 2 x 8-core (128 threads)
+			#  T5440: 4 x 4-core (128 threads), 4 x 8-core
+			#    (256 threads)
+			if ($ultra eq "T5140" || $ultra eq "T5240") {
+				$ncpu=2;
+			} elsif ($ultra eq "T5440") {
+				$ncpu=4;
+			}
+		}
+		if (defined($arg)) {
+			$cnt=$ncpu;
+			return;
+		}
+		$cputype=$threadcnt / 8 / $ncpu . "-core 8-thread $cputype";
+		$cpucnt{"$cputype $cpufreq"}=$ncpu;
+	} elsif ($cputype =~ /UltraSPARC-T2\b/) {
+		$cputype="UltraSPARC-T2";
+		# Count 8-thread (4 or 8 core) Niagara-II CPUs as 1 CPU
+		if ($npcpu && ! $have_ldm_data) {
+			$ncpu=$npcpu;
+		} else {
+			# Assume each CPU has 8 cores max (64 threads)
+			$ncpu=int(($threadcnt - 1) / 64) + 1;
+		}
+		if (defined($arg)) {
+			$cnt=$ncpu;
+			return;
+		}
+		$cputype=$threadcnt / 8 / $ncpu . "-core 8-thread $cputype";
+		$cpucnt{"$cputype $cpufreq"}=$ncpu;
+	} elsif ($cputype =~ /SPARC64-VI\b/) {
+		# Count dual-core dual-thread Olympus-C SPARC64-VI CPUs as 1 CPU
+		$ncpu=$threadcnt / 4;
+		$cputype="dual-core dual-thread SPARC64-VI";
+		if (defined($arg)) {
+			$cnt=$ncpu;
+			return;
+		}
+		$cpucnt{"$cputype $cpufreq"}=$ncpu;
+	} elsif ($cputype =~ /SPARC64-VII\b/) {
+		# Count quad-core dual-thread Jupiter SPARC64-VII CPUs as 1 CPU
+		$ncpu=$threadcnt / 8;
+		$cputype="quad-core dual-thread SPARC64-VII";
+		if (defined($arg)) {
+			$cnt=$ncpu;
+			return;
+		}
+		$cpucnt{"$cputype $cpufreq"}=$ncpu;
+	} elsif ($cputype =~ /SPARC64-VII\+\b/) {
+		# Count quad-core dual-thread Jupiter+ SPARC64-VII+ CPUs as 1 CPU
+		$ncpu=$threadcnt / 8;
+		$cputype="quad-core dual-thread SPARC64-VII+";
+		if (defined($arg)) {
+			$cnt=$ncpu;
+			return;
+		}
+		$cpucnt{"$cputype $cpufreq"}=$ncpu;
+	} elsif ($cputype =~ /SPARC64-VIII\b/) {
+		# Guess on the Venus SPARC64-VIII name ???
+		# Count 8-core dual-thread Venus SPARC64-VIII CPUs as 1 CPU
+		$ncpu=$threadcnt / 16;
+		$cputype="8-core dual-thread SPARC64-VIII";
+		if (defined($arg)) {
+			$cnt=$ncpu;
+			return;
+		}
+		$cpucnt{"$cputype $cpufreq"}=$ncpu;
+	}
+}
+
+sub x86multicorecnt {
+	$_=shift;
+	return if (! defined($_));
+	$corecnt=2 if (/\bDual.Core/i || /\bTwo.Core/i);
+	$corecnt=3 if (/\bTriple.Core/i || /\bThree.Core/i);
+	$corecnt=4 if (/\bQuad.Core/i || /\bFour.Core/i);
+	$corecnt=6 if (/\bHex.Core/i || /\bSix.Core/i);
+	$corecnt=8 if (/\bOctal.Core/i || /\bEight.Core/i);
+	$corecnt=12 if (/\bTwelve.Core/i);
+}
+
+sub checkX86 {
+	$isX86=1 if ($model eq "i86pc" || $machine eq "i86pc" || $model eq "i86xpv" || $machine eq "i86xpv");
+	# Use CPU count from prtdiag (ndcpu) and thread count from psrinfo to
+	# get core count per cpu for i86xpv
+	$use_psrinfo_data=2 if ($model eq "i86xpv" || $machine eq "i86xpv");
+}
+
+sub check_psrinfo {
+	return if ($psrinfo_checked);
+	print &runtime . "in check_psrinfo, ndcpu=$ndcpu, npcpu=$npcpu, nvcpu=$nvcpu\n" if ($DEBUG);
+	$psrinfo_checked=1;
+	return if ($nvcpu);
+	return if (! $use_psrinfo_data);
+	if ($filename) {
+		$npcpu=0;
+		foreach $line (@psrinfo) {
+			$line=&dos2unix($line);
+			# May have "psrinfo -p -v" output in regression test
+			# file that has number of virtual CPUs. Assumes all
+			# CPUs are same.
+			if ($line =~ /.+ \d+ virtual processor/) {
+				$nvcpu=&mychomp($line);
+				$nvcpu=~s/.+ processor has //;
+				$nvcpu=~s/ virtual processor.+//;
+				$corecnt=$nvcpu if ($nvcpu >= 2);
+				$corecnt /= 2 if ($hyperthread);
+				if ($use_psrinfo_data == 2 && $ndcpu > 1) {
+					$corecnt /= $ndcpu;
+					$npcpu=$ndcpu;
+				} else {
+					$npcpu++;
+				}
+				$cpucntfrom="psrinfo" if ($cpucntfrom ne "ldm");
+				$cpucntflag="0";	# reset flag
+			}
+		}
+	} elsif ($psrinfo_cmd ne "") {
+		$ncpu=&mychomp(`$psrinfo_cmd | wc -l`);	# physical & virtual CPUs
+		$ncpu=~s/\s+//;
+		$npcpu=&mychomp(`$psrinfo_cmd -p 2>/dev/null`);	# physical CPUs
+		if ($npcpu eq "") {
+			$npcpu=$ncpu;
+			$nvcpu=1;
+		} else {
+			# Find number of virtual CPUs
+			@tmp=`$psrinfo_cmd -p -v`;
+			foreach $line (@tmp) {
+				$line=&dos2unix($line);
+				if ($line =~ /.+ \d+ virtual processor/) {
+					$nvcpu=&mychomp($line);
+					$nvcpu=~s/.+ processor has //;
+					$nvcpu=~s/ virtual processor.+//;
+					$corecnt=$nvcpu if ($nvcpu >= 2);
+					$corecnt /= 2 if ($hyperthread);
+					if ($use_psrinfo_data == 2 && $ndcpu > 1) {
+						$corecnt /= $ndcpu;
+						$npcpu=$ndcpu;
+					}
+				}
+			}
+			if ($cputype eq "x86") {
+				if ($tmp[2] =~ /.+Hz/ || $tmp[2] =~ /\bAMD .* Processor /) {
+					$cputype=&mychomp($tmp[2]);
+					$cputype=~s/ CPU / /;
+					$cputype=~s/\s+/ /g;
+					$cputype=~s/^\s+//;
+					$cputype=~s/\s+$//;
+					$cputype_psrinfo=$cputype;
+				}
+			}
+		}
+		@tmp=`$psrinfo_cmd -v`;
+		if ($tmp[2] =~ /MHz/) {
+			$cpufreq=&mychomp($tmp[2]);
+			$cpufreq=~s/.+ operates at //;
+			$cpufreq=~s/ MHz.+//;
+		}
+		$cpucntfrom="psrinfo" if ($cpucntfrom ne "ldm");
+		$have_psrinfo_data=1;
+	}
+}
+
+sub get_mfg {
+	$_=shift;
+	return "" if (! defined($_));
+	s/Manufacturer: *//ig;
+	if (/JEDEC ID:/) {
+		s/JEDEC ID://g;
+		s/ //g;
+	}
+	s/^\s*//;
+	s/^0x//;
+	return "" if (/^$/ || /^\r$/ || /^FFFFFFFFFFFF/i || /Manufacturer\d/i);
+	# Based on JEDEC JEP106-X
+	return "AMD" if (/^01/ || /^8001/);
+	return "AMI" if (/^02/ || /^8002/);
+	return "Fujitsu" if (/^04/ || /^8004/ || /Fujitsu/i);
+	return "Elpida" if (/^0500/ || /Elpida/i); # Hack
+	return "Hitachi" if (/^07/ || /^8007/ || /Hitachi/i);
+	return "Inmos" if (/^08/ || /^8008/ || /Inmos/i);
+	return "Intersil" if (/^0B/i || /^800B/i || /Intersil/i);
+	return "Mostek" if (/^0D/i || /^800D/i || /Mostek/i);
+	return "Freescale (Motorola)" if (/^0E/i || /^800E/i || /Freescale/i || /Motorola/i);
+	return "NEC" if (/^10/ || /^8010/);
+	return "Conexant (Rockwell)" if (/^13/ || /^8013/ || /Conexant/i || /Rockwell/i);
+	return "NXP (Philips Semi, Signetics)" if (/^15/ || /^8015/ || /Philips Semi/i || /Signetics/i);
+	return "Synertek" if (/^16/ || /^8016/ || /Synertek/i);
+	return "Xicor" if (/^19/ || /^8019/ || /Xicor/i);
+	return "Zilog" if (/^1A/i || /^801A/i || /Zilog/i);
+	return "Mitsubishi" if (/^1C/i || /^801C/i || /Mitsubishi/i);
+	return "Micron Technology" if (/^2C/i || /^802C/i || /Micron Technology/i);
+	return "ProMOS/Mosel Vitelic" if (/^40/ || /^8040/ || /ProMOS/i || /Mosel Vitelic/i);
+	return "Goldenram" if (/^6A/i || /^806A/i || /Goldenram/i);
+	return "Nanya Technology" if (/^7F7F7F0B/i || /^830B/i || /Nanya/i); # Hack
+	return "Fairchild" if (/^83/ || /^8083/ || /Fairchild/i);
+	return "Numonyx (Intel)" if (/^89/ || /^8089/ || /Numonyx/i || /Intel/i);
+	return "DATARAM" if (/^91/ || /^8091/);
+	return "Toshiba" if (/^98/ || /^8098/ || /Toshiba/i);
+	return "IBM" if (/^A4/i || /^80A4/);
+	return "Hynix Semiconductor (Hyundai Electronics)" if (/^AD/i || /^80AD/i || /Hynix/i || /Hyundai/i);
+	return "Infineon (Siemens)" if (/^C1/i || /^80C1/ || /^7F7F7F7F7F51/i || /Infineon/i || /Siemens/i);
+	return "Samsung" if (/^CE/i || /^80CE/i || /Samsung/i);
+	return "Winbond Electronics" if (/^DE/i || /^80DE/i || /Winbond/i);
+	return "LG Semiconductor (Goldstar)" if (/^E0/i || /^80E0/i || /LG Semi/i || /Goldstar/i);
+	return "Micron CMS" if (/^7F45/i || /Micron CMS/i);
+	return "Kingston" if (/^7F98/i || /Kingston/i);
+	return "Ramaxel Technology" if (/^7F7F7F7F43/i || /Ramaxel/i); # Hack
+	return &mychomp($_);
+}
+
+# See if CPUs and memory modules are listed in "ipmitool fru" output
+sub check_ipmitool {
+	print &runtime . "in check_ipmitool\n" if ($DEBUG);
+	return if ("$ipmitool_cmd" eq "" && $filename eq "");
+	$cputype2="";
+	$mem_mfg="";
+	$mem_model="";
+	foreach $line (@ipmitool) {
+		$line=&dos2unix($line);
+		$line=&mychomp($line);
+		if ($line =~ /^ *$/) {
+			# store cpu and memory modules in hash
+			if ($flag_cpu) {
+				if ($cputype2 ne "") {
+					$cputype2=~s/DUAL.CORE/Dual Core/;
+					$cputype2=~s/QUAD.CORE/Quad Core/;
+					$cputype2=~s/-Core/ Core/;
+					$cputype2=~s/OPTERON\(TM\) PROCESSOR/Opteron\(tm\) Processor/;
+					$ipmi_cputype="$cputype2";
+					$ipmi_cpu_cnt++;
+				}
+			}
+			if ($flag_mem && $socket ne "") {
+				$ipmi_mem{"$socket"}=("$mem_mfg$mem_model" ne "") ? "$mem_mfg $mem_model" : "";
+			}
+			$flag_cpu=0;	# End of CPU section
+			$flag_mem=0;	# End of memory section
+			$cputype2="";
+			$mem_mfg="";
+			$mem_model="";
+		}
+		if ($line =~ / cpu\d+\.vpd / || $line =~ / p\d+\.fru /) {
+			$flag_cpu=1;	# Start of CPU section
+			$socket=$line;
+			$socket=~s/^.*: +(.*\S)\.[vf][pr][du].*$/$1/;
+		}
+		if ($flag_cpu && ($line =~ / Product Name /)) {
+			$cputype2=$line;
+			$cputype2=~s/^.*: +(.*\S) *$/$1/;
+			&x86multicorecnt($cputype2);
+		}
+		if ($line =~ / cpu\d+\.mem\d+\.vpd / || $line =~ / p\d+\.d\d+\.fru /) {
+			$flag_mem=1;	# Start of memory module section
+			$socket=$line;
+			$socket=~s/^.*: +(.*\S)\.[vf][pr][du].*$/$1/;
+		}
+		if ($flag_mem && ($line =~ / Product Manufacturer /)) {
+			$mem_mfg=$line;
+			$mem_mfg=~s/^.*: +(.*\S) *$/$1/;
+			$mem_mfg=&get_mfg($mem_mfg);
+		}
+		if ($flag_mem && ($line =~ / Product Name /)) {
+			$mem_model=$line;
+			$mem_model=~s/^.*: +(.*\S) *$/$1/;
+			$mem_model=~s/ ADDRESS\/COMMAND//;
+			$mem_model=~s/PARITY/Parity/;
+		}
+	}
+	# Is ipmitool CPU count better?
+#	print &runtime . "ipmi_cpu_cnt=$ipmi_cpu_cnt\n" if ($DEBUG);
+	if ($ncpu != $ipmi_cpu_cnt && $npcpu == 0 && $ipmi_cpu_cnt != 0) {
+		$ncpu=$ipmi_cpu_cnt;
+		$npcpu=$ipmi_cpu_cnt;
+		$cpucntfrom="ipmitool";
+		$cpucnt{"$cputype $cpufreq"}=$ipmi_cpu_cnt;
+	}
+	# Did ipmitool find a better cputype?
+	if (&lc($cputype) ne &lc($ipmi_cputype) && $ipmi_cputype ne "") {
+		# rewrite %cpucnt $cputype with cputype
+		while (($cf,$cnt)=each(%cpucnt)) {
+			$cf=~/^(.*) (\d+)$/;
+			$cpufreq=$2;
+			delete $cpucnt{"$1 $2"};
+		}
+		$cpucnt{"$ipmi_cputype $cpufreq"}=$ipmi_cpu_cnt;
+	}
+}
+
+# Check for logical domains
+sub check_for_LDOM {
+	print &runtime . "in check_for_LDOM\n" if ($DEBUG);
+	# Handle control domain on UltraSPARC-T1 and UltraSPARC-T2 systems
+	if ($ldm_cmd ne "" && $have_ldm_data == 0) {
+		@ldm=&run("$ldm_cmd list-devices -a -p");
+		$have_ldm_data=1;
+	}
+	if ($have_ldm_data) {
+		$threadcnt=0;
+		foreach $line (@ldm) {
+			$line=&dos2unix($line);
+			$line=&mychomp($line);
+			&check_LDOM;
+			# Count virtual CPUs
+			$threadcnt++ if ($line =~ /^\|pid=\d/);
+			if ($line =~ /^\|pa=\d.*\|size=\d/) {
+				# Add up total memory found in ldm output
+				$sz=$line;
+				$sz=~s/^.*size=(\d*).*/$1/;
+				$ldm_memory += $sz;
+			}
+		}
+		if ($threadcnt > 0) {
+			# VCPUs found in ldm output
+			delete $cpucnt{"$cputype $cpufreq"};
+			print &runtime . "ldm: ncpu=$ncpu, npcpu=$npcpu\n" if ($DEBUG);
+			$cpucntfrom="ldm";
+			&multicore_cpu_cnt;
+		}
+		$installed_memory=$ldm_memory / $meg if ($ldm_memory > 0);
+	}
+	# Handle guest domains on UltraSPARC-T1 and UltraSPARC-T2 systems
+	if ($cfgadm_cmd ne "" && $have_cfgadm_data == 0) {
+		@cfgadm=&run("$cfgadm_cmd -al");
+		$have_cfgadm_data=1;
+	}
+	if ($have_cfgadm_data) {
+		foreach $line (@cfgadm) {
+			$line=&dos2unix($line);
+			if ($line =~ /Configuration administration not supported/) {
+				# Hack: Assume cfgadm fails on guest domains.
+				&found_guest_LDOM;
+				exit 1;
+			}
+		}
+	}
+}
+
+sub check_LDOM {
+	if ($line =~ /Authorization failed/i || $line =~ /Connection refused/i) {
+		if ($uid eq "0") {
+			# No LDOMs configured
+			$ldm_cmd="";
+			$have_ldm_data=0;
+		} else {
+			&found_guest_LDOM("");
+			print "ERROR: ldm: $line\n";
+			print "    This user does not have permission to run '/opt/SUNWldm/bin/ldm'.\n";
+			print "    Run memconf as a privileged user like root on the control domain.\n";
+			exit 1;
+		}
+	}
+}
+
+sub found_guest_LDOM {
+	# Rewrite cputype and cpucnt hash since I don't
+	# know how many cores the guest domain host has
+	if ($cputype =~ /UltraSPARC-T1\b/) {
+		delete $cpucnt{"$cputype $cpufreq"};
+		$cputype="UltraSPARC-T1";
+		$cpucnt{"$cputype $cpufreq"}=1;
+	} elsif ($cputype =~ /UltraSPARC-T2\+/) {
+		delete $cpucnt{"$cputype $cpufreq"};
+		$cputype="UltraSPARC-T2+";
+		$cpucnt{"$cputype $cpufreq"}=1;
+	} elsif ($cputype =~ /UltraSPARC-T2\b/) {
+		delete $cpucnt{"$cputype $cpufreq"};
+		$cputype="UltraSPARC-T2";
+		$cpucnt{"$cputype $cpufreq"}=1;
+	}
+	&show_header;
+	$arg=shift;
+	return if (defined($arg));
+	print "ERROR: Guest Logical Domain (LDOM) detected.\n";
+	print "    Run memconf on the control domain. It will not work on guest domains.\n";
+}
+
+sub check_smbios {
+	print &runtime . "in check_smbios\n" if ($DEBUG);
+	$flag_smb_memdevice=0;
+	foreach $line (@smbios) {
+		$line=&dos2unix($line);
+		$line=&mychomp($line);
+		if ($line =~ /SMB_TYPE_MEMDEVICE/) {
+			$mem_mfg="";
+			$socket="";
+			$pn="";
+			$simmsize=0;
+			$memtype="";
+			$formfactor="";
+			$flag_smb_memdevice=1;
+		}
+		if ($flag_smb_memdevice) {
+			if ($line =~ /Manufacturer:/) {
+				$mem_mfg=$line;
+				$mem_mfg=~s/^ *Manufacturer: *//g;
+				$mem_mfg=&get_mfg($mem_mfg);
+				$mem_mfg .= " " if ($mem_mfg ne "");
+			}
+			if ($line =~ /Location Tag:/) {
+				$socket=$line;
+				$socket=~s/^ *Location Tag: *//g;
+			}
+			if ($line =~ /Part Number:/) {
+				$pn=$line;
+				$pn=~s/^ *Part Number: *//g;
+				$pn=~s/\s*$//g;
+				$pn="" if ($pn =~ /^0xFF/ || $pn =~ /PartNum\d/i);
+				$pn .= " " if ($pn ne "");
+			}
+			if ($line =~ /Size:/) {
+				$simmsize=$line;
+				$simmsize=~s/^ *Size: //g;
+				$simmsize=~s/ bytes//g;
+				$simmsize=0 if ($simmsize =~ /Not Populated/);
+				$simmsize /= $meg;
+			}
+			if ($line =~ /Memory Type:/) {
+				$memtype=$line;
+				$memtype=~s/^ *Memory Type:.*\((.*)\).*/$1/g;
+				$memtype="" if ($memtype =~ /Memory Type:/);
+				$memtype .= " " if ($formfactor ne "");
+			}
+			if ($line =~ /Form Factor:/) {
+				$formfactor=$line;
+				$formfactor=~s/^ *Form Factor:.*\((.*)\).*/$1/g;
+				$formfactor="" if ($formfactor =~ /Form Factor:/);
+			}
+			if ($line =~ /Bank Locator:/ || $line =~ /^ *ID *SIZE *TYPE/) {
+				$bank_label=$line;
+				$bank_label=~s/^ *Bank Locator: *//g;
+				$bank_label="BANK $bank_label" if ($bank_label =~ /^.$/);
+				$bank_label="" if ($bank_label eq $socket);
+				$bank_label=", $bank_label" if ($bank_label ne "");
+				$flag_smb_memdevice=0;
+				if ($socket ne "") {
+					$smbios_mem{"$socket"}=($simmsize) ? "$mem_mfg${simmsize}MB $pn$memtype$formfactor$bank_label" : "";
+					$sockets_used="";
+				}
+			}
+		}
+	}
+	$tmp=scalar(keys %smbios_mem);
+	if (defined($tmp)) {
+		if ($tmp > 0) {
+			&show_header;
+			for (sort keys %smbios_mem) {
+				if ($smbios_mem{$_} eq "") {
+					$sockets_empty .= "," if ($sockets_empty ne "");
+					$sockets_empty .= " $_";
+				} else {
+					print "socket $_: $smbios_mem{$_}\n";
+				}
+			}
+			$totmem=$installed_memory;
+			&print_empty_memory("memory sockets");
+			&finish;
+			exit;
+		}
+	}
+}
+
+sub found_empty_bank {
+	$empty_banks .= "," if ($empty_banks ne "");
+	$boardslot_mem=~s/[: ]//g;
+	$empty_banks .= " Board $boardslot_mem @_";
+}
+
+sub print_empty_memory {
+	$s=shift;
+	print "empty $s:";
+	if ($sockets_empty ne "") {
+		print "$sockets_empty\n";
+	} else {
+		print " None\n";
+	}
+}
+
+sub found_nvsimm_bank {
+	$nvsimm_banks .= ", Board $boardslot_mem @_";
+}
+
+sub recommend_prtdiag_patch {
+	# Sun BugID 4664349
+	print "         This may be corrected by installing ";
+	if ($osrel eq "5.9") {
+		print "Sun patch 113221-03 or 118558-06 or later.\n";
+	} elsif ($osrel eq "5.8") {
+		print "Sun patch 109873-26 or 111792-11 or later.\n";
+	} else {
+		print "a Sun patch on this system.\n";
+	}
+}
+
+sub numerically {
+	$a <=> $b;
+}
+
+sub lc {
+	$s=shift;
+	return "" if (! defined($s));
+	$s=~tr/[A-Z]/[a-z]/;
+	return $s;
+}
+
+sub dos2unix {
+	# Convert "CR LF" or "CR" to "LF"
+	$s=shift;
+	$s=~s/\r\n/\n/g;
+	$s=~s/\r/\n/g;
+	return $s;
+}
+
+sub convert_freq {
+	($freqx)=@_;
+	if ($isX86) {
+		$freq=int(hex("0x$freqx") / 10000 + 0.5);
+	} else {
+		if ($freqx =~ /'/) {
+			$freqpack=$freqx;
+			$freqpack=~s/'//g;
+			@frequnpack=unpack("C*",$freqpack);
+			$freqx="";
+			foreach $field (@frequnpack) {
+				$freqx.=sprintf("%02lx", $field);
+			}
+			if ($#frequnpack < 3) {
+				$freqx.="00";
+			}
+		}
+		$freq=int(hex("0x$freqx") / 1000000 + 0.5);
+	}
+	return $freq;
+}
+
+sub mychomp {
+	# Used instead of chop or chomp for compatibility with perl4 and perl5
+	($a)=@_;
+	return "" if (! defined($a));
+	$a=~s,$/$,,g;
+	return $a;
+}
+
+sub run {
+	print &runtime . "Running @_\n" if ($DEBUG);
+	`@_ 2>&1`;
+}
+
+sub runtime {
+	return "DEBUG time " . (time - $starttime) . ": ";
+}
+
+sub read_prtdiag_bank_table {
+	# prtdiag Bank Table
+	$simmsize=substr($line,33,5);
+	if ($simmsize =~ /\dGB/) {
+		$simmsize=~s/GB//g;
+		$simmsize *= 1024;
+	} else {
+		$simmsize=~s/MB//g;
+	}
+	if (($prtdiag_banktable_has_dimms == 0) || ($line =~ /  0$/)) {
+		# Interleave Way = 0
+		$simmsize /= 2;
+	}
+	if (($prtdiag_banktable_has_dimms == 1) && ($line =~ / 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15/)) {
+		# Interleave Way = 16
+		$simmsize *= 4;
+		$intcnt=1;
+		push(@simmsizesfound, "$simmsize");
+	} elsif ($intcnt > 0) {
+		# Interleave Way = 16
+		$intcnt++;
+		$simmsize *= 4;
+	}
+	$a=substr($line,9,2);
+	$a=~s/ //g;
+	$b=substr($line,23,1);
+	$sz=&show_memory_label($simmsize);
+	$grpsize{$a,$b}=$sz;
+	$memlength=length($line);
+	if ($memlength > 49) {
+		$grpinterleave{$a,$b}=substr($line,49,40) if (substr($line,49,40) ne "");
+	}
+	if ($intcnt == 0) {
+		push(@simmsizesfound, "$simmsize");
+		$simmsize=&show_memory_label($simmsize) . "  ";
+		if ($prtdiag_banktable_has_dimms == 0) {
+			$newline=substr($line,0,38) . "   2x" . substr($simmsize,0,5);
+			$newline .= substr($line,42,20) if ($memlength > 38);
+		}
+	}
+	$intcnt=1 if (($prtdiag_banktable_has_dimms == 1) && ($line =~ / 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15/));
+	$intcnt=0 if ($intcnt == 16);
+}
+
+sub read_prtdiag_memory_segment_table {
+	# prtdiag Memory Segment Table
+	$simmsize=($line =~ /\dGB/) ? substr($line,19,1) * 512 : substr($line,19,3) / 2;
+	$grp=substr($line,-2,2);
+	$grp=~s/ //g;
+	if ($grp eq "-") {
+		$grp=$grpcnt;
+		$grpcnt++;
+	}
+	push(@simmsizesfound, "$simmsize");
+	$simmsize=&show_memory_label($simmsize);
+	$grpsize{0,$grp}=$simmsize;
+}
+
+$motherboard="";
+$realmodel="";
+$manufacturer="";
+$i=0;
+# May not have had permission to run prtconf, so see if prtdiag works
+&check_for_prtdiag;
+if ($diagbanner) {
+	$diagbanner=~s/\s+$//;
+	if ($filename eq "" || $SUNWexplo) {
+		$model=$platform;
+		$model=~s/SUNW,//g;
+	} else {
+		$model=$diagbanner;
+		$model=~s/ /-/g;
+		# define $model for systems with $diagbanner != $model
+		$model="Ultra-4" if ($diagbanner =~ /Sun.Enterprise.450\b/);
+		$model="Sun-Blade-1000" if ($diagbanner =~ /Sun.Blade.1000\b/);
+		$model="Sun-Fire-280R" if ($diagbanner =~ /Sun.Fire.280R\b/);
+		$model="Netra t1" if ($diagbanner =~ /Netra.t1\b/);
+		$model="Netra-T4" if ($diagbanner =~ /Netra.T4\b/);
+		$model="Sun-Blade-100" if ($diagbanner =~ /Sun.Blade.1[05]0\b/);
+		$model="Netra-T12" if ($diagbanner =~ /Sun.Fire.V1280\b/);
+		$model="Serverblade1" if ($diagbanner =~ /Serverblade1\b/);
+		$model="Ultra-Enterprise" if ($diagbanner =~ /Enterprise.E?[3-6][05]00\b/ || $diagbanner =~ /Enterprise.10000\b/);
+	}
+	# Check model and banner here in case we don't have prtconf data
+	&check_model;
+	&check_banner;
+}
+foreach $line (@config) {
+	$line=&dos2unix($line);
+	$line=&mychomp($line);
+	$config_permission=1 if ($line =~ /Node /);
+	if ($line =~ /Permission denied/i) {
+		$permission_error="ERROR: $line" if ($diagbanner eq "" || ! $prtdiag_has_mem);
+	}
+	&hpux_cstm if ($line =~ /cstm.*selclass qualifier /);	# for HP-UX regression test file
+	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;
+		&check_banner;
+	}
+	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,JavaEngine1/ ||
+	    $line =~ /SUNW,Ultra.*[Ee]ngine/ || $line =~ /SUNW,Ultra.*Netra*/ ||
+	    $line =~ /SUNW,Premier-24/ || $line =~ /SUNW,UltraAX-/ ||
+	    $line =~ /SUNW,Netra/ || $line =~ /\s+name:.*SUNW,Sun-/ ||
+	    $line =~ /SUNW,Grover/ || $line =~ /SUNW,Enchilada/ ||
+	    $line =~ /SUNW,Serverblade1/ || $line =~ /SUNW,Enterprise/ ||
+	    $line =~ /SUNW,A[0-9]/ || $line =~ /SUNW,T[0-9]/ ||
+	    $line =~ /\s+name:.*'i86pc'/ || $line =~ /^i86pc/ || $line =~ /^i86xpv/ ||
+	    $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/ || $line =~ /\s+name:.*RDI,/) &&
+	    $line !~ /\s+:Description\s+/ && $line !~ /\s+:*whoami:*\s+/ &&
+	    $line !~ /\s+:*impl-arch-name:*\s+/ && $line !~ /Sun 4x Quad/i) {
+		$model=$line;
+		$model=~s/\s+name:\s+//;
+		$model=~s/\s+model:\s+//;
+		$model=~s/\s+:binding-name\s+//;
+		$model=~s/\s+:PlatformName\s+//;
+		$model=~s/'//g;
+		$model=~s/\s+$//;
+		&check_model;
+		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;
+		}
+	}
+	if ($line =~ /\sname:\s+'memory'/) {
+		$j=$i - 2;
+		if ($config[$j] =~ /\sreg:\s/) {
+			$gotmemory=&mychomp($config[$j]);
+		} elsif ($config[$j - 1] =~ /\sreg:\s/) {
+			$gotmemory=&mychomp($config[$j - 1]);
+		} elsif ($config[$j + 1] =~ /\sreg:\s/) {
+			$gotmemory=&mychomp($config[$j + 1]);
+		}
+	}
+	if ($line =~ /\sdevice_type:\s+'memory-bank'/) {
+		$j=$i - 3;
+		if ($config[$j] =~ /\sreg:\s/ && $config[$j] !~ /.00000000$/) {
+			$config[$j]=~s/\s+reg:\s+//;
+			$gotmemory=($gotmemory) ? "$gotmemory.$config[$j]" : $config[$j];
+			$gotmemory=&mychomp($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];
+	#		}
+	#		$gotmodule=&mychomp($gotmodule);
+	#		$config[$i - 2]=~s/\s+reg:\s+//;
+	#		@module=split(/\./, $config[$i - 2]);
+	#		$gotmodule .= ".$module[3]";
+	#		$gotmodule=&mychomp($gotmodule);
+	#		$config[$i + 1]=~s/\s+name:\s+//;
+	#		$config[$i + 1] =~ y/[a-z]/[A-Z]/;
+	#		$gotmodule .= ".$config[$i + 1]";
+	#		$gotmodule=&mychomp($gotmodule);
+	#		$gotmodule=~s/'//g;
+	#	}
+	#}
+	if ($line =~ /\ssimm-use:\s+/) {
+		# DIMM usage on Fujitsu GP7000
+		$gotmodule=&mychomp($config[$i]);
+		$gotmodule=~s/\s+simm-use:\s+//;
+		$slotname0="SLOT0" if ($banner =~ /GP7000\b/);
+	}
+	if ($line =~ /\scomponent-name:\s+'.*CPU.*'/) {
+		# CPUs on Fujitsu GP7000F and PrimePower systems
+		$slotname=$line;
+		$slotname=~s/\s+component-name:\s+//;
+		$slotname=~s/'//g;
+		$gotcpunames=($gotcpunames) ? "$gotcpunames $slotname" : $slotname;
+		$boardname=$slotname;
+		$boardname=~s/-.*//g;
+		if ($boardname ne $slotname) {
+			if ($gotcpuboards) {
+				$gotcpuboards .= " $boardname" if ($gotcpuboards !~ /\b$boardname\b/);
+			} else {
+				$gotcpuboards=$boardname;
+			}
+		}
+	}
+	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;
+			$slotname=&mychomp($slotname);
+			$gotmodulenames=($gotmodulenames) ? "$gotmodulenames.$slotname" : $slotname;
+			$slotname0=$slotname if (! $slotname0);
+			$config[$i - 1]=~s/\s+reg:\s+//;
+			@module=split(/\./, $config[$i - 1]);
+			$gotmodulenames .= ".$module[1]";
+			$gotmodulenames=&mychomp($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=&mychomp($config[$i - 2]);
+		} elsif ($config[$i - 3] =~ /\sreg:\s/) {
+			$sx_line=&mychomp($config[$i - 3]);
+		}
+		@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=&mychomp($config[$i + 1]);
+		} elsif ($config[$i + 2] =~ /\sreg:\s/) {
+			$nv_line=&mychomp($config[$i + 2]);
+		}
+		@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=&mychomp($config[$i + 1]);
+		} elsif ($config[$i + 2] =~ /\sreg:\s/) {
+			$nv_line=&mychomp($config[$i + 2]);
+		}
+		@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)) {
+		$installed_memory=$line;
+		$installed_memory=~s/^.*size: *(\d*[GM]*[Bb]*).*/$1/;
+		if ($installed_memory =~ /GB/) {
+			$installed_memory=~s/GB//g;
+			$installed_memory *= 1024;
+		} else {
+			$installed_memory=~s/MB//ig;
+		}
+		# prtconf sometimes reports incorrect total memory
+		# 32MB is minimum for sun4u machines
+		if (($installed_memory < 32) && ($machine eq "sun4u")) {
+			$prtconf_warn="Incorrect total installed memory (${installed_memory}MB) was reported by prtconf.";
+			$installed_memory=0;
+		}
+		# Round up some odd-number total memory values
+		$installed_memory++ if (sprintf("%3d", ($installed_memory + 1) / 2 ) * 2 != $installed_memory && $installed_memory >= 1023);
+		$BSD=0;	# prtconf and prtdiag only have this output
+		$config_cmd="/usr/sbin/prtconf -vp" if ($config_cmd !~ /prtconf/);
+		$config_command="prtconf";
+	}
+	if (($sysfreq == 0) && ($freq > 0)) {
+		$sysfreq=$freq;
+		$freq=0;
+	}
+	if ($devtype eq "cpu" || $line =~ /compatible: 'FJSV,SPARC64-/) {
+		if ($cputype =~ /SPARC64-/) {
+			$cpufreq=$freq if ($freq > $cpufreq);
+		} else {
+			$cpufreq=$freq;
+		}
+		$cpuline=$line;
+		$j=$i - 3;
+		while ($cpuline !~ /^$/ && $cpuline !~ /^\r$/) {
+			if ($cpuline =~ /clock-frequency:/) {
+				@freq_line=split(' ', $cpuline);
+				$cpufreq=&convert_freq($freq_line[1]);
+				$sysfreq=$freq if (($sysfreq == 0) && ($freq > 0));
+			} elsif (($cpuline =~ /\sname:\s/ || $cpuline =~ /\scompatible:\s/) && $cpuline !~ /Sun 4/ && $cpuline !~ /SPARCstation/ && $cpuline !~ /CompuAdd/ && $cpuline !~ /'cpu/ && $cpuline !~ /'core'/) {
+				$cputype=&mychomp($cpuline);
+				$cputype=~s/\s+name:\s+//;
+				$cputype=~s/\s+compatible:\s+//;
+				$cputype=~s/'//g;
+				$cputype=~s/SUNW,//g;
+				$cputype=~s/FJSV,//g;
+				$cputype=~s/ .*//g;
+			}
+			$j++;
+			$cpuline=($config[$j]) ? $config[$j] : "";
+		}
+		$freq=0;
+		$cpufreq=$sysfreq if ($sysfreq >= $cpufreq);
+		print &runtime . "Checking cputype=$cputype, ncpu=$ncpu\n" if ($DEBUG);
+		if ($cputype eq "") {
+			$cputype=$machine;
+			$cputype="SPARC" if ($cputype =~ /^sun4/ || $model =~ /Sun 4\//);
+			@bannerarr=split(/\s/, $banner);
+			foreach $field (@bannerarr) {
+				if ($field =~ /SPARC/ && $field !~ /SPARCstation/) {
+					$cputype=$field;
+				} elsif ($field =~ /390Z5/) {
+					$field="TI,TMS$field" if ($field =~ /^390Z5/);
+					$cputype=($cpufreq > 70) ? "SuperSPARC-II $field" : "SuperSPARC $field";
+				} elsif ($field =~ /RT62[56]/) {
+					$cputype="hyperSPARC $field";
+					$machine="sun4m";
+				}
+			}
+			$cputype=~s/[()]//g;
+		} elsif ($cputype =~ /MB86907/) {
+			$cputype="TurboSPARC-II $cputype";
+		} elsif ($cputype =~ /MB86904/ || $cputype =~ /390S10/) {
+			$cputype=($cpufreq > 70) ? "microSPARC-II $cputype" : "microSPARC $cputype";
+		} elsif ($cputype =~ /,RT62[56]/) {
+			$cputype="hyperSPARC $cputype";
+			$machine="sun4m";
+		} elsif ($cputype =~ /UltraSPARC-IV/) {
+			# Count dual-core US-IV & US-IV+ as 1 CPU
+			$cputype="dual-core $cputype";
+			$machine="sun4u";
+			$threadcnt++;
+			$threadcnt=0 if ($threadcnt == 2);
+			# CPU count is better from prtdiag than psrinfo for
+			# US-IV & US-IV+ dual-core processors.
+			$use_psrinfo_data=0;
+		} elsif ($cputype =~ /UltraSPARC-T1\b/) {
+			# Count 4-thread (4, 6, or 8 core) Niagara CPUs as 1 CPU
+			$machine="sun4v";
+			$threadcnt++;
+			# Number of cores & CPUs counted outside this loop below
+		} elsif ($cputype =~ /UltraSPARC-T2\+/) {
+			# Count 8-thread (4, 6, or 8 core) Victoria Falls CPUs as 1 CPU
+			$machine="sun4v";
+			$threadcnt++;
+			# Number of cores & CPUs counted outside this loop below
+		} elsif ($cputype =~ /UltraSPARC-T2\b/) {
+			# Count 8-thread (4 or 8 core) Niagara-II CPUs as 1 CPU
+			$machine="sun4v";
+			$threadcnt++;
+			# Number of cores & CPUs counted outside this loop below
+		} elsif ($cputype =~ /SPARC64-VI\b/ && $devtype eq "cpu") {
+			# Count dual-core dual-thread as 1 CPU
+			$machine="sun4u";
+			$threadcnt++;
+			# Number of cores & CPUs counted outside this loop below
+		} elsif ($cputype =~ /SPARC64-VII\b/ && $devtype eq "cpu") {
+			# Count quad-core dual-thread as 1 CPU
+			$machine="sun4u";
+			$threadcnt++;
+			# Number of cores & CPUs counted outside this loop below
+		} elsif ($cputype =~ /SPARC64-VII\+\b/ && $devtype eq "cpu") {
+			# Count quad-core dual-thread as 1 CPU
+			$machine="sun4u";
+			$threadcnt++;
+			# Number of cores & CPUs counted outside this loop below
+		} elsif ($cputype eq "SPARC64-VIII" && $devtype eq "cpu") {
+			# Guess on the Venus SPARC64-VIII name ???
+			# Count 8-core dual-thread as 1 CPU
+			$machine="sun4u";
+			$threadcnt++;
+			# Number of cores & CPUs counted outside this loop below
+		}
+		if ($threadcnt == 0 && $devtype eq "cpu") {
+			$ncpu++;
+			$cpucnt{"$cputype $cpufreq"}++;
+			$cpucntfrom="prtconf";
+		}
+		$devtype="";
+	}
+	if ($line =~ /device_type:/) {
+		@dev_line=split(/\'/, $line);
+		$devtype=$dev_line[1];
+	}
+	if ($line =~ /clock-frequency:/) {
+		@freq_line=split(' ', $line);
+		$freq=&convert_freq($freq_line[1]);
+	}
+	if ($line =~ /\sversion:\s+'OBP/ && $romver eq "") {
+		$romver=$line;
+		$romver=~s/\s+version:\s+//;
+		$romver=~s/'//g;
+		@romverarr=split(/\s/, $romver);
+		$romvernum=$romverarr[1];
+	}
+	if ($line =~ /compatible:\s+'sun4.'/ && $osrel eq "") {
+		@compatible_line=split(/\'/, $line);
+		$machine=$compatible_line[1];
+	}
+	if ($line =~ /value='.*AMD Opteron/ && $cputype eq "x86") {
+		$cputype_prtconf=$line;
+		$cputype_prtconf=~s/.*='//;
+		$cputype_prtconf=~s/'//g;
+	}
+	$i++;
+}
+&multicore_cpu_cnt;
+if ($osrel eq "") {
+	if ($BSD) {
+		$osrel="4.X";
+		$config_cmd="/usr/etc/devinfo -pv";
+		$config_command="devinfo";
+	} else {
+		$osrel="5.X";
+		$solaris="2.X";
+		$config_cmd="/usr/sbin/prtconf -vp";
+		$config_command="prtconf";
+	}
+}
+#$sysfreq=$freq if ($sysfreq == 0 && $freq > 0);
+#$cpufreq=$sysfreq if ($sysfreq > $cpufreq && $ncpu > 0);
+
+@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, Enterprise 420R or Netra t 1400/1405" 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/ || $motherboard =~ /375-3015/);
+$ultra="Netra T1 200" if ($banner =~ /Netra T1 200\b/ || $motherboard =~ /375-0132/);
+$ultra="Sun Fire V100" if ($banner =~ /Sun Fire V100\b/);
+# Sun Fire V120/Netra 120 can use motherboard 375-0132 like Netra T1 200 above
+$ultra="Sun Fire V120" if ($banner =~ /Sun Fire V120\b/);
+$ultra="Netra 120" if ($banner =~ /Netra 120\b/);
+if ($ultra =~ /AX/) {
+	if ($banner !~ /SPARCengine.*Ultra/) {
+		$tmp="(SPARCengine Ultra $ultra)";
+		$bannermore=($bannermore) ? "$tmp $bannermore" : $tmp;
+	}
+}
+if ($model =~ /Ultra-5_10\b/) {
+	if ($banner =~ /\bVoyagerIIi\b/) {
+		# Tadpole Voyager IIi has 8 DIMM slots, but prtconf reports
+		# it as an Ultra 5/10
+		$model="VoyagerIIi";
+		$ultra="VoyagerIIi";
+	}
+}
+$ultra="Sun Blade 150" if ($banner =~ /Sun Blade 150\b/ || $diagbanner =~ /Sun Blade 150\b/);
+$ultra="UP-20" if ($banner =~ /\bUP-20\b/); # untested ???
+$ultra="UP-520IIi" if ($motherboard =~ /501-4559/ && $banner =~ /\b520IIi\b/);
+
+$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";
+	$need_obp2=1 if ($model eq "Sun 4/40" || $model eq "Sun 4/60" || $model eq "Sun 4/65");
+}
+
+&check_prtdiag if ($isX86);
+if ($isX86) {
+	# Round up Solaris x86 memory (may have 128MB or more reserved)
+	$installed_memory=&roundup_memory($installed_memory);
+}
+
+
+if ($gotmemory eq "" && $ultra eq 0 && $machine ne "sun4d" && $boardfound_mem eq 0) {
+	&check_prtdiag;
+	&show_header;
+	if ($installed_memory) {
+		print "total memory = ";
+		&show_memory($installed_memory);
+	}
+	print "$permission_error\n" if ($permission_error);
+	print "$prtconf_warn\n" if ($prtconf_warn ne "");
+	if ($prtdiag_failed == 2) {
+		# non-global zone (container)
+		print "WARNING: More details can be reported if memconf is run in the global zone.\n";
+	} else {
+		print "ERROR: no 'memory' line in \"$config_cmd\" output.\n" if ($model ne "i86pc");
+		if (! $config_permission && $machine =~ /sun4/ && $prtconf_warn eq "") {
+			print "       This user ";
+			if ($permission_error) {
+				print "does";
+			} else {
+				print "may";
+			}
+			print " not have permission to run $config_command.\n";
+			print "       Try running memconf as a privileged user like root.\n" if ($uid ne "0");
+		} 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";
+		} elsif ($prtconf_warn =~ /openprom/) {
+			print "       Please correct the problem with the openprom device.\n" if ($model ne "i86pc");
+		} else {
+			print "       This is an unsupported system by memconf.\n" if ($model ne "i86pc");
+		}
+	}
+	&show_supported if ($machine !~ /sun4/);
+	$exitstatus=1;
+	&mailmaintainer if ($verbose == 3);
+	exit $exitstatus;
+}
+
+$gotmemory=~s/\s+reg:\s+//;
+$gotmemory=~s/'//g;
+@slots=split(/\./, $gotmemory);
+$slot=1;
+if ($manufacturer ne "" && $manufacturer !~ /^Sun\b/ && $ultra !~ /SPARC Enterprise M[34589]000 Server/) {
+	$bannermore=($bannermore) ? "$bannermore clone" : "clone" if ($manufacturer ne "Force Computers");
+	$modelmore=($modelmore) ? "$modelmore clone" : "clone";
+	$clone=1;
+}
+# 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.
+	$devname="OffCampus";
+	$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)
+	$devname="NodeWarrior";
+	$untested=0;
+	$simmrangex="00000010";
+	$simmbanks=4;
+	$simmsperbank=1;
+	@simmsizes=(4,16);
+	@socketstr=("U0407".."U0410");
+	@bankstr=("MEM1".."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
+	$devname="Phoenix";
+	$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..3,0..3,0..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)
+	$devname="Hobbes";
+	$untested=0;
+	$simmrangex="00000010";
+	$simmbanks=4;
+	$simmsperbank=1;
+	@simmsizes=(4,16);
+	@socketstr=("U0310","U0309","U0308","U0307");
+	@bankstr=(0..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
+	if ($model eq "Sun 4/60") {
+		$devname="Campus";
+		$untested=0;
+	} else {
+		$devname="CampusB, Campus+";
+		$untested=1;
+	}
+	$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..3,0..3,0..3,0..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)
+	$devname="Calvin";
+	$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..3,0..3,0..3,0..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)
+	# Possibly accepts 8MB SIMMs in bank 1
+	#   501-2289 (1MB), 501-2433 (2MB) on Classic-X only
+	#   501-1991 (4MB), 501-2059 (16MB)
+	#   36-bit 72-pin 60ns Fast Page Mode
+	$devname="Sunergy";
+	if ($model =~ /SPARCclassic-X/) {
+		$untested=1;
+		@simmsizes=(1,2,4,8,16,32);
+	} else {
+		$untested=0;
+		@simmsizes=(4,8,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
+	$devname="Gypsy";
+	$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 "JavaEngine1") {
+	# Accepts 8MB, 16MB and 32MB EDO DIMMs
+	$devname="Bali";
+	$untested=0;
+	$memtype="DIMM";
+	$simmrangex="00000020";
+	$simmbanks=2;
+	$simmsperbank=1;
+	@simmsizes=(8,16,32);
+	@socketstr=("J0501","J0502");
+	@bankstr=(0,1);
+}
+if ($model eq "SPARCstation-4") {
+	# Accepts 8MB and 32MB SIMMs on motherboard
+	#   501-2470 (8MB), 501-2471 (32MB)
+	#   168-pin 60ns Fast Page Mode
+	$devname="Perigee";
+	$untested=0;
+	$simmrangex="00000020";
+	$simmbanks=5;
+	$simmsperbank=1;
+	@simmsizes=(8,32);
+	@socketstr=("J0301".."J0305");
+	@bankstr=(0..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
+	$devname="Aurora" if ($model eq "SPARCstation-5");
+	$untested=0;
+	$simmrangex="00000020";
+	$simmbanks=8;
+	$simmsperbank=1;
+	@simmsizes=(8,32);
+	@socketstr=("J0300".."J0303","J0400".."J0403");
+	@bankstr=(0..7);
+	if ($banner =~ /TWINstation 5G\b/) {
+		$simmbanks=6;
+		@socketstr=(0..5);
+	}
+	if ($model ne "SPARCstation-5") {
+		$bannermore="SPARCstation 5 clone";
+		$modelmore="SPARCstation 5 clone";
+	}
+}
+if ($model =~ /SPARCstation-10/ || $model eq "Premier-24" || $motherboard eq "SUNW,S10,501-2365") {
+	# 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.
+	$devname="Campus2" if ($model =~ /SPARCstation-10/);
+	$devname="Campus2+" if ($model =~ /Premier-24/);
+	$untested=0;
+	$simmrangex="00000040";
+	$simmbanks=8;
+	$simmsperbank=1;
+	$romvernum="2.X" if ($romvernum eq "");
+	$romverminor=0 if ($romverminor eq "" || $romverminor eq "X");
+	@simmsizes=(($romvermajor eq 2) && ($romverminor >= 19)) ? (16,32,64) : (16,64);
+	@socketstr=("J0201","J0203","J0302","J0304","J0202","J0301","J0303","J0305");
+	@orderstr=("1st","3rd","4th","2nd","8th","6th","5th","7th");
+	@bankstr=(0..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
+	$devname="Kodiak" if ($model eq "SPARCstation-20");
+	$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..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..7);
+		@orderstr=("");
+	}
+}
+if ($model eq "SPARCsystem-600" || $model =~ /Sun.4.600/) {
+	# Accepts 4MB or 16MB SIMMs on motherboard
+	# Accepts 1MB, 4MB or 16MB SIMMs on VME expansion cards
+	# A memory bank is 16 SIMMs of the same size and speed
+	# Minimum memory configuration is 16 SIMMs in Bank 0 on the motherboard
+	# Motherboard Bank 1 must be populated before adding expansion cards
+	# Up to two VME memory expansion cards can be added
+	# Use 4MB SIMM 501-1739-01 or 501-2460-01
+	# Use 16MB SIMM 501-2060-01
+	$devname="Galaxy";
+	$untested=0;
+	$simmrangex="00000100";
+	$simmbanks=2; # 2 banks on CPU board, 4 banks on each expansion cards
+	$simmsperbank=16;
+	@simmsizes=(4,16);
+	# Sockets, banks and bytes on motherboard
+	@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");
+	@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);
+	@banksstr=("Motherboard bank 0","Motherboard bank 1");
+	@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");
+	# Sockets, banks and bytes on VME expansion cards
+	@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_exp=("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_exp=("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
+	$devname="Neutron (Ultra 1), Electron (Ultra 1E), Dublin (Ultra 150)";
+	$familypn="A11 (Ultra 1), A12 (Ultra 1E)";
+	$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
+	$devname="Pulsar";
+	$familypn="A14";
+	$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) {
+	# Also Netra t 1100
+	# 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.
+	$devname="Quark (Ultra-30), Lightweight (Netra t 1100)";
+	$familypn="A16 (Ultra-30), N01 (Netra t 1100)";
+	$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
+	$devname="Darwin/Otter (Ultra 5), Darwin/SeaLion (Ultra 10)";
+	$familypn="A21 (Ultra 5), A22 (Ultra 10)";
+	$untested=0;
+	$simmrangex="00000100";
+	$simmbanks=2;
+	$simmsperbank=2;
+	@simmsizes=(16,32,64,128,256);
+	@socketstr=("DIMM1".."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
+	if ($model eq "Ultra-60" || $ultra eq 60) {
+		$devname="Deuterium (Ultra-60), Lightweight 2 (Netra t112x)";
+		$familypn="A23 (Ultra-60), N02/N04 (Netra t1120), N03 (Netra t1125)";
+	}
+	if ($ultra eq "220R") {
+		$devname="Razor";
+		$familypn="A34";
+	}
+	$untested=0;
+	$simmrangex="00000200";
+	$simmbanks=6;	# Count the skipped address range
+	$simmsperbank=4;
+	@simmsizes=(16,32,64,128);
+	@socketstr=("U0701".."U0704","U0801".."U0804","?","?","?","?","?","?","?","?","U0901".."U0904","U1001".."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" || $model eq "Netra t1" || $banner =~ /Ultra CP 1500\b/ || $ultra eq "CP1500" || $ultra eq "Netra ct400" || $ultra eq "Netra ct410" || $ultra eq "Netra ct800" || $ultra eq "Netra ct810") {
+	# Netra t1 100/105, Netra ct400/410/800/810, SPARCengine CP1500
+	#  Accepts 1 or 2 64MB, 128MB, 256MB or 512MB mezzanine memory cards
+	# Netra ct400/800 use the Netra ct1600 DC chassis (N08)
+	# Netra ct410/810 use the Netra ct1600 AC chassis (N09)
+	# Also used in Sun Fire 12K & Sun Fire 15K
+	# 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
+	if ($banner =~ /Netra t1\b/ || $ultra eq "Netra t1" || $model eq "Netra t1") {
+		$devname="Flyweight (Model 100), Flapjack (Model 105)";
+		$familypn="N07 (Model 100), N06 (Model 105)";
+	}
+	$devname="Tonga" if ($ultra eq "Netra ct400");
+	$devname="Monte Carlo" if ($ultra eq "Netra ct800");
+	$familypn="N08" if ($ultra =~ /Netra ct[48]00/);
+	if ($ultra =~ /Netra ct[48]10/) {
+		$devname="Makaha";
+		$familypn="N09";
+	}
+	$untested=0;
+	$untested=1 if ($ultra eq "Netra ct400" || $ultra =~ /Netra ct[48]10/);
+	$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
+	#
+	# Motherboard, address 0x00000000-0x03ffffff
+	# Upper board, address 0x08000000-0xffffffff, 0x28000000-0x2fffffff
+	# Lower board, address 0x10000000-0x17ffffff, 0x30000000-0x37ffffff
+	$devname="Casanova";
+	$untested=0;
+	$memtype="memory card";
+	$sockettype="";
+	$simmrangex="00000080";
+	$simmbanks=3;
+	$simmsperbank=1;
+	@simmsizes=(64,128,256,512);
+	@socketstr=("motherboard","additional mezzanine board","base mezzanine board");
+	@orderstr=("","upper board","lower 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
+	$devname="Photon";
+	$untested=0;		# unsure if socket order is correct
+	$simmrangex="00000200";
+	$simmbanks=2;
+	$simmsperbank=4;
+	@simmsizes=(8,16,32,64,128);
+	@socketstr=("U0301".."U0304","U0401".."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
+	#$devname="unknown";
+	$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
+	$devname="Crichton";
+	$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".."U0704","U0801".."U0804","U0901".."U0904","U1001".."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
+	$devname="Topdog";
+	$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
+	$devname="Birdsnest Lite";
+	$untested=0;
+	$simmrangex="00000200";
+	$simmbanks=4;
+	$simmsperbank=1;
+	@simmsizes=(64,128,256,512);
+	@socketstr=("DIMM0".."DIMM3");
+	@bankstr=(0,0,1,1);
+}
+if ($ultra eq "Netra X1" || $ultra eq "Sun Fire V100") {
+	# Netra X1, Sun Fire V100, UltraAX-i2
+	# Accepts up to 4 128MB or 256MB PC133 DIMMs for 1GB maximum
+	# 500MHz model also accepts up to 4 512MB PC133 DIMMs for 2GB maximum
+	# Have seen slower models also work with 512MB DIMMs for 2GB maximum
+	# Sun Fire V100 is 500MHz only
+	# The memory installation sequence is Slot 3, 2, 1, and 0.
+	# Each DIMM slot addresses 512MB with 400MHz UltraSPARC IIe
+	# Each DIMM slot addresses 1GB with >= 550MHz UltraSPARC IIe
+	# Memory is SDRAM PC133 CL=3 ECC registered
+	# When equal size DIMMs are installed, the lowest slot number is
+	#  mapped to the lowest address range.
+	# When mixed size DIMMs are installed, the slot number with the largest
+	#  size DIMM is mapped to the lowest address range.
+	$devname="Flapjack-lite" if ($ultra eq "Netra X1");
+	$devname="Flapjack-liteCD500" if ($ultra eq "Sun Fire V100");
+	$familypn="N19";
+	$untested=0;
+	$simmrangex=($cpufreq > 520) ? "00000400" : "00000200";
+	$simmbanks=4;
+	$simmsperbank=1;
+	@simmsizes=(128,256,512);
+	@socketstr=("DIMM0".."DIMM3");
+}
+if ($ultra eq "Netra T1 200" || $ultra eq "Sun Fire V120" || $ultra eq "Netra 120") {
+	# Netra T1 200, Sun Fire V120, Netra 120, UltraAX-i2
+	# Accepts up to 4 256MB, 512MB or 1GB PC133 DIMMs for 4GB maximum
+	# Sun Fire V120 is 550MHz or 650MHz
+	# Netra 120 is same platform as Sun Fire V120, but is 650MHz only
+	# Memory is SDRAM PC133 CL=3 ECC registered
+	# The minimum memory requirement is one DIMM in Slot 0
+	# The memory installation sequence is Slot 0, 1, 2, 3
+	# Each DIMM slot addresses 512MB of memory with 500MHz UltraSPARC IIe
+	# Each DIMM slot addresses 1GB of memory with >= 550MHz UltraSPARC IIe
+	# When equal size DIMMs are installed, the lowest slot number is
+	#  mapped to the lowest address range.
+	# When mixed size DIMMs are installed, the slot number with the largest
+	#  size DIMM is mapped to the lowest address range.
+	if ($ultra eq "Netra T1 200") {
+		$devname="Flapjack2";
+		$familypn="N21";
+	}
+	if ($ultra eq "Sun Fire V120" || $ultra eq "Netra 120") {
+		$devname="Flapjack2+";
+		$familypn="N25";
+	}
+	$untested=0;
+	$simmrangex=($cpufreq > 520) ? "00000400" : "00000200";
+	$simmbanks=4;
+	$simmsperbank=1;
+	@simmsizes=(256,512,1024);
+	@socketstr=("DIMM0".."DIMM3");
+}
+if ($banner =~ /\bCP2000\b/ || $ultra =~ /^CP2[01]\d0$/) {
+	# Netra CP2000/CP2100 Series CompactPCI Boards (UltraSPARC-IIe)
+	# CP2040 (SUNW,UltraSPARC-IIe-NetraCT-40) supports 256MB, 512MB, and 1GB
+	# CP2060 (SUNW,UltraSPARC-IIe-NetraCT-60) has non-expandable 512MB
+	# CP2080 (SUNW,UltraSPARCengine_CP-80) supports 256MB, 512MB, and 1GB
+	# CP2140 (SUNW,UltraSPARCengine_CP-40) supports 512MB, 1GB and 2GB
+	# CP2160 (SUNW,UltraSPARCengine_CP-60) supports 1GB and 2GB
+	# 256MB Single-Wide module 375-3024
+	# 512MB Single-Wide module 375-3025
+	# 1GB Double-Wide module 375-3026
+	# 1GB Single-Wide module 375-3125
+	# 2GB Double-Wide module 375-3114
+	# Max number of stacked memory boards is two
+	# Install double wide memory first, then single wide memory
+	$devname="Othello" if ($ultra eq "CP2040");
+	$devname="Sputnik Bluesky" if ($ultra eq "CP2060");
+	$devname="Sputnik Orion" if ($ultra eq "CP2080");
+	$devname="Othello+" if ($ultra eq "CP2140");
+	$devname="Sputnik+" if ($ultra eq "CP2160");
+	$untested=1;
+	$untested=0 if ($ultra eq "CP2140");
+	if ($ultra eq "CP2060") {
+		$memtype="embedded memory";
+		$sockettype="";
+		$simmrangex="00001000";
+		$simmbanks=1;
+		$simmsperbank=1;
+		@simmsizes=(512);
+	} else {
+		$memtype="memory card";
+		$sockettype="";
+		$simmrangex="00001000";
+		$simmbanks=2;
+		$simmsperbank=1;
+		if ($ultra eq "CP2140") {
+			@simmsizes=(512,1024,2048);
+		} elsif ($ultra eq "CP2160") {
+			@simmsizes=(1024,2048);
+		} else {
+			@simmsizes=(256,512,1024);
+		}
+		@socketstr=("base mezzanine board","additional mezzanine board");
+		@orderstr=("lower board","upper board");
+		$sortslots=0;
+	}
+}
+
+#
+# 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-/ || $model =~ /SPARC CPCI-/) {
+	# Force Computers, http://www.forcecomputers.com
+	# model format: "SPARC CPU-5V/64-110-X" for 64MB w/ 110MHz CPU
+	$untested=1;
+	$untested=0 if ($model =~ /SPARC CPU-/);
+	if ($model =~ /\/${installed_memory}-/) {
+		$totmem=$installed_memory;
+		push(@simmsizesfound, "$totmem");
+		$buffer="motherboard contains ${totmem}MB on-board memory\n";
+		&finish;
+	}
+}
+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 =~ /Tadpole/) {
+	# Tadpole RDI, http://www.tadpole.com
+	$untested=1;
+	$untested=0 if ($banner =~ /Tadpole S3/);
+	$untested=0 if ($model =~ /PowerLite-170/);
+	$untested=0 if ($banner =~ /\bVoyagerIIi\b/);
+	$untested=0 if ($banner =~ /\bCycleQUAD\b/);
+	if ($ultra eq "UP-20") {
+		# Cycle UP-20 to upgrade SPARCstation 5/20 motherboards
+		# Accepts 16MB, 32MB and 64MB SIMMs from SPARCstation 20
+		# Install SIMMs in pairs to form each bank
+		$untested=1;
+		$simmrangex="00000040";
+		$simmbanks=4;
+		$simmsperbank=2;
+		@simmsizes=(16,32,64);
+		@bankstr=(0,0,1,1,2,2,3,3);
+	}
+	if ($ultra eq "UP-520IIi") {
+		# Cycle UP-520-IIi to upgrade SPARCstation 5/20 motherboards
+		# Accepts 8MB, 16MB, 32MB, 64MB, 128MB and 256MB DIMMs
+		$untested=0;
+		$simmrangex="00000200";
+		$simmbanks=4;
+		$simmsperbank=2;
+		@simmsizes=(8,16,32,64,128,256);
+		@socketstr=("J301".."J304");
+		@bankstr=(0,0,1,1);
+	}
+	if ($banner =~ /\bSPARCLE\b/) {
+		# UltraSPARC-IIe at 440MHz, 500MHz, or 650MHz
+		# 256MB - 2GB ECC SDRAM, two slots, PC-133, 144-pin SO-DIMMs
+		$untested=0;
+		$simmbanks=2;
+		$simmsperbank=1;
+		@simmsizes=(128,256,512,1024);
+		@socketstr=("DIMM0","DIMM1");
+		$memtype="SO-DIMM";
+	}
+}
+if ($manufacturer eq "Auspex") {
+	# Auspex Netserver, http://www.auspex.com
+	$memtype="Memory Module";
+	$untested=1;
+	$untested=0 if ($model eq "SPARC Processor");
+	if ($osrel =~ /^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[ABLH]/);
+	if ($banner =~ /GP7000\b/ || $banner =~ /GP7000F\b/) {
+		$untested=0;
+		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".."SLOT9","SLOT10".."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".."SLOTA9","SLOTA10".."SLOTA15","SLOTB0".."SLOTB9","SLOTB10".."SLOTB15");
+		}
+	}
+	if ($banner =~ /PRIMEPOWER *100N?\b/) {
+		# PRIMEPOWER100N, 1U rack mount
+		# Up to 2GB of memory
+		# 4 memory module slots
+		# 100MHz SDRAM ECC
+		# Mount memory modules in order from memory module slot 0
+		$untested=1;
+	}
+	if ($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;
+		foreach $brd ("00","01") {
+			if ($gotcpuboards =~ /\b$brd\b/) {
+				if ($gotmodulenames =~ /${brd}-SLOT[0-9]/) {
+					foreach $i (0..15) {
+						push(@socketstr, ("${brd}-SLOT$i"));
+					}
+				}
+			}
+		}
+	}
+	if ($banner =~ /PRIMEPOWER *800\b/ || $banner =~ /PRIMEPOWER *1000\b/ || $banner =~ /PRIMEPOWER *2000\b/) {
+		# 1-4 SPARC64 GP CPUs / system board
+		# PrimePower 800 can have 4 system boards per system
+		# PrimePower 1000 can have 8 system boards per system
+		# PrimePower 2000 can have 32 system boards per system
+		# Minimum Memory: 1GB / system board, 2GB / system
+		# Maximum Memory: 8GB / system board, 32GB / system
+		# 32 or 16 memory modules per system board, installed in quads
+		$untested=0;
+		@simmsizes=(128,256,512);
+		foreach $brd ("00".."77") {
+			if ($gotcpuboards =~ /\b$brd\b/) {
+				if ($gotmodulenames =~ /${brd}-SLOT#[AB][0-9]/) {
+					foreach $j ("A","B") {
+						foreach $i ("00".."03","10".."13","20".."23","30".."33") {
+							push(@socketstr, ("${brd}-SLOT#$j$i"));
+						}
+					}
+				}
+			}
+		}
+	}
+	if ($banner =~ /PRIMEPOWER *250\b/) {
+		# Pedestal, 2U or 4U rack mount
+		# 1-2 SPARC64 V processors at 1.1GHz, 1.32GHz, 1.87GHz
+		# 1GB-16GB DDR-SDRAM memory with ECC, 2-way, 8 DIMM slots
+		$untested=0;
+		@simmsizes=(256,512,1024,2048);
+		foreach $i ("00".."07") {
+			push(@socketstr, ("SLOT#$i"));
+		}
+	}
+	if ($banner =~ /PRIMEPOWER *450\b/) {
+		# Pedestal, 4U or 7U rack mount
+		# 1-4 SPARC64 V processors at 1.1GHz, 1.32GHz, 1.87GHz
+		# 1GB-32GB DDR-SDRAM memory with ECC, 4-way, 16 DIMM slots
+		$untested=0;
+		@simmsizes=(256,512,1024,2048);
+		foreach $i ("00".."15") {
+			push(@socketstr, ("SLOT#$i"));
+		}
+	}
+	if ($banner =~ /PRIMEPOWER *[68]50\b/) {
+		# PrimePower 650: 2-8 SPARC64 V processors at 1.1GHz or faster
+		#   2GB-64GB memory, 8-way, 1 system board, 8U rack mount
+		# PrimePower 850: 4-16 SPARC64 V processors at 1.1GHz or faster
+		#   2GB-128GB memory, 16-way, 2 system boards, 16U rack mount
+		# Uses DDR SDRAM ECC memory in 256MB, 512MB and 1GB sizes
+		# Each system board has 32 memory module slots, layed out
+		# with 4 DIMMs on 8 DIMM riser cards.
+		$untested=0;
+		@simmsizes=(256,512,1024,2048);
+		foreach $brd ("C0S00","C0S01") {
+			if ($gotcpuboards =~ /\b$brd\b/) {
+				if ($gotmodulenames =~ /${brd}-SLOT#[A-D][0-9]/) {
+					foreach $j ("A".."D") {
+						foreach $i ("00".."07") {
+							push(@socketstr, ("${brd}-SLOT#$j$i"));
+						}
+					}
+				}
+			}
+		}
+	}
+	if ($banner =~ /PRIMEPOWER *HPC2500\b/ || $banner =~ /PRIMEPOWER *900\b/ || $banner =~ /PRIMEPOWER *[12]500\b/) {
+		# SPARC64 V CPUs at 1.3GHz or 1.89GHz
+		# PRIMEPOWER HPC2500 / 2500
+		#   2-8 CPUs / system board, 64-128 / system
+		#   Up to 16 8-way system boards / system
+		#   Up to 1024GB DDR-SDRAM memory with ECC, 128-way
+		#   Minimum Memory: 4GB / system board, 4GB / system
+		#   Maximum Memory: 64GB / system board, 1024GB / system
+		# PRIMEPOWER 900
+		#   17U rack mount
+		#   1-8 CPUs / system board, 1-16 / system
+		#   Up to 2 8-way system boards / system
+		#   Up to 128GB DDR-SDRAM memory with ECC, 8-way
+		#   Minimum Memory: 2GB / system board, 2GB / system
+		#   Maximum Memory: 64GB / system board, 128GB / system
+		# PRIMEPOWER 1500
+		#   1-8 CPUs / system board, 1-32 / system
+		#   Up to 4 8-way system boards / system
+		#   Up to 256GB DDR-SDRAM memory with ECC, 8-way
+		#   Minimum Memory: 2GB / system board, 2GB / system
+		#   Maximum Memory: 64GB / system board, 256GB / system
+		$untested=0;
+		@simmsizes=(256,512,1024,2048);
+		foreach $cab ("C0S","C1S") {
+			foreach $brd ("00".."07") {
+				if ($gotcpuboards =~ /\b$cab$brd\b/) {
+					foreach $j ("A","B") {
+						foreach $i ("00".."15") {
+							push(@socketstr, ("$cab${brd}-SLOT#$j$i"));
+						}
+					}
+				}
+			}
+		}
+	}
+}
+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..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..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;
+	if ($banner =~ /COMPstation_U60_Series/) {
+		$simmrangex="00000200"; # use "00000400" with 256MB DIMMs
+		$simmbanks=6;	# Count the skipped address range
+	} else {
+		$simmrangex="00000400";
+		$simmbanks=4;
+	}
+	$simmsperbank=4;
+	@simmsizes=(16,32,64,128,256);
+}
+if ($model =~ /\bVoyagerIIi\b/) {
+	# Tadpole Voyager IIi has 8 DIMM slots, but otherwise appears
+	# to look like an Ultra 5. It allows 256MB to 1GB of memory.
+	$untested=0;
+	$simmrangex="00000100";
+	$simmbanks=4;
+	$simmsperbank=2;
+	@simmsizes=(16,32,64,128);
+	@socketstr=("DIMM1","DIMM2","DIMM5","DIMM6","DIMM3","DIMM4","DIMM7","DIMM8");
+	$sortslots=1;
+}
+
+#
+# systems below may have memory information available in prtdiag output
+#
+if ($model eq "SPARCserver-1000" || $model eq "SPARCcenter-2000") {
+	$devname="Scorpion" if ($model eq "SPARCserver-1000");
+	$devname="Scorpion+" if ($banner =~ "1000E");
+	$devname="Dragon" if ($model eq "SPARCcenter-2000");
+	$devname="Dragon+" if ($banner =~ "2000E");
+	# Accepts 8MB and 32MB SIMMs on motherboard
+	$untested=0;
+	@simmsizes=(8,32);
+	$prtdiag_has_mem=1;
+	&check_prtdiag;
+	if ($boardfound_mem) {
+		foreach $line (@boards_mem) {
+			if ($line =~ /Board/) {
+				$boardslot_mem=substr($line,5,1);
+				$simmsize=int substr($line,46,3) / 4;
+				if ($simmsize == 0) {
+					&found_empty_bank("Group 0");
+				} elsif ($simmsize == 1) {
+					&found_nvsimm_bank("Group 0");
+				} else {
+					push(@simmsizesfound, "$simmsize");
+				}
+				$simmsize=int substr($line,54,3) / 4;
+				if ($simmsize == 0) {
+					&found_empty_bank("Group 1");
+				} elsif ($simmsize == 1) {
+					&found_nvsimm_bank("Group 1");
+				} else {
+					push(@simmsizesfound, "$simmsize");
+				}
+				$simmsize=int substr($line,62,3) / 4;
+				if ($simmsize == 0) {
+					&found_empty_bank("Group 2");
+				} elsif ($simmsize == 1) {
+					&found_nvsimm_bank("Group 2");
+				} else {
+					push(@simmsizesfound, "$simmsize");
+				}
+				$simmsize=int substr($line,70,3) / 4;
+				if ($simmsize == 0) {
+					&found_empty_bank("Group 3");
+				} elsif ($simmsize == 1) {
+					&found_nvsimm_bank("Group 3");
+				} else {
+					push(@simmsizesfound, "$simmsize");
+				}
+			}
+		}
+		&show_header;
+		print @boards_mem;
+		print "Each memory unit group is comprised of 4 SIMMs\n";
+		$empty_banks=" None" if ($empty_banks eq "");
+		print "empty memory groups:$empty_banks\n";
+	} else {
+		&show_header;
+		$recognized=0;
+	}
+	$totmem=$installed_memory;
+	&finish;
+	exit;
+}
+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
+	# 16MB DIMMs are not supported and may cause correctable ECC errors
+	#   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
+	$devname="Tazmo (Tazmax/Tazmin)";
+	$familypn="A20, A25";
+	$familypn="N05" if ($model eq "Ultra-4FT" || $ultra eq "Netra ft1800");
+	$untested=0;
+	$simmrangex="00000400";
+	$simmbanks=4;
+	$simmsperbank=4;
+	@simmsizes=(16,32,64,128,256);
+	@socketstr=("U1901".."U1904","U1801".."U1804","U1701".."U1704","U1601".."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
+	$devname="Javelin";
+	$familypn="A26";
+	$untested=0;
+	$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" || $ultra eq "Netra t140x") {
+	# Accepts 64MB or 256MB DIMMs
+	#   501-5691 (64MB), 501-4743 501-5936 501-6005 501-6056 (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. The recommended
+	# installation sequence is Bank 0,2,1,3. 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. Memory is 2-way
+	# interleaved when the same size DIMMs are installed in Banks 0 and 1.
+	# Memory is 4-way interleaved when the same size DIMMs are installed in
+	# Banks 0, 1, 2 and 3.
+	#
+	# prtconf does not reliably show the size of DIMMs in each slot when
+	# 1GB of total memory is installed. It shows this:
+	#  reg: 00000000.00000000.00000000.40000000
+	# A system with 1GB is reported as having 4 256MB DIMMs, but may be
+	# using 16 64MB DIMMs in a 4-way interleave.
+	# This is an issue that Sun could fix in the OBP.
+	# It is broken with OBP 3.33.0 2003/10/07 (patch 109082-06) and older.
+	# prtfru (Solaris 8 and later) also does not work.
+	#
+	# Sun shipped U80 1GB configurations w/ 4x256MB DIMMs
+	# Sun shipped U80 256MB configurations w/ 4x64MB DIMMs
+	# Sun shipped E420R with 501-5936 256MB DIMMs
+	# 64MB DIMM 501-2480 and 128MB DIMM 501-3136 are not supported.
+	# 16MB and 32MB DIMMs are not sold for the Ultra 80.
+	#
+	$devname="Quasar (U80), Quahog (420R), Lightweight 3 (Netra t140x)";
+	$familypn="A27 (U80), A33 (420R), N14 (Netra t1405), N15 (Netra t1400)";
+	if ($ultra eq 80) {
+		$devname="Quasar";
+		$familypn="A27";
+	}
+	if ($ultra eq "420R") {
+		$devname="Quahog";
+		$familypn="A33";
+	}
+	if ($ultra eq "Netra t140x") {
+		$devname="Lightweight 3";
+		$familypn="N14 (Netra t1405), N15 (Netra t1400)";
+	}
+	$untested=0;
+	$simmrangex="00000400";
+	$simmbanks=4;
+	$simmsperbank=4;
+	@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 ($ultra eq "Sun Blade 1000" || $ultra eq "Sun Blade 2000" || $ultra eq "Sun Fire 280R" || $ultra eq "Netra 20") {
+	# Accepts up to 8 128MB, 256MB, 512MB, 1GB or 2GB 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
+	# DIMMs can be installed in any group order
+	# Each group addresses 4GB of memory
+	# Memory slots (Jxxxx) map to same-numbered DIMMs (Uxxxx)
+	# For maximum 4-way interleaving, install 8 DIMMs of identical sizes
+	$devname="Excalibur (Sun Blade 1000), Littleneck (Sun Fire 280R), Lightweight 2+ (Netra 20/Netra T4), Sun Blade 2000 (Sun Blade 2000)";
+	$familypn="A28 (Sun Blade 1000), A35 (Sun Fire 280R), N28 (Netra 20/Netra T4), A29 (Sun Blade 2000)";
+	if ($ultra eq "Sun Blade 1000") {
+		$devname="Excalibur (Sun Blade 1000), Sun Blade 2000 (Sun Blade 2000)";
+		$familypn="A28 (Sun Blade 1000), A29 (Sun Blade 2000)";
+	}
+	if ($ultra eq "Sun Fire 280R") {
+		$devname="Littleneck";
+		$familypn="A35";
+	}
+	if ($ultra eq "Netra 20") {
+		$devname="Lightweight 2+";
+		$familypn="N28";
+	}
+	if ($ultra eq "Sun Blade 2000") {
+		$devname="Sun Blade 2000";
+		$familypn="A29";
+	}
+	$untested=0;
+	# SB1000/2000 uses 501-4143, 501-5938, 501-6230 or 501-6560 motherboards
+	# SB1000 can use 600, 750 and 900MHz UltraSPARC-III CPUs
+	# SB1000 can use 900MHz and faster UltraSPARC-III+ Cu CPUs
+	# SB2000 only shipped with 900MHz and faster UltraSPARC-III+ Cu CPUs
+	# SB2000 can use any of the SB1000 motherboards
+	if ($ultra eq "Sun Blade 1000") {
+		$modelmore=$banner;
+		$modelmore=~s/Sun-Blade-1000/or Sun-Blade-2000/g;
+		while (($cf,$cnt)=each(%cpucnt)) {
+			$cf=~/^(.*) (\d*)$/;
+			$cfreq=$2;
+			$modelmore=~s/\)/ ${cfreq}MHz\)/g if ($cfreq);
+		}
+	}
+	$prtdiag_has_mem=1;
+	$simmrangex="00001000";
+	$simmbanks=2;
+	$simmsperbank=4;
+	@simmsizes=(128,256,512,1024,2048);
+	@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" || $ultra eq "Sun Blade 150") {
+	# Accepts 128MB, 256MB or 512MB DIMMs on motherboard
+	# Uses 168-pin 3.3V ECC 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
+	if ($model eq "Sun-Blade-100" || $ultra eq "Sun Blade 100") {
+		$devname="Grover";
+		$familypn="A36";
+	}
+	if ($ultra eq "Sun Blade 150") {
+		$devname="Grover+";
+		$familypn="A41";
+	}
+	$untested=0;
+	$prtdiag_has_mem=1;
+	$simmrangex=($cpufreq > 520) ? "00000400" : "00000200";
+	$simmbanks=4;
+	$simmsperbank=1;
+	@simmsizes=(128,256,512);
+	@socketstr=("DIMM0".."DIMM3");
+	@bankstr=(0..3);
+}
+if ($ultra eq "Sun Fire" || $ultra eq "Sun Fire 15K" || $ultra eq "Sun Fire 12K" || $ultra =~ /Sun Fire [346]8[01]0\b/ || $ultra =~ /Sun Fire E[246]900\b/ || $ultra =~ /Sun Fire E2[05]K\b/) {
+	# Sun Fire 3800 system
+	#   2-8 UltraSPARC-III processors
+	#   Up to 2 CPU/Memory boards
+	# Sun Fire 4800, 4810 and 6800 system
+	#   2-12 UltraSPARC-III processors
+	#   Up to 3 CPU/Memory boards
+	# Sun Fire 6800 system
+	#   2-24 UltraSPARC-III processors
+	#   Up to 6 CPU/Memory boards
+	# Sun Fire 15K system
+	#   16-106 UltraSPARC-III+, IV or IV+ processors
+	#   Up to 18 CPU/Memory boards
+	# Sun Fire 12K system
+	#   up to 56 UltraSPARC-III+, IV or IV+ processors and 288GB memory
+	# Sun Fire E2900 & E4900 system
+	#   4, 8, or 12 UltraSPARC-IV or IV+ processors, up to 3 Uniboards
+	#   E4900 adds dynamic system domains when compared to E2900
+	# Sun Fire E6900 system
+	#   4-24 UltraSPARC-IV or IV+ processors, up to 6 Uniboards
+	# Sun Fire E20K system
+	#   4-36 UltraSPARC-IV or IV+ processors, up to 9 Uniboards
+	# Sun Fire E25K system
+	#   Up to 72 UltraSPARC-IV or IV+ processors, up to 18 Uniboards
+	# Each CPU/Memory board holds up to 4 processors and up to 32GB memory
+	#  (32 DIMMs per board, 8 banks of 4 DIMMs)
+	# Accepts 256MB, 512MB or 1GB DIMMs
+	#  1GB DIMM not supported at 750MHz
+	#  256MB DIMM only supported on US-III
+	# 2GB DIMMs supported on 48x0/6800/E2900/E4900/E6900/E20K/E25K
+	# System Board slots are labeled SB0 and higher
+	# A populated DIMM bank requires an UltraSPARC CPU.
+	# DIMMs are 232-pin 3.3V ECC 7ns SDRAM
+	# prtdiag output shows the memory installed.
+	#
+	# CPU1 and CPU0 Memory  CPU3 and CPU2 Memory
+	# --------------------  --------------------
+	# Socket CPU Bank DIMM  Socket CPU Bank DIMM
+	# ------ --- ---- ----  ------ --- ---- ----
+	# J14600  P1  B0   D3   J16600  P3  B0   D3
+	# J14601  P1  B1   D3   J16601  P3  B1   D3
+	# J14500  P1  B0   D2   J16500  P3  B0   D2
+	# J14501  P1  B1   D2   J16501  P3  B1   D2
+	# J14400  P1  B0   D1   J16400  P3  B0   D1
+	# J14401  P1  B1   D1   J16401  P3  B1   D1
+	# J14300  P1  B0   D0   J16300  P3  B0   D0
+	# J14301  P1  B1   D0   J16301  P3  B1   D0
+	# J13600  P0  B0   D3   J15600  P2  B0   D3
+	# J13601  P0  B1   D3   J15601  P2  B1   D3
+	# J13500  P0  B0   D2   J15500  P2  B0   D2
+	# J13501  P0  B1   D2   J15501  P2  B1   D2
+	# J13400  P0  B0   D1   J15400  P2  B0   D1
+	# J13401  P0  B1   D1   J15401  P2  B1   D1
+	# J13300  P0  B0   D0   J15300  P2  B0   D0
+	# J13301  P0  B1   D0   J15301  P2  B1   D0
+	#
+	$devname="Serengeti" if ($ultra eq "Sun Fire");
+	if ($banner =~ /Sun Fire 3800\b/ || $diagbanner =~ /Sun Fire 3800\b/) {
+		$devname="Serengeti8, SF3800 or SP";
+		$familypn="F3800";
+	}
+	if ($banner =~ /Sun Fire 4800\b/ || $diagbanner =~ /Sun Fire 4800\b/) {
+		$devname="Serengeti12, SF4800 or MD";
+		$familypn="F4800";
+	}
+	if ($banner =~ /Sun Fire 4810\b/ || $diagbanner =~ /Sun Fire 4810\b/) {
+		$devname="Serengeti12i, SF4810 or ME";
+		$familypn="F4810";
+	}
+	if ($banner =~ /Sun Fire 6800\b/ || $diagbanner =~ /Sun Fire 6800\b/) {
+		$devname="Serengeti24, SF6800 or DC";
+		$familypn="F6800";
+	}
+	if ($ultra eq "Sun Fire 15K") {
+		$devname="Starcat, Serengeti72";
+		$familypn="F15K";
+	}
+	$devname="Starkitty" if ($ultra eq "Sun Fire 12K");
+	if ($banner =~ /Sun Fire E2900\b/ || $diagbanner eq "Sun Fire E2900") {
+		$devname="Amazon 2";
+		$familypn="E29";
+	}
+	if ($banner =~ /Sun Fire E4900\b/ || $diagbanner eq "Sun Fire E4900") {
+		$devname="Amazon 4";
+		$familypn="E49";
+	}
+	$devname="Amazon 6" if ($banner =~ /Sun Fire E6900\b/ || $diagbanner eq "Sun Fire E6900");
+	$devname="Amazon 20" if ($banner =~ /Sun Fire E20K\b/ || $diagbanner eq "Sun Fire E20K");
+	$devname="Amazon 25" if ($banner =~ /Sun Fire E25K\b/ || $diagbanner eq "Sun Fire E25K");
+	$untested=0;
+	$prtdiag_has_mem=1;
+	@simmsizes=(256,512,1024);
+	@simmsizes=(256,512,1024,2048) if ($ultra =~ /Sun Fire [46]8[01]0\b/ || $ultra =~ /Sun Fire E[246]900\b/ || $ultra =~ /Sun Fire E2[05]K\b/);
+}
+if ($ultra eq "Sun Fire V880") {
+	# Accepts 128MB, 256MB, 512MB or 1GB DIMMs in groups of four per CPU
+	# 128MB DIMMs only supported on 750MHz CPU/memory boards
+	# 1GB DIMMs only supported on 900MHz or faster CPU/memory boards
+	# 2-8 UltraSPARC-III processors, 750MHz or faster
+	# Up to 64GB memory, 8GB max per CPU, 4 DIMMs per CPU, 2 CPUs per board
+	# DIMMs must be added four-at-a-time within the same group of DIMM
+	#  slots; every fourth slot belongs to the same DIMM group.
+	# Each CPU/Memory board must be populated with a minimum of eight DIMMs,
+	#  installed in groups A0 and B0.
+	# For 1050MHz and higher system boards, each CPU/Memory board must be
+	#  populated with all sixteen DIMMs, installed in groups A0,A1,B0,B1.
+	# Each group used must have four identical DIMMs installed (all four
+	#  DIMMs must be from the same manufacturing vendor and must have the
+	#  same capacity).
+	# DIMMs are 232-pin 3.3V ECC 7ns SDRAM
+	# Uses 128-bit-wide path to memory, 150MHz DIMMs, 2.4GB/sec
+	#   bandwidth to processor and an aggregate memory bw of 9.6GB/sec
+	# prtdiag output shows the memory installed.
+	#
+	# CPU CPU/Memory Slot Associated DIMM Group
+	# --- --------------- ---------------------
+	#  0      Slot A             A0,A1
+	#  2      Slot A             B0,B1
+	#  1      Slot B             A0,A1
+	#  3      Slot B             B0,B1
+	#  4      Slot C             A0,A1
+	#  6      Slot C             B0,B1
+	#  5      Slot D             A0,A1
+	#  7      Slot D             B0,B1
+	#
+	$devname="Daktari (V880), Nandi (V880z)";
+	$familypn="A30 (V880), A47 (V880z)";
+	$untested=0;
+	@simmsizes=($cpufreq < 800) ? (128,256,512) : (256,512,1024,2048);
+	@banksstr=("A0","A1","B0","B1");
+	$prtdiag_has_mem=1;
+}
+if ($ultra eq "Sun Fire V480") {
+	# Accepts 256MB, 512MB or 1GB DIMMs in groups of four per CPU
+	# 2 or 4 UltraSPARC-III processors, 900MHz or faster
+	# Up to 32GB memory, 8GB max per CPU, 4 DIMMs per CPU, 2 CPUs per board
+	# Smaller version of Sun Fire V880 above
+	$devname="Cherrystone";
+	$familypn="A37";
+	$untested=0;
+	@simmsizes=(256,512,1024,2048);
+	@banksstr=("A0","A1","B0","B1");
+	$prtdiag_has_mem=1;
+}
+if ($ultra eq "Sun Fire V490" || $ultra eq "Sun Fire V890") {
+	# Accepts 512MB or 1GB DIMMs in groups of four per CPU
+	# 2 or 4 UltraSPARC-III, IV or IV+ processors, 1050MHz or faster
+	# Up to 32GB memory, 8GB max per CPU, 4 DIMMs per CPU, 2 CPUs per board
+	# Similar memory contraints as Sun Fire V880 above
+	if ($ultra eq "Sun Fire V490") {
+		$devname="Sebring";
+		$familypn="A52";
+	}
+	if ($ultra eq "Sun Fire V890") {
+		$devname="Silverstone";
+		$familypn="A53";
+	}
+	$untested=0;
+	@simmsizes=(512,1024,2048);
+	@banksstr=("A0","A1","B0","B1");
+	$prtdiag_has_mem=1;
+}
+if ($ultra eq "Netra T12") {
+	# Sun Fire V1280, Netra 1280
+	# Essentially the same as a Sun Fire 4810, but is marketed as a low cost
+	# single domain system.
+	# 2-12 UltraSPARC-IIIcu processors using up to 3 CPU/Memory boards
+	# Each CPU/Memory board holds up to 4 processors and up to 32GB memory
+	#  (32 DIMMs per board, 8 banks of 4 DIMMs)
+	# Accepts 256MB, 512MB, 1GB or 2GB DIMMs
+	# System Board slots are labeled SB0 and higher
+	# A populated DIMM bank requires an UltraSPARC III CPU.
+	# DIMMs are 232-pin 3.3V ECC 7ns SDRAM
+	# prtdiag output shows the memory installed.
+	$devname="Lightweight 8";
+	$familypn="A40 (Sun Fire V1280), N40 (Netra 1280)";
+	$untested=0;
+	$prtdiag_has_mem=1;
+	@simmsizes=(256,512,1024,2048);
+}
+if ($ultra eq "Enchilada") {
+	# Sun Fire V210, V240, Netra 210, 240
+	# 1-2 UltraSPARC-IIIi (Jalapeno) processors
+	# UltraSPARC IIIi supports 128MB to 1GB single bank DIMMs.
+	# UltraSPARC IIIi supports 256MB to 2GB dual bank DIMMs.
+	# DDR-1 SDRAM PC2100 DIMMs, 8 DIMM slots, 4 DIMMs per processor,
+	#  2 banks per processor, 2 DIMMs per bank
+	# V210 accepts 1GB & 2GB DIMMs by installing Fan Upgrade Kit, X7418A
+	# Mixing DIMM sizes and capacities is not supported.
+	# prtdiag output can show the memory installed.
+	$devname="Enchilada";	# Enxs
+	if ($banner =~ /Sun Fire V210\b/ || $model =~ /Sun-Fire-V210/) {
+		$devname="Enchilada 1U";
+		$familypn="N31";
+	}
+	if ($model =~ /Netra-210\b/) {
+		$devname="Salsa 19";
+		$familypn="N79";
+	}
+	if ($banner =~ /Sun Fire V240\b/ || $model =~ /Sun-Fire-V240/) {
+		$devname="Enchilada 2U";
+		$familypn="N32";
+	}
+	if ($model =~ /Netra-240\b/) {
+		$devname="Enchilada 19";
+		$familypn="N54";
+	}
+	$untested=0 if ($banner =~ /Sun Fire V210\b/ || $model =~ /Sun-Fire-V210/ || $model =~ /Netra-210\b/ || $banner =~ /Sun Fire 240\b/ || $model =~ /Sun-Fire-V240/ || $model =~ /Netra-240\b/);
+	$prtdiag_has_mem=1;
+	$prtdiag_banktable_has_dimms=1;
+	$simmrangex="00002000";
+	# Count the skipped address range for dual CPU
+	$simmbanks=($ncpu > 1) ? 10 : 2;
+	$simmsperbank=2;
+	@simmsizes=(128,256,512,1024,2048);
+	@socketstr=("MB/P0/B0/D0","MB/P0/B0/D1","MB/P0/B1/D0","MB/P0/B1/D1","?","?","?","?","?","?","?","?","?","?","?","?");
+	push(@socketstr, "MB/P1/B0/D0","MB/P1/B0/D1","MB/P1/B1/D0","MB/P1/B1/D1") if ($ncpu > 1);
+}
+if ($ultra eq "Sun Fire V440" || $ultra eq "Netra 440") {
+	# 1-4 UltraSPARC-IIIi (Jalapeno) processors
+	# UltraSPARC IIIi supports 128MB to 1GB single bank DIMMs.
+	# UltraSPARC IIIi supports 256MB to 2GB dual bank DIMMs.
+	# DDR-1 SDRAM PC2100 DIMMs, 16 DIMM slots, 4 DIMMs per processor,
+	#  2 banks per processor, 2 DIMMs per bank
+	# prtdiag output can show the memory installed.
+	$devname="Chalupa";
+	$familypn="A42";
+	if ($ultra eq "Netra 440") {
+		$devname="Chalupa 19";
+		$familypn="N42";
+	}
+	$untested=0;
+	$prtdiag_has_mem=1;
+	$prtdiag_banktable_has_dimms=1;
+	$simmrangex="00002000";
+	$simmbanks=26;	# Count the skipped address range for each CPU
+	$simmsperbank=2;
+	@simmsizes=(128,256,512,1024,2048);