1 files changed, 168 insertions, 0 deletions
diff --git a/src/build/debug/Hostboot/BlData.pm b/src/build/debug/Hostboot/BlData.pm
new file mode 100644
index 000000000..91d2f89d3
--- /dev/null
+++ b/src/build/debug/Hostboot/BlData.pm
@@ -0,0 +1,168 @@
+# IBM_PROLOG_BEGIN_TAG
+# This is an automatically generated prolog.
+#
+# $Source: src/build/debug/Hostboot/BlData.pm $
+#
+# OpenPOWER HostBoot Project
+#
+# Contributors Listed Below - COPYRIGHT 2017
+# [+] International Business Machines Corp.
+#
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
+# implied. See the License for the specific language governing
+# permissions and limitations under the License.
+#
+# IBM_PROLOG_END_TAG
+
+use strict;
+
+package Hostboot::BlData;
+use Exporter;
+our @EXPORT_OK = ('main');
+
+sub formatData
+{
+    my $data = shift;
+    my $dataRaw = "";
+
+    for (my $i = 0; $i < length($data); $i++)
+    {
+        my $dataHexStr = sprintf("%02X", ord(substr($data, $i, 1)));
+        $dataRaw .= $dataHexStr;
+
+        if ($i % 16 == 15)
+        {
+            $dataRaw .= "\n";
+        }
+        elsif ($i % 4 == 3)
+        {
+            $dataRaw .= "   ";
+        }
+    }
+
+    return $dataRaw."\n";
+}
+
+sub main
+{
+    ::setBootloader();
+
+    my $btLdrHrmor  = 0x0000000008200000;
+
+    my ($dataSym, $dataSize) = ::findSymbolAddress("Bootloader::g_blData");
+    if (not defined $dataSym) { ::userDisplay "Cannot find symbol.\n"; die; }
+    my $dataSymStr = sprintf("0x%08X", $dataSym);
+
+    ::userDisplay "------------Bootloader Data------------";
+    ::userDisplay "\nData Symbol Address: ";
+    ::userDisplay $dataSymStr;
+
+    my ($scratchSym, $scratchSize) =
+        ::findSymbolAddress("Bootloader::g_blScratchSpace");
+    if (not defined $scratchSym) { ::userDisplay "Cannot find symbol.\n"; die; }
+    my $scratchSymStr = sprintf("0x%08X", $scratchSym);
+
+    ::userDisplay "\nScratch Space Symbol Address: ";
+    ::userDisplay $scratchSymStr;
+    ::userDisplay "\n--------------------------------------------\n";
+
+    my $dataAddr = 0x0000000008208000;
+
+    my $traceAddr = $dataAddr;
+    my $traceAddrStr = sprintf("0x%08X", $traceAddr);
+    ::sendIPCMsg("read-data", "$traceAddr,64"); # Trace buffer is 64 bytes
+    my ($type1, $trace) = ::recvIPCMsg();
+    my $traceData = formatData($trace);
+
+    ::userDisplay "\nTrace Buffer Address: ";
+    ::userDisplay $traceAddrStr;
+    ::userDisplay "\n\nTrace Data:\n";
+    ::userDisplay $traceData;
+    ::userDisplay "\n--------------------------------------------\n";
+
+
+    my $indexAddr = $dataAddr + 64;
+    my $indexAddrStr = sprintf("0x%08X", $indexAddr);
+    ::sendIPCMsg("read-data", "$indexAddr,1"); # Trace index is 1 byte
+    my ($type2, $index) = ::recvIPCMsg();
+    $index =~ s/\0+//g; #strip off nulls
+    my $indexStr = sprintf("0x%02X", ord($index));
+
+    ::userDisplay "\nTrace Index Address: ";
+    ::userDisplay $indexAddrStr;
+    ::userDisplay "\n\nTrace Index (Next Entry): ";
+    ::userDisplay $indexStr;
+    ::userDisplay "\n\n--------------------------------------------\n";
+
+
+    my $tiDataAreaAddr = $dataAddr + 80;
+    my $tiDataAreaAddrStr = sprintf("0x%08X", $tiDataAreaAddr);
+    ::sendIPCMsg("read-data", "$tiDataAreaAddr,48"); # TI Data Area is 48 bytes
+    my ($type6, $tiDataArea) = ::recvIPCMsg();
+    my $tiDataAreaData = formatData($tiDataArea);
+
+    ::userDisplay "\nTI Data Area Address: ";
+    ::userDisplay $tiDataAreaAddrStr;
+    ::userDisplay "\n\nTI Data Area:\n";
+    ::userDisplay $tiDataAreaData;
+    ::userDisplay "\n--------------------------------------------\n";
+
+
+    my $hbbPnorSecAddr = $dataAddr + 128;
+    my $hbbPnorSecAddrStr = sprintf("0x%08X", $hbbPnorSecAddr);
+    ::sendIPCMsg("read-data", "$hbbPnorSecAddr,32"); # Section data is 32 bytes
+    my ($type5, $hbbPnorSec) = ::recvIPCMsg();
+    my $hbbPnorSecData = formatData($hbbPnorSec);
+
+    ::userDisplay "\nHBB PNOR Section Data Address: ";
+    ::userDisplay $hbbPnorSecAddrStr;
+    ::userDisplay "\n\nHBB PNOR Section Data:\n";
+    ::userDisplay $hbbPnorSecData;
+    ::userDisplay "\n--------------------------------------------\n";
+
+
+    my $secRomValAddr = $dataAddr + 160;
+    my $secRomValAddrStr = sprintf("0x%08X", $secRomValAddr);
+    ::sendIPCMsg("read-data", "$secRomValAddr,1"); # Secure ROM Valid is 1 byte
+    my ($type4, $secRomVal) = ::recvIPCMsg();
+    $secRomVal =~ s/\0+//g; #strip off nulls
+    my $secRomValStr = sprintf("0x%02X", ord($secRomVal));
+
+    ::userDisplay "\nSecure ROM Valid Address: ";
+    ::userDisplay $secRomValAddrStr;
+    ::userDisplay "\n\nSecure ROM Valid: ";
+    ::userDisplay $secRomValStr;
+    ::userDisplay "\n\n--------------------------------------------\n";
+
+
+    my $blToHbAddr = $dataAddr + 176;
+    my $blToHbAddrStr = sprintf("0x%08X", $blToHbAddr);
+    ::sendIPCMsg("read-data", "$blToHbAddr,89"); # BL to HB data is 89 bytes
+    my ($type3, $blToHb) = ::recvIPCMsg();
+    my $blToHbData = formatData($blToHb);
+
+    ::userDisplay "\nBL to HB Data Address: ";
+    ::userDisplay $blToHbAddrStr;
+    ::userDisplay "\n\nBootloader to Hostboot Data:\n";
+    ::userDisplay $blToHbData;
+    ::userDisplay "\n--------------------------------------------\n";
+
+    ::clearBootloader();
+}
+
+sub helpInfo
+{
+    my %info = (
+        name => "BlData",
+        intro => ["Displays Bootloader data."],
+    );
+}