diff options
Diffstat (limited to 'src/mame/drivers/gunpey.cpp')
-rw-r--r-- | src/mame/drivers/gunpey.cpp | 1208 |
1 files changed, 0 insertions, 1208 deletions
diff --git a/src/mame/drivers/gunpey.cpp b/src/mame/drivers/gunpey.cpp deleted file mode 100644 index 866157d1bf7..00000000000 --- a/src/mame/drivers/gunpey.cpp +++ /dev/null @@ -1,1208 +0,0 @@ -// license:LGPL-2.1+ -// copyright-holders:Angelo Salese, Tomasz Slanina, David Haywood, Luca Elia, Morten Shearman Kirkegaard -/******************************************************************************************** - - Gunpey (c) 2000 Banpresto - - TODO: - - Framebuffer is actually in the same DRAM as the blitter data gets copied to, not a - separate RAM. It (and the double buffered copy) appear near the top right of the - framebuffer, so there are likely registers to control this that need finding. - - Other sprite modes supported by the video chip (not used here?) - - Check zooming precision against hardware - - Cleanup (still a lot of debug code in here) - -============================================================================================= -ASM code study: -0x84718 main code -0x8472c call 0x81f34 reading of dip-switches - 0x5e62: -0x84731 call 0x81f5c move dip-switches settings to work RAM -0x84736 call 0x80ae4 writes to i/os 0x7fc0-0x7fff: - 0x7fc0: 0x00 - 0x7fc1: 0x00 - 0x7fc2: 0x40 - 0x7fc3: 0x03 - 0x7fc4: 0x72 - 0x7fc5: 0x72 - 0x7fc6: 0x90 - 0x7fc7: 0x01 - 0x7fc8: 0x55 irq mask? - (note: skips irq ack) - 0x7fca: 0x00 - 0x7fcb: 0x00 - 0x7fcc: 0x00 - 0x7fcd: 0x00 - 0x7fce: 0x00 - 0x7fcf: 0x07 - 0x7fd0: 0x00 - 0x7fd1: 0x00 - 0x7fd2: 0x00 - 0x7fd3: 0x8c - 0x7fd4-0x7fde: 0x00 - (skips 0x7fdf) - 0x7fe0: 0x40 - 0x7fe1: 0x02 - 0x7fe2: 0x00 - 0x7fe3: 0x00 - 0x7fe4: 0x60 - 0x7fe5: 0x07 - 0x7fe6: 0x88 - 0x7fe7: 0x07 - 0x7fe8: 0x9f - 0x7fe9: 0x08 - 0x7fea: 0x77 - 0x7feb: 0x08 - (here the code writes 16-bit words, read from 0x500e ...) - 0x7fec: 0x00 - 0x7fed: 0x84 - (read from 0x5012) - 0x7fee: 0x00 - 0x7fef: 0x88 - (returns to byte filling) - 0x7ff0: 0x84 - 0x7ff1: 0x00 - 0x7ff2: 0x00 - 0x7ff3: 0x01 - 0x7ff4: 0x00 - 0x7ff5: 0x00 - 0x7ff6: 0xc7 - 0x7ff7: 0x56 - 0x7ff8: 0x3f - 0x7ff9: 0x48 - 0x7ffa: 0x9a - 0x7ffb: 0x22 - 0x7ffc: 0x0e - 0x7ffd: 0x43 - 0x7ffe: 0xf0 - 0x7fff: 0x15 - Then, it fills the following work RAMs (with 0 except where noted): - 0x5e36, 0x5e38, 0x5e44, 0x5e46 (4), 0x5e48, 0x5e4a, 0x5e40, 0x5e42, 0x5b68 (0x9c8), 0x5b6a (0x9c8), 0x59c4 (1) -0x8473b: call 0x81415 - reads [0x500e] -> [0xf0bc] - reads [0x5010] -> [0xf0be] - (does it twice, shrug -.-") - reads 0xf0bc / 0xf0be - AW = 0xb3c9, CW = 0x10 - 0x81447: call 0xb3aa0 - moves RAM from 0xb3c90-0xb3c9f to RAM 0x400-0x40f - writes 0x800 to [0xf0b8] writes 0 to [0xf0ba] - loops while writing to [0xf0b8] [0xf0ba] for 0x200 times, filling a table at [0x800][0x27f0] with a 1 - writes 0x800 to [0xf0b8] writes 0 to [0xf0ba] again - reads the [0xf0b8][0xf0ba] - 0x81484: call 0xb3aa0 - moves RAM from 0xb3ca0-0xb3caf to RAM 0x800-0x80f - writes 0x2800 to [0xf0b8] writes 0 to [0xf0ba] - loops while writing to [0xf0b8] [0xf0ba] for 0x200 times, filling a table at [0x2800][0x47f0] with a 1 - 0x81484: call 0xb3aa0 - moves RAM from 0xb3ca0-0xb3caf to RAM 0x2800-0x280f -0x84740: call 0x821cd - fills 0x5c88-0x5c9a with this pattern (byte writes): - [+0x00] 0x00 - [+0x02] 0x00 - [+0x08] 0x00 - [+0x04] 0x00 - [+0x0c] 0x00 - [+0x0e] 0x0c - [+0x06] 0x00 - [+0x10] 0x00 - [+0x12] 0x0c - does the same with 0x5c89-0x5c9b -0x84745: call 0x82026 - checks if 0x5e62 is 0 (bit 6 of 0x5c80, i/o 0x7f41) - ... -0x8474a: call 0xa7f53 sound init -... - - - -============================================================================================= - -Gunpey -Banpresto, 2000 - -The hardware looks very Raizing/8ing -ish, especially the ROM stickers and PCB silk-screening -which are identical to those on Brave Blade and Battle Bakraid ;-) - -PCB Layout ----------- - -VG-10 -|-------------------------------------| -| M6295 ROM5 | -| YMZ280B-F ROM4 ROM3 | -| YAC516 16.93MHz | -| 61256 ROM1 | -| 61256 ROM2 | -|J | -|A PAL XILINX | -|M XC95108 | -|M 57.2424MHz | -|A V30 | -| | -| |-------| | -| |AXELL | | -| DSW1 |AG-1 | | -| DSW2 |AX51101| T2316162 | -| |-------| T2316162 | -|-------------------------------------| - -Notes: - V30 clock: 14.3106MHz (= 57.2424 / 4) - YMZ280B clock: 16.93MHz - OKI M6295 clock: 2.11625MHz (= 16.93 / 8), sample rate = clock / 165 - VSync: 60Hz - HSync: 15.79kHz - - ROMs: - GP_ROM1.021 \ - GP_ROM2.022 / 27C040, Main program - - GP_ROM3.025 \ - GP_ROM4.525 / SOP44 32M MASK, Graphics - - GP_ROM5.622 SOP44 32M MASK, OKI samples - - -AX51101 gfx chip: - -Axell Corporation is a Japanese company that specialises in Sound and Graphics (Amusement Graphics) LSI. -The AG-1 is a sprite system controller meant for the amusement industry, such as pachi-slot machines, -it has reached end-of-life in about 2005. -These are the specifications of the Axell AG-1 AX51102A, it should be very similar to the AX51101. -(excuse the strange grammar, it is a JP->EN translation) - -Drawing technique: Sprite system -Buffer drawing method: Double frame buffer -Configuration of the character: Configured from 2 or more cells, a cell can be set in units of each dot a horizontal, vertical from 1 to 256 dots -Maximum character size: 4096 x 4096 dot -Display the number of sprite: Up to 127 sheets (register 2KB) -Maximum drawing speed: Dot sec / 2500-35000000 highest -Color depth: 32,768 colors (5 bits for each RGB) -Color scheme: Cell character unit can be specified in 256 colors of palettes, and 16 colors -Scaling: 256 times the resolution of 1/64 to 4 cell character unit -Semi-transparent processing: Gradation in the unit cell or 32 character -Intensity modulation: Gradation in the unit cell or 32 character -Other Features: Rotation, DMA, BitBLT, Built-in flip -Display resolution: 100 to 600 dots horizontal, 120 to 800 dots vertical -Virtual screen size: Up to 4096 x 4096 dot -CGRAM space: 4M-bit minimum, 32M-bit maximum -Operating frequency: Up to 76MHz -Release: November 1999 - -********************************************************************************************/ - -#include "emu.h" -#include "cpu/nec/nec.h" -#include "machine/timer.h" -#include "sound/okim6295.h" -#include "sound/ymz280b.h" -#include "emupal.h" -#include "screen.h" -#include "speaker.h" - -namespace { - -struct state_s -{ - unsigned char *buf; - unsigned char bits; - int num_bits; - unsigned char colour[16]; - int basex; - int ix, iy, iw; - int dx, dy; - int ow, oh; - int ox, oy; - - void set_o(unsigned char v); - unsigned char get_o(int x, int y) const; - - static void hn_bytes_new_colour(state_s &s, unsigned char v, int n); - static void hn_bytes_prev_colour(state_s &s, unsigned char v, int n); - static void hn_copy_directly(state_s &s, unsigned char v, int n); - static void hn_copy_plus_one(state_s &s, unsigned char v, int n); - static void hn_copy_minus_one(state_s &s, unsigned char v, int n); -}; - - -struct huffman_node_s -{ - const char *bits; - void (*func)(state_s &, unsigned char, int); - int arg0_bits; - int arg1_val; -}; - - -constexpr u32 get_video_addr(u16 x, u16 y) -{ - return (x & 0x7ff) | (u32(y & 0x7ff) << 11); -} - - -class gunpey_state : public driver_device -{ -public: - gunpey_state(const machine_config &mconfig, device_type type, const char *tag) - : driver_device(mconfig, type, tag) - , m_maincpu(*this, "maincpu") - , m_palette(*this, "palette") - , m_oki(*this, "oki") - , m_wram(*this, "wram") - , m_blit_rom(*this, "blit_rom") - { } - - void gunpey(machine_config &config); - -protected: - virtual void machine_start() override; - virtual void video_start() override; - -private: - // memory handlers - void status_w(offs_t offset, u8 data); - u8 status_r(offs_t offset); - u8 inputs_r(offs_t offset); - void blitter_w(offs_t offset, u8 data); - void blitter_upper_w(offs_t offset, u8 data); - void blitter_upper2_w(offs_t offset, u8 data); - void output_w(u8 data); - void vram_bank_w(offs_t offset, u16 data, u16 mem_mask = ~0); - void vregs_addr_w(offs_t offset, u16 data, u16 mem_mask = ~0); - - // video related - u32 screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect); - TIMER_DEVICE_CALLBACK_MEMBER(scanline); - - // draw functions - bool draw_gfx(bitmap_ind16 &bitmap, const rectangle &cliprect, int count, u8 scene_gradient); - void draw_pixel_clut(bitmap_ind16 &bitmap, const rectangle &cliprect, int x, int xi, int y, int yi, u8 pix, int color, int alpha, u8 scene_gradient); - void draw_pixel(bitmap_ind16 &bitmap, const rectangle &cliprect, int x, int xi, int y, int yi, u16 color_data, int alpha, u8 scene_gradient); - - // internal states - //std::unique_ptr<u16[]> m_blit_buffer; - std::unique_ptr<u8[]> m_vram; - u16 m_vram_bank = 0; - u16 m_vreg_addr = 0; - - // blitter related - u8 m_blit_ram[0x10] = {0}; - int m_srcx = 0; - int m_srcxbase = 0; - int m_srcxcount = 0; - int m_srcy = 0; - int m_srcycount = 0; - int m_ysize = 0; - int m_xsize = 0; - int m_dstx = 0; - int m_dsty = 0; - int m_dstxbase = 0; - int m_dstxcount = 0; - int m_dstycount = 0; - bool write_dest_byte(u8 usedata); - - // blitter timers - emu_timer *m_blitter_end_timer; - TIMER_CALLBACK_MEMBER(blitter_end); - - // decompressor functions - u8 get_vrom_byte(int x, int y); - bool decompress_sprite(unsigned char *buf, int ix, int iy, int ow, int oh, int dx, int dy); - bool next_node(const huffman_node_s **res, state_s *s); - int get_next_bit(state_s *s); - - // interrupt functions - u8 m_irq_cause = 0, m_irq_mask = 0; - void irq_check(u8 irq_type); - - // devices - required_device<cpu_device> m_maincpu; - required_device<palette_device> m_palette; - required_device<okim6295_device> m_oki; - - // shared pointers - required_shared_ptr<u16> m_wram; - - // memory regions - required_region_ptr<u8> m_blit_rom; - - // address spaces - void io_map(address_map &map); - void mem_map(address_map &map); -}; - - -void gunpey_state::machine_start() -{ - m_irq_cause = 0; - m_irq_mask = 0; - - save_item(NAME(m_irq_cause)); - save_item(NAME(m_irq_mask)); -} - -void gunpey_state::video_start() -{ - // assumes it can make an address mask from m_blit_rom.length() - 1 - assert(!(m_blit_rom.length() & (m_blit_rom.length() - 1))); - - // initialize VRAM - //m_blit_buffer = std::make_unique<u16[]>(512*512); - m_vram = std::make_unique<u8[]>(0x400000); - std::fill_n(&m_vram[0], 0x400000, 0xff); - - m_blitter_end_timer = machine().scheduler().timer_alloc(timer_expired_delegate(FUNC(gunpey_state::blitter_end), this)); - - save_item(NAME(m_vram_bank)); - save_item(NAME(m_vreg_addr)); - save_item(NAME(m_blit_ram)); - save_item(NAME(m_srcx)); - save_item(NAME(m_srcxbase)); - save_item(NAME(m_srcxcount)); - save_item(NAME(m_srcy)); - save_item(NAME(m_srcycount)); - save_item(NAME(m_ysize)); - save_item(NAME(m_xsize)); - save_item(NAME(m_dstx)); - save_item(NAME(m_dsty)); - save_item(NAME(m_dstxbase)); - save_item(NAME(m_dstxcount)); - save_item(NAME(m_dstycount)); - save_pointer(NAME(m_vram), 0x400000); -} - -void gunpey_state::draw_pixel_clut(bitmap_ind16 &bitmap, const rectangle &cliprect, int x, int xi, int y, int yi, u8 pix, int color, int alpha, u8 scene_gradient) -{ - color += u32(pix); - - // get palette - const u32 col_offs = get_video_addr((color & 0xff) << 1, (color >> 8)); - const u16 color_data = (m_vram[col_offs]) | (m_vram[col_offs + 1] << 8); - - draw_pixel(bitmap, cliprect, x, xi, y, yi, color_data, alpha, scene_gradient); -} - -void gunpey_state::draw_pixel(bitmap_ind16 &bitmap, const rectangle &cliprect, int x, int xi, int y, int yi, u16 color_data, int alpha, u8 scene_gradient) -{ - if (!(color_data & 0x8000)) - { - if (scene_gradient & 0x40) - { - s16 r = BIT(color_data, 10, 5); - s16 g = BIT(color_data, 5, 5); - s16 b = BIT(color_data, 0, 5); - r = std::max(0, r - (scene_gradient & 0x1f)); - g = std::max(0, g - (scene_gradient & 0x1f)); - b = std::max(0, b - (scene_gradient & 0x1f)); - - color_data = (color_data & 0x8000) | (r << 10) | (g << 5) | (b << 0); - } - - if (cliprect.contains(x + xi, y + yi)) - { - if (alpha == 0x00) // a value of 0x00 is solid - bitmap.pix(y + yi, x + xi) = color_data & 0x7fff; - else - bitmap.pix(y + yi, x + xi) = alpha_blend_r16(color_data, bitmap.pix(y + yi, x + xi), alpha) & 0x7fff; - } - } -} - -bool gunpey_state::draw_gfx(bitmap_ind16 &bitmap, const rectangle &cliprect, int count, u8 scene_gradient) -{ - const int ZOOM_SHIFT = 15; - // there doesn't seem to be a specific bit to mark compressed sprites (we currently have a hack to look at the first byte of the data) - // do they get decompressed at blit time instead? of are there other registers we need to look at - - // +0 +1 +2 +3 +4 +5 +6 +7 - // cccc cccc e--b b--- | xxxx x--- u--t tttt | yyyy yy-- --XX XXXX | nnnn nnnn ---Y YYYY | mmmm mmmm -MMM -NNN | hhhh hhhh wwww wwww | ---- ---- oooo oooo | pppp pppp ---- ---- | - - // c = color palette - // e = END marker - // b = bpp select - // x = LSB x source - // X = MSB x source - // y = LSB y source - // Y = MSB y source - // n = LSB X DRAW position - // N = MSB X DRAW position - // m = LSB Y DRAW position - // M = MSB Y DRAW position - // h = height - // w = width - // u = unknown, set on text, maybe 'solid' ? - // o = zoom width - // p = zoom height - // t = transparency / alpha related? (0x10 on player cursor, 0xf when swapping, other values at other times..) - const int debug = 0; - - if (!(m_wram[count + 0] & 1)) - { - int x = (m_wram[count + 3] >> 8) | ((m_wram[count + 4] & 0x03) << 8); - int y = (m_wram[count + 4] >> 8) | ((m_wram[count + 4] & 0x30) << 4); - const u32 zoomheight = (m_wram[count + 5] >> 8); - const u32 zoomwidth = (m_wram[count + 5] & 0xff); - const int bpp_sel = (m_wram[count + 0] & 0x18); - int color = (m_wram[count + 0] >> 8); - - x -= 0x160; - y -= 0x188; - - const u32 sourcewidth = (m_wram[count + 6] & 0xff) << ZOOM_SHIFT; - const u32 sourceheight = (m_wram[count + 7] >> 8) << ZOOM_SHIFT; - const int xsource = ((m_wram[count + 2] & 0x003f) << 5) | ((m_wram[count + 1] & 0xf800) >> 11); - const int ysource = ((m_wram[count + 3] & 0x001f) << 6) | ((m_wram[count + 2] & 0xfc00) >> 10); - - int alpha = (m_wram[count + 1] & 0x1f) << 3; - - u32 widthstep = 1 << ZOOM_SHIFT; - u32 heightstep = 1 << ZOOM_SHIFT; - - if (zoomwidth) widthstep = sourcewidth / zoomwidth; - if (zoomheight) heightstep = sourceheight / zoomheight; - - u16 unused; - if (debug) logerror("sprite %04x %04x %04x %04x %04x %04x %04x %04x\n", m_wram[count + 0], m_wram[count + 1], m_wram[count + 2], m_wram[count + 3], m_wram[count + 4], m_wram[count + 5], m_wram[count + 6], m_wram[count + 7]); - - unused = m_wram[count + 0] & ~0xff98; if (unused) logerror("unused bits set in word 0 - %04x\n", unused); - unused = m_wram[count + 1] & ~0xf89f; if (unused) logerror("unused bits set in word 1 - %04x\n", unused); - unused = m_wram[count + 2] & ~0xfc3f; if (unused) logerror("unused bits set in word 2 - %04x\n", unused); - unused = m_wram[count + 3] & ~0xff1f; if (unused) logerror("unused bits set in word 3 - %04x\n", unused); - unused = m_wram[count + 4] & ~0xff77; if (unused) logerror("unused bits set in word 4 - %04x\n", unused); - unused = m_wram[count + 5] & ~0xffff; if (unused) logerror("unused bits set in word 5 - %04x\n", unused); - unused = m_wram[count + 6] & ~0x00ff; if (unused) logerror("unused bits set in word 6 - %04x\n", unused); - unused = m_wram[count + 7] & ~0xff00; if (unused) logerror("unused bits set in word 7 - %04x\n", unused); - - if (((zoomwidth << ZOOM_SHIFT) != sourcewidth) || ((zoomheight << ZOOM_SHIFT) != sourceheight)) - { - // logerror("sw %08x zw %08x sh %08x zh %08x heightstep %08x widthstep %08x \n", sourcewidth, zoomwidth << ZOOM_SHIFT, sourceheight, zoomheight << ZOOM_SHIFT, heightstep, widthstep ); - } - - if (bpp_sel == 0x00) // 4bpp - { - color <<= 4; - int ysourceoff = 0; - for (int yi = 0; yi < zoomheight; yi++) - { - const int yi2 = ysourceoff >> ZOOM_SHIFT; - int xsourceoff = 0; - - for (int xi = 0; xi < zoomwidth; xi++) - { - const int xi2 = xsourceoff >> ZOOM_SHIFT; - - const u8 data = m_vram[get_video_addr(xsource + (xi2 >> 1), ysource + yi2)]; - - draw_pixel_clut(bitmap, cliprect, x, xi, y, yi, BIT(data, BIT(xi2, 0) << 2, 4), color, alpha, scene_gradient); - xsourceoff += widthstep; - } - ysourceoff += heightstep; - } - } - else if (bpp_sel == 0x08) // 6bpp - { - // not used by Gunpey? - logerror("6bpp\n"); - } - else if (bpp_sel == 0x10) // 8bpp - { - color <<= 8; - int ysourceoff = 0; - for (int yi = 0; yi < zoomheight; yi++) - { - const int yi2 = ysourceoff >> ZOOM_SHIFT; - int xsourceoff = 0; - - for (int xi = 0; xi < zoomwidth; xi++) - { - const int xi2 = xsourceoff >> ZOOM_SHIFT; - - const u8 data = m_vram[get_video_addr(xsource + xi2, ysource + yi2)]; - - draw_pixel_clut(bitmap, cliprect, x, xi, y, yi, data, color, alpha, scene_gradient); - xsourceoff += widthstep; - } - ysourceoff += heightstep; - } - } - else if (bpp_sel == 0x18) // RGB32k - { - // not used by Gunpey? - logerror("32k\n"); - // ... - } - } - - return m_wram[count + 0] & 0x80; -} - -u32 gunpey_state::screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect) -{ - //u16 *blit_buffer = m_blit_buffer; - const u16 vram_bank = m_vram_bank & 0x7fff; - const u16 vreg_addr = m_vreg_addr & 0x7fff; - - bitmap.fill(m_palette->pen(0), cliprect); //black pen - - if ((!(m_vreg_addr & 0x8000)) || (!(m_vram_bank & 0x8000))) - return 0; - - for (int scene_index = vreg_addr / 2; scene_index < (vreg_addr + 0x400) / 2; scene_index += 0x10 / 2) - { - const u16 start_offs = (vram_bank + (m_wram[scene_index + 5] << 8)) / 2; - const u16 end_offs = (vram_bank + (m_wram[scene_index + 5] << 8) + 0x1000) / 2; //safety check - const bool scene_end_mark = m_wram[scene_index + 0] & 0x80; - const bool scene_enabled = m_wram[scene_index + 0] & 0x01; - const u8 scene_gradient = m_wram[scene_index + 1] & 0xff; - -// logerror("%08x: %08x %08x %08x %08x | %08x %08x %08x %08x\n",scene_index,m_wram[scene_index + 0],m_wram[scene_index + 1],m_wram[scene_index + 2],m_wram[scene_index + 3], -// m_wram[scene_index + 4],m_wram[scene_index + 5],m_wram[scene_index + 6],m_wram[scene_index + 7]); - - if (scene_enabled) - { - for (int count = start_offs; count < end_offs; count += 0x10 / 2) - { - if (draw_gfx(bitmap, cliprect, count, scene_gradient)) - break; - } - } - - if (scene_end_mark) - break; - } - - return 0; -} - -void gunpey_state::irq_check(u8 irq_type) -{ - m_irq_cause |= irq_type; - - if (m_irq_cause & m_irq_mask) - m_maincpu->set_input_line_and_vector(0, HOLD_LINE, 0x200/4); // V30 - else - m_maincpu->set_input_line_and_vector(0, CLEAR_LINE, 0x200/4); // V30 -} - -void gunpey_state::status_w(offs_t offset, u8 data) -{ - if (offset == 1) - { - m_irq_cause &= ~data; - irq_check(0); - } - - if (offset == 0) - { - m_irq_mask = data; - irq_check(0); - } -} - -u8 gunpey_state::status_r(offs_t offset) -{ - if (offset == 1) - return m_irq_cause; - - return m_irq_mask; -} - -u8 gunpey_state::inputs_r(offs_t offset) -{ - switch (offset + 0x7f40) - { - case 0x7f40: return ioport("DSW1")->read(); - case 0x7f41: return ioport("DSW2")->read(); - case 0x7f42: return ioport("P1")->read(); - case 0x7f43: return ioport("P2")->read(); - case 0x7f44: return ioport("SYSTEM")->read(); - } - - return 0xff; -} - -TIMER_CALLBACK_MEMBER(gunpey_state::blitter_end) -{ - irq_check(4); -} - - -bool gunpey_state::write_dest_byte(u8 usedata) -{ - // write the byte we and to destination and increase our counters - m_vram[get_video_addr(m_dstx, m_dsty)] = usedata; - - // increase destination counter and check if we've filled our destination rectangle - m_dstx++; m_dstxcount++; - if (m_dstxcount == m_xsize) - { - m_dstxcount = 0; - m_dstx = m_dstxbase; - m_dsty++; m_dstycount++; - if (m_dstycount == m_ysize) - return true; - } - - return false; -} - - -inline u8 gunpey_state::get_vrom_byte(int x, int y) -{ - return m_blit_rom[get_video_addr(x, y) & (m_blit_rom.length() - 1)]; -} - -inline int gunpey_state::get_next_bit(state_s *s) -{ - if (s->num_bits == 0) - { - if (s->ix >= s->basex + s->iw) - { - s->ix = s->basex; - s->iy++; - } - s->bits = get_vrom_byte(s->ix, s->iy); - s->ix++; - s->num_bits = 8; - } - - int res = 1 & s->bits; - - s->bits >>= 1; - s->num_bits--; - - return res; -} - - -void state_s::set_o(unsigned char v) -{ - assert(ox >= 0); - assert(ox < ow); - assert(ox < 256); - assert(oy >= 0); - assert(oy < oh); - assert(oy < 256); - - unsigned char a = v; - for (int i = 0; i < std::size(colour); i++) - { - unsigned char b = colour[i]; - colour[i] = a; - a = b; - if (a == v) - break; - } - - buf[get_video_addr(dx + (ox++), dy + oy)] = v; -} - - -unsigned char state_s::get_o(int x, int y) const -{ - assert(x >= 0); - assert(x < ow); - assert(x < 256); - assert(y >= 0); - assert(y < oh); - assert(y < 256); - - return buf[get_video_addr(dx + x, dy + y)]; -} - - -void state_s::hn_bytes_new_colour(state_s &s, unsigned char v, int n) -{ - for (int i = 0; i < n; i++) - s.set_o(v); -} - - -void state_s::hn_bytes_prev_colour(state_s &s, unsigned char v, int n) -{ - int c = s.colour[v]; - - for (int i = 0; i < n; i++) - s.set_o(c); -} - - -void state_s::hn_copy_directly(state_s &s, unsigned char v, int n) -{ - for (int i = 0; i < n; i++) - { - if ((s.ox / 12) & 1) - s.set_o(s.get_o(s.ox, s.oy + 1)); - else - s.set_o(s.get_o(s.ox, s.oy - 1)); - } -} - - - -void state_s::hn_copy_plus_one(state_s &s, unsigned char v, int n) -{ - for (int i = 0; i < n; i++) - { - if ((s.ox / 12) & 1) - s.set_o(s.get_o(s.ox + 1, s.oy + 1)); - else - s.set_o(s.get_o(s.ox + 1, s.oy - 1)); - } -} - - -void state_s::hn_copy_minus_one(state_s &s, unsigned char v, int n) -{ - for (int i = 0; i < n; i++) - { - if ((s.ox / 12) & 1) - s.set_o(s.get_o(s.ox - 1, s.oy + 1)); - else - s.set_o(s.get_o(s.ox - 1, s.oy - 1)); - } -} - - -static const huffman_node_s hn[] = { - { "11", state_s::hn_bytes_new_colour, 8, 1 }, - { "10111", state_s::hn_bytes_new_colour, 8, 2 }, - { "10110011", state_s::hn_bytes_new_colour, 8, 3 }, - { "1010011000", state_s::hn_bytes_new_colour, 8, 4 }, - { "1010101010000", state_s::hn_bytes_new_colour, 8, 5 }, - { "101010001011110", state_s::hn_bytes_new_colour, 8, 6 }, - { "101010010101110", state_s::hn_bytes_new_colour, 8, 7 }, - { "101010010101111", state_s::hn_bytes_new_colour, 8, 8 }, - { "101010010101100", state_s::hn_bytes_new_colour, 8, 9 }, - { "10101000101100", state_s::hn_bytes_new_colour, 8, 10 }, - { "101010010101101", state_s::hn_bytes_new_colour, 8, 11 }, - { "10101000101101", state_s::hn_bytes_new_colour, 8, 12 }, - { "0", state_s::hn_bytes_prev_colour, 4, 1 }, - { "100", state_s::hn_bytes_prev_colour, 4, 2 }, - { "101011", state_s::hn_bytes_prev_colour, 4, 3 }, - { "1010010", state_s::hn_bytes_prev_colour, 4, 4 }, - { "101010100", state_s::hn_bytes_prev_colour, 4, 5 }, - { "1010100100", state_s::hn_bytes_prev_colour, 4, 6 }, - { "10101010110", state_s::hn_bytes_prev_colour, 4, 7 }, - { "10100111000", state_s::hn_bytes_prev_colour, 4, 8 }, - { "101010101001", state_s::hn_bytes_prev_colour, 4, 9 }, - { "101001111000", state_s::hn_bytes_prev_colour, 4, 10 }, - { "101010010100", state_s::hn_bytes_prev_colour, 4, 11 }, - { "1010011001", state_s::hn_bytes_prev_colour, 4, 12 }, - { "101101", state_s::hn_copy_directly, 0, 2 }, - { "10101011", state_s::hn_copy_directly, 0, 3 }, - { "101010011", state_s::hn_copy_directly, 0, 4 }, - { "101001101", state_s::hn_copy_directly, 0, 5 }, - { "1010011111", state_s::hn_copy_directly, 0, 6 }, - { "1010100011", state_s::hn_copy_directly, 0, 7 }, - { "10101000100", state_s::hn_copy_directly, 0, 8 }, - { "101010101111", state_s::hn_copy_directly, 0, 9 }, - { "101001110010", state_s::hn_copy_directly, 0, 10 }, - { "1010011100111", state_s::hn_copy_directly, 0, 11 }, - { "101100101", state_s::hn_copy_directly, 0, 12 }, - { "1011000", state_s::hn_copy_plus_one, 0, 2 }, - { "101010000", state_s::hn_copy_plus_one, 0, 3 }, - { "10101001011", state_s::hn_copy_plus_one, 0, 4 }, - { "101010001010", state_s::hn_copy_plus_one, 0, 5 }, - { "1010101011101", state_s::hn_copy_plus_one, 0, 6 }, - { "1010101011100", state_s::hn_copy_plus_one, 0, 7 }, - { "1010011110010", state_s::hn_copy_plus_one, 0, 8 }, - { "10101000101110", state_s::hn_copy_plus_one, 0, 9 }, - { "101010001011111", state_s::hn_copy_plus_one, 0, 10 }, - { "1010011110011", state_s::hn_copy_plus_one, 0, 11 }, - { "101000", state_s::hn_copy_minus_one, 0, 2 }, - { "101100100", state_s::hn_copy_minus_one, 0, 3 }, - { "1010011101", state_s::hn_copy_minus_one, 0, 4 }, - { "10101010101", state_s::hn_copy_minus_one, 0, 5 }, - { "101001111011", state_s::hn_copy_minus_one, 0, 6 }, - { "101001111010", state_s::hn_copy_minus_one, 0, 7 }, - { "1010101010001", state_s::hn_copy_minus_one, 0, 8 }, - { "1010011100110", state_s::hn_copy_minus_one, 0, 9 }, - { "10101001010101", state_s::hn_copy_minus_one, 0, 10 }, - { "10101001010100", state_s::hn_copy_minus_one, 0, 11 }, - { nullptr, nullptr, 0, 0 }, -}; - - -bool gunpey_state::next_node(const huffman_node_s **res, state_s *s) -{ - char bits[128]; - - memset(bits, 0, sizeof(bits)); - - for (int i = 0; i < sizeof(bits) - 1; i++) - { - bits[i] = '0' + get_next_bit(s); - - for (int j = 0;; j++) - { - if (!hn[j].bits) - return true; - - if (strncmp(bits, hn[j].bits, i + 1) == 0) - { - if (!hn[j].bits[i + 1]) - { - *res = &hn[j]; - return false; - } - break; - } - } - } - - return true; -} - -bool gunpey_state::decompress_sprite(unsigned char *buf, int ix, int iy, int ow, int oh, int dx, int dy) -{ - const huffman_node_s *n; - state_s s; - unsigned char v; - int eol; - - s.buf = buf; - s.num_bits = 0; - - memset(s.colour, 0, sizeof(s.colour)); - - s.basex = ix; - - s.ix = ix; - s.iy = iy; - s.iw = get_vrom_byte(s.ix++, s.iy) + 1; - s.dx = dx; - s.dy = dy; - - s.ow = ow; - s.oh = oh; - s.ox = 0; - s.oy = 0; - - int temp; - temp = get_next_bit(&s); - temp |= get_next_bit(&s) << 1; - temp |= get_next_bit(&s) << 2; - assert(temp == 0); - - while (s.ox < s.ow) - { - if (next_node(&n, &s)) - return true; - - v = 0; - for (int i = 0; i < n->arg0_bits; i++) - v |= get_next_bit(&s) << i; - - n->func(s, v, n->arg1_val); - - if ((s.ox % 12) == 0) - { - s.ox -= 12; - if ((s.ox / 12) & 1) - s.oy -= 1; - else - s.oy += 1; - - eol = 1; - } - else if (s.ox == s.ow) - { - s.ox -= s.ow % 12; - if ((s.ox / 12) & 1) - s.oy -= 1; - else - s.oy += 1; - - eol = 1; - } - else - eol = 0; - - if (eol) - { - if ((s.oy == s.oh) || (s.oy == -1)) - { - s.ox += 12; - if ((s.ox / 12) & 1) - s.oy -= 1; - else - s.oy += 1; - } - } - } - - return false; -} - -void gunpey_state::blitter_w(offs_t offset, u8 data) -{ - //logerror("blitter_w offset %01x data %02x\n", offset, data); - - m_blit_ram[offset] = data; - - if ((offset == 0) && (data == 2)) // blitter trigger, 0->1 transition - { - m_srcx = m_blit_ram[0x04] | (m_blit_ram[0x05] << 8); - m_srcy = m_blit_ram[0x06] | (m_blit_ram[0x07] << 8); - m_dstx = m_blit_ram[0x08] | (m_blit_ram[0x09] << 8); - m_dsty = m_blit_ram[0x0a] | (m_blit_ram[0x0b] << 8); - m_xsize = m_blit_ram[0x0c] + 1; - m_ysize = m_blit_ram[0x0e] + 1; - int compression = m_blit_ram[0x01]; - - m_dstx <<= 1; - m_xsize <<= 1; - - if (compression) - { - if (compression == 8) - { - if (decompress_sprite(m_vram.get(), m_srcx, m_srcy, m_xsize, m_ysize, m_dstx, m_dsty)) - logerror("[-] Failed to decompress sprite at %04x %04x\n", m_srcx, m_srcy); - } - else - logerror("unknown compression mode %02x\n",compression); - } - else - { - m_dstxbase = m_dstx; - m_dstxcount = 0; - m_dstycount = 0; - m_srcxbase = m_srcx; - m_srcxcount = 0; - m_srcycount = 0; - - for (;;) - { - u8 usedata = m_blit_rom[get_video_addr(m_srcx, m_srcy)]; - m_srcx++; m_srcxcount++; - if (m_srcxcount == m_xsize) - { - m_srcxcount = 0; - m_srcx = m_srcxbase; - m_srcy++; m_srcycount++; - } - - if (write_dest_byte(usedata)) - break; - } - } - - m_blitter_end_timer->adjust(m_maincpu->cycles_to_attotime(m_xsize * m_ysize)); - } -} - -void gunpey_state::blitter_upper_w(offs_t offset, u8 data) -{ - //logerror("blitter_upper_w %02x %02x\n", offset, data); -} - -void gunpey_state::blitter_upper2_w(offs_t offset, u8 data) -{ - //logerror("blitter_upper2_w %02x %02x\n", offset, data); -} - - -void gunpey_state::output_w(u8 data) -{ - //bit 0 is coin counter -// popmessage("%02x",data); - - m_oki->set_rom_bank((data & 0x70) >> 4); -} - -void gunpey_state::vram_bank_w(offs_t offset, u16 data, u16 mem_mask) -{ - COMBINE_DATA(&m_vram_bank); -} - -void gunpey_state::vregs_addr_w(offs_t offset, u16 data, u16 mem_mask) -{ - COMBINE_DATA(&m_vreg_addr); -} - -/***************************************************************************************/ - -void gunpey_state::mem_map(address_map &map) -{ - map(0x00000, 0x0ffff).ram().share(m_wram); -// map(0x50000, 0x500ff).ram(); -// map(0x50100, 0x502ff).noprw(); - map(0x80000, 0xfffff).rom(); -} - -void gunpey_state::io_map(address_map &map) -{ - map(0x7f40, 0x7f45).r(FUNC(gunpey_state::inputs_r)); - - map(0x7f48, 0x7f48).w(FUNC(gunpey_state::output_w)); - map(0x7f80, 0x7f81).rw("ymz", FUNC(ymz280b_device::read), FUNC(ymz280b_device::write)); - - map(0x7f88, 0x7f88).rw(m_oki, FUNC(okim6295_device::read), FUNC(okim6295_device::write)); - - map(0x7fc8, 0x7fc9).rw(FUNC(gunpey_state::status_r), FUNC(gunpey_state::status_w)); - map(0x7fd0, 0x7fdf).w(FUNC(gunpey_state::blitter_w)); - map(0x7fe0, 0x7fe5).w(FUNC(gunpey_state::blitter_upper_w)); - map(0x7ff0, 0x7ff5).w(FUNC(gunpey_state::blitter_upper2_w)); - - //map(0x7ff0, 0x7ff1).ram(); - map(0x7fec, 0x7fed).w(FUNC(gunpey_state::vregs_addr_w)); - map(0x7fee, 0x7fef).w(FUNC(gunpey_state::vram_bank_w)); - -} - - -/***************************************************************************************/ - -static INPUT_PORTS_START( gunpey ) - PORT_START("DSW1") // IN0 - 7f40 - PORT_DIPNAME( 0x03, 0x00, DEF_STR( Difficulty ) ) PORT_DIPLOCATION("SW1:1,2") - PORT_DIPSETTING( 0x01, DEF_STR( Easy ) ) - PORT_DIPSETTING( 0x00, DEF_STR( Normal ) ) - PORT_DIPSETTING( 0x02, DEF_STR( Hard ) ) - PORT_DIPSETTING( 0x03, DEF_STR( Hardest ) ) - PORT_DIPNAME( 0x0c, 0x00, "Difficulty (vs. mode)" ) PORT_DIPLOCATION("SW1:3,4") - PORT_DIPSETTING( 0x04, DEF_STR( Easy ) ) - PORT_DIPSETTING( 0x00, DEF_STR( Normal ) ) - PORT_DIPSETTING( 0x08, DEF_STR( Hard ) ) - PORT_DIPSETTING( 0x0c, DEF_STR( Hardest ) ) - PORT_DIPNAME( 0x30, 0x00, "Matches (vs. mode)?" ) PORT_DIPLOCATION("SW1:5,6") - PORT_DIPSETTING( 0x00, "1" ) - PORT_DIPSETTING( 0x10, "2" ) - PORT_DIPSETTING( 0x20, "3" ) - PORT_DIPSETTING( 0x30, "5" ) - PORT_DIPNAME( 0x40, 0x00, DEF_STR( Demo_Sounds ) ) PORT_DIPLOCATION("SW1:7") - PORT_DIPSETTING( 0x40, DEF_STR( Off ) ) - PORT_DIPSETTING( 0x00, DEF_STR( On ) ) - PORT_DIPNAME( 0x80, 0x00, DEF_STR( Flip_Screen ) ) PORT_DIPLOCATION("SW1:8") - PORT_DIPSETTING( 0x00, DEF_STR( Off ) ) - PORT_DIPSETTING( 0x80, DEF_STR( On ) ) - - PORT_START("DSW2") // IN1 - 7f41 - PORT_DIPNAME( 0x07, 0x00, DEF_STR( Coin_A ) ) PORT_DIPLOCATION("SW2:1,2,3") - PORT_DIPSETTING( 0x07, DEF_STR( 4C_1C ) ) - PORT_DIPSETTING( 0x05, DEF_STR( 3C_1C ) ) - PORT_DIPSETTING( 0x03, DEF_STR( 2C_1C ) ) - PORT_DIPSETTING( 0x06, DEF_STR( 3C_2C ) ) - PORT_DIPSETTING( 0x00, DEF_STR( 1C_1C ) ) - PORT_DIPSETTING( 0x04, DEF_STR( 2C_3C ) ) - PORT_DIPSETTING( 0x01, DEF_STR( 1C_2C ) ) - PORT_DIPSETTING( 0x02, DEF_STR( 1C_3C ) ) - PORT_DIPNAME( 0x38, 0x00, DEF_STR( Coin_B ) ) PORT_DIPLOCATION("SW2:4,5,6") - PORT_DIPSETTING( 0x38, DEF_STR( 4C_1C ) ) - PORT_DIPSETTING( 0x28, DEF_STR( 3C_1C ) ) - PORT_DIPSETTING( 0x18, DEF_STR( 2C_1C ) ) - PORT_DIPSETTING( 0x30, DEF_STR( 3C_2C ) ) - PORT_DIPSETTING( 0x00, DEF_STR( 1C_1C ) ) - PORT_DIPSETTING( 0x20, DEF_STR( 2C_3C ) ) - PORT_DIPSETTING( 0x08, DEF_STR( 1C_2C ) ) - PORT_DIPSETTING( 0x10, DEF_STR( 1C_3C ) ) - PORT_DIPNAME( 0x40, 0x00, DEF_STR( Free_Play ) ) PORT_DIPLOCATION("SW2:7") - PORT_DIPSETTING( 0x00, DEF_STR( Off ) ) - PORT_DIPSETTING( 0x40, DEF_STR( On ) ) - PORT_DIPNAME( 0x80, 0x00, DEF_STR( Allow_Continue ) ) PORT_DIPLOCATION("SW2:8") - PORT_DIPSETTING( 0x00, DEF_STR( Off ) ) - PORT_DIPSETTING( 0x80, DEF_STR( On ) ) - - PORT_START("P1") // IN2 - 7f42 - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_PLAYER(1) - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_PLAYER(1) - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_PLAYER(1) - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_PLAYER(1) - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_PLAYER(1) - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_BUTTON2 ) PORT_PLAYER(1) - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_BUTTON3 ) PORT_PLAYER(1) - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_UNKNOWN ) - - PORT_START("P2") // IN3 - 7f43 - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_PLAYER(2) - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_PLAYER(2) - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_PLAYER(2) - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_PLAYER(2) - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_PLAYER(2) - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_BUTTON2 ) PORT_PLAYER(2) - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_BUTTON3 ) PORT_PLAYER(2) - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_UNKNOWN ) - - PORT_START("SYSTEM") // IN4 - 7f44 - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_SERVICE1 ) - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_UNKNOWN ) - PORT_SERVICE( 0x04, IP_ACTIVE_HIGH ) // TEST!! - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_COIN1 ) - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_COIN2 ) - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_START1 ) - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_START2 ) - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_UNKNOWN ) -INPUT_PORTS_END - -/***************************************************************************************/ - -/*: -0x01 -0x04 blitter ready -0x10 vblank too? (otherwise you'll get various hangs/inputs stop to work) -0x40 almost certainly vblank (reads inputs) -0x80 -*/ -TIMER_DEVICE_CALLBACK_MEMBER(gunpey_state::scanline) -{ - int scanline = param; - - if (scanline == 240) - { - //logerror("frame\n"); - irq_check(0x50); - } -} - -/***************************************************************************************/ -void gunpey_state::gunpey(machine_config &config) -{ - /* basic machine hardware */ - V30(config, m_maincpu, 57242400 / 4); - m_maincpu->set_addrmap(AS_PROGRAM, &gunpey_state::mem_map); - m_maincpu->set_addrmap(AS_IO, &gunpey_state::io_map); - TIMER(config, "scantimer").configure_scanline(FUNC(gunpey_state::scanline), "screen", 0, 1); - - /* video hardware */ - screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER)); - screen.set_raw(57242400/8, 442, 0, 320, 264, 0, 240); /* just to get ~60 Hz */ - screen.set_screen_update(FUNC(gunpey_state::screen_update)); - screen.set_palette(m_palette); - - PALETTE(config, m_palette, palette_device::RGB_555); - - SPEAKER(config, "lspeaker").front_left(); - SPEAKER(config, "rspeaker").front_right(); - - OKIM6295(config, m_oki, XTAL(16'934'400) / 8, okim6295_device::PIN7_LOW); - m_oki->add_route(ALL_OUTPUTS, "lspeaker", 0.125); - m_oki->add_route(ALL_OUTPUTS, "rspeaker", 0.125); - - ymz280b_device &ymz(YMZ280B(config, "ymz", XTAL(16'934'400))); - ymz.add_route(0, "lspeaker", 0.25); - ymz.add_route(1, "rspeaker", 0.25); -} - -/***************************************************************************************/ - -ROM_START( gunpey ) - ROM_REGION( 0x100000, "maincpu", 0 ) /* V30 code */ - ROM_LOAD16_BYTE( "gp_rom1.021", 0x00000, 0x80000, CRC(07a589a7) SHA1(06c4140ffd5f74b3d3ddfc424f43fcd08d903490) ) // Gunpey(AC) -Release- - ROM_LOAD16_BYTE( "gp_rom2.022", 0x00001, 0x80000, CRC(f66bc4cf) SHA1(54931d878d228c535b9e2bf22a0a3e41756f0fe5) ) // Jan 17 2000 19:10:22 (J) - - ROM_REGION( 0x400000, "blit_rom", 0 ) - ROM_LOAD( "gp_rom3.025", 0x00000, 0x400000, CRC(f2d1f9f0) SHA1(0d20301fd33892074508b9d127456eae80cc3a1c) ) - - ROM_REGION( 0x400000, "ymz", 0 ) - ROM_LOAD( "gp_rom4.525", 0x000000, 0x400000, CRC(78dd1521) SHA1(91d2046c60e3db348f29f776def02e3ef889f2c1) ) // 11xxxxxxxxxxxxxxxxxxxx = 0xFF - - ROM_REGION( 0x400000, "oki", 0 ) - ROM_LOAD( "gp_rom5.622", 0x000000, 0x400000, CRC(f79903e0) SHA1(4fd50b4138e64a48ec1504eb8cd172a229e0e965)) // 1xxxxxxxxxxxxxxxxxxxxx = 0xFF -ROM_END - -} // anonymous namespace - -GAME( 2000, gunpey, 0, gunpey, gunpey, gunpey_state, empty_init, ROT0, "Bandai / Banpresto", "Gunpey (Japan)", 0 ) |