5 * This work is licensed under the terms of MAME license.
6 * See COPYING file in the top-level directory.
8 #include "../pico_int.h"
10 int (*PicoScan32xBegin)(unsigned int num);
11 int (*PicoScan32xEnd)(unsigned int num);
14 static void convert_pal555(int invert_prio)
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;
27 // place prio to LS green bit
28 for (i = 0x100/2; i > 0; i--, ps++, pd++) {
30 *pd = (((t & m1) << 11) | ((t & m2) << 1) | ((t & m3) >> 10)) ^ inv;
33 Pico32x.dirty_pal = 0;
37 #define do_line_dc(pd, p32x, pmd, inv, pmd_draw_code) \
39 const unsigned int m1 = 0x001f; \
40 const unsigned int m2 = 0x03e0; \
41 const unsigned int m3 = 0x7c00; \
44 for (i = 320; i > 0; i--, pd++, p32x++, pmd++) { \
45 unsigned short t = *p32x; \
46 if (*pmd != mdbg && !((t ^ inv) & 0x8000)) { \
51 *pd = ((t & m1) << 11) | ((t & m2) << 1) | ((t & m3) >> 10); \
56 #define do_line_pp(pd, p32x, pmd, pmd_draw_code) \
60 for (i = 320; i > 0; i--, pd++, p32x++, pmd++) { \
61 t = pal[*(unsigned char *)((long)p32x ^ 1)]; \
62 if ((t & 0x20) || *pmd == mdbg) \
70 #define do_line_rl(pd, p32x, pmd, pmd_draw_code) \
72 unsigned short len, t; \
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)) \
85 void FinalizeLine32xRGB555(int sh, int line)
87 unsigned short *pd = DrawLineDest;
88 unsigned short *pal = Pico32xMem->pal_native;
89 unsigned char *pmd = HighCol + 8;
90 unsigned short *dram, *p32x;
93 FinalizeLine555(sh, line);
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))
103 dram = (void *)Pico32xMem->dram[Pico32x.vdp_regs[0x0a/2] & P32XV_FS];
104 p32x = dram + dram[line];
105 mdbg = Pico.video.reg[7] & 0x3f;
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,);
113 if (Pico32x.dirty_pal)
114 convert_pal555(Pico32x.vdp_regs[0] & P32XV_PRI);
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)
120 do_line_pp(pd, p32xb, pmd,);
122 else { // Run Length Mode
123 do_line_rl(pd, p32x, pmd,);
127 #define MD_LAYER_CODE \
130 #define PICOSCAN_PRE \
131 PicoScan32xBegin(l + (lines_sft_offs & 0xff)); \
132 dst = DrawLineDest; \
134 #define PICOSCAN_POST \
135 PicoScan32xEnd(l + (lines_sft_offs & 0xff)); \
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) \
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; \
150 for (l = 0; l < lines; l++, pmd += 8) { \
152 p32x = dram + dram[l]; \
153 do_line_dc(dst, p32x, pmd, inv_bit, md_code); \
158 /* Packed Pixel Mode */ \
159 static void do_loop_pp##name(unsigned short *dst, \
160 unsigned short *dram, int lines_sft_offs, int mdbg) \
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; \
170 for (l = 0; l < lines; l++, pmd += 8) { \
172 p32x = (void *)(dram + dram[l]); \
173 p32x += (lines_sft_offs >> 8) & 1; \
174 do_line_pp(dst, p32x, pmd, md_code); \
179 /* Run Length Mode */ \
180 static void do_loop_rl##name(unsigned short *dst, \
181 unsigned short *dram, int lines_sft_offs, int mdbg) \
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; \
191 for (l = 0; l < lines; l++, pmd += 8) { \
193 p32x = dram + dram[l]; \
194 do_line_rl(dst, p32x, pmd, md_code); \
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);
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)
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 };
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 };
222 void PicoDraw32xLayer(int offs, int lines, int md_bg)
224 int have_scan = PicoScan32xBegin != NULL && PicoScan32xEnd != NULL;
225 const do_loop_func *do_loop;
226 unsigned short *dram;
230 DrawLineDest = (char *)DrawLineDestBase + offs * DrawLineDestIncrement;
231 dram = Pico32xMem->dram[Pico32x.vdp_regs[0x0a/2] & P32XV_FS];
233 if (Pico32xDrawMode == PDM32X_BOTH) {
235 PicoDrawUpdateHighPal();
238 if ((Pico32x.vdp_regs[0] & P32XV_Mx) == 2)
241 do_loop = do_loop_dc_f;
245 if (Pico32x.dirty_pal)
246 convert_pal555(Pico32x.vdp_regs[0] & P32XV_PRI);
248 if ((Pico32x.vdp_regs[0] & P32XV_Mx) == 1)
251 do_loop = do_loop_pp_f;
256 do_loop = do_loop_rl_f;
260 if (Pico32xDrawMode == PDM32X_BOTH)
261 which_func = have_scan ? DO_LOOP_MD_SCAN : DO_LOOP_MD;
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;
268 do_loop[which_func](DrawLineDest, dram, lines_sft_offs, md_bg);
271 // mostly unused, games tend to keep 32X layer on
272 void PicoDraw32xLayerMdOnly(int offs, int lines)
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;
281 if (!(Pico.video.reg[12] & 1)) {
288 PicoDrawUpdateHighPal();
291 for (l = 0; l < lines; l++) {
293 PicoScan32xBegin(l + offs);
294 dst = DrawLineDest + poffs;
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++];
302 dst = (void *)((char *)dst + DrawLineDestIncrement);
305 PicoScan32xEnd(l + offs);
309 void PicoDraw32xSetFrameMode(int is_on, int only_32x)
312 extern void *Pico32xNativePal;
313 Pico32xNativePal = Pico32xMem->pal_native;
317 // use the same layout as alt renderer
318 PicoDrawSetInternalBuf(PicoDraw2FB, 328);
319 Pico32xDrawMode = only_32x ? PDM32X_32X_ONLY : PDM32X_BOTH;
321 PicoDrawSetInternalBuf(NULL, 0);
322 Pico32xDrawMode = PDM32X_OFF;