| 1 | |
| 2 | #include "../PicoInt.h" |
| 3 | |
| 4 | #define rot_comp Pico_mcd->rot_comp |
| 5 | |
| 6 | static const int Table_Rot_Time[] = |
| 7 | { |
| 8 | 0x00054000, 0x00048000, 0x00040000, 0x00036000, //; 008-032 ; briefing - sprite |
| 9 | 0x0002E000, 0x00028000, 0x00024000, 0x00022000, //; 036-064 ; arbre souvent |
| 10 | 0x00021000, 0x00020000, 0x0001E000, 0x0001B800, //; 068-096 ; map thunderstrike |
| 11 | 0x00019800, 0x00017A00, 0x00015C00, 0x00013E00, //; 100-128 ; logo défoncé |
| 12 | |
| 13 | 0x00012000, 0x00011800, 0x00011000, 0x00010800, //; 132-160 ; briefing - map |
| 14 | 0x00010000, 0x0000F800, 0x0000F000, 0x0000E800, //; 164-192 |
| 15 | 0x0000E000, 0x0000D800, 0x0000D000, 0x0000C800, //; 196-224 |
| 16 | 0x0000C000, 0x0000B800, 0x0000B000, 0x0000A800, //; 228-256 ; batman visage |
| 17 | |
| 18 | 0x0000A000, 0x00009F00, 0x00009E00, 0x00009D00, //; 260-288 |
| 19 | 0x00009C00, 0x00009B00, 0x00009A00, 0x00009900, //; 292-320 |
| 20 | 0x00009800, 0x00009700, 0x00009600, 0x00009500, //; 324-352 |
| 21 | 0x00009400, 0x00009300, 0x00009200, 0x00009100, //; 356-384 |
| 22 | |
| 23 | 0x00009000, 0x00008F00, 0x00008E00, 0x00008D00, //; 388-416 |
| 24 | 0x00008C00, 0x00008B00, 0x00008A00, 0x00008900, //; 420-448 |
| 25 | 0x00008800, 0x00008700, 0x00008600, 0x00008500, //; 452-476 |
| 26 | 0x00008400, 0x00008300, 0x00008200, 0x00008100, //; 480-512 |
| 27 | }; |
| 28 | |
| 29 | |
| 30 | static void gfx_cd_start(void) |
| 31 | { |
| 32 | int upd_len; |
| 33 | |
| 34 | // rot_comp.XD_Mul = ((rot_comp.Reg_5C & 0x1f) + 1) * 4; // unused |
| 35 | rot_comp.Function = (rot_comp.Reg_58 & 7) | (Pico_mcd->s68k_regs[3] & 0x18); // Jmp_Adr |
| 36 | // rot_comp.Buffer_Adr = (rot_comp.Reg_5E & 0xfff8) << 2; // unused? |
| 37 | rot_comp.YD = (rot_comp.Reg_60 >> 3) & 7; |
| 38 | rot_comp.Vector_Adr = (rot_comp.Reg_66 & 0xfffe) << 2; |
| 39 | |
| 40 | upd_len = (rot_comp.Reg_62 >> 3) & 0x3f; |
| 41 | upd_len = Table_Rot_Time[upd_len]; |
| 42 | rot_comp.Draw_Speed = rot_comp.Float_Part = upd_len; |
| 43 | |
| 44 | rot_comp.Reg_58 |= 0x8000; // Stamp_Size, we start a new GFX operation |
| 45 | |
| 46 | switch (rot_comp.Reg_58 & 6) // Scr_16? |
| 47 | { |
| 48 | case 0: // ? |
| 49 | rot_comp.Stamp_Map_Adr = (rot_comp.Reg_5A & 0xff80) << 2; |
| 50 | break; |
| 51 | case 2: // .Dot_32 |
| 52 | rot_comp.Stamp_Map_Adr = (rot_comp.Reg_5A & 0xffe0) << 2; |
| 53 | break; |
| 54 | case 4: // .Scr_16 |
| 55 | rot_comp.Stamp_Map_Adr = 0x20000; |
| 56 | break; |
| 57 | case 6: // .Scr_16_Dot_32 |
| 58 | rot_comp.Stamp_Map_Adr = (rot_comp.Reg_5A & 0xe000) << 2; |
| 59 | break; |
| 60 | } |
| 61 | |
| 62 | dprintf("gfx_cd_start, stamp_map_addr=%06x", rot_comp.Stamp_Map_Adr); |
| 63 | |
| 64 | gfx_cd_update(); |
| 65 | } |
| 66 | |
| 67 | |
| 68 | static void gfx_completed(void) |
| 69 | { |
| 70 | rot_comp.Reg_58 &= 0x7fff; // Stamp_Size |
| 71 | rot_comp.Reg_64 = 0; |
| 72 | if (Pico_mcd->s68k_regs[0x33] & (1<<1)) |
| 73 | { |
| 74 | dprintf("gfx_cd irq 1"); |
| 75 | SekInterruptS68k(1); |
| 76 | } |
| 77 | } |
| 78 | |
| 79 | |
| 80 | static void gfx_do(unsigned int func, unsigned short *stamp_base, unsigned int H_Dot) |
| 81 | { |
| 82 | unsigned int eax, ebx, ecx, edx, esi, edi, pixel; |
| 83 | unsigned int XD, Buffer_Adr; |
| 84 | int DYXS; |
| 85 | |
| 86 | XD = rot_comp.Reg_60 & 7; |
| 87 | Buffer_Adr = ((rot_comp.Reg_5E & 0xfff8) + rot_comp.YD) << 2; |
| 88 | ecx = *(unsigned int *)(Pico_mcd->word_ram2M + rot_comp.Vector_Adr); |
| 89 | edx = ecx >> 16; |
| 90 | ecx = (ecx & 0xffff) << 8; |
| 91 | edx <<= 8; |
| 92 | DYXS = *(int *)(Pico_mcd->word_ram2M + rot_comp.Vector_Adr + 4); |
| 93 | rot_comp.Vector_Adr += 8; |
| 94 | |
| 95 | // MAKE_IMAGE_LINE |
| 96 | while (H_Dot) |
| 97 | { |
| 98 | // MAKE_IMAGE_PIXEL |
| 99 | if (!(func & 1)) // NOT TILED |
| 100 | { |
| 101 | int mask = (func & 4) ? 0x00800000 : 0x00f80000; |
| 102 | if ((ecx | edx) & mask) |
| 103 | { |
| 104 | if (func & 0x18) goto Next_Pixel; |
| 105 | pixel = 0; |
| 106 | goto Pixel_Out; |
| 107 | } |
| 108 | } |
| 109 | |
| 110 | if (func & 2) // mode 32x32 dot |
| 111 | { |
| 112 | if (func & 4) // 16x16 screen |
| 113 | { |
| 114 | ebx = ((ecx >> (11+5)) & 0x007f) | |
| 115 | ((edx >> (11-2)) & 0x3f80); |
| 116 | } |
| 117 | else // 1x1 screen |
| 118 | { |
| 119 | ebx = ((ecx >> (11+5)) & 0x07) | |
| 120 | ((edx >> (11+2)) & 0x38); |
| 121 | } |
| 122 | } |
| 123 | else // mode 16x16 dot |
| 124 | { |
| 125 | if (func & 4) // 16x16 screen |
| 126 | { |
| 127 | ebx = ((ecx >> (11+4)) & 0x00ff) | |
| 128 | ((edx >> (11-4)) & 0xff00); |
| 129 | } |
| 130 | else // 1x1 screen |
| 131 | { |
| 132 | ebx = ((ecx >> (11+4)) & 0x0f) | |
| 133 | ((edx >> (11+0)) & 0xf0); |
| 134 | } |
| 135 | } |
| 136 | |
| 137 | edi = stamp_base[ebx]; |
| 138 | esi = (edi & 0x7ff) << 7; |
| 139 | if (!esi) { pixel = 0; goto Pixel_Out; } |
| 140 | edi >>= (11+1); |
| 141 | edi &= (0x1c>>1); |
| 142 | eax = ecx; |
| 143 | ebx = edx; |
| 144 | if (func & 2) edi |= 1; // 32 dots? |
| 145 | switch (edi) |
| 146 | { |
| 147 | case 0x00: // No_Flip_0, 16x16 dots |
| 148 | ebx = (ebx >> 9) & 0x3c; |
| 149 | ebx += esi; |
| 150 | edi = (eax & 0x3800) ^ 0x1000; // bswap |
| 151 | eax = ((eax >> 8) & 0x40) + ebx; |
| 152 | break; |
| 153 | case 0x01: // No_Flip_0, 32x32 dots |
| 154 | ebx = (ebx >> 9) & 0x7c; |
| 155 | ebx += esi; |
| 156 | edi = (eax & 0x3800) ^ 0x1000; // bswap |
| 157 | eax = ((eax >> 7) & 0x180) + ebx; |
| 158 | break; |
| 159 | case 0x02: // No_Flip_90, 16x16 dots |
| 160 | eax = (eax >> 9) & 0x3c; |
| 161 | eax += esi; |
| 162 | edi = (ebx & 0x3800) ^ 0x2800; // bswap |
| 163 | eax += ((ebx >> 8) & 0x40) ^ 0x40; |
| 164 | break; |
| 165 | case 0x03: // No_Flip_90, 32x32 dots |
| 166 | eax = (eax >> 9) & 0x7c; |
| 167 | eax += esi; |
| 168 | edi = (ebx & 0x3800) ^ 0x2800; // bswap |
| 169 | eax += ((ebx >> 7) & 0x180) ^ 0x180; |
| 170 | break; |
| 171 | case 0x04: // No_Flip_180, 16x16 dots |
| 172 | ebx = ((ebx >> 9) & 0x3c) ^ 0x3c; |
| 173 | ebx += esi; |
| 174 | edi = (eax & 0x3800) ^ 0x2800; // bswap and flip |
| 175 | eax = (((eax >> 8) & 0x40) ^ 0x40) + ebx; |
| 176 | break; |
| 177 | case 0x05: // No_Flip_180, 32x32 dots |
| 178 | ebx = ((ebx >> 9) & 0x7c) ^ 0x7c; |
| 179 | ebx += esi; |
| 180 | edi = (eax & 0x3800) ^ 0x2800; // bswap and flip |
| 181 | eax = (((eax >> 7) & 0x180) ^ 0x180) + ebx; |
| 182 | break; |
| 183 | case 0x06: // No_Flip_270, 16x16 dots |
| 184 | eax = ((eax >> 9) & 0x3c) ^ 0x3c; |
| 185 | eax += esi; |
| 186 | edi = (ebx & 0x3800) ^ 0x1000; // bswap |
| 187 | eax += (ebx >> 8) & 0x40; |
| 188 | break; |
| 189 | case 0x07: // No_Flip_270, 32x32 dots |
| 190 | eax = ((eax >> 9) & 0x7c) ^ 0x7c; |
| 191 | eax += esi; |
| 192 | edi = (ebx & 0x3800) ^ 0x1000; // bswap |
| 193 | eax += (ebx >> 7) & 0x180; |
| 194 | break; |
| 195 | case 0x08: // Flip_0, 16x16 dots |
| 196 | ebx = (ebx >> 9) & 0x3c; |
| 197 | ebx += esi; |
| 198 | edi = (eax & 0x3800) ^ 0x2800; // bswap, flip |
| 199 | eax = (((eax >> 8) & 0x40) ^ 0x40) + ebx; |
| 200 | break; |
| 201 | case 0x09: // Flip_0, 32x32 dots |
| 202 | ebx = (ebx >> 9) & 0x7c; |
| 203 | ebx += esi; |
| 204 | edi = (eax & 0x3800) ^ 0x2800; // bswap, flip |
| 205 | eax = (((eax >> 7) & 0x180) ^ 0x180) + ebx; |
| 206 | break; |
| 207 | case 0x0a: // Flip_90, 16x16 dots |
| 208 | eax = ((eax >> 9) & 0x3c) ^ 0x3c; |
| 209 | eax += esi; |
| 210 | edi = (ebx & 0x3800) ^ 0x2800; // bswap, flip |
| 211 | eax += ((ebx >> 8) & 0x40) ^ 0x40; |
| 212 | break; |
| 213 | case 0x0b: // Flip_90, 32x32 dots |
| 214 | eax = ((eax >> 9) & 0x7c) ^ 0x7c; |
| 215 | eax += esi; |
| 216 | edi = (ebx & 0x3800) ^ 0x2800; // bswap, flip |
| 217 | eax += ((ebx >> 7) & 0x180) ^ 0x180; |
| 218 | break; |
| 219 | case 0x0c: // Flip_180, 16x16 dots |
| 220 | ebx = ((ebx >> 9) & 0x3c) ^ 0x3c; |
| 221 | ebx += esi; |
| 222 | edi = (eax & 0x3800) ^ 0x1000; // bswap |
| 223 | eax = ((eax >> 8) & 0x40) + ebx; |
| 224 | break; |
| 225 | case 0x0d: // Flip_180, 32x32 dots |
| 226 | ebx = ((ebx >> 9) & 0x7c) ^ 0x7c; |
| 227 | ebx += esi; |
| 228 | edi = (eax & 0x3800) ^ 0x1000; // bswap |
| 229 | eax = ((eax >> 7) & 0x180) + ebx; |
| 230 | break; |
| 231 | case 0x0e: // Flip_270, 16x16 dots |
| 232 | eax = (eax >> 9) & 0x3c; |
| 233 | eax += esi; |
| 234 | edi = (ebx & 0x3800) ^ 0x1000; // bswap, flip |
| 235 | eax += (ebx >> 8) & 0x40; |
| 236 | break; |
| 237 | case 0x0f: // Flip_270, 32x32 dots |
| 238 | eax = (eax >> 9) & 0x7c; |
| 239 | eax += esi; |
| 240 | edi = (ebx & 0x3800) ^ 0x1000; // bswap, flip |
| 241 | eax += (ebx >> 7) & 0x180; |
| 242 | break; |
| 243 | } |
| 244 | |
| 245 | pixel = *(Pico_mcd->word_ram2M + (edi >> 12) + eax); |
| 246 | if (!(edi & 0x800)) pixel >>= 4; |
| 247 | else pixel &= 0x0f; |
| 248 | |
| 249 | Pixel_Out: |
| 250 | if (!pixel && (func & 0x18)) goto Next_Pixel; |
| 251 | esi = Buffer_Adr + ((XD>>1)^1); // pixel addr |
| 252 | eax = *(Pico_mcd->word_ram2M + esi); // old pixel |
| 253 | if (XD & 1) |
| 254 | { |
| 255 | if ((eax & 0x0f) && (func & 0x18) == 0x08) goto Next_Pixel; // underwrite |
| 256 | *(Pico_mcd->word_ram2M + esi) = pixel | (eax & 0xf0); |
| 257 | } |
| 258 | else |
| 259 | { |
| 260 | if ((eax & 0xf0) && (func & 0x18) == 0x08) goto Next_Pixel; // underwrite |
| 261 | *(Pico_mcd->word_ram2M + esi) = (pixel << 4) | (eax & 0xf); |
| 262 | } |
| 263 | |
| 264 | |
| 265 | Next_Pixel: |
| 266 | ecx += (DYXS << 16) >> 16; // rot_comp.DXS; |
| 267 | edx += DYXS >> 16; // rot_comp.DYS; |
| 268 | XD++; |
| 269 | if (XD >= 8) |
| 270 | { |
| 271 | Buffer_Adr += ((rot_comp.Reg_5C & 0x1f) + 1) << 5; |
| 272 | XD = 0; |
| 273 | } |
| 274 | H_Dot--; |
| 275 | } |
| 276 | // end while |
| 277 | |
| 278 | |
| 279 | // nothing_to_draw: |
| 280 | rot_comp.YD++; |
| 281 | // rot_comp.V_Dot--; // will be done by caller |
| 282 | } |
| 283 | |
| 284 | |
| 285 | void gfx_cd_update(void) |
| 286 | { |
| 287 | int V_Dot = rot_comp.Reg_64 & 0xff; |
| 288 | int jobs; |
| 289 | |
| 290 | dprintf("gfx_cd_update, Reg_64 = %04x", rot_comp.Reg_64); |
| 291 | |
| 292 | if (!V_Dot) |
| 293 | { |
| 294 | gfx_completed(); |
| 295 | return; |
| 296 | } |
| 297 | |
| 298 | jobs = rot_comp.Float_Part >> 16; |
| 299 | |
| 300 | if (!jobs) |
| 301 | { |
| 302 | rot_comp.Float_Part += rot_comp.Draw_Speed; |
| 303 | return; |
| 304 | } |
| 305 | |
| 306 | rot_comp.Float_Part &= 0xffff; |
| 307 | rot_comp.Float_Part += rot_comp.Draw_Speed; |
| 308 | |
| 309 | if (PicoOpt & 0x1000) // scale/rot enabled |
| 310 | { |
| 311 | unsigned int func = rot_comp.Function; |
| 312 | unsigned int H_Dot = rot_comp.Reg_62 & 0x1ff; |
| 313 | unsigned short *stamp_base = (unsigned short *) (Pico_mcd->word_ram2M + rot_comp.Stamp_Map_Adr); |
| 314 | |
| 315 | while (jobs--) |
| 316 | { |
| 317 | gfx_do(func, stamp_base, H_Dot); // jmp [Jmp_Adr]: |
| 318 | |
| 319 | V_Dot--; // dec byte [V_Dot] |
| 320 | if (V_Dot == 0) |
| 321 | { |
| 322 | // GFX_Completed: |
| 323 | gfx_completed(); |
| 324 | return; |
| 325 | } |
| 326 | } |
| 327 | } |
| 328 | else |
| 329 | { |
| 330 | if (jobs >= V_Dot) |
| 331 | { |
| 332 | gfx_completed(); |
| 333 | return; |
| 334 | } |
| 335 | V_Dot -= jobs; |
| 336 | } |
| 337 | |
| 338 | rot_comp.Reg_64 = V_Dot; |
| 339 | } |
| 340 | |
| 341 | |
| 342 | unsigned int gfx_cd_read(unsigned int a) |
| 343 | { |
| 344 | unsigned int d = 0; |
| 345 | |
| 346 | switch (a) { |
| 347 | case 0x58: d = rot_comp.Reg_58; break; |
| 348 | case 0x5A: d = rot_comp.Reg_5A; break; |
| 349 | case 0x5C: d = rot_comp.Reg_5C; break; |
| 350 | case 0x5E: d = rot_comp.Reg_5E; break; |
| 351 | case 0x60: d = rot_comp.Reg_60; break; |
| 352 | case 0x62: d = rot_comp.Reg_62; break; |
| 353 | case 0x64: d = rot_comp.Reg_64; break; |
| 354 | case 0x66: break; |
| 355 | default: dprintf("gfx_cd_read FIXME: unexpected address: %02x", a); break; |
| 356 | } |
| 357 | |
| 358 | dprintf("gfx_cd_read(%02x) = %04x", a, d); |
| 359 | |
| 360 | return d; |
| 361 | } |
| 362 | |
| 363 | void gfx_cd_write16(unsigned int a, unsigned int d) |
| 364 | { |
| 365 | dprintf("gfx_cd_write16(%x, %04x)", a, d); |
| 366 | |
| 367 | switch (a) { |
| 368 | case 0x58: // .Reg_Stamp_Size |
| 369 | rot_comp.Reg_58 = d & 7; |
| 370 | return; |
| 371 | |
| 372 | case 0x5A: // .Reg_Stamp_Adr |
| 373 | rot_comp.Reg_5A = d & 0xffe0; |
| 374 | return; |
| 375 | |
| 376 | case 0x5C: // .Reg_IM_VCell_Size |
| 377 | rot_comp.Reg_5C = d & 0x1f; |
| 378 | return; |
| 379 | |
| 380 | case 0x5E: // .Reg_IM_Adr |
| 381 | rot_comp.Reg_5E = d & 0xFFF8; |
| 382 | return; |
| 383 | |
| 384 | case 0x60: // .Reg_IM_Offset |
| 385 | rot_comp.Reg_60 = d & 0x3f; |
| 386 | return; |
| 387 | |
| 388 | case 0x62: // .Reg_IM_HDot_Size |
| 389 | rot_comp.Reg_62 = d & 0x1ff; |
| 390 | return; |
| 391 | |
| 392 | case 0x64: // .Reg_IM_VDot_Size |
| 393 | rot_comp.Reg_64 = d & 0xff; // V_Dot, must be 32bit? |
| 394 | return; |
| 395 | |
| 396 | case 0x66: // .Reg_Vector_Adr |
| 397 | rot_comp.Reg_66 = d & 0xfffe; |
| 398 | if (Pico_mcd->s68k_regs[3]&4) return; // can't do tanformations in 1M mode |
| 399 | gfx_cd_start(); |
| 400 | return; |
| 401 | |
| 402 | default: dprintf("gfx_cd_write16 FIXME: unexpected address: %02x", a); return; |
| 403 | } |
| 404 | } |
| 405 | |
| 406 | |
| 407 | void gfx_cd_reset(void) |
| 408 | { |
| 409 | memset(&rot_comp.Reg_58, 0, sizeof(rot_comp)); |
| 410 | } |
| 411 | |
| 412 | |
| 413 | // -------------------------------- |
| 414 | |
| 415 | #include "cell_map.c" |
| 416 | |
| 417 | typedef unsigned short u16; |
| 418 | |
| 419 | // check: Heart of the alien, jaguar xj 220 |
| 420 | void DmaSlowCell(unsigned int source, unsigned int a, int len, unsigned char inc) |
| 421 | { |
| 422 | unsigned char *base; |
| 423 | unsigned int asrc, a2; |
| 424 | u16 *r; |
| 425 | |
| 426 | base = Pico_mcd->word_ram1M[Pico_mcd->s68k_regs[3]&1]; |
| 427 | |
| 428 | switch (Pico.video.type) |
| 429 | { |
| 430 | case 1: // vram |
| 431 | r = Pico.vram; |
| 432 | for(; len; len--) |
| 433 | { |
| 434 | asrc = cell_map(source >> 2) << 2; |
| 435 | asrc |= source & 2; |
| 436 | // if(a&1) d=(d<<8)|(d>>8); // ?? |
| 437 | r[a>>1] = *(u16 *)(base + asrc); |
| 438 | source += 2; |
| 439 | // AutoIncrement |
| 440 | a=(u16)(a+inc); |
| 441 | } |
| 442 | rendstatus|=0x10; |
| 443 | break; |
| 444 | |
| 445 | case 3: // cram |
| 446 | Pico.m.dirtyPal = 1; |
| 447 | r = Pico.cram; |
| 448 | for(a2=a&0x7f; len; len--) |
| 449 | { |
| 450 | asrc = cell_map(source >> 2) << 2; |
| 451 | asrc |= source & 2; |
| 452 | r[a2>>1] = *(u16 *)(base + asrc); |
| 453 | source += 2; |
| 454 | // AutoIncrement |
| 455 | a2+=inc; |
| 456 | // good dest? |
| 457 | if(a2 >= 0x80) break; |
| 458 | } |
| 459 | a=(a&0xff00)|a2; |
| 460 | break; |
| 461 | |
| 462 | case 5: // vsram[a&0x003f]=d; |
| 463 | r = Pico.vsram; |
| 464 | for(a2=a&0x7f; len; len--) |
| 465 | { |
| 466 | asrc = cell_map(source >> 2) << 2; |
| 467 | asrc |= source & 2; |
| 468 | r[a2>>1] = *(u16 *)(base + asrc); |
| 469 | source += 2; |
| 470 | // AutoIncrement |
| 471 | a2+=inc; |
| 472 | // good dest? |
| 473 | if(a2 >= 0x80) break; |
| 474 | } |
| 475 | a=(a&0xff00)|a2; |
| 476 | break; |
| 477 | } |
| 478 | // remember addr |
| 479 | Pico.video.addr=(u16)a; |
| 480 | } |
| 481 | |