]> Shamusworld >> Repos - virtualjaguar/blobdiff - src/tom.cpp
Added logging of GPU/DSP states on exit.
[virtualjaguar] / src / tom.cpp
index 111adfdad762cf16936e9af58b807a2b823b943e..3d6243b9212af862a2459d14c415ba2f62e64f83 100644 (file)
@@ -3,19 +3,16 @@
 //
 // Originally by David Raingeard (cal2)
 // GCC/SDL port by Niels Wagenaar (Linux/WIN32) and Caz (BeOS)
-// Cleanups and endian wrongness amelioration by James Hammons
+// Cleanups, endian wrongness amelioration, and extensive fixes by James Hammons
 // (C) 2010 Underground Software
 //
 // JLH = James Hammons <jlhamm@acm.org>
 //
 // Who  When        What
-// ---  ----------  -------------------------------------------------------------
+// ---  ----------  -----------------------------------------------------------
 // JLH  01/16/2010  Created this log ;-)
 // JLH  01/20/2011  Change rendering to RGBA, removed unnecessary code
 //
-// Note: Endian wrongness probably stems from the MAME origins of this emu and
-//       the braindead way in which MAME used to handle memory. :-}
-//
 // Note: TOM has only a 16K memory space
 //
 //     ------------------------------------------------------------
 #define MEMCON2                0x02
 #define HC                     0x04
 #define VC                     0x06
-#define OLP                    0x20            // Object list pointer
-#define OBF                    0x26            // Object processor flag
+#define OLP                    0x20    // Object list pointer
+#define OBF                    0x26    // Object processor flag
 #define VMODE          0x28
-#define   MODE         0x0006          // Line buffer to video generator mode
-#define   BGEN         0x0080          // Background enable (CRY & RGB16 only)
-#define   VARMOD       0x0100          // Mixed CRY/RGB16 mode (only works in MODE 0!)
-#define   PWIDTH       0x0E00          // Pixel width in video clock cycles (value written + 1)
-#define BORD1          0x2A            // Border green/red values (8 BPP)
-#define BORD2          0x2C            // Border blue value (8 BPP)
-#define HP                     0x2E            // Values range from 1 - 1024 (value written + 1)
-#define HBB                    0x30            // Horizontal blank begin
+#define   MODE         0x0006  // Line buffer to video generator mode
+#define   BGEN         0x0080  // Background enable (CRY & RGB16 only)
+#define   VARMOD       0x0100  // Mixed CRY/RGB16 mode (only works in MODE 0!)
+#define   PWIDTH       0x0E00  // Pixel width in video clock cycles (value written + 1)
+#define BORD1          0x2A    // Border green/red values (8 BPP)
+#define BORD2          0x2C    // Border blue value (8 BPP)
+#define HP                     0x2E    // Values range from 1 - 1024 (value written + 1)
+#define HBB                    0x30    // Horizontal blank begin
 #define HBE                    0x32
-#define HS                     0x34            // Horizontal sync
-#define HVS                    0x36            // Horizontal vertical sync
-#define HDB1           0x38            // Horizontal display begin 1
+#define HS                     0x34    // Horizontal sync
+#define HVS                    0x36    // Horizontal vertical sync
+#define HDB1           0x38    // Horizontal display begin 1
 #define HDB2           0x3A
 #define HDE                    0x3C
-#define VP                     0x3E            // Value ranges from 1 - 2048 (value written + 1)
-#define VBB                    0x40            // Vertical blank begin
+#define VP                     0x3E    // Value ranges from 1 - 2048 (value written + 1)
+#define VBB                    0x40    // Vertical blank begin
 #define VBE                    0x42
-#define VS                     0x44            // Vertical sync
-#define VDB                    0x46            // Vertical display begin
+#define VS                     0x44    // Vertical sync
+#define VDB                    0x46    // Vertical display begin
 #define VDE                    0x48
-#define VEB                    0x4A            // Vertical equalization begin
-#define VEE                    0x4C            // Vertical equalization end
-#define VI                     0x4E            // Vertical interrupt
+#define VEB                    0x4A    // Vertical equalization begin
+#define VEE                    0x4C    // Vertical equalization end
+#define VI                     0x4E    // Vertical interrupt
 #define PIT0           0x50
 #define PIT1           0x52
-#define HEQ                    0x54            // Horizontal equalization end
-#define BG                     0x58            // Background color
+#define HEQ                    0x54    // Horizontal equalization end
+#define BG                     0x58    // Background color
 #define INT1           0xE0
 #define INT2           0xE2
 
-//NOTE: These arbitrary cutoffs are NOT taken into account for PAL jaguar screens. !!! FIX !!! [DONE]
-
-// Arbitrary video cutoff values (i.e., first/last visible spots on a TV, in HC ticks)
+// Arbitrary video cutoff values (i.e., first/last visible spots on a TV, in HC
+// ticks)
 // Also note that VC is in *half* lines, i.e. divide by 2 to get the scanline
 /*#define LEFT_VISIBLE_HC                      208
 #define RIGHT_VISIBLE_HC               1528//*/
@@ -560,6 +556,7 @@ Trevor McFur
 Vertical resolution: 238 lines
 */
 
+// 16-bit color lookup tables
 uint32_t RGB16ToRGB32[0x10000];
 uint32_t CRY16ToRGB32[0x10000];
 uint32_t MIX16ToRGB32[0x10000];
@@ -571,12 +568,7 @@ void TOMFillLookupTables(void)
        // NOTE: Jaguar 16-bit (non-CRY) color is RBG 556 like so:
        //       RRRR RBBB BBGG GGGG
        for(uint32_t i=0; i<0x10000; i++)
-//hm.          RGB16ToRGB32[i] = 0xFF000000
-//                     | ((i & 0xF100) >> 8)  | ((i & 0xE000) >> 13)
-//                     | ((i & 0x07C0) << 13) | ((i & 0x0700) << 8)
-//                     | ((i & 0x003F) << 10) | ((i & 0x0030) << 4);
                RGB16ToRGB32[i] = 0x000000FF
-//                     | ((i & 0xF100) << 16)                                  // Red
                        | ((i & 0xF800) << 16)                                  // Red
                        | ((i & 0x003F) << 18)                                  // Green
                        | ((i & 0x07C0) << 5);                                  // Blue
@@ -591,7 +583,6 @@ void TOMFillLookupTables(void)
                        g = (((uint32_t)greencv[cyan][red]) * intensity) >> 8,
                        b = (((uint32_t)bluecv[cyan][red]) * intensity) >> 8;
 
-//hm.          CRY16ToRGB32[i] = 0xFF000000 | (b << 16) | (g << 8) | r;
                CRY16ToRGB32[i] = 0x000000FF | (r << 24) | (g << 16) | (b << 8);
                MIX16ToRGB32[i] = (i & 0x01 ? RGB16ToRGB32[i] : CRY16ToRGB32[i]);
        }
@@ -727,6 +718,7 @@ void tom_render_16bpp_cry_scanline(uint32_t * backbuffer)
        //NOTE: May have to check HDB2 as well!
        int16_t startPos = GET16(tomRam8, HDB1) - (vjs.hardwareTypeNTSC ? LEFT_VISIBLE_HC : LEFT_VISIBLE_HC_PAL);// Get start position in HC ticks
        startPos /= pwidth;
+
        if (startPos < 0)
                current_line_buffer += 2 * -startPos;
        else
@@ -769,6 +761,7 @@ void tom_render_24bpp_scanline(uint32_t * backbuffer)
        //NOTE: May have to check HDB2 as well!
        int16_t startPos = GET16(tomRam8, HDB1) - (vjs.hardwareTypeNTSC ? LEFT_VISIBLE_HC : LEFT_VISIBLE_HC_PAL);       // Get start position in HC ticks
        startPos /= pwidth;
+
        if (startPos < 0)
                current_line_buffer += 4 * -startPos;
        else
@@ -793,7 +786,6 @@ void tom_render_24bpp_scanline(uint32_t * backbuffer)
                uint32_t r = *current_line_buffer++;
                current_line_buffer++;
                uint32_t b = *current_line_buffer++;
-//hm.          *backbuffer++ = 0xFF000000 | (b << 16) | (g << 8) | r;
                *backbuffer++ = 0x000000FF | (r << 24) | (g << 16) | (b << 8);
                width--;
        }
@@ -891,7 +883,6 @@ VDB / 2!!!
 Hrm, doesn't seem to be enough, though it should be... still sticks for 20
 frames.
 
-
 What triggers this is writing $FFFF to VDE. This causes the OP start signal in VID to latch on, which in effect sets VDB to zero. So that much is correct. But
 the thing with Rayman is that it shouldn't cause the graphical glitches seen
 there, so still have to investigate what's going on there. By all rights, it
@@ -945,12 +936,6 @@ TOM: Vertical Interrupt written by M68K: 491
                startingHalfline = 0;
 
        if ((halfline >= startingHalfline) && (halfline < endingHalfline))
-//     if (halfline >= 0 && halfline < (uint16_t)GET16(tomRam8, VDE))
-// 16 isn't enough, and neither is 32 for raptgun. 32 fucks up Rayman
-//     if (halfline >= ((uint16_t)GET16(tomRam8, VDB) / 2) && halfline < ((uint16_t)GET16(tomRam8, VDE) / 2))
-//     if (halfline >= ((uint16_t)GET16(tomRam8, VDB) - 16) && halfline < (uint16_t)GET16(tomRam8, VDE))
-//     if (halfline >= 20 && halfline < (uint16_t)GET16(tomRam8, VDE))
-//     if (halfline >= (uint16_t)GET16(tomRam8, VDB) && halfline < (uint16_t)GET16(tomRam8, VDE))
        {
                if (render)
                {
@@ -1085,22 +1070,15 @@ void TOMDone(void)
        TOMDumpIORegistersToLog();
        OPDone();
        BlitterDone();
-       WriteLog("TOM: Resolution %i x %i %s\n", TOMGetVideoModeWidth(), TOMGetVideoModeHeight(),
-               videoMode_to_str[TOMGetVideoMode()]);
-//     WriteLog("\ntom: object processor:\n");
-//     WriteLog("tom: pointer to object list: 0x%.8x\n",op_get_list_pointer());
-//     WriteLog("tom: INT1=0x%.2x%.2x\n",TOMReadByte(0xf000e0),TOMReadByte(0xf000e1));
+       WriteLog("TOM: Resolution %i x %i %s\n", TOMGetVideoModeWidth(),
+               TOMGetVideoModeHeight(), videoMode_to_str[TOMGetVideoMode()]);
 }
 
 
 uint32_t TOMGetVideoModeWidth(void)
 {
-       //These widths are pretty bogus. Should use HDB1/2 & HDE/HBB & PWIDTH to calc the width...
-//     uint32_t width[8] = { 1330, 665, 443, 332, 266, 222, 190, 166 };
-//Temporary, for testing Doom...
-//     uint32_t width[8] = { 1330, 665, 443, 332, 266, 222, 190, 332 };
-
-       // Note that the following PWIDTH values have the following pixel aspect ratios:
+       // Note that the following PWIDTH values have the following pixel aspect
+       // ratios:
        // PWIDTH = 1 -> 0.25:1 (1:4) pixels (X:Y ratio)
        // PWIDTH = 2 -> 0.50:1 (1:2) pixels
        // PWIDTH = 3 -> 0.75:1 (3:4) pixels
@@ -1110,80 +1088,21 @@ uint32_t TOMGetVideoModeWidth(void)
        // PWIDTH = 7 -> 1.75:1 (7:4) pixels
        // PWIDTH = 8 -> 2.00:1 (2:1) pixels
 
-       // Also note that the JTRM says that PWIDTH of 4 gives pixels that are "about" square--
-       // this implies that the other modes have pixels that are *not* square!
+       // Also note that the JTRM says that PWIDTH of 4 gives pixels that are
+       // "about" square--this implies that the other modes have pixels that are
+       // *not* square (and they aren't)!
        // Also, I seriously doubt that you will see any games that use PWIDTH = 1!
 
-       // NOTE: Even though the PWIDTH value is + 1, here we're using a zero-based index and
-       //       so we don't bother to add one...
-//     return width[(GET16(tomRam8, VMODE) & PWIDTH) >> 9];
-
-       // Now, we just calculate it...
-/*     uint16_t hdb1 = GET16(tomRam8, HDB1), hde = GET16(tomRam8, HDE),
-               hbb = GET16(tomRam8, HBB), pwidth = ((GET16(tomRam8, VMODE) & PWIDTH) >> 9) + 1;
-//     return ((hbb < hde ? hbb : hde) - hdb1) / pwidth;
-//Temporary, for testing Doom...
-       return ((hbb < hde ? hbb : hde) - hdb1) / (pwidth == 8 ? 4 : pwidth);*/
-
-       // To make it easier to make a quasi-fixed display size, we restrict the viewing
-       // area to an arbitrary range of the Horizontal Count.
+       // To make it easier to make a quasi-fixed display size, we restrict the
+       // viewing area to an arbitrary range of the Horizontal Count.
        uint16_t pwidth = ((GET16(tomRam8, VMODE) & PWIDTH) >> 9) + 1;
        return (vjs.hardwareTypeNTSC ? RIGHT_VISIBLE_HC - LEFT_VISIBLE_HC : RIGHT_VISIBLE_HC_PAL - LEFT_VISIBLE_HC_PAL) / pwidth;
-//Temporary, for testing Doom...
-//     return (RIGHT_VISIBLE_HC - LEFT_VISIBLE_HC) / (pwidth == 8 ? 4 : pwidth);
-////   return (RIGHT_VISIBLE_HC - LEFT_VISIBLE_HC) / (pwidth == 4 ? 8 : pwidth);
-
-// More speculating...
-// According to the JTRM, the number of potential pixels across is given by the
-// Horizontal Period (HP - in NTSC this is 845). The Horizontal Count counts from
-// zero to this value twice per scanline (the high bit is set on the second count).
-// HBE and HBB define the absolute "black" limits of the screen, while HDB1/2 and
-// HDE determine the extent of the OP "on" time. I.e., when the OP is turned on by
-// HDB1, it starts fetching the line from position 0 in LBUF.
-
-// The trick, it would seem, is to figure out how long the typical visible scanline
-// of a TV is in HP ticks and limit the visible area to that (divided by PWIDTH, of
-// course). Using that length, we can establish an "absolute left display limit" with
-// which to measure HBB & HDB1/2 against when rendering LBUF (i.e., if HDB1 is 20 ticks
-// to the right of the ALDL and PWIDTH is 4, then start writing the LBUF starting at
-// backbuffer + 5 pixels).
-
-// That's basically what we're doing now...!
 }
 
 
-// *** SPECULATION ***
-// It might work better to virtualize the height settings, i.e., set the vertical
-// height at 240 lines and clip using the VDB and VDE/VP registers...
-// Same with the width... [Width is pretty much virtualized now.]
-
-// Now that that the width is virtualized, let's virtualize the height. :-)
 uint32_t TOMGetVideoModeHeight(void)
 {
-//     uint16_t vmode = GET16(tomRam8, VMODE);
-//     uint16_t vbe = GET16(tomRam8, VBE);
-//     uint16_t vbb = GET16(tomRam8, VBB);
-//     uint16_t vdb = GET16(tomRam8, VDB);
-//     uint16_t vde = GET16(tomRam8, VDE);
-//     uint16_t vp = GET16(tomRam8, VP);
-
-/*     if (vde == 0xFFFF)
-               vde = vbb;//*/
-
-//     return 227;//WAS:(vde/*-vdb*/) >> 1;
-       // The video mode height probably works this way:
-       // VC counts from 0 to VP. VDB starts the OP. Either when
-       // VDE is reached or VP, the OP is stopped. Let's try it...
-       // Also note that we're conveniently ignoring interlaced display modes...!
-//     return ((vde > vp ? vp : vde) - vdb) >> 1;
-//     return ((vde > vbb ? vbb : vde) - vdb) >> 1;
-//Let's try from the Vertical Blank interval...
-//Seems to work OK!
-//     return (vbb - vbe) >> 1;        // Again, doesn't take interlacing into account...
-// This of course doesn't take interlacing into account. But I haven't seen any
-// Jaguar software that takes advantage of it either...
-//Also, doesn't reflect PAL Jaguar either... !!! FIX !!! [DONE]
-//     return 240;                                                                             // Set virtual screen height to 240 lines...
+       // Set virtual screen height to 240 (NTSC) or 256 (PAL) lines...
        return (vjs.hardwareTypeNTSC ? 240 : 256);
 }