X-Git-Url: https://notaz.gp2x.de/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=testpico%2Fmain.c;h=bd99ac3d311102ee68d59b0391735a6c5846a5d3;hb=HEAD;hp=804fc6153ab54fffec487ff1590314f3a7535935;hpb=cc7e512231d610dbe477d56ffffd56bdff78285d;p=megadrive.git diff --git a/testpico/main.c b/testpico/main.c index 804fc61..43da6e6 100644 --- a/testpico/main.c +++ b/testpico/main.c @@ -4,21 +4,9 @@ */ #include #include - -#define u8 unsigned char -#define u16 unsigned short -#define u32 unsigned int - -#define noinline __attribute__((noinline)) -#define unused __attribute__((unused)) -#define _packed __attribute__((packed)) - -#define mem_barrier() \ - asm volatile("":::"memory") - -#define ARRAY_SIZE(x) (sizeof(x) / sizeof(x[0])) - +#include "common.h" #include "asmtools.h" +//#pragma GCC diagnostic ignored "-Wunused-function" #define VDP_DATA_PORT 0xC00000 #define VDP_CTRL_PORT 0xC00004 @@ -36,19 +24,6 @@ #define APLANE (TILE_MEM_END + 0x1000) #define BPLANE (TILE_MEM_END + 0x3000) -#define read8(a) \ - *((volatile u8 *) (a)) -#define read16(a) \ - *((volatile u16 *) (a)) -#define read32(a) \ - *((volatile u32 *) (a)) -#define write8(a, d) \ - *((volatile u8 *) (a)) = (d) -#define write16(a, d) \ - *((volatile u16 *) (a)) = (d) -#define write32(a, d) \ - *((volatile u32 *) (a)) = (d) - #define write16_z80le(a, d) \ ((volatile u8 *)(a))[0] = (u8)(d), \ ((volatile u8 *)(a))[1] = ((d) >> 8) @@ -257,6 +232,9 @@ static noinline int printf(const char *fmt, ...) for (j--; j >= 0; j--) buf[d++] = hexchars[(uval >> j * 4) & 0x0f]; break; + case 'c': + buf[d++] = va_arg(ap, int); + break; case 's': s = va_arg(ap, char *); while (*s && d < PRINTF_LEN) @@ -336,10 +314,9 @@ struct exc_frame { }; } _packed; -int xtttt(void) { return sizeof(struct exc_frame); } - void exception(const struct exc_frame *f) { + u32 *sp, sp_add; int i; while (read16(VDP_CTRL_PORT) & 2) @@ -360,16 +337,22 @@ void exception(const struct exc_frame *f) printf(" \n"); if (f->ecxnum < 4) { - printf(" PC: %08x SR: %04x \n", f->bae.pc, f->bae.sr); + printf(" PC: %08x SR: %04x \n", f->bae.pc, f->bae.sr); printf("addr: %08x IR: %04x FC: %02x \n", f->bae.addr, f->bae.ir, f->bae.fc); + sp_add = 14; } else { - printf(" PC: %08x SR: %04x \n", f->g.pc, f->g.sr); + printf(" PC: %08x SR: %04x \n", f->g.pc, f->g.sr); + sp_add = 6; } - for (i = 0; i < 8; i++) + sp = (u32 *)(f->ar[7] + sp_add); + for (i = 0; i < 7; i++) printf(" D%d: %08x A%d: %08x \n", i, f->dr[i], i, f->ar[i]); - printf(" \n"); + printf(" D%d: %08x SP: %08x \n", i, f->dr[i], (u32)sp); + printf(" \n"); + printf(" %08x %08x %08x %08x\n", sp[0], sp[1], sp[2], sp[3]); + printf(" %08x %08x %08x %08x\n", sp[4], sp[5], sp[6], sp[7]); } // --- @@ -422,6 +405,14 @@ static void vdp_wait_for_line_0(void) ; } +static void wait_next_vsync(void) +{ + while (read16(VDP_CTRL_PORT) & SR_VB) + /* blanking */; + while (!(read16(VDP_CTRL_PORT) & SR_VB)) + /* not blanking */; +} + static void t_dma_zero_wrap_early(void) { const u32 *src = (const u32 *)0x3c0000; @@ -459,23 +450,31 @@ static void t_dma_zero_fill_early(void) ram[3] = read32(VDP_DATA_PORT); } +#define R_SKIP 0x5a5a + #define expect(ok_, v0_, v1_) \ -if ((v0_) != (v1_)) { \ +do { if ((v0_) != (v1_)) { \ printf("%s: %08x %08x\n", #v0_, v0_, v1_); \ ok_ = 0; \ -} +}} while (0) + +#define expect_sh2(ok_, sh2_, v0_, v1_) \ +do { if ((v0_) != (v1_)) { \ + printf("%csh2: %08x %08x\n", sh2_ ? 's' : 'm', v0_, v1_); \ + ok_ = 0; \ +}} while (0) #define expect_range(ok_, v0_, vmin_, vmax_) \ -if ((v0_) < (vmin_) || (v0_) > (vmax_)) { \ +do { if ((v0_) < (vmin_) || (v0_) > (vmax_)) { \ printf("%s: %02x /%02x-%02x\n", #v0_, v0_, vmin_, vmax_); \ ok_ = 0; \ -} +}} while (0) #define expect_bits(ok_, v0_, val_, mask_) \ -if (((v0_) & (mask_)) != (val_)) { \ +do { if (((v0_) & (mask_)) != (val_)) { \ printf("%s: %04x & %04x != %04x\n", #v0_, v0_, mask_, val_); \ ok_ = 0; \ -} +}} while (0) static int t_dma_zero_wrap(void) { @@ -990,7 +989,11 @@ static int t_z80mem_noreq_w(void) return ok; } -#define Z80_CP_CYCLES(b) (118 + ((b) - 1) * 21 + 26 + 17) +#define Z80_C_DISPATCH 113 // see z80_test.s80 +#define Z80_C_END 17 +#define Z80_C_END_VCNT 67 + +#define Z80_CYLES_TEST1(b) (Z80_C_DISPATCH + ((b) - 1) * 21 + 26 + Z80_C_END) static int t_z80mem_vdp_r(void) { @@ -1008,7 +1011,7 @@ static int t_z80mem_vdp_r(void) zram[0x1100] = zram[0x1101] = zram[0x1102] = 0x5a; mem_barrier(); write16(0xa11100, 0x000); - burn10(Z80_CP_CYCLES(2) * 15 / 7 * 2 / 10); + burn10(Z80_CYLES_TEST1(2) * 15 / 7 / 10); write16(0xa11100, 0x100); while (read16(0xa11100) & 0x100) @@ -1040,7 +1043,7 @@ static unused int t_z80mem_vdp_w(void) zram[0x1101] = 0x66; mem_barrier(); write16(0xa11100, 0x000); - burn10(Z80_CP_CYCLES(2) * 15 / 7 * 2 / 10); + burn10(Z80_CYLES_TEST1(2) * 15 / 7 / 10); write16(0xa11100, 0x100); while (read16(0xa11100) & 0x100) @@ -1069,7 +1072,34 @@ static int t_tim_loop(void) return ok; } -#define Z80_RD_V_CYCLES(b) (132 + (b) * 38 + 50 + 17) +static int t_tim_z80_loop(void) +{ + u8 pal = read8(0xa10001) & 0x40; + u8 *zram = (u8 *)0xa00000; + u16 z80_loops = pal ? 3420*(313*2+1)/15/100 : 3420*(262*2+1)/15/100; // 2fr + 1ln + u16 _68k_loops = pal ? 3420*(313*2+1)/7/10 : 3420*(262*2+1)/7/10; + int ok = 1; + + zram[0x1000] = 3; // idle loop, save vcnt + write16_z80le(&zram[0x1002], 0); // src (unused) + write16_z80le(&zram[0x1004], 0x1100); // vcnt dst + write16_z80le(&zram[0x1006], z80_loops); // x100 cycles + zram[0x1100] = 0; + mem_barrier(); + + vdp_wait_for_line_0(); + write16(0xa11100, 0x000); + burn10(_68k_loops + (Z80_C_DISPATCH + Z80_C_END_VCNT) * 15 / 7 / 10); + + write16(0xa11100, 0x100); + while (read16(0xa11100) & 0x100) + ; + expect(ok, zram[0x1000], 0); + expect(ok, zram[0x1100], 1); + return ok; +} + +#define Z80_CYCLES_TEST2(b) (Z80_C_DISPATCH + (b) * 38 + Z80_C_END_VCNT) // 80 80 91 95-96 static void z80_read_loop(u8 *zram, u16 src) @@ -1085,7 +1115,7 @@ static void z80_read_loop(u8 *zram, u16 src) vdp_wait_for_line_0(); write16(0xa11100, 0x000); - burn10(Z80_RD_V_CYCLES(pairs) * 15 / 7 * 4 / 10); + burn10(Z80_CYCLES_TEST2(pairs) * 15 / 7 * 2 / 10); write16(0xa11100, 0x100); while (read16(0xa11100) & 0x100) @@ -1124,11 +1154,7 @@ static int t_tim_z80_vdp(void) z80_read_loop(zram, 0x7f08); expect(ok, zram[0x1000], 0); -#ifndef PICO expect_range(ok, zram[0x1100], 0x91, 0x91); -#else - expect_range(ok, zram[0x1100], 0x8e, 0x91); -#endif return ok; } @@ -1143,11 +1169,7 @@ static int t_tim_z80_bank_rom(void) z80_read_loop(zram, 0x8000); expect(ok, zram[0x1000], 0); -#ifndef PICO expect_range(ok, zram[0x1100], 0x95, 0x96); -#else - expect_range(ok, zram[0x1100], 0x93, 0x96); -#endif return ok; } @@ -1221,6 +1243,23 @@ static int t_tim_vcnt(void) return ok; } +static int t_tim_vcnt_loops(void) +{ + const u16 *ram16 = (u16 *)0xfff004; + u8 pal = read8(0xa10001) & 0x40; + u16 i, lines = pal ? 313 : 262; + int ok = 1; + + test_vcnt_loops(); + expect(ok, ram16[-1*2+0], 0xff); + expect_range(ok, ram16[-1*2+1], 21, 22); + for (i = 0; i < lines; i++) + expect_range(ok, ram16[i*2+1], 19, 21); + expect(ok, ram16[lines*2+0], 0); + expect_range(ok, ram16[lines*2+1], 19, 21); + return ok; +} + static int t_tim_hblank_h40(void) { const u8 *r = (u8 *)0xff0000; @@ -1247,9 +1286,7 @@ static int t_tim_hblank_h32(void) test_hb(); VDP_setReg(VDP_MODE4, 0x81); -#ifndef PICO expect_bits(ok, r[0], 0, SR_HB); -#endif // set: 1-4 expect_bits(ok, r[4], SR_HB, SR_HB); expect_bits(ok, r[5], SR_HB, SR_HB); @@ -1288,26 +1325,169 @@ static int t_tim_vdp_as_cram_w(void) setup_default_palette(); -#ifndef PICO expect(ok, vcnt, 112); -#else - expect_range(ok, vcnt, 111, 112); -#endif return ok; } +static const u8 hcnt2tm[] = +{ + 0x0a, 0x1d, 0x31, 0x44, 0x58, 0x6b, 0x7f, 0x92, + 0xa6, 0xb9, 0xcc, 0x00, 0x00, 0x00, 0xe2, 0xf6 +}; + +static int t_tim_ym_timer_z80(int is_b) +{ + u8 pal = read8(0xa10001) & 0x40; + u8 *zram = (u8 *)0xa00000; + u8 *z80 = zram; + u16 _68k_loops = 3420*(302+5+1)/7/10; // ~ (72*1024*2)/(3420./7) + u16 start, end, diff; + int ok = 1; + + zram[0x1000] = 4 + is_b; // ym2612 timer a/b test + zram[0x1100] = zram[0x1101] = zram[0x1102] = zram[0x1103] = 0; + mem_barrier(); + + vdp_wait_for_line_0(); + write16(0xa11100, 0x000); + + burn10(_68k_loops + (Z80_C_DISPATCH + Z80_C_END_VCNT) * 15 / 7 / 10); + + write16(0xa11100, 0x100); + while (read16(0xa11100) & 0x100) + ; + mem_barrier(); + expect(ok, zram[0x1000], 0); + (void)hcnt2tm; + //start = ((u16)zram[0x1102] << 8) | hcnt2tm[zram[0x1103] >> 4]; + //end = ((u16)zram[0x1100] << 8) | hcnt2tm[zram[0x1101] >> 4]; + start = zram[0x1102]; + end = zram[0x1100]; + diff = end - start; + if (pal) + expect_range(ok, diff, 0xf4, 0xf6); + else + expect_range(ok, diff, 0x27, 0x29); + write8(&z80[0x4001], 0); // stop, but should keep the flag + mem_barrier(); + burn10(32*6/10); // busy bit, 32 FM ticks (M/7/6) + if (is_b) { + expect(ok, z80[0x4000], 2); + write8(&z80[0x4001], 0x20); // reset flag (reg 0x27, set up by z80) + } + else { + expect(ok, z80[0x4000], 1); + write8(&z80[0x4001], 0x10); + } + mem_barrier(); + burn10(32*6/10); + expect(ok, z80[0x4000], 0); + return ok; +} + +static int t_tim_ym_timera_z80(void) +{ + return t_tim_ym_timer_z80(0); +} + +static int t_tim_ym_timerb_z80(void) +{ + return t_tim_ym_timer_z80(1); +} + +static int t_tim_ym_timerb_stop(void) +{ + const struct { + //u8 vcnt_start; + //u8 hcnt_start; + u16 vcnt_start; + u16 stat0; + //u8 vcnt_end; + //u8 hcnt_end; + u16 vcnt_end; + u16 stat1; + } *t = (void *)0xfff000; + u8 *z80 = (u8 *)0xa00000; + u16 diff; + int ok = 1; + write16(0xa11100, 0x100); + while (read16(0xa11100) & 0x100) + ; + test_ym_stopped_tick(); + mem_barrier(); + //start = ((u16)t->vcnt_start << 8) | hcnt2tm[t->hcnt_start >> 4]; + //end = ((u16)t->vcnt_end << 8) | hcnt2tm[t->hcnt_end >> 4]; + //diff = end - start; + diff = t->vcnt_end - t->vcnt_start; + //expect_range(ok, diff, 0x492, 0x5c2); // why so much variation? + expect_range(ok, diff, 4, 5); + expect(ok, t->stat0, 0); + expect(ok, t->stat1, 2); + expect(ok, z80[0x4000], 2); + write8(&z80[0x4001], 0x30); + return ok; +} + +static int t_tim_ym_timer_ab_sync(void) +{ + u16 v1, v2, v3, v4, v5, ln0, ln1, ln2; + int ok = 1; + + vdp_wait_for_line_0(); + v1 = test_ym_ab_sync(); + + ln0 = get_line(); + burn10(3420*15/7/10); // ~15 scanlines + write8(0xa04001, 0x3f); // clear, no reload + burn10(12); // wait for busy to clear + v2 = read8(0xa04000); + v3 = test_ym_ab_sync2(); + + ln1 = get_line(); + burn10(3420*15/7/10); // ~15 scanlines + v4 = test_ym_ab_sync2(); + + ln2 = get_line(); + burn10(3420*30/7/10); // ~35 scanlines + v5 = read8(0xa04000); + + expect(ok, v1, 3); + expect(ok, v2, 0); + expect(ok, v3, 3); + expect(ok, v4, 2); + expect(ok, v5, 0); + expect_range(ok, ln1-ln0, 18, 19); + expect_range(ok, ln2-ln1, 32, 34); // almost always 33 + return ok; +} + +struct irq_test { + u16 cnt; + union { + u16 hv; + u8 v; + } first, last; + u16 pad; +}; + +// broken on fresh boot due to uknown reasons static int t_irq_hint(void) { - u16 *ram = (u16 *)0xfff000; - u8 *ram8 = (u8 *)0xfff000; - u16 v_p, cnt_p; + struct irq_test *it = (void *)0xfff000; + struct irq_test *itv = it + 1; int ok = 1; + memset_(it, 0, sizeof(*it) * 2); + memcpy_((void *)0xff0100, test_hint, test_hint_end - test_hint); + memcpy_((void *)0xff0140, test_vint, test_vint_end - test_vint); + + // without this, tests fail after cold boot + while (!(read16(VDP_CTRL_PORT) & 8)) + /* not blanking */; + // for more fun, disable the display VDP_setReg(VDP_MODE2, VDP_MODE2_MD); - ram[0] = ram[1] = ram[2] = 0; - memcpy_((void *)0xff0100, test_hint, test_hint_end - test_hint); VDP_setReg(10, 0); while (read8(VDP_HV_COUNTER) != 100) ; @@ -1318,39 +1498,95 @@ static int t_irq_hint(void) move_sr(0x2000); burn10(488 * 2 / 10); move_sr(0x2700); - v_p = ram8[2]; - cnt_p = ram[0]; - ram[0] = ram[1] = ram[2] = 0; + expect(ok, it->first.v, 229); // pending irq trigger + expect(ok, it->cnt, 1); + expect(ok, itv->cnt, 0); + // count irqs + it->cnt = it->first.hv = it->last.hv = 0; move_sr(0x2000); while (read8(VDP_HV_COUNTER) != 4) ; while (read8(VDP_HV_COUNTER) != 228) ; move_sr(0x2700); + expect(ok, it->cnt, 225); + expect(ok, it->first.v, 0); + expect(ok, it->last.v, 224); + + VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA | VDP_MODE2_DISP); + + // detect reload line + it->cnt = it->first.hv = it->last.hv = 0; + VDP_setReg(10, 17); + move_sr(0x2000); + while (read16(VDP_CTRL_PORT) & 8) + /* blanking */; + VDP_setReg(10, 255); + while (read8(VDP_HV_COUNTER) != 228) + ; + move_sr(0x2700); + expect(ok, it->cnt, 1); + expect(ok, it->first.v, 17); + expect(ok, it->last.v, 17); + + VDP_setReg(VDP_MODE1, VDP_MODE1_PS); + + return ok; +} + +static int t_irq_both_cpu_unmask(void) +{ + struct irq_test *ith = (void *)0xfff000; + struct irq_test *itv = ith + 1; + u16 s0, s1; + int ok = 1; + + memset_(ith, 0, sizeof(*ith) * 2); + memcpy_((void *)0xff0100, test_hint, test_hint_end - test_hint); + memcpy_((void *)0xff0140, test_vint, test_vint_end - test_vint); + VDP_setReg(10, 0); + while (read8(VDP_HV_COUNTER) != 100) + ; + while (read8(VDP_HV_COUNTER) != 226) + ; + VDP_setReg(10, 99); + VDP_setReg(VDP_MODE1, VDP_MODE1_PS | VDP_MODE1_IE1); + VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_IE0 | VDP_MODE2_DISP); + /* go to active display line 100 */ + while (read8(VDP_HV_COUNTER) != 100) + ; + s0 = read16(VDP_CTRL_PORT); + s1 = move_sr_and_read(0x2000, VDP_CTRL_PORT); + move_sr(0x2700); VDP_setReg(VDP_MODE1, VDP_MODE1_PS); VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA | VDP_MODE2_DISP); - expect(ok, v_p, 229); // pending irq trigger - expect(ok, cnt_p, 1); - expect(ok, ram[0], 225); // count - expect(ok, ram8[2], 0); // first line - expect(ok, ram8[4], 224); // last line + expect(ok, itv->cnt, 1); // vint count + expect(ok, itv->first.v, 100); // vint line + expect(ok, ith->cnt, 1); // hint count + expect(ok, ith->first.v, 100); // hint line + expect_bits(ok, s0, SR_F, SR_F); + expect_bits(ok, s1, 0, SR_F); return ok; } static int t_irq_ack_v_h(void) { - u16 *ram = (u16 *)0xfff000; - u8 *ram8 = (u8 *)0xfff000; + struct irq_test *ith = (void *)0xfff000; + struct irq_test *itv = ith + 1; u16 s0, s1, s2; int ok = 1; - ram[0] = ram[1] = ram[2] = - ram[4] = ram[5] = ram[6] = 0; + memset_(ith, 0, sizeof(*ith) * 2); memcpy_((void *)0xff0100, test_hint, test_hint_end - test_hint); memcpy_((void *)0xff0140, test_vint, test_vint_end - test_vint); VDP_setReg(10, 0); + /* ensure hcnt reload */ + while (!(read16(VDP_CTRL_PORT) & 8)) + /* not blanking */; + while (read16(VDP_CTRL_PORT) & 8) + /* blanking */; VDP_setReg(VDP_MODE1, VDP_MODE1_PS | VDP_MODE1_IE1); VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_IE0); while (read8(VDP_HV_COUNTER) != 100) @@ -1366,10 +1602,10 @@ static int t_irq_ack_v_h(void) VDP_setReg(VDP_MODE1, VDP_MODE1_PS); VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA | VDP_MODE2_DISP); - expect(ok, ram[4], 1); // vint count - expect(ok, ram8[10], 226); // vint line - expect(ok, ram[0], 1); // hint count - expect(ok, ram8[2], 228); // hint line + expect(ok, itv->cnt, 1); // vint count + expect(ok, itv->first.v, 226); // vint line + expect(ok, ith->cnt, 1); // hint count + expect(ok, ith->first.v, 228); // hint line expect_bits(ok, s0, SR_F, SR_F); expect_bits(ok, s1, 0, SR_F); expect_bits(ok, s2, 0, SR_F); @@ -1378,13 +1614,12 @@ static int t_irq_ack_v_h(void) static int t_irq_ack_v_h_2(void) { - u16 *ram = (u16 *)0xfff000; - u8 *ram8 = (u8 *)0xfff000; + struct irq_test *ith = (void *)0xfff000; + struct irq_test *itv = ith + 1; u16 s0, s1; int ok = 1; - ram[0] = ram[1] = ram[2] = - ram[4] = ram[5] = ram[6] = 0; + memset_(ith, 0, sizeof(*ith) * 2); memcpy_((void *)0xff0100, test_hint, test_hint_end - test_hint); memcpy_((void *)0xff0140, test_vint, test_vint_end - test_vint); VDP_setReg(10, 0); @@ -1398,10 +1633,10 @@ static int t_irq_ack_v_h_2(void) VDP_setReg(VDP_MODE1, VDP_MODE1_PS); VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA | VDP_MODE2_DISP); - expect(ok, ram[4], 2); // vint count - expect(ok, ram8[10], 226); // vint line - expect(ok, ram[0], 1); // hint count - expect(ok, ram8[2], 227); // hint line + expect(ok, itv->cnt, 2); // vint count + expect(ok, itv->first.v, 226); // vint line + expect(ok, ith->cnt, 1); // hint count + expect(ok, ith->first.v, 227); // hint line expect_bits(ok, s0, SR_F, SR_F); expect_bits(ok, s1, 0, SR_F); return ok; @@ -1529,51 +1764,561 @@ static int t_irq_f_flag_h32(void) return ok; } +// 32X + +#define IRQ_CNT_FB_BASE 0x1ff00 + +// see do_cmd() +static void x32_cmd(enum x32x_cmd cmd, u32 a0, u32 a1, u16 is_slave) +{ + u16 v, *r = (u16 *)0xa15120; + u8 *r8 = (u8 *)r; + u16 cmd_s = cmd | (is_slave << 15); + int i; + + write32(&r[4/2], a0); + write32(&r[8/2], a1); + mem_barrier(); + write16(r, cmd_s); + mem_barrier(); + for (i = 0; i < 10000 && (v = read16(r)) == cmd_s; i++) + burn10(1); + if (v != 0) { + printf("cmd clr: %x\n", v); + mem_barrier(); + printf("exc m s: %02x %02x\n", r8[0x0e], r8[0x0f]); + write16(r, 0); + } + v = read16(&r[1]); + if (v != 0) { + printf("cmd err: %x\n", v); + write16(&r[1], 0); + } +} + +static int t_32x_reset_btn(void) +{ + void (*do_32x_disable)(void) = (void *)0xff0040; + u32 *fbl_icnt = (u32 *)(0x840000 + IRQ_CNT_FB_BASE); + u16 *m_icnt = (u16 *)fbl_icnt; + u16 *s_icnt = m_icnt + 8; + u32 *r32 = (u32 *)0xa15100; + u16 *r16 = (u16 *)r32, i, s; + u8 *r8 = (u8 *)r32; + u32 *rl = (u32 *)0; + int ok = 1; + + if (!(read16(r16) & 1)) + return R_SKIP; + + expect(ok, r16[0x00/2], 0x8083); + + write8(r8, 0x00); // FM=0 + mem_barrier(); + expect(ok, r16[0x00/2], 0x83); + expect(ok, r16[0x02/2], 0); + expect(ok, r16[0x04/2], 3); + expect(ok, r16[0x06/2], 1); // RV (set in sega_gcc.s reset handler) + expect(ok, r32[0x08/4], 0x5a5a08); + expect(ok, r32[0x0c/4], 0x5a5a0c); + expect(ok, r16[0x10/2], 0x5a10); + expect(ok, r32[0x14/4], 0); + expect(ok, r32[0x18/4], 0); + expect(ok, r32[0x1c/4], 0); + expect(ok, r32[0x20/4], 0x00005a20); + expect(ok, r32[0x24/4], 0x5a5a5a24); + expect(ok, r32[0x28/4], 0x5a5a5a28); + expect(ok, r32[0x2c/4], 0x075a5a2c); // 7 - last_irq_vec + if (!(r16[0x00/2] & 0x8000)) { + expect(ok, r8 [0x81], 1); + expect(ok, r16[0x82/2], 1); + expect(ok, r16[0x84/2], 0xff); + expect(ok, r16[0x86/2], 0xffff); + expect(ok, r16[0x88/2], 0); + expect(ok, r8 [0x8b] & ~2, 0); // FEN toggles periodically? + expect(ok, r16[0x8c/2], 0); + expect(ok, r16[0x8e/2], 0); + // setup vdp for t_32x_init + r8 [0x81] = 0; + r16[0x82/2] = r16[0x84/2] = r16[0x86/2] = 0; + } + r32[0x20/4] = r32[0x24/4] = r32[0x28/4] = r32[0x2c/4] = 0; + for (s = 0; s < 2; s++) + { + x32_cmd(CMD_READ32, 0x20004000, 0, s); // not cleared by hw + expect_sh2(ok, s, r32[0x24/4], 0x02020000); // ADEN | cmd + // t_32x_sh_defaults will test the other bits + } + // setup for t_32x_sh_defaults + x32_cmd(CMD_WRITE8, 0x20004001, 0, 0); + x32_cmd(CMD_WRITE8, 0x20004001, 0, 1); + + for (i = 0; i < 7; i++) { + expect(ok, m_icnt[i], 0x100); + expect(ok, s_icnt[i], 0x100); + } + expect(ok, m_icnt[7], 0x101); // VRES happened + expect(ok, s_icnt[7], 0x100); // masked on slave + + x32_cmd(CMD_GETSR, 0, 0, 1); + expect_sh2(ok, 1, r32[0x24/4] & ~1, 0xf0); // still masked + x32_cmd(CMD_SETSR, 0x10, 0, 1); + expect(ok, r16[0x00/2], 0x8083); + write8(r8, 0x00); // FM=0 + mem_barrier(); + expect(ok, m_icnt[7], 0x101); + expect(ok, s_icnt[7], 0x101); + expect(ok, r32[0x2c/4], 0x00070000); // 7 - last_irq_vec + r32[0x2c/4] = 0; + + memcpy_(do_32x_disable, x32x_disable, + x32x_disable_end - x32x_disable); + do_32x_disable(); + + expect(ok, r16[0x00/2], 0x82); + expect(ok, r16[0x02/2], 0); + expect(ok, r16[0x04/2], 3); + expect(ok, r16[0x06/2], 0); // RV cleared by x32x_disable + expect(ok, r32[0x08/4], 0x5a5a08); + expect(ok, r32[0x0c/4], 0x5a5a0c); + expect(ok, r16[0x10/2], 0x5a10); + expect(ok, rl[0x04/4], 0x000800); + + // setup for t_32x_init, t_32x_sh_defaults + r16[0x04/2] = 0; + r16[0x10/2] = 0x1234; // warm reset indicator + mem_barrier(); + expect(ok, r16[0x06/2], 0); // RV + return ok; +} + +static int t_32x_init(void) +{ + void (*do_32x_enable)(void) = (void *)0xff0040; + u32 M_OK = MKLONG('M','_','O','K'); + u32 S_OK = MKLONG('S','_','O','K'); + u32 *r32 = (u32 *)0xa15100; + u16 *r16 = (u16 *)r32; + u8 *r8 = (u8 *)r32; + int i, ok = 1; + + //v1070 = read32(0x1070); + + /* what does REN mean exactly? + * Seems to be sometimes clear after reset */ + for (i = 0; i < 1000000; i++) + if (read16(r16) & 0x80) + break; + expect(ok, r16[0x00/2], 0x82); + expect(ok, r16[0x02/2], 0); + expect(ok, r16[0x04/2], 0); + expect(ok, r16[0x06/2], 0); + expect(ok, r8 [0x08], 0); + //expect(ok, r32[0x08/4], 0); // garbage 24bit + expect(ok, r8 [0x0c], 0); + //expect(ok, r32[0x0c/4], 0); // garbage 24bit + if (r16[0x10/2] != 0x1234) // warm reset + expect(ok, r16[0x10/2], 0xffff); + expect(ok, r16[0x12/2], 0); + expect(ok, r32[0x14/4], 0); + expect(ok, r32[0x18/4], 0); + expect(ok, r32[0x1c/4], 0); + //expect(ok, r8 [0x81], 0); // VDP; hangs without ADEN + r32[0x20/4] = 0; // master resp + r32[0x24/4] = 0; // slave resp + r32[0x28/4] = 0; + r32[0x2c/4] = 0; + + // check writable bits without ADEN + // 08,0c have garbage or old values (survive MD's power cycle) + write16(&r16[0x00/2], 0); + mem_barrier(); + expect(ok, r16[0x00/2], 0x80); + write16(&r16[0x00/2], 0xfffe); + mem_barrier(); + expect(ok, r16[0x00/2], 0x8082); + r16[0x00/2] = 0x82; + r16[0x02/2] = 0xffff; + r32[0x04/4] = 0xffffffff; + r32[0x08/4] = 0xffffffff; + r32[0x0c/4] = 0xffffffff; + r16[0x10/2] = 0xffff; + r32[0x14/4] = 0xffffffff; + r32[0x18/4] = 0xffffffff; + r32[0x1c/4] = 0xffffffff; + mem_barrier(); + expect(ok, r16[0x00/2], 0x82); + expect(ok, r16[0x02/2], 0x03); + expect(ok, r16[0x04/2], 0x03); + expect(ok, r16[0x06/2], 0x07); + expect(ok, r32[0x08/4], 0x00fffffe); + expect(ok, r32[0x0c/4], 0x00ffffff); + expect(ok, r16[0x10/2], 0xfffc); + expect(ok, r32[0x14/4], 0); + expect(ok, r16[0x18/2], 0); + expect(ok, r16[0x1a/2], 0x0101); + expect(ok, r32[0x1c/4], 0); + r16[0x02/2] = 0; + r32[0x04/4] = 0; + r32[0x08/4] = 0; + r32[0x0c/4] = 0; + r16[0x1a/2] = 0; + + // could just set RV, but BIOS reads ROM, so can't + memcpy_(do_32x_enable, x32x_enable, + x32x_enable_end - x32x_enable); + do_32x_enable(); + + expect(ok, r16[0x00/2], 0x83); + expect(ok, r16[0x02/2], 0); + expect(ok, r16[0x04/2], 0); + expect(ok, r16[0x06/2], 1); // RV + expect(ok, r32[0x14/4], 0); + expect(ok, r32[0x18/4], 0); + expect(ok, r32[0x1c/4], 0); + expect(ok, r32[0x20/4], M_OK); + while (!read16(&r16[0x24/2])) + ; + expect(ok, r32[0x24/4], S_OK); + write32(&r32[0x20/4], 0); + if (!(r16[0x00/2] & 0x8000)) { + expect(ok, r8 [0x81], 0); + expect(ok, r16[0x82/2], 0); + expect(ok, r16[0x84/2], 0); + expect(ok, r16[0x86/2], 0); + //expect(ok, r16[0x88/2], 0); // triggers fill? + expect(ok, r8 [0x8b] & ~2, 0); + expect(ok, r16[0x8c/2], 0); + expect(ok, r16[0x8e/2], 0); + } + return ok; +} + +static int t_32x_echo(void) +{ + u16 *r16 = (u16 *)0xa15100; + int ok = 1; + + r16[0x2c/2] = r16[0x2e/2] = 0; + x32_cmd(CMD_ECHO, 0x12340000, 0, 0); + expect_sh2(ok, 0, r16[0x26/2], 0x1234); + x32_cmd(CMD_ECHO, 0x23450000, 0, 1); + expect_sh2(ok, 1, r16[0x26/2], 0xa345); + expect(ok, r16[0x2c/2], 0); // no last_irq_vec + expect(ok, r16[0x2e/2], 0); // no exception_index + return ok; +} + +static int t_32x_sh_defaults(void) +{ + u32 *r32 = (u32 *)0xa15120; + int ok = 1, s; + + for (s = 0; s < 2; s++) + { + x32_cmd(CMD_READ32, 0x20004000, 0, s); + expect_sh2(ok, s, r32[0x04/4], 0x02000000); // ADEN + x32_cmd(CMD_READ32, 0x20004004, 0, s); + expect_sh2(ok, s, r32[0x04/4], 0x00004001); // Empty Rv + x32_cmd(CMD_READ32, 0x20004008, 0, s); + expect_sh2(ok, s, r32[0x04/4], 0); + x32_cmd(CMD_READ32, 0x2000400c, 0, s); + expect_sh2(ok, s, r32[0x04/4], 0); + x32_cmd(CMD_GETGBR, 0, 0, s); + expect_sh2(ok, s, r32[0x04/4], 0x20004000); + } + return ok; +} + +static int t_32x_md_bios(void) +{ + void (*do_call_c0)(int a, int d) = (void *)0xff0040; + u8 *rmb = (u8 *)0xff0000; + u32 *rl = (u32 *)0; + int ok = 1; + + memcpy_(do_call_c0, test_32x_b_c0, + test_32x_b_c0_end - test_32x_b_c0); + write8(rmb, 0); + do_call_c0(0xff0000, 0x5a); + + expect(ok, rmb[0], 0x5a); + expect(ok, rl[0x04/4], 0x880200); + expect(ok, rl[0x10/4], 0x880212); + expect(ok, rl[0x94/4], 0x8802d8); + return ok; +} + +static int t_32x_md_rom(void) +{ + u32 *rl = (u32 *)0; + int ok = 1; + + expect(ok, rl[0x004/4], 0x880200); + expect(ok, rl[0x100/4], 0x53454741); + expect(ok, rl[0x70/4], 0); + write32(&rl[0x70/4], 0xa5123456); + write32(&rl[0x78/4], ~0); + mem_barrier(); + expect(ok, rl[0x78/4], 0x8802ae); + expect(ok, rl[0x70/4], 0xa5123456); + //expect(ok, rl[0x1070/4], v1070); + write32(&rl[0x70/4], 0); + // with RV 0x880000/0x900000 hangs, can't test + return ok; +} + +static int t_32x_md_fb(void) +{ + u8 *fbb = (u8 *)0x840000; + u16 *fbw = (u16 *)fbb; + u32 *fbl = (u32 *)fbb; + u8 *fob = (u8 *)0x860000; + u16 *fow = (u16 *)fob; + u32 *fol = (u32 *)fob; + int ok = 1; + + fbl[0] = 0x12345678; + fol[1] = 0x89abcdef; + mem_barrier(); + expect(ok, fbw[1], 0x5678); + expect(ok, fow[2], 0x89ab); + fbb[0] = 0; + fob[1] = 0; + fbw[1] = 0; + fow[2] = 0; + fow[3] = 1; + mem_barrier(); + fow[3] = 0x200; + mem_barrier(); + expect(ok, fol[0], 0x12340000); + expect(ok, fbl[1], 0x89ab0201); + return ok; +} + +static int t_32x_sh_fb(void) +{ + u32 *fbl = (u32 *)0x840000; + u8 *r8 = (u8 *)0xa15100; + int ok = 1; + + if (read8(r8) & 0x80) + write8(r8, 0x00); // FM=0 + fbl[0] = 0x12345678; + fbl[1] = 0x89abcdef; + mem_barrier(); + write8(r8, 0x80); // FM=1 + x32_cmd(CMD_WRITE8, 0x24000000, 0, 0); // should ignore + x32_cmd(CMD_WRITE8, 0x24020001, 0, 0); // ignore + x32_cmd(CMD_WRITE16, 0x24000002, 0, 0); // ok + x32_cmd(CMD_WRITE16, 0x24020000, 0, 0); // ignore + x32_cmd(CMD_WRITE32, 0x24020004, 0x5a0000a5, 1); + write8(r8, 0x00); // FM=0 + mem_barrier(); + expect(ok, fbl[0], 0x12340000); + expect(ok, fbl[1], 0x5aabcda5); + return ok; +} + +static int t_32x_irq(void) +{ + u32 *fbl_icnt = (u32 *)(0x840000 + IRQ_CNT_FB_BASE); + u16 *m_icnt = (u16 *)fbl_icnt; + u16 *s_icnt = m_icnt + 8; + u32 *r = (u32 *)0xa15100; + u16 *r16 = (u16 *)r; + u8 *r8 = (u8 *)r; + int ok = 1, i; + + write8(r, 0x00); // FM=0 + r[0x2c/4] = 0; + mem_barrier(); + for (i = 0; i < 8; i++) + write32(&fbl_icnt[i], 0); + mem_barrier(); + write16(&r16[0x02/2], 0xfffd); // INTM+unused_bits + mem_barrier(); + expect(ok, r16[0x02/2], 1); + x32_cmd(CMD_WRITE8, 0x20004001, 2, 0); // unmask cmd + x32_cmd(CMD_WRITE8, 0x20004001, 2, 1); // unmask cmd slave + burn10(10); + write8(r, 0x00); // FM=0 (hangs without) + mem_barrier(); + expect(ok, r16[0x02/2], 0); + expect(ok, r8 [0x2c], 4); + expect(ok, r8 [0x2d], 0); + expect(ok, r16[0x2e/2], 0); // no exception_index + expect(ok, m_icnt[4], 1); + expect(ok, s_icnt[4], 0); + write16(&r16[0x02/2], 0xaaaa); // INTS+unused_bits + mem_barrier(); + expect(ok, r16[0x02/2], 2); + burn10(10); + mem_barrier(); + expect(ok, r16[0x02/2], 0); + expect(ok, r8 [0x2c], 4); + expect(ok, r8 [0x2d], 4); + expect(ok, r16[0x2e/2], 0); // no exception_index + write8(r, 0x00); // FM=0 + mem_barrier(); + expect(ok, m_icnt[4], 1); + expect(ok, s_icnt[4], 1); + for (i = 0; i < 8; i++) { + if (i == 4) + continue; + expect(ok, m_icnt[i], 0); + expect(ok, s_icnt[i], 0); + } + return ok; +} + +static int t_32x_reg_w(void) +{ + u32 *r32 = (u32 *)0xa15100; + u16 *r16 = (u16 *)r32, old; + int ok = 1; + + r32[0x08/4] = ~0; + r32[0x0c/4] = ~0; + r16[0x10/2] = ~0; + mem_barrier(); + expect(ok, r32[0x08/4], 0xfffffe); + expect(ok, r32[0x0c/4], 0xffffff); + expect(ok, r16[0x10/2], 0xfffc); + mem_barrier(); + r32[0x08/4] = r32[0x0c/4] = 0; + r16[0x10/2] = 0; + old = r16[0x06/2]; + x32_cmd(CMD_WRITE16, 0x20004006, ~old, 0); + expect(ok, r16[0x06/2], old); + return ok; +} + +// prepare for reset btn press tests +static int t_32x_reset_prep(void) +{ + u32 *fbl = (u32 *)0x840000; + u32 *fbl_icnt = fbl + IRQ_CNT_FB_BASE / 4; + u32 *r32 = (u32 *)0xa15100; + u16 *r16 = (u16 *)r32; + u8 *r8 = (u8 *)r32; + int ok = 1, i; + + expect(ok, r16[0x00/2], 0x83); + write8(r8, 0x00); // FM=0 + r32[0x2c/4] = 0; + mem_barrier(); + expect(ok, r8[0x8b] & ~2, 0); + for (i = 0; i < 8; i++) + write32(&fbl_icnt[i], 0x01000100); + x32_cmd(CMD_WRITE8, 0x20004001, 0x02, 0); // unmask cmd + x32_cmd(CMD_WRITE8, 0x20004001, 0x02, 1); // unmask slave + x32_cmd(CMD_SETSR, 0xf0, 0, 1); // mask slave irqs (on the cpu) + burn10(10); + write8(r8, 0x00); // FM=0 + expect(ok, r32[0x2c/4], 0); + mem_barrier(); + for (i = 0; i < 8; i++) + expect(ok, fbl_icnt[i], 0x01000100); + + r16[0x04/2] = 0xffff; + r32[0x08/4] = 0x5a5a5a08; + r32[0x0c/4] = 0x5a5a5a0c; + r16[0x10/2] = 0x5a10; + r32[0x20/4] = 0x00005a20; // no x32_cmd + r32[0x24/4] = 0x5a5a5a24; + r32[0x28/4] = 0x5a5a5a28; + r32[0x2c/4] = 0x5a5a5a2c; + if (!(r16[0x00/2] & 0x8000)) { + wait_next_vsync(); + r16[0x8a/2] = 0x0001; + mem_barrier(); + for (i = 0; i < 220/2; i++) + fbl[i] = 0; + r8 [0x81] = 1; + r16[0x82/2] = 0xffff; + r16[0x84/2] = 0xffff; + r16[0x86/2] = 0xffff; + r16[0x8a/2] = 0x0000; + r16[0x8c/2] = 0xffff; + r16[0x8e/2] = 0xffff; + r16[0x100/2] = 0; + } + return ok; +} + +enum { + T_MD = 0, + T_32 = 1, // 32X +}; + static const struct { + u8 type; int (*test)(void); const char *name; } g_tests[] = { - { t_dma_zero_wrap, "dma zero len + wrap" }, - { t_dma_zero_fill, "dma zero len + fill" }, - { t_dma_ram_wrap, "dma ram wrap" }, - { t_dma_multi, "dma multi" }, - { t_dma_cram_wrap, "dma cram wrap" }, - { t_dma_vsram_wrap, "dma vsram wrap" }, - { t_dma_and_data, "dma and data" }, - { t_dma_short_cmd, "dma short cmd" }, - { t_dma_fill3_odd, "dma fill3 odd" }, - { t_dma_fill3_even, "dma fill3 even" }, -#ifndef PICO // later - { t_dma_fill3_vsram, "dma fill3 vsram" }, -#endif - { t_dma_fill_dis, "dma fill disabled" }, - { t_dma_fill_src, "dma fill src incr" }, - { t_dma_128k, "dma 128k mode" }, - { t_vdp_128k_b16, "vdp 128k addr bit16" }, + // this must be first to disable the 32x and restore the 68k vector table + { T_32, t_32x_reset_btn, "32x resetbtn" }, + + { T_MD, t_dma_zero_wrap, "dma zero len + wrap" }, + { T_MD, t_dma_zero_fill, "dma zero len + fill" }, + { T_MD, t_dma_ram_wrap, "dma ram wrap" }, + { T_MD, t_dma_multi, "dma multi" }, + { T_MD, t_dma_cram_wrap, "dma cram wrap" }, + { T_MD, t_dma_vsram_wrap, "dma vsram wrap" }, + { T_MD, t_dma_and_data, "dma and data" }, + { T_MD, t_dma_short_cmd, "dma short cmd" }, + { T_MD, t_dma_fill3_odd, "dma fill3 odd" }, + { T_MD, t_dma_fill3_even, "dma fill3 even" }, + { T_MD, t_dma_fill3_vsram, "dma fill3 vsram" }, + { T_MD, t_dma_fill_dis, "dma fill disabled" }, + { T_MD, t_dma_fill_src, "dma fill src incr" }, + { T_MD, t_dma_128k, "dma 128k mode" }, + { T_MD, t_vdp_128k_b16, "vdp 128k addr bit16" }, // { t_vdp_128k_b16_inc, "vdp 128k bit16 inc" }, // mystery - { t_vdp_reg_cmd, "vdp reg w cmd reset" }, - { t_vdp_sr_vb, "vdp status reg vb" }, - { t_z80mem_long_mirror, "z80 ram long mirror" }, - { t_z80mem_noreq_w, "z80 ram noreq write" }, - { t_z80mem_vdp_r, "z80 vdp read" }, + { T_MD, t_vdp_reg_cmd, "vdp reg w cmd reset" }, + { T_MD, t_vdp_sr_vb, "vdp status reg vb" }, + { T_MD, t_z80mem_long_mirror, "z80 ram long mirror" }, + { T_MD, t_z80mem_noreq_w, "z80 ram noreq write" }, + { T_MD, t_z80mem_vdp_r, "z80 vdp read" }, // { t_z80mem_vdp_w, "z80 vdp write" }, // hang - { t_tim_loop, "time loop" }, - { t_tim_z80_ram, "time z80 ram" }, - { t_tim_z80_ym, "time z80 ym2612" }, - { t_tim_z80_vdp, "time z80 vdp" }, - { t_tim_z80_bank_rom, "time z80 bank rom" }, - { t_tim_vcnt, "time V counter" }, - { t_tim_hblank_h40, "time hblank h40" }, - { t_tim_hblank_h32, "time hblank h32" }, - { t_tim_vdp_as_vram_w, "time vdp vram w" }, - { t_tim_vdp_as_cram_w, "time vdp cram w" }, - { t_irq_hint, "irq4 / line" }, - { t_irq_ack_v_h, "irq ack v-h" }, - { t_irq_ack_v_h_2, "irq ack v-h 2" }, - { t_irq_ack_h_v, "irq ack h-v" }, - { t_irq_ack_h_v_2, "irq ack h-v 2" }, - { t_irq_f_flag_h40, "irq f flag h40" }, - { t_irq_f_flag_h32, "irq f flag h32" }, + { T_MD, t_tim_loop, "time loop" }, + { T_MD, t_tim_z80_loop, "time z80 loop" }, + { T_MD, t_tim_z80_ram, "time z80 ram" }, + { T_MD, t_tim_z80_ym, "time z80 ym2612" }, + { T_MD, t_tim_z80_vdp, "time z80 vdp" }, + { T_MD, t_tim_z80_bank_rom, "time z80 bank rom" }, + { T_MD, t_tim_vcnt, "time V counter" }, + { T_MD, t_tim_vcnt_loops, "time vcnt loops" }, + { T_MD, t_tim_hblank_h40, "time hblank h40" }, + { T_MD, t_tim_hblank_h32, "time hblank h32" }, + { T_MD, t_tim_vdp_as_vram_w, "time vdp vram w" }, + { T_MD, t_tim_vdp_as_cram_w, "time vdp cram w" }, + { T_MD, t_tim_ym_timera_z80, "time timer a z80" }, + { T_MD, t_tim_ym_timerb_z80, "time timer b z80" }, + { T_MD, t_tim_ym_timerb_stop, "timer b stop" }, + { T_MD, t_tim_ym_timer_ab_sync,"timer ab sync" }, + { T_MD, t_irq_hint, "irq4 / line" }, + { T_MD, t_irq_both_cpu_unmask, "irq both umask" }, + { T_MD, t_irq_ack_v_h, "irq ack v-h" }, + { T_MD, t_irq_ack_v_h_2, "irq ack v-h 2" }, + { T_MD, t_irq_ack_h_v, "irq ack h-v" }, + { T_MD, t_irq_ack_h_v_2, "irq ack h-v 2" }, + { T_MD, t_irq_f_flag_h40, "irq f flag h40" }, + { T_MD, t_irq_f_flag_h32, "irq f flag h32" }, + + // the first one enables 32X, so must be kept + // all tests assume RV=1 FM=0 + { T_32, t_32x_init, "32x init" }, + { T_32, t_32x_echo, "32x echo" }, + { T_32, t_32x_sh_defaults, "32x sh def" }, + { T_32, t_32x_md_bios, "32x md bios" }, + { T_32, t_32x_md_rom, "32x md rom" }, + { T_32, t_32x_md_fb, "32x md fb" }, + { T_32, t_32x_sh_fb, "32x sh fb" }, + { T_32, t_32x_irq, "32x irq" }, + { T_32, t_32x_reg_w, "32x reg w" }, + { T_32, t_32x_reset_prep, "32x rstprep" }, // must be last 32x }; static void setup_z80(void) @@ -1600,7 +2345,8 @@ static void setup_z80(void) write16(0xa11100, 0x000); burn10(1); write16(0xa11200, 0x100); - burn10(1); + + burn10(50 * 15 / 7 / 10); // see z80_test.s80 // take back the bus write16(0xa11100, 0x100); @@ -1608,14 +2354,6 @@ static void setup_z80(void) ; } -static void wait_next_vsync(void) -{ - while (read16(VDP_CTRL_PORT) & 8) - /* blanking */; - while (!(read16(VDP_CTRL_PORT) & 8)) - /* not blanking */; -} - static unused int hexinc(char *c) { (*c)++; @@ -1630,7 +2368,12 @@ static unused int hexinc(char *c) int main() { + void (*px32x_switch_rv)(short rv); + short (*pget_input)(void) = get_input; int passed = 0; + int skipped = 0; + int have_32x; + int en_32x; int ret; u8 v8; int i; @@ -1696,10 +2439,20 @@ int main() VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA | VDP_MODE2_DISP); + have_32x = read32(0xa130ec) == MKLONG('M','A','R','S'); + en_32x = have_32x && (read16(0xa15100) & 1); v8 = read8(0xa10001); - printf("MD version: %02x %s %s\n", v8, + printf("MD version: %02x %s %s %s%s\n", v8, (v8 & 0x80) ? "world" : "jap", - (v8 & 0x40) ? "pal" : "ntsc"); + (v8 & 0x40) ? "pal" : "ntsc", + have_32x ? "32X" : "", + en_32x ? "+" : ""); + printf("reset hvc %04x->%04x\n", read16(-4), read16(-2)); + + // sanity check + extern u32 sh2_test[]; + if (sh2_test[0] != read32(0x3e0) || sh2_test[0x200/4] != read32(0x3e4)) + printf("bad 0x3c0 tab\n"); for (i = 0; i < ARRAY_SIZE(g_tests); i++) { // print test number if we haven't scrolled away @@ -1710,7 +2463,15 @@ int main() printf_ypos = old_ypos; printf_xpos = 0; } + if ((g_tests[i].type & T_32) && !have_32x) { + skipped++; + continue; + } ret = g_tests[i].test(); + if (ret == R_SKIP) { + skipped++; + continue; + } if (ret != 1) { text_pal = 2; printf("failed %d: %s\n", i, g_tests[i].name); @@ -1721,13 +2482,39 @@ int main() } text_pal = 0; - printf("%d/%d passed.\n", passed, ARRAY_SIZE(g_tests)); + printf("%d/%d passed, %d skipped.\n", + passed, ARRAY_SIZE(g_tests), skipped); printf_ypos = 0; printf(" "); - while (!(get_input() & BTNM_A)) - wait_next_vsync(); + if (have_32x && (read16(0xa15100) & 1)) { + u8 *p = (u8 *)0xff0040; + u32 len = x32x_switch_rv_end - x32x_switch_rv; + px32x_switch_rv = (void *)p; p += len; + memcpy_(px32x_switch_rv, x32x_switch_rv, len); + + len = get_input_end - get_input_s; + pget_input = (void *)p; p += len; + memcpy_(pget_input, get_input_s, len); + + // prepare for reset - run from 880xxx as the reset vector points there + // todo: broken printf + px32x_switch_rv(0); + } + for (i = 0; i < 60*60 && !(pget_input() & BTNM_A); i++) { + while (read16(VDP_CTRL_PORT) & SR_VB) + write16(-4, read16(VDP_HV_COUNTER)); /* blanking */ + while (!(read16(VDP_CTRL_PORT) & SR_VB)) + write16(-4, read16(VDP_HV_COUNTER)); /* not blanking */; + } +#ifndef PICO + // blank due to my lame tv being burn-in prone + VDP_setReg(VDP_MODE2, VDP_MODE2_MD); +#endif + while (!(pget_input() & BTNM_A)) + write16(-4, read16(VDP_HV_COUNTER)); + VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA | VDP_MODE2_DISP); { @@ -1756,18 +2543,18 @@ int main() hexinc(&c[2]); } #endif - while (get_input() & BTNM_A) + while (pget_input() & BTNM_A) wait_next_vsync(); wait_next_vsync(); for (;;) { - int b = get_input(); + int b = pget_input(); if (b & BTNM_C) { hscroll = 1, vscroll = -1; do { wait_next_vsync(); - } while (get_input() & BTNM_C); + } while (pget_input() & BTNM_C); cellmode ^= 1; } if (b & (BTNM_L | BTNM_R | BTNM_C)) { @@ -1793,13 +2580,13 @@ int main() hsz = (hsz + 1) & 3; do { wait_next_vsync(); - } while (get_input() & BTNM_A); + } while (pget_input() & BTNM_A); } if (b & BTNM_B) { vsz = (vsz + 1) & 3; do { wait_next_vsync(); - } while (get_input() & BTNM_B); + } while (pget_input() & BTNM_B); } VDP_setReg(VDP_SCROLLSZ, (vsz << 4) | hsz);