Shamusworld >> Repos - virtualjaguar/blob - src/gui/debug/opbrowser.cpp

   1 //
   2 // opbrowser.cpp - Jaguar Object Processor browser
   3 //
   4 // by James Hammons
   5 // (C) 2012 Underground Software
   6 //
   7 // JLH = James Hammons <jlhamm@acm.org>
   8 //
   9 // Who  When        What
  10 // ---  ----------  -------------------------------------------------------------
  11 // JLH  12/01/2012  Created this file
  12 //
  13
  14 // STILL TO DO:
  15 //
  16
  17 #include "opbrowser.h"
  18 #include "jaguar.h"
  19 #include "memory.h"
  20 #include "op.h"
  21
  22
  23 OPBrowserWindow::OPBrowserWindow(QWidget * parent/*= 0*/): QWidget(parent, Qt::Dialog),
  24         layout(new QVBoxLayout), text(new QLabel),
  25         refresh(new QPushButton(tr("Refresh")))
  26 {
  27         setWindowTitle(tr("OP Browser"));
  28
  29         // Need to set the size as well...
  30 //      resize(560, 480);
  31
  32 //      QFont fixedFont("Lucida Console", 8, QFont::Normal);
  33         QFont fixedFont("", 8, QFont::Normal);
  34         fixedFont.setStyleHint(QFont::TypeWriter);
  35         text->setFont(fixedFont);
  36 ////    layout->setSizeConstraint(QLayout::SetFixedSize);
  37         setLayout(layout);
  38
  39         QScrollArea * scrollArea = new QScrollArea;
  40         scrollArea->setWidgetResizable(true);
  41         scrollArea->setWidget(text);
  42         layout->addWidget(scrollArea);
  43         layout->addWidget(refresh);
  44
  45         connect(refresh, SIGNAL(clicked()), this, SLOT(RefreshContents()));
  46 }
  47
  48
  49 void OPBrowserWindow::RefreshContents(void)
  50 {
  51         char string[1024];//, buf[64];
  52         QString opDump;
  53
  54         uint32_t olp = OPGetListPointer();
  55         sprintf(string, "OLP = $%X<br>", olp);
  56         opDump += QString(string);
  57
  58         numberOfObjects = 0;
  59         DiscoverObjects(olp);
  60         DumpObjectList(opDump);
  61
  62         text->clear();
  63         text->setText(opDump);
  64 }
  65
  66
  67 void OPBrowserWindow::keyPressEvent(QKeyEvent * e)
  68 {
  69         if (e->key() == Qt::Key_Escape)
  70                 hide();
  71         else if (e->key() == Qt::Key_Enter)
  72                 RefreshContents();
  73 }
  74
  75
  76 bool OPBrowserWindow::ObjectExists(uint32_t address)
  77 {
  78         // Yes, we really do a linear search, every time. :-/
  79         for(uint32_t i=0; i<numberOfObjects; i++)
  80         {
  81                 if (address == object[i])
  82                         return true;
  83         }
  84
  85         return false;
  86 }
  87
  88
  89 void OPBrowserWindow::DiscoverObjects(uint32_t address)
  90 {
  91         uint8_t objectType = 0;
  92
  93         do
  94         {
  95                 // If we've seen this object already, bail out!
  96                 // Otherwise, add it to the list
  97                 if (ObjectExists(address))
  98                         return;
  99
 100                 object[numberOfObjects++] = address;
 101
 102                 // Get the object & decode its type, link address
 103                 uint32_t hi = JaguarReadLong(address + 0, OP);
 104                 uint32_t lo = JaguarReadLong(address + 4, OP);
 105                 objectType = lo & 0x07;
 106                 uint32_t link = ((hi << 11) | (lo >> 21)) & 0x3FFFF8;
 107
 108                 if (objectType == 3)
 109                 {
 110                         // Recursion needed to follow all links! This does depth-first recursion
 111                         // on the not-taken objects
 112                         DiscoverObjects(address + 8);
 113                 }
 114
 115                 // Get the next object...
 116                 address = link;
 117         }
 118         while (objectType != 4);
 119 }
 120
 121
 122 void OPBrowserWindow::DumpObjectList(QString & list)
 123 {
 124         const char * opType[8] = {
 125                 "(BITMAP)", "(SCALED BITMAP)", "(GPU INT)", "(BRANCH)",
 126                 "(STOP)", "???", "???", "???"
 127         };
 128         const char * ccType[8] = {
 129                 "==", "&lt;", "&gt;", "(opflag set)",
 130                 "(second half line)", "?", "?", "?"
 131         };
 132         char buf[512];
 133
 134         for(uint32_t i=0; i<numberOfObjects; i++)
 135         {
 136                 uint32_t address = object[i];
 137
 138                 uint32_t hi = JaguarReadLong(address + 0, OP);
 139                 uint32_t lo = JaguarReadLong(address + 4, OP);
 140                 uint8_t objectType = lo & 0x07;
 141                 uint32_t link = ((hi << 11) | (lo >> 21)) & 0x3FFFF8;
 142 //              WriteLog("%08X: %08X %08X %s", address, hi, lo, opType[objectType]);
 143                 sprintf(buf, "<br>%06X: %08X %08X %s -> %06X", address, hi, lo, opType[objectType], link);
 144                 list += QString(buf);
 145
 146                 if (objectType == 3)
 147                 {
 148                         uint16_t ypos = (lo >> 3) & 0x7FF;
 149                         uint8_t  cc   = (lo >> 14) & 0x07;      // Proper # of bits == 3
 150 //                      WriteLog(" YPOS=%u, CC=%s, link=$%08X", ypos, ccType[cc], link);
 151 //                      sprintf(buf, " YPOS=%u, CC=%s, link=$%08X", ypos, ccType[cc], link);
 152                         sprintf(buf, " YPOS %s %u", ccType[cc], ypos);
 153                         list += QString(buf);
 154                 }
 155
 156 //              WriteLog("\n");
 157                 list += "<br>";
 158
 159                 if (objectType == 0)
 160                         DumpFixedObject(list, OPLoadPhrase(address + 0), OPLoadPhrase(address + 8));
 161
 162                 if (objectType == 1)
 163                         DumpScaledObject(list, OPLoadPhrase(address + 0), OPLoadPhrase(address + 8),
 164                                 OPLoadPhrase(address + 16));
 165
 166                 if (address == link)    // Ruh roh...
 167                 {
 168                         // Runaway recursive link is bad!
 169 //                      WriteLog("***** SELF REFERENTIAL LINK *****\n\n");
 170                         sprintf(buf, "***** SELF REFERENTIAL LINK *****<br>");
 171                         list += QString(buf);
 172                 }
 173         }
 174
 175 //      WriteLog("\n");
 176         list += "<br>";
 177 }
 178
 179
 180 void OPBrowserWindow::DumpScaledObject(QString & list, uint64_t p0, uint64_t p1, uint64_t p2)
 181 {
 182         char buf[512];
 183
 184 //      WriteLog("          %08X %08X\n", (uint32)(p1>>32), (uint32)(p1&0xFFFFFFFF));
 185         sprintf(buf, "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;%08X %08X<br>", (uint32)(p1>>32), (uint32)(p1&0xFFFFFFFF));
 186         list += QString(buf);
 187 //      WriteLog("          %08X %08X\n", (uint32)(p2>>32), (uint32)(p2&0xFFFFFFFF));
 188         sprintf(buf, "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;%08X %08X<br>", (uint32)(p2>>32), (uint32)(p2&0xFFFFFFFF));
 189         list += QString(buf);
 190         DumpBitmapCore(list, p0, p1);
 191         uint32 hscale = p2 & 0xFF;
 192         uint32 vscale = (p2 >> 8) & 0xFF;
 193         uint32 remainder = (p2 >> 16) & 0xFF;
 194 //      WriteLog("    [hsc: %02X, vsc: %02X, rem: %02X]\n", hscale, vscale, remainder);
 195         sprintf(buf, "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[hsc: %02X, vsc: %02X, rem: %02X]<br>", hscale, vscale, remainder);
 196         list += QString(buf);
 197 }
 198
 199
 200 void OPBrowserWindow::DumpFixedObject(QString & list, uint64_t p0, uint64_t p1)
 201 {
 202         char buf[512];
 203
 204 //      WriteLog("          %08X %08X\n", (uint32)(p1>>32), (uint32)(p1&0xFFFFFFFF));
 205         sprintf(buf, "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;%08X %08X<br>", (uint32)(p1>>32), (uint32)(p1&0xFFFFFFFF));
 206         list += QString(buf);
 207         DumpBitmapCore(list, p0, p1);
 208 }
 209
 210
 211 void OPBrowserWindow::DumpBitmapCore(QString & list, uint64_t p0, uint64_t p1)
 212 {
 213         char buf[512];
 214         uint8_t op_bitmap_bit_depth[8] = { 1, 2, 4, 8, 16, 24, 32, 0 };
 215
 216         uint32_t bdMultiplier[8] = { 64, 32, 16, 8, 4, 2, 1, 1 };
 217         uint8_t bitdepth = (p1 >> 12) & 0x07;
 218 //WAS:  int16 ypos = ((p0 >> 3) & 0x3FF);                       // ??? What if not interlaced (/2)?
 219         int16_t ypos = ((p0 >> 3) & 0x7FF);                     // ??? What if not interlaced (/2)?
 220         int32_t xpos = p1 & 0xFFF;
 221         xpos = (xpos & 0x800 ? xpos | 0xFFFFF000 : xpos);       // Sign extend that mutha!
 222         uint32_t iwidth = ((p1 >> 28) & 0x3FF);
 223         uint32_t dwidth = ((p1 >> 18) & 0x3FF);         // Unsigned!
 224         uint16_t height = ((p0 >> 14) & 0x3FF);
 225         uint32_t link = ((p0 >> 24) & 0x7FFFF) << 3;
 226         uint32_t ptr = ((p0 >> 43) & 0x1FFFFF) << 3;
 227         uint32_t firstPix = (p1 >> 49) & 0x3F;
 228         uint8_t flags = (p1 >> 45) & 0x0F;
 229         uint8_t idx = (p1 >> 38) & 0x7F;
 230         uint32_t pitch = (p1 >> 15) & 0x07;
 231 //      WriteLog("    [%u x %u @ (%i, %u) (iw:%u, dw:%u) (%u bpp), l:%08X, p:%08X fp:%02X, fl:%s%s%s%s, idx:%02X, pt:%02X]\n",
 232 //              iwidth * bdMultiplier[bitdepth],
 233 //              height, xpos, ypos, iwidth, dwidth, op_bitmap_bit_depth[bitdepth], link,
 234 //              ptr, firstPix, (flags&OPFLAG_REFLECT ? "REFLECT " : ""),
 235 //              (flags&OPFLAG_RMW ? "RMW " : ""), (flags&OPFLAG_TRANS ? "TRANS " : ""),
 236 //              (flags&OPFLAG_RELEASE ? "RELEASE" : ""), idx, pitch);
 237         sprintf(buf, "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[%u x %u @ (%i, %u) (iw:%u, dw:%u) (%u bpp), p:%06X fp:%02X, fl:%s%s%s%s, idx:%02X, pt:%02X]<br>",
 238                 iwidth * bdMultiplier[bitdepth],
 239                 height, xpos, ypos, iwidth, dwidth, op_bitmap_bit_depth[bitdepth],
 240                 ptr, firstPix, (flags&OPFLAG_REFLECT ? "REFLECT " : ""),
 241                 (flags&OPFLAG_RMW ? "RMW " : ""), (flags&OPFLAG_TRANS ? "TRANS " : ""),
 242                 (flags&OPFLAG_RELEASE ? "RELEASE" : ""), idx, pitch);
 243         list += QString(buf);
 244 }
 245