X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fgui%2Fdebug%2Fopbrowser.cpp;fp=src%2Fgui%2Fdebug%2Fopbrowser.cpp;h=6b3ff3ed0af73398f0d953dff3418f4c14dd581d;hb=cc1ef9612596c602ce0bd4b1c485519c3617c156;hp=c4193d8798ce8438e0c183477aaf2970d2fa4c49;hpb=32f569e1bd09f5d7f07005d119f6408805106381;p=virtualjaguar

diff --git a/src/gui/debug/opbrowser.cpp b/src/gui/debug/opbrowser.cpp
index c4193d8..6b3ff3e 100644
--- a/src/gui/debug/opbrowser.cpp
+++ b/src/gui/debug/opbrowser.cpp
@@ -7,7 +7,7 @@
 // JLH = James Hammons <jlhamm@acm.org>
 //
 // Who  When        What
-// ---  ----------  -------------------------------------------------------------
+// ---  ----------  -----------------------------------------------------------
 // JLH  12/01/2012  Created this file
 //
 
@@ -110,10 +110,9 @@ void OPBrowserWindow::DiscoverObjects(uint32_t address)
 			// Branch if YPOS < 2047 can be treated as a GOTO, so don't do any
 			// discovery in that case. Otherwise, have at it:
 			if ((lo & 0xFFFF) != 0x7FFB)
-			// Recursion needed to follow all links! This does depth-first
-			// recursion on the not-taken objects (N.B.: The object following
-			// the branch object is at +16, not +8!)
-				DiscoverObjects(address + 16);
+				// Recursion needed to follow all links! This does depth-first
+				// recursion on the not-taken objects
+				DiscoverObjects(address + 8);
 		}
 
 		// Get the next object...
@@ -156,13 +155,15 @@ void OPBrowserWindow::DumpObjectList(QString & list)
 
 		list += "<br>";
 
+		// Yes, the OP really determines bitmap/scaled bitmap address for the
+		// following phrases this way...!
 		if (objectType == 0)
 			DumpFixedObject(list, OPLoadPhrase(address + 0),
-				OPLoadPhrase(address + 8));
+				OPLoadPhrase(address | 0x08));
 
 		if (objectType == 1)
 			DumpScaledObject(list, OPLoadPhrase(address + 0),
-				OPLoadPhrase(address + 8), OPLoadPhrase(address + 16));
+				OPLoadPhrase(address | 0x08), OPLoadPhrase(address | 0x10));
 
 		if (address == link)	// Ruh roh...
 		{