rearrange globals
[picodrive.git] / pico / memory.c
index 24e5f21..b49956e 100644 (file)
@@ -49,7 +49,7 @@ static void xmap_set(uptr *map, int shift, int start_addr, int end_addr,
   for (i = start_addr >> shift; i <= end_addr >> shift; i++) {\r
     map[i] = addr >> 1;\r
     if (is_func)\r
-      map[i] |= (uptr)1 << (sizeof(addr) * 8 - 1);\r
+      map[i] |= MAP_FLAG;\r
   }\r
 }\r
 \r
@@ -63,6 +63,17 @@ void cpu68k_map_set(uptr *map, int start_addr, int end_addr,
     const void *func_or_mh, int is_func)\r
 {\r
   xmap_set(map, M68K_MEM_SHIFT, start_addr, end_addr, func_or_mh, is_func);\r
+#ifdef EMU_F68K\r
+  // setup FAME fetchmap\r
+  if (!is_func)\r
+  {\r
+    int shiftout = 24 - FAMEC_FETCHBITS;\r
+    int i = start_addr >> shiftout;\r
+    uptr base = (uptr)func_or_mh - (i << shiftout);\r
+    for (; i <= (end_addr >> shiftout); i++)\r
+      PicoCpuFM68k.Fetch[i] = base;\r
+  }\r
+#endif\r
 }\r
 \r
 // more specialized/optimized function (does same as above)\r
@@ -89,6 +100,17 @@ void cpu68k_map_all_ram(int start_addr, int end_addr, void *ptr, int is_sub)
   addr >>= 1;\r
   for (i = start_addr >> shift; i <= end_addr >> shift; i++)\r
     r8map[i] = r16map[i] = w8map[i] = w16map[i] = addr;\r
+#ifdef EMU_F68K\r
+  // setup FAME fetchmap\r
+  {\r
+    M68K_CONTEXT *ctx = is_sub ? &PicoCpuFS68k : &PicoCpuFM68k;\r
+    int shiftout = 24 - FAMEC_FETCHBITS;\r
+    i = start_addr >> shiftout;\r
+    addr = (uptr)ptr - (i << shiftout);\r
+    for (; i <= (end_addr >> shiftout); i++)\r
+      ctx->Fetch[i] = addr;\r
+  }\r
+#endif\r
 }\r
 \r
 static u32 m68k_unmapped_read8(u32 a)\r
@@ -126,19 +148,19 @@ void m68k_map_unmap(int start_addr, int end_addr)
 \r
   addr = (uptr)m68k_unmapped_read8;\r
   for (i = start_addr >> shift; i <= end_addr >> shift; i++)\r
-    m68k_read8_map[i] = (addr >> 1) | (1 << 31);\r
+    m68k_read8_map[i] = (addr >> 1) | MAP_FLAG;\r
 \r
   addr = (uptr)m68k_unmapped_read16;\r
   for (i = start_addr >> shift; i <= end_addr >> shift; i++)\r
-    m68k_read16_map[i] = (addr >> 1) | (1 << 31);\r
+    m68k_read16_map[i] = (addr >> 1) | MAP_FLAG;\r
 \r
   addr = (uptr)m68k_unmapped_write8;\r
   for (i = start_addr >> shift; i <= end_addr >> shift; i++)\r
-    m68k_write8_map[i] = (addr >> 1) | (1 << 31);\r
+    m68k_write8_map[i] = (addr >> 1) | MAP_FLAG;\r
 \r
   addr = (uptr)m68k_unmapped_write16;\r
   for (i = start_addr >> shift; i <= end_addr >> shift; i++)\r
-    m68k_write16_map[i] = (addr >> 1) | (1 << 31);\r
+    m68k_write16_map[i] = (addr >> 1) | MAP_FLAG;\r
 }\r
 \r
 MAKE_68K_READ8(m68k_read8, m68k_read8_map)\r
@@ -188,7 +210,7 @@ void cyclone_crashed(u32 pc, struct Cyclone *context)
 \r
 static u32 read_pad_3btn(int i, u32 out_bits)\r
 {\r
-  u32 pad = ~PicoPadInt[i]; // Get inverse of pad MXYZ SACB RLDU\r
+  u32 pad = ~PicoIn.padInt[i]; // Get inverse of pad MXYZ SACB RLDU\r
   u32 value;\r
 \r
   if (out_bits & 0x40) // TH\r
@@ -202,7 +224,7 @@ static u32 read_pad_3btn(int i, u32 out_bits)
 \r
 static u32 read_pad_6btn(int i, u32 out_bits)\r
 {\r
-  u32 pad = ~PicoPadInt[i]; // Get inverse of pad MXYZ SACB RLDU\r
+  u32 pad = ~PicoIn.padInt[i]; // Get inverse of pad MXYZ SACB RLDU\r
   int phase = Pico.m.padTHPhase[i];\r
   u32 value;\r
 \r
@@ -243,8 +265,8 @@ static port_read_func *port_readers[3] = {
 \r
 static NOINLINE u32 port_read(int i)\r
 {\r
-  u32 data_reg = Pico.ioports[i + 1];\r
-  u32 ctrl_reg = Pico.ioports[i + 4] | 0x80;\r
+  u32 data_reg = PicoMem.ioports[i + 1];\r
+  u32 ctrl_reg = PicoMem.ioports[i + 4] | 0x80;\r
   u32 in, out;\r
 \r
   out = data_reg & ctrl_reg;\r
@@ -288,7 +310,7 @@ NOINLINE u32 io_ports_read(u32 a)
     case 1:  d = port_read(0); break;\r
     case 2:  d = port_read(1); break;\r
     case 3:  d = port_read(2); break;\r
-    default: d = Pico.ioports[a]; break; // IO ports can be used as RAM\r
+    default: d = PicoMem.ioports[a]; break; // IO ports can be used as RAM\r
   }\r
   return d;\r
 }\r
@@ -301,34 +323,33 @@ NOINLINE void io_ports_write(u32 a, u32 d)
   if (1 <= a && a <= 2)\r
   {\r
     Pico.m.padDelay[a - 1] = 0;\r
-    if (!(Pico.ioports[a] & 0x40) && (d & 0x40))\r
+    if (!(PicoMem.ioports[a] & 0x40) && (d & 0x40))\r
       Pico.m.padTHPhase[a - 1]++;\r
   }\r
 \r
   // certain IO ports can be used as RAM\r
-  Pico.ioports[a] = d;\r
+  PicoMem.ioports[a] = d;\r
 }\r
 \r
-// lame..\r
 static int z80_cycles_from_68k(void)\r
 {\r
-  return z80_cycle_aim\r
-    + cycles_68k_to_z80(SekCyclesDone() - last_z80_sync);\r
+  int m68k_cnt = SekCyclesDone() - Pico.t.m68c_frame_start;\r
+  return cycles_68k_to_z80(m68k_cnt);\r
 }\r
 \r
 void NOINLINE ctl_write_z80busreq(u32 d)\r
 {\r
   d&=1; d^=1;\r
-  elprintf(EL_BUSREQ, "set_zrun: %i->%i [%i] @%06x", Pico.m.z80Run, d, SekCyclesDone(), SekPc);\r
+  elprintf(EL_BUSREQ, "set_zrun: %i->%i [%u] @%06x", Pico.m.z80Run, d, SekCyclesDone(), SekPc);\r
   if (d ^ Pico.m.z80Run)\r
   {\r
     if (d)\r
     {\r
-      z80_cycle_cnt = z80_cycles_from_68k();\r
+      Pico.t.z80c_cnt = z80_cycles_from_68k() + 2;\r
     }\r
     else\r
     {\r
-      if ((PicoOpt&POPT_EN_Z80) && !Pico.m.z80_reset) {\r
+      if ((PicoIn.opt & POPT_EN_Z80) && !Pico.m.z80_reset) {\r
         pprof_start(m68k);\r
         PicoSyncZ80(SekCyclesDone());\r
         pprof_end_sub(m68k);\r
@@ -341,12 +362,12 @@ void NOINLINE ctl_write_z80busreq(u32 d)
 void NOINLINE ctl_write_z80reset(u32 d)\r
 {\r
   d&=1; d^=1;\r
-  elprintf(EL_BUSREQ, "set_zreset: %i->%i [%i] @%06x", Pico.m.z80_reset, d, SekCyclesDone(), SekPc);\r
+  elprintf(EL_BUSREQ, "set_zreset: %i->%i [%u] @%06x", Pico.m.z80_reset, d, SekCyclesDone(), SekPc);\r
   if (d ^ Pico.m.z80_reset)\r
   {\r
     if (d)\r
     {\r
-      if ((PicoOpt&POPT_EN_Z80) && Pico.m.z80Run) {\r
+      if ((PicoIn.opt & POPT_EN_Z80) && Pico.m.z80Run) {\r
         pprof_start(m68k);\r
         PicoSyncZ80(SekCyclesDone());\r
         pprof_end_sub(m68k);\r
@@ -356,13 +377,35 @@ void NOINLINE ctl_write_z80reset(u32 d)
     }\r
     else\r
     {\r
-      z80_cycle_cnt = z80_cycles_from_68k();\r
+      Pico.t.z80c_cnt = z80_cycles_from_68k() + 2;\r
       z80_reset();\r
     }\r
     Pico.m.z80_reset = d;\r
   }\r
 }\r
 \r
+static int get_scanline(int is_from_z80);\r
+\r
+static void psg_write_68k(u32 d)\r
+{\r
+  // look for volume write and update if needed\r
+  if ((d & 0x90) == 0x90 && PsndPsgLine < Pico.m.scanline)\r
+    PsndDoPSG(Pico.m.scanline);\r
+\r
+  SN76496Write(d);\r
+}\r
+\r
+static void psg_write_z80(u32 d)\r
+{\r
+  if ((d & 0x90) == 0x90) {\r
+    int scanline = get_scanline(1);\r
+    if (PsndPsgLine < scanline)\r
+      PsndDoPSG(scanline);\r
+  }\r
+\r
+  SN76496Write(d);\r
+}\r
+\r
 // -----------------------------------------------------------------\r
 \r
 #ifndef _ASM_MEMORY_C\r
@@ -371,14 +414,14 @@ void NOINLINE ctl_write_z80reset(u32 d)
 static u32 PicoRead8_sram(u32 a)\r
 {\r
   u32 d;\r
-  if (SRam.start <= a && a <= SRam.end && (Pico.m.sram_reg & SRR_MAPPED))\r
+  if (Pico.sv.start <= a && a <= Pico.sv.end && (Pico.m.sram_reg & SRR_MAPPED))\r
   {\r
-    if (SRam.flags & SRF_EEPROM) {\r
+    if (Pico.sv.flags & SRF_EEPROM) {\r
       d = EEPROM_read();\r
       if (!(a & 1))\r
         d >>= 8;\r
     } else\r
-      d = *(u8 *)(SRam.data - SRam.start + a);\r
+      d = *(u8 *)(Pico.sv.data - Pico.sv.start + a);\r
     elprintf(EL_SRAMIO, "sram r8  [%06x]   %02x @ %06x", a, d, SekPc);\r
     return d;\r
   }\r
@@ -393,12 +436,12 @@ static u32 PicoRead8_sram(u32 a)
 static u32 PicoRead16_sram(u32 a)\r
 {\r
   u32 d;\r
-  if (SRam.start <= a && a <= SRam.end && (Pico.m.sram_reg & SRR_MAPPED))\r
+  if (Pico.sv.start <= a && a <= Pico.sv.end && (Pico.m.sram_reg & SRR_MAPPED))\r
   {\r
-    if (SRam.flags & SRF_EEPROM)\r
+    if (Pico.sv.flags & SRF_EEPROM)\r
       d = EEPROM_read();\r
     else {\r
-      u8 *pm = (u8 *)(SRam.data - SRam.start + a);\r
+      u8 *pm = (u8 *)(Pico.sv.data - Pico.sv.start + a);\r
       d  = pm[0] << 8;\r
       d |= pm[1];\r
     }\r
@@ -416,20 +459,20 @@ static u32 PicoRead16_sram(u32 a)
 \r
 static void PicoWrite8_sram(u32 a, u32 d)\r
 {\r
-  if (a > SRam.end || a < SRam.start || !(Pico.m.sram_reg & SRR_MAPPED)) {\r
+  if (a > Pico.sv.end || a < Pico.sv.start || !(Pico.m.sram_reg & SRR_MAPPED)) {\r
     m68k_unmapped_write8(a, d);\r
     return;\r
   }\r
 \r
   elprintf(EL_SRAMIO, "sram w8  [%06x]   %02x @ %06x", a, d & 0xff, SekPc);\r
-  if (SRam.flags & SRF_EEPROM)\r
+  if (Pico.sv.flags & SRF_EEPROM)\r
   {\r
     EEPROM_write8(a, d);\r
   }\r
   else {\r
-    u8 *pm = (u8 *)(SRam.data - SRam.start + a);\r
+    u8 *pm = (u8 *)(Pico.sv.data - Pico.sv.start + a);\r
     if (*pm != (u8)d) {\r
-      SRam.changed = 1;\r
+      Pico.sv.changed = 1;\r
       *pm = (u8)d;\r
     }\r
   }\r
@@ -437,22 +480,25 @@ static void PicoWrite8_sram(u32 a, u32 d)
 \r
 static void PicoWrite16_sram(u32 a, u32 d)\r
 {\r
-  if (a > SRam.end || a < SRam.start || !(Pico.m.sram_reg & SRR_MAPPED)) {\r
+  if (a > Pico.sv.end || a < Pico.sv.start || !(Pico.m.sram_reg & SRR_MAPPED)) {\r
     m68k_unmapped_write16(a, d);\r
     return;\r
   }\r
 \r
   elprintf(EL_SRAMIO, "sram w16 [%06x] %04x @ %06x", a, d & 0xffff, SekPc);\r
-  if (SRam.flags & SRF_EEPROM)\r
+  if (Pico.sv.flags & SRF_EEPROM)\r
   {\r
     EEPROM_write16(d);\r
   }\r
   else {\r
-    // XXX: hardware could easily use MSB too..\r
-    u8 *pm = (u8 *)(SRam.data - SRam.start + a);\r
-    if (*pm != (u8)d) {\r
-      SRam.changed = 1;\r
-      *pm = (u8)d;\r
+    u8 *pm = (u8 *)(Pico.sv.data - Pico.sv.start + a);\r
+    if (pm[0] != (u8)(d >> 8)) {\r
+      Pico.sv.changed = 1;\r
+      pm[0] = (u8)(d >> 8);\r
+    }\r
+    if (pm[1] != (u8)d) {\r
+      Pico.sv.changed = 1;\r
+      pm[1] = (u8)d;\r
     }\r
   }\r
 }\r
@@ -469,7 +515,7 @@ static u32 PicoRead8_z80(u32 a)
   }\r
 \r
   if ((a & 0x4000) == 0x0000)\r
-    d = Pico.zram[a & 0x1fff];\r
+    d = PicoMem.zram[a & 0x1fff];\r
   else if ((a & 0x6000) == 0x4000) // 0x4000-0x5fff\r
     d = ym2612_read_local_68k(); \r
   else\r
@@ -492,19 +538,17 @@ static void PicoWrite8_z80(u32 a, u32 d)
   }\r
 \r
   if ((a & 0x4000) == 0x0000) { // z80 RAM\r
-    SekCyclesBurnRun(2); // FIXME hack\r
-    Pico.zram[a & 0x1fff] = (u8)d;\r
+    PicoMem.zram[a & 0x1fff] = (u8)d;\r
     return;\r
   }\r
   if ((a & 0x6000) == 0x4000) { // FM Sound\r
-    if (PicoOpt & POPT_EN_FM)\r
-      emustatus |= ym2612_write_local(a&3, d&0xff, 0)&1;\r
+    if (PicoIn.opt & POPT_EN_FM)\r
+      Pico.m.status |= ym2612_write_local(a & 3, d & 0xff, 0) & 1;\r
     return;\r
   }\r
   // TODO: probably other VDP access too? Maybe more mirrors?\r
   if ((a & 0x7ff9) == 0x7f11) { // PSG Sound\r
-    if (PicoOpt & POPT_EN_PSG)\r
-      SN76496Write(d);\r
+    psg_write_68k(d);\r
     return;\r
   }\r
   if ((a & 0x7f00) == 0x6000) // Z80 BANK register\r
@@ -548,17 +592,13 @@ u32 PicoRead8_io(u32 a)
 \r
     if ((a & 0xff01) == 0x1100) { // z80 busreq (verified)\r
       d |= (Pico.m.z80Run | Pico.m.z80_reset) & 1;\r
-      elprintf(EL_BUSREQ, "get_zrun: %02x [%i] @%06x", d, SekCyclesDone(), SekPc);\r
+      elprintf(EL_BUSREQ, "get_zrun: %02x [%u] @%06x", d, SekCyclesDone(), SekPc);\r
     }\r
     goto end;\r
   }\r
 \r
-  if (PicoOpt & POPT_EN_32X) {\r
-    d = PicoRead8_32x(a);\r
-    goto end;\r
-  }\r
+  d = PicoRead8_32x(a);\r
 \r
-  d = m68k_unmapped_read8(a);\r
 end:\r
   return d;\r
 }\r
@@ -583,17 +623,13 @@ u32 PicoRead16_io(u32 a)
 \r
     if ((a & 0xff00) == 0x1100) { // z80 busreq\r
       d |= ((Pico.m.z80Run | Pico.m.z80_reset) & 1) << 8;\r
-      elprintf(EL_BUSREQ, "get_zrun: %04x [%i] @%06x", d, SekCyclesDone(), SekPc);\r
+      elprintf(EL_BUSREQ, "get_zrun: %04x [%u] @%06x", d, SekCyclesDone(), SekPc);\r
     }\r
     goto end;\r
   }\r
 \r
-  if (PicoOpt & POPT_EN_32X) {\r
-    d = PicoRead16_32x(a);\r
-    goto end;\r
-  }\r
+  d = PicoRead16_32x(a);\r
 \r
-  d = m68k_unmapped_read16(a);\r
 end:\r
   return d;\r
 }\r
@@ -618,12 +654,7 @@ void PicoWrite8_io(u32 a, u32 d)
     Pico.m.sram_reg |= (u8)(d & 3);\r
     return;\r
   }\r
-  if (PicoOpt & POPT_EN_32X) {\r
-    PicoWrite8_32x(a, d);\r
-    return;\r
-  }\r
-\r
-  m68k_unmapped_write8(a, d);\r
+  PicoWrite8_32x(a, d);\r
 }\r
 \r
 void PicoWrite16_io(u32 a, u32 d)\r
@@ -646,21 +677,28 @@ void PicoWrite16_io(u32 a, u32 d)
     Pico.m.sram_reg |= (u8)(d & 3);\r
     return;\r
   }\r
-  if (PicoOpt & POPT_EN_32X) {\r
-    PicoWrite16_32x(a, d);\r
-    return;\r
-  }\r
-  m68k_unmapped_write16(a, d);\r
+  PicoWrite16_32x(a, d);\r
 }\r
 \r
 #endif // _ASM_MEMORY_C\r
 \r
 // VDP area (0xc00000 - 0xdfffff)\r
 // TODO: verify if lower byte goes to PSG on word writes\r
-static u32 PicoRead8_vdp(u32 a)\r
+u32 PicoRead8_vdp(u32 a)\r
 {\r
-  if ((a & 0x00e0) == 0x0000)\r
-    return PicoVideoRead8(a);\r
+  if ((a & 0x00f0) == 0x0000) {\r
+    switch (a & 0x0d)\r
+    {\r
+      case 0x00: return PicoVideoRead8DataH();\r
+      case 0x01: return PicoVideoRead8DataL();\r
+      case 0x04: return PicoVideoRead8CtlH();\r
+      case 0x05: return PicoVideoRead8CtlL();\r
+      case 0x08:\r
+      case 0x0c: return PicoVideoRead8HV_H();\r
+      case 0x09:\r
+      case 0x0d: return PicoVideoRead8HV_L();\r
+    }\r
+  }\r
 \r
   elprintf(EL_UIO|EL_ANOMALY, "68k bad read [%06x] @%06x", a, SekPc);\r
   return 0;\r
@@ -678,8 +716,7 @@ static u32 PicoRead16_vdp(u32 a)
 static void PicoWrite8_vdp(u32 a, u32 d)\r
 {\r
   if ((a & 0x00f9) == 0x0011) { // PSG Sound\r
-    if (PicoOpt & POPT_EN_PSG)\r
-      SN76496Write(d);\r
+    psg_write_68k(d);\r
     return;\r
   }\r
   if ((a & 0x00e0) == 0x0000) {\r
@@ -693,11 +730,8 @@ static void PicoWrite8_vdp(u32 a, u32 d)
 \r
 static void PicoWrite16_vdp(u32 a, u32 d)\r
 {\r
-  if ((a & 0x00f9) == 0x0010) { // PSG Sound\r
-    if (PicoOpt & POPT_EN_PSG)\r
-      SN76496Write(d);\r
-    return;\r
-  }\r
+  if ((a & 0x00f9) == 0x0010) // PSG Sound\r
+    psg_write_68k(d);\r
   if ((a & 0x00e0) == 0x0000) {\r
     PicoVideoWrite(a, d);\r
     return;\r
@@ -714,7 +748,7 @@ static void m68k_mem_setup(void);
 \r
 PICO_INTERNAL void PicoMemSetup(void)\r
 {\r
-  int mask, rs, a;\r
+  int mask, rs, sstart, a;\r
 \r
   // setup the memory map\r
   cpu68k_map_set(m68k_read8_map,   0x000000, 0xffffff, m68k_unmapped_read8, 1);\r
@@ -730,15 +764,16 @@ PICO_INTERNAL void PicoMemSetup(void)
   cpu68k_map_set(m68k_read16_map, 0x000000, rs - 1, Pico.rom, 0);\r
 \r
   // Common case of on-cart (save) RAM, usually at 0x200000-...\r
-  if ((SRam.flags & SRF_ENABLED) && SRam.data != NULL) {\r
-    rs = SRam.end - SRam.start;\r
+  if ((Pico.sv.flags & SRF_ENABLED) && Pico.sv.data != NULL) {\r
+    sstart = Pico.sv.start;\r
+    rs = Pico.sv.end - sstart;\r
     rs = (rs + mask) & ~mask;\r
-    if (SRam.start + rs >= 0x1000000)\r
-      rs = 0x1000000 - SRam.start;\r
-    cpu68k_map_set(m68k_read8_map,   SRam.start, SRam.start + rs - 1, PicoRead8_sram, 1);\r
-    cpu68k_map_set(m68k_read16_map,  SRam.start, SRam.start + rs - 1, PicoRead16_sram, 1);\r
-    cpu68k_map_set(m68k_write8_map,  SRam.start, SRam.start + rs - 1, PicoWrite8_sram, 1);\r
-    cpu68k_map_set(m68k_write16_map, SRam.start, SRam.start + rs - 1, PicoWrite16_sram, 1);\r
+    if (sstart + rs >= 0x1000000)\r
+      rs = 0x1000000 - sstart;\r
+    cpu68k_map_set(m68k_read8_map,   sstart, sstart + rs - 1, PicoRead8_sram, 1);\r
+    cpu68k_map_set(m68k_read16_map,  sstart, sstart + rs - 1, PicoRead16_sram, 1);\r
+    cpu68k_map_set(m68k_write8_map,  sstart, sstart + rs - 1, PicoWrite8_sram, 1);\r
+    cpu68k_map_set(m68k_write16_map, sstart, sstart + rs - 1, PicoWrite16_sram, 1);\r
   }\r
 \r
   // Z80 region\r
@@ -765,10 +800,10 @@ PICO_INTERNAL void PicoMemSetup(void)
 \r
   // RAM and it's mirrors\r
   for (a = 0xe00000; a < 0x1000000; a += 0x010000) {\r
-    cpu68k_map_set(m68k_read8_map,   a, a + 0xffff, Pico.ram, 0);\r
-    cpu68k_map_set(m68k_read16_map,  a, a + 0xffff, Pico.ram, 0);\r
-    cpu68k_map_set(m68k_write8_map,  a, a + 0xffff, Pico.ram, 0);\r
-    cpu68k_map_set(m68k_write16_map, a, a + 0xffff, Pico.ram, 0);\r
+    cpu68k_map_set(m68k_read8_map,   a, a + 0xffff, PicoMem.ram, 0);\r
+    cpu68k_map_set(m68k_read16_map,  a, a + 0xffff, PicoMem.ram, 0);\r
+    cpu68k_map_set(m68k_write8_map,  a, a + 0xffff, PicoMem.ram, 0);\r
+    cpu68k_map_set(m68k_write16_map, a, a + 0xffff, PicoMem.ram, 0);\r
   }\r
 \r
   // Setup memory callbacks:\r
@@ -796,14 +831,12 @@ PICO_INTERNAL void PicoMemSetup(void)
   {\r
     int i;\r
     // by default, point everything to first 64k of ROM\r
-    for (i = 0; i < M68K_FETCHBANK1; i++)\r
+    for (i = 0; i < M68K_FETCHBANK1 * 0xe0 / 0x100; i++)\r
       PicoCpuFM68k.Fetch[i] = (unsigned long)Pico.rom - (i<<(24-FAMEC_FETCHBITS));\r
     // now real ROM\r
     for (i = 0; i < M68K_FETCHBANK1 && (i<<(24-FAMEC_FETCHBITS)) < Pico.romsize; i++)\r
       PicoCpuFM68k.Fetch[i] = (unsigned long)Pico.rom;\r
-    // .. and RAM\r
-    for (i = M68K_FETCHBANK1*14/16; i < M68K_FETCHBANK1; i++)\r
-      PicoCpuFM68k.Fetch[i] = (unsigned long)Pico.ram - (i<<(24-FAMEC_FETCHBITS));\r
+    // RAM already set\r
   }\r
 #endif\r
 #ifdef EMU_M68K\r
@@ -846,10 +879,11 @@ static void m68k_mem_setup(void)
 static int get_scanline(int is_from_z80)\r
 {\r
   if (is_from_z80) {\r
-    int cycles = z80_cyclesDone();\r
-    while (cycles - z80_scanline_cycles >= 228)\r
-      z80_scanline++, z80_scanline_cycles += 228;\r
-    return z80_scanline;\r
+    int mclk_z80 = z80_cyclesDone() * 15;\r
+    int mclk_line = Pico.t.z80_scanline * 488 * 7;\r
+    while (mclk_z80 - mclk_line >= 488 * 7)\r
+      Pico.t.z80_scanline++, mclk_line += 488 * 7;\r
+    return Pico.t.z80_scanline;\r
   }\r
 \r
   return Pico.m.scanline;\r
@@ -909,7 +943,7 @@ static int ym2612_write_local(u32 a, u32 d, int is_from_z80)
     int scanline = get_scanline(is_from_z80);\r
     //elprintf(EL_STATUS, "%03i -> %03i dac w %08x z80 %i", PsndDacLine, scanline, d, is_from_z80);\r
     ym2612.dacout = ((int)d - 0x80) << 6;\r
-    if (PsndOut && ym2612.dacen && scanline >= PsndDacLine)\r
+    if (ym2612.dacen)\r
       PsndDoDAC(scanline);\r
     return 0;\r
   }\r
@@ -920,7 +954,7 @@ static int ym2612_write_local(u32 a, u32 d, int is_from_z80)
       ym2612.OPN.ST.address = d;\r
       ym2612.addr_A1 = 0;\r
 #ifdef __GP2X__\r
-      if (PicoOpt & POPT_EXT_FM) YM2612Write_940(a, d, -1);\r
+      if (PicoIn.opt & POPT_EXT_FM) YM2612Write_940(a, d, -1);\r
 #endif\r
       return 0;\r
 \r
@@ -985,7 +1019,7 @@ static int ym2612_write_local(u32 a, u32 d, int is_from_z80)
 \r
           if ((d ^ old_mode) & 0xc0) {\r
 #ifdef __GP2X__\r
-            if (PicoOpt & POPT_EXT_FM) return YM2612Write_940(a, d, get_scanline(is_from_z80));\r
+            if (PicoIn.opt & POPT_EXT_FM) return YM2612Write_940(a, d, get_scanline(is_from_z80));\r
 #endif\r
             return 1;\r
           }\r
@@ -993,10 +1027,12 @@ static int ym2612_write_local(u32 a, u32 d, int is_from_z80)
         }\r
         case 0x2b: { /* DAC Sel  (YM2612) */\r
           int scanline = get_scanline(is_from_z80);\r
-          ym2612.dacen = d & 0x80;\r
-          if (d & 0x80) PsndDacLine = scanline;\r
+          if (ym2612.dacen != (d & 0x80)) {\r
+            ym2612.dacen = d & 0x80;\r
+            PsndDacLine = scanline;\r
+          }\r
 #ifdef __GP2X__\r
-          if (PicoOpt & POPT_EXT_FM) YM2612Write_940(a, d, scanline);\r
+          if (PicoIn.opt & POPT_EXT_FM) YM2612Write_940(a, d, scanline);\r
 #endif\r
           return 0;\r
         }\r
@@ -1007,7 +1043,7 @@ static int ym2612_write_local(u32 a, u32 d, int is_from_z80)
       ym2612.OPN.ST.address = d;\r
       ym2612.addr_A1 = 1;\r
 #ifdef __GP2X__\r
-      if (PicoOpt & POPT_EXT_FM) YM2612Write_940(a, d, -1);\r
+      if (PicoIn.opt & POPT_EXT_FM) YM2612Write_940(a, d, -1);\r
 #endif\r
       return 0;\r
 \r
@@ -1021,7 +1057,7 @@ static int ym2612_write_local(u32 a, u32 d, int is_from_z80)
   }\r
 \r
 #ifdef __GP2X__\r
-  if (PicoOpt & POPT_EXT_FM)\r
+  if (PicoIn.opt & POPT_EXT_FM)\r
     return YM2612Write_940(a, d, get_scanline(is_from_z80));\r
 #endif\r
   return YM2612Write_(a, d);\r
@@ -1070,7 +1106,7 @@ void ym2612_pack_state(void)
   elprintf(EL_YMTIMER, "save: timer b %i/%i", tbt >> 16, tbc);\r
 \r
 #ifdef __GP2X__\r
-  if (PicoOpt & POPT_EXT_FM)\r
+  if (PicoIn.opt & POPT_EXT_FM)\r
     YM2612PicoStateSave2_940(tat, tbt);\r
   else\r
 #endif\r
@@ -1105,7 +1141,7 @@ void ym2612_unpack_state(void)
   }\r
 \r
 #ifdef __GP2X__\r
-  if (PicoOpt & POPT_EXT_FM)\r
+  if (PicoIn.opt & POPT_EXT_FM)\r
     ret = YM2612PicoStateLoad2_940(&tat, &tbt);\r
   else\r
 #endif\r
@@ -1142,7 +1178,22 @@ void PicoWrite16_32x(u32 a, u32 d) {}
 \r
 static unsigned char z80_md_vdp_read(unsigned short a)\r
 {\r
-  // TODO?\r
+  z80_subCLeft(2);\r
+\r
+  if ((a & 0x00f0) == 0x0000) {\r
+    switch (a & 0x0d)\r
+    {\r
+      case 0x00: return PicoVideoRead8DataH();\r
+      case 0x01: return PicoVideoRead8DataL();\r
+      case 0x04: return PicoVideoRead8CtlH();\r
+      case 0x05: return PicoVideoRead8CtlL();\r
+      case 0x08:\r
+      case 0x0c: return get_scanline(1); // FIXME: make it proper\r
+      case 0x09:\r
+      case 0x0d: return Pico.m.rotate++;\r
+    }\r
+  }\r
+\r
   elprintf(EL_ANOMALY, "z80 invalid r8 [%06x] %02x", a, 0xff);\r
   return 0xff;\r
 }\r
@@ -1152,8 +1203,10 @@ static unsigned char z80_md_bank_read(unsigned short a)
   unsigned int addr68k;\r
   unsigned char ret;\r
 \r
-  addr68k = Pico.m.z80_bank68k<<15;\r
-  addr68k += a & 0x7fff;\r
+  z80_subCLeft(3);\r
+\r
+  addr68k = Pico.m.z80_bank68k << 15;\r
+  addr68k |= a & 0x7fff;\r
 \r
   ret = m68k_read8(addr68k);\r
 \r
@@ -1163,19 +1216,18 @@ static unsigned char z80_md_bank_read(unsigned short a)
 \r
 static void z80_md_ym2612_write(unsigned int a, unsigned char data)\r
 {\r
-  if (PicoOpt & POPT_EN_FM)\r
-    emustatus |= ym2612_write_local(a, data, 1) & 1;\r
+  if (PicoIn.opt & POPT_EN_FM)\r
+    Pico.m.status |= ym2612_write_local(a, data, 1) & 1;\r
 }\r
 \r
 static void z80_md_vdp_br_write(unsigned int a, unsigned char data)\r
 {\r
-  // TODO: allow full VDP access\r
   if ((a&0xfff9) == 0x7f11) // 7f11 7f13 7f15 7f17\r
   {\r
-    if (PicoOpt & POPT_EN_PSG)\r
-      SN76496Write(data);\r
+    psg_write_z80(data);\r
     return;\r
   }\r
+  // at least VDP data writes hang my machine\r
 \r
   if ((a>>8) == 0x60)\r
   {\r
@@ -1214,14 +1266,14 @@ static void z80_md_out(unsigned short p, unsigned char d)
 \r
 static void z80_mem_setup(void)\r
 {\r
-  z80_map_set(z80_read_map, 0x0000, 0x1fff, Pico.zram, 0);\r
-  z80_map_set(z80_read_map, 0x2000, 0x3fff, Pico.zram, 0);\r
+  z80_map_set(z80_read_map, 0x0000, 0x1fff, PicoMem.zram, 0);\r
+  z80_map_set(z80_read_map, 0x2000, 0x3fff, PicoMem.zram, 0);\r
   z80_map_set(z80_read_map, 0x4000, 0x5fff, ym2612_read_local_z80, 1);\r
   z80_map_set(z80_read_map, 0x6000, 0x7fff, z80_md_vdp_read, 1);\r
   z80_map_set(z80_read_map, 0x8000, 0xffff, z80_md_bank_read, 1);\r
 \r
-  z80_map_set(z80_write_map, 0x0000, 0x1fff, Pico.zram, 0);\r
-  z80_map_set(z80_write_map, 0x2000, 0x3fff, Pico.zram, 0);\r
+  z80_map_set(z80_write_map, 0x0000, 0x1fff, PicoMem.zram, 0);\r
+  z80_map_set(z80_write_map, 0x2000, 0x3fff, PicoMem.zram, 0);\r
   z80_map_set(z80_write_map, 0x4000, 0x5fff, z80_md_ym2612_write, 1);\r
   z80_map_set(z80_write_map, 0x6000, 0x7fff, z80_md_vdp_br_write, 1);\r
   z80_map_set(z80_write_map, 0x8000, 0xffff, z80_md_bank_write, 1);\r
@@ -1231,8 +1283,8 @@ static void z80_mem_setup(void)
   drZ80.z80_out = z80_md_out;\r
 #endif\r
 #ifdef _USE_CZ80\r
-  Cz80_Set_Fetch(&CZ80, 0x0000, 0x1fff, (FPTR)Pico.zram); // main RAM\r
-  Cz80_Set_Fetch(&CZ80, 0x2000, 0x3fff, (FPTR)Pico.zram); // mirror\r
+  Cz80_Set_Fetch(&CZ80, 0x0000, 0x1fff, (FPTR)PicoMem.zram); // main RAM\r
+  Cz80_Set_Fetch(&CZ80, 0x2000, 0x3fff, (FPTR)PicoMem.zram); // mirror\r
   Cz80_Set_INPort(&CZ80, z80_md_in);\r
   Cz80_Set_OUTPort(&CZ80, z80_md_out);\r
 #endif\r