pico/32x/draw.c

   1 /*
   2  * PicoDrive
   3  * (C) notaz, 2009,2010
   4  *
   5  * This work is licensed under the terms of MAME license.
   6  * See COPYING file in the top-level directory.
   7  */
   8 #include "../pico_int.h"
   9
  10 int (*PicoScan32xBegin)(unsigned int num);
  11 int (*PicoScan32xEnd)(unsigned int num);
  12 int Pico32xDrawMode;
  13
  14 static void convert_pal555(int invert_prio)
  15 {
  16   unsigned int *ps = (void *)Pico32xMem->pal;
  17   unsigned int *pd = (void *)Pico32xMem->pal_native;
  18   unsigned int m1 = 0x001f001f;
  19   unsigned int m2 = 0x03e003e0;
  20   unsigned int m3 = 0xfc00fc00;
  21   unsigned int inv = 0;
  22   int i;
  23
  24   if (invert_prio)
  25     inv = 0x00200020;
  26
  27   // place prio to LS green bit
  28   for (i = 0x100/2; i > 0; i--, ps++, pd++) {
  29     unsigned int t = *ps;
  30     *pd = (((t & m1) << 11) | ((t & m2) << 1) | ((t & m3) >> 10)) ^ inv;
  31   }
  32
  33   Pico32x.dirty_pal = 0;
  34 }
  35
  36 // direct color mode
  37 #define do_line_dc(pd, p32x, pmd, inv, pmd_draw_code)             \
  38 {                                                                 \
  39   const unsigned int m1 = 0x001f;                                 \
  40   const unsigned int m2 = 0x03e0;                                 \
  41   const unsigned int m3 = 0x7c00;                                 \
  42   int i;                                                          \
  43                                                                   \
  44   for (i = 320; i > 0; i--, pd++, p32x++, pmd++) {                \
  45     unsigned short t = *p32x;                                     \
  46     if (*pmd != mdbg && !((t ^ inv) & 0x8000)) {                  \
  47       pmd_draw_code;                                              \
  48       continue;                                                   \
  49     }                                                             \
  50                                                                   \
  51     *pd = ((t & m1) << 11) | ((t & m2) << 1) | ((t & m3) >> 10);  \
  52   }                                                               \
  53 }
  54
  55 // packed pixel mode
  56 #define do_line_pp(pd, p32x, pmd, pmd_draw_code)                  \
  57 {                                                                 \
  58   unsigned short t;                                               \
  59   int i;                                                          \
  60   for (i = 320; i > 0; i--, pd++, p32x++, pmd++) {                \
  61     t = pal[*(unsigned char *)((long)p32x ^ 1)];                  \
  62     if ((t & 0x20) || *pmd == mdbg)                               \
  63       *pd = t;                                                    \
  64     else                                                          \
  65       pmd_draw_code;                                              \
  66   }                                                               \
  67 }
  68
  69 // run length mode
  70 #define do_line_rl(pd, p32x, pmd, pmd_draw_code)                  \
  71 {                                                                 \
  72   unsigned short len, t;                                          \
  73   int i;                                                          \
  74   for (i = 320; i > 0; p32x++) {                                  \
  75     t = pal[*p32x & 0xff];                                        \
  76     for (len = (*p32x >> 8) + 1; len > 0 && i > 0; len--, i--, pd++, pmd++) { \
  77       if (*pmd == mdbg || (t & 0x20))                             \
  78         *pd = t;                                                  \
  79       else                                                        \
  80         pmd_draw_code;                                            \
  81     }                                                             \
  82   }                                                               \
  83 }
  84
  85 void FinalizeLine32xRGB555(int sh, int line)
  86 {
  87   unsigned short *pd = DrawLineDest;
  88   unsigned short *pal = Pico32xMem->pal_native;
  89   unsigned char  *pmd = HighCol + 8;
  90   unsigned short *dram, *p32x;
  91   unsigned char   mdbg;
  92
  93   FinalizeLine555(sh, line);
  94
  95   if ((Pico32x.vdp_regs[0] & P32XV_Mx) == 0 || // 32x blanking
  96       // XXX: how is 32col mode hadled by real hardware?
  97       !(Pico.video.reg[12] & 1) || // 32col mode
  98       !(PicoDrawMask & PDRAW_32X_ON))
  99   {
 100     return;
 101   }
 102
 103   dram = (void *)Pico32xMem->dram[Pico32x.vdp_regs[0x0a/2] & P32XV_FS];
 104   p32x = dram + dram[line];
 105   mdbg = Pico.video.reg[7] & 0x3f;
 106
 107   if ((Pico32x.vdp_regs[0] & P32XV_Mx) == 2) { // Direct Color Mode
 108     int inv_bit = (Pico32x.vdp_regs[0] & P32XV_PRI) ? 0x8000 : 0;
 109     do_line_dc(pd, p32x, pmd, inv_bit,);
 110     return;
 111   }
 112
 113   if (Pico32x.dirty_pal)
 114     convert_pal555(Pico32x.vdp_regs[0] & P32XV_PRI);
 115
 116   if ((Pico32x.vdp_regs[0] & P32XV_Mx) == 1) { // Packed Pixel Mode
 117     unsigned char *p32xb = (void *)p32x;
 118     if (Pico32x.vdp_regs[2 / 2] & P32XV_SFT)
 119       p32xb++;
 120     do_line_pp(pd, p32xb, pmd,);
 121   }
 122   else { // Run Length Mode
 123     do_line_rl(pd, p32x, pmd,);
 124   }
 125 }
 126
 127 #define MD_LAYER_CODE \
 128   *dst = palmd[*pmd]
 129
 130 #define PICOSCAN_PRE \
 131   PicoScan32xBegin(l + (lines_sft_offs & 0xff)); \
 132   dst = DrawLineDest; \
 133
 134 #define PICOSCAN_POST \
 135   PicoScan32xEnd(l + (lines_sft_offs & 0xff)); \
 136
 137 #define make_do_loop(name, pre_code, post_code, md_code)        \
 138 /* Direct Color Mode */                                         \
 139 static void do_loop_dc##name(unsigned short *dst,               \
 140     unsigned short *dram, int lines_sft_offs, int mdbg)         \
 141 {                                                               \
 142   int inv_bit = (Pico32x.vdp_regs[0] & P32XV_PRI) ? 0x8000 : 0; \
 143   unsigned char  *pmd = PicoDraw2FB +                           \
 144                           328 * (lines_sft_offs & 0xff) + 8;    \
 145   unsigned short *palmd = HighPal;                              \
 146   unsigned short *p32x;                                         \
 147   int lines = lines_sft_offs >> 16;                             \
 148   int l;                                                        \
 149   (void)palmd;                                                  \
 150   for (l = 0; l < lines; l++, pmd += 8) {                       \
 151     pre_code;                                                   \
 152     p32x = dram + dram[l];                                      \
 153     do_line_dc(dst, p32x, pmd, inv_bit, md_code);               \
 154     post_code;                                                  \
 155   }                                                             \
 156 }                                                               \
 157                                                                 \
 158 /* Packed Pixel Mode */                                         \
 159 static void do_loop_pp##name(unsigned short *dst,               \
 160     unsigned short *dram, int lines_sft_offs, int mdbg)         \
 161 {                                                               \
 162   unsigned short *pal = Pico32xMem->pal_native;                 \
 163   unsigned char  *pmd = PicoDraw2FB +                           \
 164                           328 * (lines_sft_offs & 0xff) + 8;    \
 165   unsigned short *palmd = HighPal;                              \
 166   unsigned char  *p32x;                                         \
 167   int lines = lines_sft_offs >> 16;                             \
 168   int l;                                                        \
 169   (void)palmd;                                                  \
 170   for (l = 0; l < lines; l++, pmd += 8) {                       \
 171     pre_code;                                                   \
 172     p32x = (void *)(dram + dram[l]);                            \
 173     p32x += (lines_sft_offs >> 8) & 1;                          \
 174     do_line_pp(dst, p32x, pmd, md_code);                        \
 175     post_code;                                                  \
 176   }                                                             \
 177 }                                                               \
 178                                                                 \
 179 /* Run Length Mode */                                           \
 180 static void do_loop_rl##name(unsigned short *dst,               \
 181     unsigned short *dram, int lines_sft_offs, int mdbg)         \
 182 {                                                               \
 183   unsigned short *pal = Pico32xMem->pal_native;                 \
 184   unsigned char  *pmd = PicoDraw2FB +                           \
 185                           328 * (lines_sft_offs & 0xff) + 8;    \
 186   unsigned short *palmd = HighPal;                              \
 187   unsigned short *p32x;                                         \
 188   int lines = lines_sft_offs >> 16;                             \
 189   int l;                                                        \
 190   (void)palmd;                                                  \
 191   for (l = 0; l < lines; l++, pmd += 8) {                       \
 192     pre_code;                                                   \
 193     p32x = dram + dram[l];                                      \
 194     do_line_rl(dst, p32x, pmd, md_code);                        \
 195     post_code;                                                  \
 196   }                                                             \
 197 }
 198
 199 #ifdef _ASM_32X_DRAW
 200 #undef make_do_loop
 201 #define make_do_loop(name, pre_code, post_code, md_code) \
 202 extern void do_loop_dc##name(unsigned short *dst,        \
 203     unsigned short *dram, int lines_offs, int mdbg);     \
 204 extern void do_loop_pp##name(unsigned short *dst,        \
 205     unsigned short *dram, int lines_offs, int mdbg);     \
 206 extern void do_loop_rl##name(unsigned short *dst,        \
 207     unsigned short *dram, int lines_offs, int mdbg);
 208 #endif
 209
 210 make_do_loop(,,,)
 211 make_do_loop(_md, , , MD_LAYER_CODE)
 212 make_do_loop(_scan, PICOSCAN_PRE, PICOSCAN_POST, )
 213 make_do_loop(_scan_md, PICOSCAN_PRE, PICOSCAN_POST, MD_LAYER_CODE)
 214
 215 typedef void (*do_loop_func)(unsigned short *dst, unsigned short *dram, int lines, int mdbg);
 216 enum { DO_LOOP, DO_LOOP_MD, DO_LOOP_SCAN, DO_LOOP_MD_SCAN };
 217
 218 static const do_loop_func do_loop_dc_f[] = { do_loop_dc, do_loop_dc_md, do_loop_dc_scan, do_loop_dc_scan_md };
 219 static const do_loop_func do_loop_pp_f[] = { do_loop_pp, do_loop_pp_md, do_loop_pp_scan, do_loop_pp_scan_md };
 220 static const do_loop_func do_loop_rl_f[] = { do_loop_rl, do_loop_rl_md, do_loop_rl_scan, do_loop_rl_scan_md };
 221
 222 void PicoDraw32xLayer(int offs, int lines, int md_bg)
 223 {
 224   int have_scan = PicoScan32xBegin != NULL && PicoScan32xEnd != NULL;
 225   const do_loop_func *do_loop;
 226   unsigned short *dram;
 227   int lines_sft_offs;
 228   int which_func;
 229
 230   DrawLineDest = (char *)DrawLineDestBase + offs * DrawLineDestIncrement;
 231   dram = Pico32xMem->dram[Pico32x.vdp_regs[0x0a/2] & P32XV_FS];
 232
 233   if (Pico32xDrawMode == PDM32X_BOTH) {
 234     if (Pico.m.dirtyPal)
 235       PicoDrawUpdateHighPal();
 236   }
 237
 238   if ((Pico32x.vdp_regs[0] & P32XV_Mx) == 2)
 239   {
 240     // Direct Color Mode
 241     do_loop = do_loop_dc_f;
 242     goto do_it;
 243   }
 244
 245   if (Pico32x.dirty_pal)
 246     convert_pal555(Pico32x.vdp_regs[0] & P32XV_PRI);
 247
 248   if ((Pico32x.vdp_regs[0] & P32XV_Mx) == 1)
 249   {
 250     // Packed Pixel Mode
 251     do_loop = do_loop_pp_f;
 252   }
 253   else
 254   {
 255     // Run Length Mode
 256     do_loop = do_loop_rl_f;
 257   }
 258
 259 do_it:
 260   if (Pico32xDrawMode == PDM32X_BOTH)
 261     which_func = have_scan ? DO_LOOP_MD_SCAN : DO_LOOP_MD;
 262   else
 263     which_func = have_scan ? DO_LOOP_SCAN : DO_LOOP;
 264   lines_sft_offs = (lines << 16) | offs;
 265   if (Pico32x.vdp_regs[2 / 2] & P32XV_SFT)
 266     lines_sft_offs |= 1 << 8;
 267
 268   do_loop[which_func](DrawLineDest, dram, lines_sft_offs, md_bg);
 269 }
 270
 271 // mostly unused, games tend to keep 32X layer on
 272 void PicoDraw32xLayerMdOnly(int offs, int lines)
 273 {
 274   int have_scan = PicoScan32xBegin != NULL && PicoScan32xEnd != NULL;
 275   unsigned short *dst = (void *)((char *)DrawLineDestBase + offs * DrawLineDestIncrement);
 276   unsigned char  *pmd = PicoDraw2FB + 328 * offs + 8;
 277   unsigned short *pal = HighPal;
 278   int poffs = 0, plen = 320;
 279   int l, p;
 280
 281   if (!(Pico.video.reg[12] & 1)) {
 282     // 32col mode
 283     poffs = 32;
 284     plen = 256;
 285   }
 286
 287   if (Pico.m.dirtyPal)
 288     PicoDrawUpdateHighPal();
 289
 290   dst += poffs;
 291   for (l = 0; l < lines; l++) {
 292     if (have_scan) {
 293       PicoScan32xBegin(l + offs);
 294       dst = DrawLineDest + poffs;
 295     }
 296     for (p = 0; p < plen; p += 4) {
 297       dst[p + 0] = pal[*pmd++];
 298       dst[p + 1] = pal[*pmd++];
 299       dst[p + 2] = pal[*pmd++];
 300       dst[p + 3] = pal[*pmd++];
 301     }
 302     dst = (void *)((char *)dst + DrawLineDestIncrement);
 303     pmd += 328 - plen;
 304     if (have_scan)
 305       PicoScan32xEnd(l + offs);
 306   }
 307 }
 308
 309 void PicoDraw32xSetFrameMode(int is_on, int only_32x)
 310 {
 311 #ifdef _ASM_32X_DRAW
 312   extern void *Pico32xNativePal;
 313   Pico32xNativePal = Pico32xMem->pal_native;
 314 #endif
 315
 316   if (is_on) {
 317     // use the same layout as alt renderer
 318     PicoDrawSetInternalBuf(PicoDraw2FB, 328);
 319     Pico32xDrawMode = only_32x ? PDM32X_32X_ONLY : PDM32X_BOTH;
 320   } else {
 321     PicoDrawSetInternalBuf(NULL, 0);
 322     Pico32xDrawMode = PDM32X_OFF;
 323   }
 324 }
 325