*/
#include <stdlib.h>
#include <stdarg.h>
-
-#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
+#define VDP_HV_COUNTER 0xC00008
#define TILE_MEM_END 0xB000
#define FONT_LEN 128
-#define TILE_FONT_BASE (TILE_MEM_END / 32 - FONT_LEN)
+#define TILE_FONT_BASE (TILE_MEM_END - FONT_LEN * 32)
/* note: using ED menu's layout here.. */
#define WPLANE (TILE_MEM_END + 0x0000)
#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)
#define VDP_MODE2_DMA 0x10
#define VDP_MODE2_IE0 0x20 // v int
#define VDP_MODE2_DISP 0x40
+#define VDP_MODE2_128K 0x80
+
+#define SR_PAL (1 << 0)
+#define SR_DMA (1 << 1)
+#define SR_HB (1 << 2)
+#define SR_VB (1 << 3)
+#define SR_ODD (1 << 4)
+#define SR_C (1 << 5)
+#define SR_SOVR (1 << 6)
+#define SR_F (1 << 7)
+#define SR_FULL (1 << 8)
+#define SR_EMPT (1 << 9)
/* cell counts */
#define LEFT_BORDER 1 /* lame TV */
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)
};
} _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)
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]);
}
// ---
// write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(addr) | CTL_WRITE_DMA);
}
+static void vdp_wait_for_fifo_empty(void)
+{
+ while (!(read16(VDP_CTRL_PORT) & 0x200))
+ /* fifo not empty */;
+}
+
+static void vdp_wait_for_dma_idle(void)
+{
+ while (read16(VDP_CTRL_PORT) & 2)
+ /* dma busy */;
+}
+
+static void vdp_wait_for_line_0(void)
+{
+ // in PAL vcounter reports 0 twice in a frame,
+ // so wait for vblank to clear first
+ while (!(read16(VDP_CTRL_PORT) & 8))
+ /* not blanking */;
+ while (read16(VDP_CTRL_PORT) & 8)
+ /* blanking */;
+ while (read8(VDP_HV_COUNTER) != 0)
+ ;
+}
+
+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;
write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(1) | CTL_WRITE_DMA);
write16(VDP_DATA_PORT, 0x1122);
ram[2] = read16(VDP_CTRL_PORT);
- while (read16(VDP_CTRL_PORT) & 2)
- ;
+ vdp_wait_for_dma_idle();
VDP_setReg(VDP_AUTOINC, 2);
write32(VDP_CTRL_PORT, CTL_READ_VRAM(0));
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_) \
+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_) \
+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)
{
static int t_dma_and_data(void)
{
const u32 *src = (const u32 *)0x3c0000;
- u32 v0;
+ u32 v0, v1;
int ok = 1;
write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0x100));
write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0xfc) | CTL_WRITE_DMA);
write32(VDP_DATA_PORT, 0x5ec8a248);
- write32(VDP_CTRL_PORT, CTL_READ_VRAM(0x100));
+ write32(VDP_CTRL_PORT, CTL_READ_VRAM(0xfc));
+ v0 = read32(VDP_DATA_PORT);
+ v1 = read32(VDP_DATA_PORT);
+
+ expect(ok, v0, src[0]);
+ expect(ok, v1, 0x5ec8a248);
+ return ok;
+}
+
+static int t_dma_short_cmd(void)
+{
+ const u32 *src = (const u32 *)0x3c0000;
+ u32 v0, v1, v2;
+ int ok = 1;
+
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0x3ff4));
+ write32(VDP_DATA_PORT, 0x10111213);
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0xfff0));
+ write32(VDP_DATA_PORT, 0x20212223);
+ write32(VDP_DATA_PORT, 0x30313233);
+ vdp_wait_for_fifo_empty();
+
+ do_setup_dma(src, 2);
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0xfff0) | CTL_WRITE_DMA);
+ write16(VDP_CTRL_PORT, CTL_WRITE_VRAM(0x3ff4) >> 16);
+ write32(VDP_DATA_PORT, 0x40414243);
+
+ write32(VDP_CTRL_PORT, CTL_READ_VRAM(0x3ff4));
v0 = read32(VDP_DATA_PORT);
+ write32(VDP_CTRL_PORT, CTL_READ_VRAM(0xfff0));
+ v1 = read32(VDP_DATA_PORT);
+ v2 = read32(VDP_DATA_PORT);
- expect(ok, v0, 0x5ec8a248);
+ expect(ok, v0, 0x10111213);
+ expect(ok, v1, src[0]);
+ expect(ok, v2, 0x40414243);
return ok;
}
write32(VDP_DATA_PORT, 0);
write32(VDP_DATA_PORT, 0);
write32(VDP_DATA_PORT, 0);
+ vdp_wait_for_fifo_empty();
VDP_setReg(VDP_AUTOINC, 3);
VDP_setReg(VDP_DMA_LEN0, 3);
VDP_setReg(VDP_DMA_SRC2, 0x80);
write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0x101) | CTL_WRITE_DMA);
write16(VDP_DATA_PORT, 0x1122);
- while (read16(VDP_CTRL_PORT) & 2)
- ;
+ vdp_wait_for_dma_idle();
VDP_setReg(VDP_AUTOINC, 2);
write32(VDP_CTRL_PORT, CTL_READ_VRAM(0x100));
write32(VDP_DATA_PORT, 0);
write32(VDP_DATA_PORT, 0);
write32(VDP_DATA_PORT, 0);
+ vdp_wait_for_fifo_empty();
VDP_setReg(VDP_AUTOINC, 3);
VDP_setReg(VDP_DMA_LEN0, 3);
VDP_setReg(VDP_DMA_SRC2, 0x80);
write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0x100) | CTL_WRITE_DMA);
write16(VDP_DATA_PORT, 0x1122);
- while (read16(VDP_CTRL_PORT) & 2)
- ;
+ vdp_wait_for_dma_idle();
VDP_setReg(VDP_AUTOINC, 2);
write32(VDP_CTRL_PORT, CTL_READ_VRAM(0x100));
write16(VDP_DATA_PORT, 0x0111);
write16(VDP_DATA_PORT, 0x0222);
write16(VDP_DATA_PORT, 0x0333);
+ vdp_wait_for_fifo_empty();
VDP_setReg(VDP_AUTOINC, 3);
VDP_setReg(VDP_DMA_LEN0, 3);
VDP_setReg(VDP_DMA_SRC2, 0x80);
write32(VDP_CTRL_PORT, CTL_WRITE_VSRAM(1) | CTL_WRITE_DMA);
write16(VDP_DATA_PORT, 0x0102);
- while (read16(VDP_CTRL_PORT) & 2)
- ;
+ vdp_wait_for_dma_idle();
VDP_setReg(VDP_AUTOINC, 2);
write32(VDP_CTRL_PORT, CTL_READ_VSRAM(0));
write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0x100) | CTL_WRITE_DMA);
VDP_setReg(VDP_MODE2, VDP_MODE2_MD);
write16(VDP_DATA_PORT, 0x1122);
- while (read16(VDP_CTRL_PORT) & 2)
- ;
+ vdp_wait_for_dma_idle();
VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA | VDP_MODE2_DISP);
write16(VDP_DATA_PORT, 0x3344);
- while (read16(VDP_CTRL_PORT) & 2)
- ;
+ vdp_wait_for_dma_idle();
write32(VDP_CTRL_PORT, CTL_READ_VRAM(0x100));
v0 = read32(VDP_DATA_PORT);
VDP_setReg(VDP_DMA_SRC2, 0x80);
write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0x100) | CTL_WRITE_DMA);
write16(VDP_DATA_PORT, 0x1122);
- while (read16(VDP_CTRL_PORT) & 2)
- ;
+ vdp_wait_for_dma_idle();
VDP_setReg(VDP_DMA_LEN0, 2);
VDP_setReg(VDP_DMA_SRC2, (u32)src >> 17);
return ok;
}
+// (((a & 2) >> 1) ^ 1) | ((a & $400) >> 9) | (a & $3FC) | ((a & $1F800) >> 1)
+static int t_dma_128k(void)
+{
+ u16 *ram = (u16 *)0xff0000;
+ u32 v0, v1;
+ int ok = 1;
+
+ ram[0] = 0x5a11;
+ ram[1] = 0x5a22;
+ ram[2] = 0x5a33;
+
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0x100));
+ write32(VDP_DATA_PORT, 0x01020304);
+ write32(VDP_DATA_PORT, 0x05060708);
+ vdp_wait_for_fifo_empty();
+
+ mem_barrier();
+ VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA | VDP_MODE2_128K);
+ do_setup_dma(ram, 3);
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0x100) | CTL_WRITE_DMA);
+ vdp_wait_for_fifo_empty();
+
+ VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA | VDP_MODE2_DISP);
+ write32(VDP_CTRL_PORT, CTL_READ_VRAM(0x100));
+ v0 = read32(VDP_DATA_PORT);
+ v1 = read32(VDP_DATA_PORT);
+
+ expect(ok, v0, 0x22110304);
+ expect(ok, v1, 0x05330708);
+ return ok;
+}
+
+static int t_vdp_128k_b16(void)
+{
+ u32 v0, v1;
+ int ok = 1;
+
+ VDP_setReg(VDP_AUTOINC, 0);
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0x8100));
+ write32(VDP_DATA_PORT, 0x01020304);
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0x10100));
+ write32(VDP_DATA_PORT, 0x05060708);
+ vdp_wait_for_fifo_empty();
+
+ VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA | VDP_MODE2_128K);
+ write16(VDP_CTRL_PORT, CTL_WRITE_VRAM(0x100) >> 16); // note: upper cmd
+ write32(VDP_DATA_PORT, 0x11223344);
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0x10102));
+ write32(VDP_DATA_PORT, 0x55667788);
+ vdp_wait_for_fifo_empty();
+
+ VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA | VDP_MODE2_DISP);
+ write32(VDP_CTRL_PORT, CTL_READ_VRAM(0x8100));
+ v0 = read16(VDP_DATA_PORT);
+ write32(VDP_CTRL_PORT, CTL_READ_VRAM(0x0100));
+ v1 = read16(VDP_DATA_PORT);
+
+ VDP_setReg(VDP_AUTOINC, 2);
+
+ expect(ok, v0, 0x8844);
+ expect(ok, v1, 0x0708);
+ return ok;
+}
+
+static unused int t_vdp_128k_b16_inc(void)
+{
+ u32 v0, v1;
+ int ok = 1;
+
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0));
+ write32(VDP_DATA_PORT, 0x01020304);
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0x8000));
+ write32(VDP_DATA_PORT, 0x05060708);
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0xfffe));
+ write32(VDP_DATA_PORT, 0x090a0b0c);
+ vdp_wait_for_fifo_empty();
+
+ VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA | VDP_MODE2_128K);
+ write16(VDP_CTRL_PORT, CTL_WRITE_VRAM(0) >> 16); // note: upper cmd
+ write16(VDP_DATA_PORT, 0x1122);
+ vdp_wait_for_fifo_empty();
+
+ VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA | VDP_MODE2_DISP);
+ write32(VDP_CTRL_PORT, CTL_READ_VRAM(0));
+ v0 = read32(VDP_DATA_PORT);
+ write32(VDP_CTRL_PORT, CTL_READ_VRAM(0x8000));
+ v1 = read32(VDP_DATA_PORT);
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0));
+ write32(VDP_DATA_PORT, 0);
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0x8000));
+ write32(VDP_DATA_PORT, 0);
+
+ expect(ok, v0, 0x0b0c0304); // XXX: no 22 anywhere?
+ expect(ok, v1, 0x05060708);
+ return ok;
+}
+
+static int t_vdp_reg_cmd(void)
+{
+ u32 v0;
+ int ok = 1;
+
+ VDP_setReg(VDP_AUTOINC, 0);
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0x100));
+ write32(VDP_DATA_PORT, 0x01020304);
+ VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA | VDP_MODE2_DISP);
+ write32(VDP_DATA_PORT, 0x05060708);
+
+ VDP_setReg(VDP_AUTOINC, 2);
+ write32(VDP_CTRL_PORT, CTL_READ_VRAM(0x0100));
+ v0 = read16(VDP_DATA_PORT);
+
+ expect(ok, v0, 0x0304);
+ return ok;
+}
+
+static int t_vdp_sr_vb(void)
+{
+ u16 sr[4];
+ int ok = 1;
+
+ while (read8(VDP_HV_COUNTER) != 242)
+ ;
+ sr[0] = read16(VDP_CTRL_PORT);
+ VDP_setReg(VDP_MODE2, VDP_MODE2_MD);
+ sr[1] = read16(VDP_CTRL_PORT);
+ while (read8(VDP_HV_COUNTER) != 4)
+ ;
+ sr[2] = read16(VDP_CTRL_PORT);
+ VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA | VDP_MODE2_DISP);
+ sr[3] = read16(VDP_CTRL_PORT);
+
+ expect_bits(ok, sr[0], SR_VB, SR_VB);
+ expect_bits(ok, sr[1], SR_VB, SR_VB);
+ expect_bits(ok, sr[2], SR_VB, SR_VB);
+ expect_bits(ok, sr[3], 0, SR_VB);
+ return ok;
+}
+
/* z80 tests assume busreq state */
static int t_z80mem_long_mirror(void)
{
return ok;
}
+static int t_z80mem_noreq_w(void)
+{
+ u8 *zram = (u8 *)0xa00000;
+ int ok = 1;
+
+ write8(&zram[0x1100], 0x11);
+ mem_barrier();
+ write16(0xa11100, 0x000);
+ write8(&zram[0x1100], 0x22);
+ mem_barrier();
+
+ write16(0xa11100, 0x100);
+ while (read16(0xa11100) & 0x100)
+ ;
+
+ expect(ok, zram[0x1100], 0x11);
+ return ok;
+}
+
+#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)
{
u8 *zram = (u8 *)0xa00000;
write32(VDP_CTRL_PORT, CTL_READ_VRAM(0x100));
zram[0x1000] = 1; // cp
- zram[0x1001] = 2; // len
write16_z80le(&zram[0x1002], 0x7f00); // src
- write16_z80le(&zram[0x1004], 0x1006); // dst
- zram[0x1006] = zram[0x1007] = zram[0x1008] = 0x5a;
+ write16_z80le(&zram[0x1004], 0x1100); // dst
+ write16_z80le(&zram[0x1006], 2); // len
+ zram[0x1100] = zram[0x1101] = zram[0x1102] = 0x5a;
mem_barrier();
write16(0xa11100, 0x000);
- burn10((98 + 40*2 + 27) * 15 / 7 * 2 / 10);
+ burn10(Z80_CYLES_TEST1(2) * 15 / 7 / 10);
write16(0xa11100, 0x100);
while (read16(0xa11100) & 0x100)
;
expect(ok, zram[0x1000], 0);
- expect(ok, zram[0x1006], 0x11);
- expect(ok, zram[0x1007], 0x44);
- expect(ok, zram[0x1008], 0x5a);
+ expect(ok, zram[0x1100], 0x11);
+ expect(ok, zram[0x1101], 0x44);
+ expect(ok, zram[0x1102], 0x5a);
return ok;
}
write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0x100));
write32(VDP_DATA_PORT, 0x11223344);
write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0x100));
+ vdp_wait_for_fifo_empty();
zram[0x1000] = 1; // cp
- zram[0x1001] = 2; // len
- write16_z80le(&zram[0x1002], 0x1006); // src
+ write16_z80le(&zram[0x1002], 0x1100); // src
write16_z80le(&zram[0x1004], 0x7f00); // dst
- zram[0x1006] = 0x55;
- zram[0x1007] = 0x66;
+ write16_z80le(&zram[0x1006], 2); // len
+ zram[0x1100] = 0x55;
+ zram[0x1101] = 0x66;
mem_barrier();
write16(0xa11100, 0x000);
- burn10((98 + 40*2 + 27) * 15 / 7 * 2 / 10);
+ burn10(Z80_CYLES_TEST1(2) * 15 / 7 / 10);
write16(0xa11100, 0x100);
while (read16(0xa11100) & 0x100)
return ok;
}
-static const struct {
- 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_fill3_odd, "dma fill3 odd" },
- { t_dma_fill3_even, "dma fill3 even" },
- // { t_dma_fill3_vsram, "dma fill3 vsram" }, // later
- { t_dma_fill_dis, "dma fill disabled" },
- { t_dma_fill_src, "dma fill src incr" },
- { t_z80mem_long_mirror, "z80 ram long mirror" },
- { t_z80mem_vdp_r, "z80 vdp read" },
- // { t_z80mem_vdp_w, "z80 vdp write" }, // hang
-};
+static int t_tim_loop(void)
+{
+ u8 vcnt;
+ int ok = 1;
-static void setup_z80(void)
+ vdp_wait_for_line_0();
+ burn10(488*220/10);
+ vcnt = read8(VDP_HV_COUNTER);
+ mem_barrier();
+
+ //expect_range(ok, vcnt, 0x80, 0x80);
+ expect(ok, vcnt, 223);
+ return ok;
+}
+
+static int t_tim_z80_loop(void)
{
+ u8 pal = read8(0xa10001) & 0x40;
u8 *zram = (u8 *)0xa00000;
- int i, len;
+ 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;
- /* z80 */
- write16(0xa11100, 0x100);
- write16(0xa11200, 0x100);
+ 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)
;
-
- // load the default test program, clear it's data
- len = z80_test_end - z80_test;
- for (i = 0; i < len; i++)
- write8(&zram[i], z80_test[i]);
- for (i = 0x1000; i < 0x1007; i++)
- write8(&zram[i], 0);
+ expect(ok, zram[0x1000], 0);
+ expect(ok, zram[0x1100], 1);
+ return ok;
}
-int main()
+#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)
{
- int passed = 0;
- int ret;
- int i;
+ const int pairs = 512 + 256;
- setup_z80();
+ zram[0x1000] = 2; // read loop, save vcnt
+ write16_z80le(&zram[0x1002], src); // src
+ write16_z80le(&zram[0x1004], 0x1100); // vcnt dst
+ write16_z80le(&zram[0x1006], pairs); // reads/2
+ zram[0x1100] = 0;
+ mem_barrier();
- /* setup VDP */
- while (read16(VDP_CTRL_PORT) & 2)
+ vdp_wait_for_line_0();
+ write16(0xa11100, 0x000);
+ burn10(Z80_CYCLES_TEST2(pairs) * 15 / 7 * 2 / 10);
+
+ write16(0xa11100, 0x100);
+ while (read16(0xa11100) & 0x100)
;
+}
- VDP_setReg(VDP_MODE1, VDP_MODE1_PS);
- VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA);
- VDP_setReg(VDP_MODE3, 0x00);
- VDP_setReg(VDP_MODE4, 0x81);
- VDP_setReg(VDP_NT_SCROLLA, APLANE >> 10);
- VDP_setReg(VDP_NT_SCROLLB, BPLANE >> 13);
- VDP_setReg(VDP_SAT_BASE, SLIST >> 9);
- VDP_setReg(VDP_HSCROLL, HSCRL >> 10);
- VDP_setReg(VDP_AUTOINC, 2);
- VDP_setReg(VDP_SCROLLSZ, 0x01);
- VDP_setReg(VDP_BACKDROP, 0);
+static int t_tim_z80_ram(void)
+{
+ u8 *zram = (u8 *)0xa00000;
+ int ok = 1;
- // early tests
- t_dma_zero_wrap_early();
- t_dma_zero_fill_early();
+ z80_read_loop(zram, 0);
- /* pattern 0 */
- write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0));
- for (i = 0; i < 32 / 4; i++)
- write32(VDP_DATA_PORT, 0);
+ expect(ok, zram[0x1000], 0);
+ expect_range(ok, zram[0x1100], 0x80, 0x80);
+ return ok;
+}
- /* clear name tables */
- write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(APLANE));
- for (i = 0; i < PLANE_W * PLANE_H / 2; i++)
- write32(VDP_DATA_PORT, 0);
+static int t_tim_z80_ym(void)
+{
+ u8 *zram = (u8 *)0xa00000;
+ int ok = 1;
- write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(BPLANE));
- for (i = 0; i < PLANE_W * PLANE_H / 2; i++)
- write32(VDP_DATA_PORT, 0);
+ z80_read_loop(zram, 0x4000);
- /* SAT, h. scroll */
- write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(SLIST));
- write32(VDP_DATA_PORT, 0);
+ expect(ok, zram[0x1000], 0);
+ expect_range(ok, zram[0x1100], 0x80, 0x80);
+ return ok;
+}
- write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(HSCRL));
- write32(VDP_DATA_PORT, 0);
+static int t_tim_z80_vdp(void)
+{
+ u8 *zram = (u8 *)0xa00000;
+ int ok = 1;
- /* scroll plane vscroll */
- write32(VDP_CTRL_PORT, CTL_WRITE_VSRAM(0));
- write32(VDP_DATA_PORT, 0);
- printf_ypos = 1;
+ z80_read_loop(zram, 0x7f08);
- /* load font */
- write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(TILE_FONT_BASE));
- for (i = 0; i < FONT_LEN * 32 / 4; i++)
- write32(VDP_DATA_PORT, font_base[i]);
+ expect(ok, zram[0x1000], 0);
+ expect_range(ok, zram[0x1100], 0x91, 0x91);
+ return ok;
+}
+
+static int t_tim_z80_bank_rom(void)
+{
+ u8 *zram = (u8 *)0xa00000;
+ int i, ok = 1;
+
+ for (i = 0; i < 17; i++)
+ write8(0xa06000, 0); // bank 0
+
+ z80_read_loop(zram, 0x8000);
+
+ expect(ok, zram[0x1000], 0);
+ expect_range(ok, zram[0x1100], 0x95, 0x96);
+ return ok;
+}
+
+/* borderline too slow */
+#if 0
+static void test_vcnt_vb(void)
+{
+ const u32 *srhv = (u32 *)0xc00006; // to read SR and HV counter
+ u32 *ram = (u32 *)0xff0000;
+ u16 vcnt, vcnt_expect = 0;
+ u16 sr, count = 0;
+ u32 val, old;
+
+ vdp_wait_for_line_0();
+ old = read32(srhv);
+ *ram++ = old;
+ for (;;) {
+ val = read32(srhv);
+ vcnt = val & 0xff00;
+ if (vcnt == vcnt_expect)
+ continue;
+ sr = val >> 16;
+ if (vcnt == 0 && !(sr & SR_VB)) // not VB
+ break; // wrapped to start of frame
+// count++;
+ vcnt_expect += 0x100;
+ if (vcnt == vcnt_expect && !((sr ^ (old >> 16)) & SR_VB)) {
+ old = val;
+ continue;
+ }
+ // should have a vcnt jump here
+ *ram++ = old;
+ *ram++ = val;
+ vcnt_expect = vcnt;
+ old = val;
+ }
+ *ram++ = val;
+ *ram = count;
+ mem_barrier();
+}
+#endif
+
+static int t_tim_vcnt(void)
+{
+ const u32 *ram32 = (u32 *)0xff0000;
+ const u8 *ram = (u8 *)0xff0000;
+ u8 pal = read8(0xa10001) & 0x40;
+ u8 vc_jmp_b = pal ? 0x02 : 0xea;
+ u8 vc_jmp_a = pal ? 0xca : 0xe5;
+ u16 lines = pal ? 313 : 262;
+ int ok = 1;
+
+ test_vcnt_vb();
+ expect(ok, ram[0*4+2], 0); // line 0
+ expect_bits(ok, ram[0*4+1], 0, SR_VB);
+ expect(ok, ram[1*4+2], 223); // last no blank
+ expect_bits(ok, ram[1*4+1], 0, SR_VB);
+ expect(ok, ram[2*4+2], 224); // 1st blank
+ expect_bits(ok, ram[2*4+1], SR_VB, SR_VB);
+ expect(ok, ram[3*4+2], vc_jmp_b); // before jump
+ expect_bits(ok, ram[3*4+1], SR_VB, SR_VB);
+ expect(ok, ram[4*4+2], vc_jmp_a); // after jump
+ expect_bits(ok, ram[4*4+1], SR_VB, SR_VB);
+ expect(ok, ram[5*4+2], 0xfe); // before vb clear
+ expect_bits(ok, ram[5*4+1], SR_VB, SR_VB);
+ expect(ok, ram[6*4+2], 0xff); // after vb clear
+ expect_bits(ok, ram[6*4+1], 0, SR_VB);
+ expect(ok, ram[7*4+2], 0); // next line 0
+ expect_bits(ok, ram[7*4+1], 0, SR_VB);
+ expect(ok, ram32[8], lines - 1);
+ 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;
+ int ok = 1;
+
+ test_hb();
+
+ // set: 0-2
+ expect_bits(ok, r[2], SR_HB, SR_HB);
+ expect_bits(ok, r[5], SR_HB, SR_HB);
+ // <wait>
+ expect_bits(ok, r[7], SR_HB, SR_HB);
+ // clear: 8-11
+ expect_bits(ok, r[12], 0, SR_HB);
+ return ok;
+}
+
+static int t_tim_hblank_h32(void)
+{
+ const u8 *r = (u8 *)0xff0000;
+ int ok = 1;
+
+ VDP_setReg(VDP_MODE4, 0x00);
+ test_hb();
+ VDP_setReg(VDP_MODE4, 0x81);
+
+ expect_bits(ok, r[0], 0, SR_HB);
+ // set: 1-4
+ expect_bits(ok, r[4], SR_HB, SR_HB);
+ expect_bits(ok, r[5], SR_HB, SR_HB);
+ // <wait>
+ expect_bits(ok, r[8], SR_HB, SR_HB);
+ // clear: 9-11
+ expect_bits(ok, r[12], 0, SR_HB);
+ return ok;
+}
+
+static int t_tim_vdp_as_vram_w(void)
+{
+ int ok = 1;
+ u8 vcnt;
+
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0x100));
+ vdp_wait_for_line_0();
+ write16_x16(VDP_DATA_PORT, 112*18 / 16, 0);
+ vcnt = read8(VDP_HV_COUNTER);
+ mem_barrier();
+
+ expect(ok, vcnt, 112*2-1);
+ return ok;
+}
+
+static int t_tim_vdp_as_cram_w(void)
+{
+ int ok = 1;
+ u8 vcnt;
+
+ write32(VDP_CTRL_PORT, CTL_WRITE_CRAM(0));
+ vdp_wait_for_line_0();
+ write16_x16(VDP_DATA_PORT, 112*18 / 16, 0);
+ vcnt = read8(VDP_HV_COUNTER);
+ mem_barrier();
+
+ setup_default_palette();
+
+ expect(ok, vcnt, 112);
+ 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)
+{
+ 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);
+
+ VDP_setReg(10, 0);
+ while (read8(VDP_HV_COUNTER) != 100)
+ ;
+ while (read8(VDP_HV_COUNTER) != 229)
+ ;
+ // take the pending irq
+ VDP_setReg(VDP_MODE1, VDP_MODE1_PS | VDP_MODE1_IE1);
+ move_sr(0x2000);
+ burn10(488 * 2 / 10);
+ move_sr(0x2700);
+ 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, 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)
+{
+ struct irq_test *ith = (void *)0xfff000;
+ struct irq_test *itv = ith + 1;
+ u16 s0, s1, s2;
+ 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);
+ /* 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)
+ ;
+ while (read8(VDP_HV_COUNTER) != 226)
+ ;
+ s0 = read16(VDP_CTRL_PORT);
+ s1 = move_sr_and_read(0x2500, VDP_CTRL_PORT);
+ burn10(666 / 10);
+ s2 = move_sr_and_read(0x2000, VDP_CTRL_PORT);
+ burn10(488 / 10);
+ 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, 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);
+ return ok;
+}
+
+static int t_irq_ack_v_h_2(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)
+ ;
+ s0 = read16(VDP_CTRL_PORT);
+ test_v_h_2();
+ s1 = read16(VDP_CTRL_PORT);
+ VDP_setReg(VDP_MODE1, VDP_MODE1_PS);
+ VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA | VDP_MODE2_DISP);
+
+ 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;
+}
+
+static int t_irq_ack_h_v(void)
+{
+ u16 *ram = (u16 *)0xfff000;
+ u8 *ram8 = (u8 *)0xfff000;
+ u16 s0, s1, s[4];
+ int ok = 1;
+
+ ram[0] = ram[1] = ram[2] =
+ ram[4] = ram[5] = ram[6] = 0;
+ 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)
+ ;
+ s0 = read16(VDP_CTRL_PORT);
+ VDP_setReg(VDP_MODE1, VDP_MODE1_PS | VDP_MODE1_IE1);
+ move_sr(0x2000);
+ burn10(666 / 10);
+ s1 = read16(VDP_CTRL_PORT);
+ write_and_read1(VDP_CTRL_PORT, 0x8000 | (VDP_MODE2 << 8)
+ | VDP_MODE2_MD | VDP_MODE2_IE0, s);
+ 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, ram[0], 1); // hint count
+ expect(ok, ram8[2], 226); // hint line
+ expect(ok, ram[4], 1); // vint count
+ expect(ok, ram8[10], 228); // vint line
+ expect_bits(ok, s0, SR_F, SR_F);
+ expect_bits(ok, s1, SR_F, SR_F);
+ expect_bits(ok, s[0], SR_F, SR_F);
+ expect_bits(ok, s[1], SR_F, SR_F);
+ expect_bits(ok, s[2], 0, SR_F);
+ expect_bits(ok, s[3], 0, SR_F);
+ return ok;
+}
+
+static int t_irq_ack_h_v_2(void)
+{
+ u16 *ram = (u16 *)0xfff000;
+ u8 *ram8 = (u8 *)0xfff000;
+ u16 s0, s1;
+ int ok = 1;
+
+ ram[0] = ram[1] = ram[2] =
+ ram[4] = ram[5] = ram[6] = 0;
+ 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)
+ ;
+ s0 = read16(VDP_CTRL_PORT);
+ test_h_v_2();
+ s1 = read16(VDP_CTRL_PORT);
+ VDP_setReg(VDP_MODE1, VDP_MODE1_PS);
+ VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA | VDP_MODE2_DISP);
+
+ expect(ok, ram[0], 2); // hint count
+ expect(ok, ram8[2], 226); // hint first line
+ expect(ok, ram8[4], 226); // hint last line
+ expect(ok, ram[4], 0); // vint count
+ expect(ok, ram8[10], 0); // vint line
+ expect_bits(ok, s0, SR_F, SR_F);
+ expect_bits(ok, s1, 0, SR_F);
+ return ok;
+}
+
+static void t_irq_f_flag(void)
+{
+ memcpy_((void *)0xff0140, test_f_vint, test_f_vint_end - test_f_vint);
+ memset_((void *)0xff0000, 0, 10);
+ VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_IE0 | VDP_MODE2_DISP);
+ test_f();
+ VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA | VDP_MODE2_DISP);
+}
+
+static int t_irq_f_flag_h40(void)
+{
+ u8 f, *r = (u8 *)0xff0000;
+ int ok = 1;
+
+ t_irq_f_flag();
+
+ expect_bits(ok, r[0], 0, SR_F);
+ expect_bits(ok, r[1], 0, SR_F);
+ expect_bits(ok, r[2], 0, SR_F);
+ // hits 1-3 times in range 3-9, usually ~5
+ f = r[3] | r[4] | r[5] | r[6] | r[7];
+
+ expect_bits(ok, r[10], 0, SR_F);
+ expect_bits(ok, r[11], 0, SR_F);
+ expect_bits(ok, f, SR_F, SR_F);
+ return ok;
+}
+
+static int t_irq_f_flag_h32(void)
+{
+ u8 f, *r = (u8 *)0xff0000;
+ int ok = 1;
+
+ VDP_setReg(VDP_MODE4, 0x00);
+ t_irq_f_flag();
+ VDP_setReg(VDP_MODE4, 0x81);
+
+ expect_bits(ok, r[0], 0, SR_F);
+ expect_bits(ok, r[1], 0, SR_F);
+ // hits 1-3 times in range 2-7, usually 3
+ f = r[2] | r[3] | r[4] | r[5] | r[6] | r[7];
+
+ expect_bits(ok, r[8], 0, SR_F);
+ expect_bits(ok, r[9], 0, SR_F);
+ expect_bits(ok, r[10], 0, SR_F);
+ expect_bits(ok, r[11], 0, SR_F);
+ expect_bits(ok, f, SR_F, SR_F);
+ 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++)
+ write32(&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[] = {
+ // 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_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_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)
+{
+ u8 *zram = (u8 *)0xa00000;
+ int i, len;
+
+ /* z80 */
+ write16(0xa11100, 0x100);
+ write16(0xa11200, 0x100);
+
+ while (read16(0xa11100) & 0x100)
+ ;
+
+ // load the default test program, clear it's data
+ len = z80_test_end - z80_test;
+ for (i = 0; i < len; i++)
+ write8(&zram[i], z80_test[i]);
+ for (i = 0x1000; i < 0x1007; i++)
+ write8(&zram[i], 0);
+
+ // reset
+ write16(0xa11200, 0x000);
+ write16(0xa11100, 0x000);
+ burn10(1);
+ write16(0xa11200, 0x100);
+
+ burn10(50 * 15 / 7 / 10); // see z80_test.s80
+
+ // take back the bus
+ write16(0xa11100, 0x100);
+ while (read16(0xa11100) & 0x100)
+ ;
+}
+
+static unused int hexinc(char *c)
+{
+ (*c)++;
+ if (*c > 'f') {
+ *c = '0';
+ return 1;
+ }
+ if (*c == '9' + 1)
+ *c = 'a';
+ return 0;
+}
+
+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;
+
+ setup_z80();
+
+ /* io */
+ write8(0xa10009, 0x40);
+
+ /* setup VDP */
+ while (read16(VDP_CTRL_PORT) & 2)
+ ;
+
+ VDP_setReg(VDP_MODE1, VDP_MODE1_PS);
+ VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA);
+ VDP_setReg(VDP_MODE3, 0x00);
+ VDP_setReg(VDP_MODE4, 0x81);
+ VDP_setReg(VDP_NT_SCROLLA, APLANE >> 10);
+ VDP_setReg(VDP_NT_SCROLLB, BPLANE >> 13);
+ VDP_setReg(VDP_SAT_BASE, SLIST >> 9);
+ VDP_setReg(VDP_HSCROLL, HSCRL >> 10);
+ VDP_setReg(VDP_AUTOINC, 2);
+ VDP_setReg(VDP_SCROLLSZ, 0x01);
+ VDP_setReg(VDP_BACKDROP, 0);
+
+ // early tests
+ t_dma_zero_wrap_early();
+ t_dma_zero_fill_early();
+
+ /* pattern 0 */
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(0));
+ for (i = 0; i < 32 / 4; i++)
+ write32(VDP_DATA_PORT, 0);
+
+ /* clear name tables */
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(APLANE));
+ for (i = 0; i < PLANE_W * PLANE_H / 2; i++)
+ write32(VDP_DATA_PORT, 0);
+
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(BPLANE));
+ for (i = 0; i < PLANE_W * PLANE_H / 2; i++)
+ write32(VDP_DATA_PORT, 0);
+
+ /* SAT, h. scroll */
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(SLIST));
+ write32(VDP_DATA_PORT, 0);
+
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(HSCRL));
+ write32(VDP_DATA_PORT, 0);
+
+ /* scroll plane vscroll */
+ write32(VDP_CTRL_PORT, CTL_WRITE_VSRAM(0));
+ write32(VDP_DATA_PORT, 0);
+ printf_ypos = 1;
+
+ /* load font */
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(TILE_FONT_BASE));
+ for (i = 0; i < FONT_LEN * 32 / 4; i++)
+ write32(VDP_DATA_PORT, font_base[i]);
/* set colors */
setup_default_palette();
VDP_setReg(VDP_MODE2, VDP_MODE2_MD | VDP_MODE2_DMA | VDP_MODE2_DISP);
- printf("\n");
- printf("MD version: %02x\n", read8(0xa10001));
+ 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 %s%s\n", v8,
+ (v8 & 0x80) ? "world" : "jap",
+ (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
if (printf_ypos < CSCREEN_H) {
int old_ypos = printf_ypos;
printf_ypos = 0;
- text_pal = 0;
printf("%02d/%02d", i, ARRAY_SIZE(g_tests));
printf_ypos = old_ypos;
printf_xpos = 0;
}
- text_pal = 2;
+ if ((g_tests[i].type & T_32) && !have_32x) {
+ skipped++;
+ continue;
+ }
ret = g_tests[i].test();
- if (ret != 1)
+ if (ret == R_SKIP) {
+ skipped++;
+ continue;
+ }
+ if (ret != 1) {
+ text_pal = 2;
printf("failed %d: %s\n", i, g_tests[i].name);
+ text_pal = 0;
+ }
else
passed++;
}
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(" ");
+ 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);
+
+
+ {
+ char c[3] = { '0', '0', '0' };
+ short hscroll = 0, vscroll = 0;
+ short hsz = 1, vsz = 0;
+ short cellmode = 0;
+
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(APLANE));
+
+#if 0
+ for (i = 0, c[0] = 'a'; i < 8 * 1024 / 2; i++) {
+ write16(VDP_DATA_PORT, (u16)c[0] - 32 + TILE_FONT_BASE / 32);
+ c[0]++;
+ if (c[0] == 'z' + 1)
+ c[0] = 'a';
+ }
+#else
+ for (i = 0; i < 8 * 1024 / 2 / 4; i++) {
+ write16(VDP_DATA_PORT, (u16)'.' - 32 + TILE_FONT_BASE / 32);
+ write16(VDP_DATA_PORT, (u16)c[2] - 32 + TILE_FONT_BASE / 32);
+ write16(VDP_DATA_PORT, (u16)c[1] - 32 + TILE_FONT_BASE / 32);
+ write16(VDP_DATA_PORT, (u16)c[0] - 32 + TILE_FONT_BASE / 32);
+ if (hexinc(&c[0]))
+ if (hexinc(&c[1]))
+ hexinc(&c[2]);
+ }
+#endif
+ while (pget_input() & BTNM_A)
+ wait_next_vsync();
+
+ wait_next_vsync();
+ for (;;) {
+ int b = pget_input();
+
+ if (b & BTNM_C) {
+ hscroll = 1, vscroll = -1;
+ do {
+ wait_next_vsync();
+ } while (pget_input() & BTNM_C);
+ cellmode ^= 1;
+ }
+ if (b & (BTNM_L | BTNM_R | BTNM_C)) {
+ hscroll += (b & BTNM_L) ? 1 : -1;
+ write32(VDP_CTRL_PORT, CTL_WRITE_VRAM(HSCRL));
+ write16(VDP_DATA_PORT, hscroll);
+ }
+ if (b & (BTNM_U | BTNM_D | BTNM_C)) {
+ vscroll += (b & BTNM_U) ? -1 : 1;
+ write32(VDP_CTRL_PORT, CTL_WRITE_VSRAM(0));
+ if (cellmode) {
+ int end = (int)vscroll + 21;
+ for (i = vscroll; i < end; i++)
+ write32(VDP_DATA_PORT, i << 17);
+ VDP_setReg(VDP_MODE3, 0x04);
+ }
+ else {
+ write16(VDP_DATA_PORT, vscroll);
+ VDP_setReg(VDP_MODE3, 0x00);
+ }
+ }
+ if (b & BTNM_A) {
+ hsz = (hsz + 1) & 3;
+ do {
+ wait_next_vsync();
+ } while (pget_input() & BTNM_A);
+ }
+ if (b & BTNM_B) {
+ vsz = (vsz + 1) & 3;
+ do {
+ wait_next_vsync();
+ } while (pget_input() & BTNM_B);
+ }
+ VDP_setReg(VDP_SCROLLSZ, (vsz << 4) | hsz);
+
+ printf_xpos = 1;
+ printf_ypos = 0;
+ text_pal = 1;
+ printf(" %d %d ", hsz, vsz);
+
+ wait_next_vsync();
+ }
+ }
+
for (;;)
;