/*************************************************************************** -= Gal's Panic II =- driver by Luca Elia (l.elia@tin.it) ***************************************************************************/ #include "driver.h" #include "kaneko16.h" /* 304000:0040 0000 0100 0000-0000 0000 0000 0000 (Sprites regs) 304010:16C0 0200 16C0 0200-16C0 0200 16C0 0200 */ /*************************************************************************** Palettized Background Layers ***************************************************************************/ UINT16 *galpani2_bg8_0, *galpani2_bg8_1; UINT16 *galpani2_palette_0, *galpani2_palette_1; UINT16 *galpani2_bg8_regs_0, *galpani2_bg8_regs_1; UINT16 *galpani2_bg8_0_scrollx, *galpani2_bg8_1_scrollx; UINT16 *galpani2_bg8_0_scrolly, *galpani2_bg8_1_scrolly; static mame_bitmap *galpani2_bg8_bitmap_0, *galpani2_bg8_bitmap_1; #define galpani2_BG8_REGS_R( _n_ ) \ READ16_HANDLER( galpani2_bg8_regs_##_n_##_r ) \ { \ switch (offset * 2) \ { \ case 0x16: return mame_rand(Machine) & 1; \ default: \ logerror("CPU #0 PC %06X : Warning, bg8 #%d screen reg %04X read\n",activecpu_get_pc(),_n_,offset*2); \ } \ return galpani2_bg8_regs_##_n_[offset]; \ } /* 000-3ff row? scroll 400 ? 800-bff col? scroll c04 0003 flip, 0300 flip? c1c/e 01ff scroll, 3000 ? */ #define galpani2_BG8_REGS_W( _n_ ) \ WRITE16_HANDLER( galpani2_bg8_regs_##_n_##_w ) \ { \ COMBINE_DATA(&galpani2_bg8_regs_##_n_[offset]); \ } #define galpani2_BG8_W( _n_ ) \ WRITE16_HANDLER( galpani2_bg8_##_n_##_w ) \ { \ int x,y,pen; \ UINT16 newword = COMBINE_DATA(&galpani2_bg8_##_n_[offset]); \ pen = newword & 0xff; \ x = (offset % 512); /* 512 x 256 */ \ y = (offset / 512); \ *BITMAP_ADDR16(galpani2_bg8_bitmap_##_n_, y, x) = Machine->pens[0x4000 + pen]; \ } #define galpani2_BG8_PALETTE_W( _n_ ) \ WRITE16_HANDLER( galpani2_palette_##_n_##_w ) \ { \ UINT16 newword = COMBINE_DATA(&galpani2_palette_##_n_[offset]); \ palette_set_color_rgb( Machine, offset + 0x4000 + _n_ * 0x100, pal5bit(newword >> 5), pal5bit(newword >> 10), pal5bit(newword >> 0) ); \ } galpani2_BG8_REGS_R( 0 ) galpani2_BG8_REGS_R( 1 ) galpani2_BG8_REGS_W( 0 ) galpani2_BG8_REGS_W( 1 ) galpani2_BG8_W( 0 ) galpani2_BG8_W( 1 ) galpani2_BG8_PALETTE_W( 0 ) galpani2_BG8_PALETTE_W( 1 ) /*************************************************************************** xRGB Background Layer ***************************************************************************/ UINT16 *galpani2_bg15; static mame_bitmap *galpani2_bg15_bitmap; /* 8 horizontal pages of 256x256 pixels? */ WRITE16_HANDLER( galpani2_bg15_w ) { UINT16 newword = COMBINE_DATA(&galpani2_bg15[offset]); int x = (offset % 256) + (offset / (256*256)) * 256 ; int y = (offset / 256) % 256; *BITMAP_ADDR16(galpani2_bg15_bitmap, y, x) = Machine->pens[0x4200 + (newword & 0x7fff)]; } /*************************************************************************** Video Init Functions ***************************************************************************/ PALETTE_INIT( galpani2 ) { int i; /* first $4200 colors are dynamic */ /* initialize 555 RGB lookup */ for (i = 0; i < 0x8000; i++) palette_set_color_rgb(machine,0x4200+i,pal5bit(i >> 5),pal5bit(i >> 10),pal5bit(i >> 0)); } VIDEO_START( galpani2 ) { galpani2_bg15_bitmap = auto_bitmap_alloc(256*8, 256, BITMAP_FORMAT_INDEXED16); galpani2_bg8_bitmap_0 = auto_bitmap_alloc(512, 256, BITMAP_FORMAT_INDEXED16); galpani2_bg8_bitmap_1 = auto_bitmap_alloc(512, 256, BITMAP_FORMAT_INDEXED16); video_start_kaneko16_sprites(machine); } /*************************************************************************** Screen Drawing ***************************************************************************/ VIDEO_UPDATE( galpani2 ) { int layers_ctrl = -1; galpani2_mcu_run(); #ifdef MAME_DEBUG if (input_code_pressed(KEYCODE_Z)) { int msk = 0; if (input_code_pressed(KEYCODE_Q)) msk |= 1; if (input_code_pressed(KEYCODE_W)) msk |= 2; if (input_code_pressed(KEYCODE_E)) msk |= 4; if (input_code_pressed(KEYCODE_A)) msk |= 8; if (msk != 0) layers_ctrl &= msk; } #endif fillbitmap(bitmap,machine->pens[0],cliprect); fillbitmap(priority_bitmap,0,cliprect); if (layers_ctrl & 0x1) { int x = 0; int y = 0; copyscrollbitmap( bitmap, galpani2_bg15_bitmap, 1, &x, 1, &y, cliprect,TRANSPARENCY_PEN,machine->pens[0x4200 + 0]); } /* test mode: 304000:0040 0000 0100 0000-0000 0000 0000 0000 (Sprite regs) 304010:16C0 0200 16C0 0200-16C0 0200 16C0 0200 16c0/40 = 5b 200/40 = 8 scrollx = f5, on screen x should be 0 (f5+5b = 150) */ if (layers_ctrl & 0x2) { int x = - ( *galpani2_bg8_0_scrollx + 0x200 - 0x0f5 ); int y = - ( *galpani2_bg8_0_scrolly + 0x200 - 0x1be ); copyscrollbitmap( bitmap, galpani2_bg8_bitmap_0, 1, &x, 1, &y, cliprect,TRANSPARENCY_PEN,machine->pens[0x4000 + 0]); } if (layers_ctrl & 0x4) { int x = - ( *galpani2_bg8_1_scrollx + 0x200 - 0x0f5 ); int y = - ( *galpani2_bg8_1_scrolly + 0x200 - 0x1be ); copyscrollbitmap( bitmap, galpani2_bg8_bitmap_1, 1, &x, 1, &y, cliprect,TRANSPARENCY_PEN,machine->pens[0x4000 + 0]); } if (layers_ctrl & 0x8) kaneko16_draw_sprites(machine, bitmap, cliprect); return 0; }