platform ps2, handle audio similar to psp
[picodrive.git] / pico / memory.c
1 #include "../pico_int.h"
2 #include "../memory.h"
3 #include "../sound/sn76496.h"
4
5 /*
6 void dump(u16 w)
7 {
8   static FILE *f[0x10] = { NULL, };
9   char fname[32];
10   int num = PicoPicohw.r12 & 0xf;
11
12   w = (w << 8) | (w >> 8);
13   sprintf(fname, "ldump%i.bin", num);
14   if (f[num] == NULL)
15     f[num] = fopen(fname, "wb");
16   fwrite(&w, 1, 2, f[num]);
17   //fclose(f);
18 }
19 */
20
21 static u32 PicoRead8_pico(u32 a)
22 {
23   u32 d = 0;
24
25   if ((a & 0xffffe0) == 0x800000) // Pico I/O
26   {
27     switch (a & 0x1f)
28     {
29       case 0x01: d = PicoPicohw.r1; break;
30       case 0x03:
31         d  =  PicoPad[0]&0x1f; // d-pad
32         d |= (PicoPad[0]&0x20) << 2; // pen push -> C
33         d  = ~d;
34         break;
35
36       case 0x05: d = (PicoPicohw.pen_pos[0] >> 8);  break; // what is MS bit for? Games read it..
37       case 0x07: d =  PicoPicohw.pen_pos[0] & 0xff; break;
38       case 0x09: d = (PicoPicohw.pen_pos[1] >> 8);  break;
39       case 0x0b: d =  PicoPicohw.pen_pos[1] & 0xff; break;
40       case 0x0d: d = (1 << (PicoPicohw.page & 7)) - 1; break;
41       case 0x12: d = PicoPicohw.fifo_bytes == 0 ? 0x80 : 0; break; // guess
42       default:
43         goto unhandled;
44     }
45     return d;
46   }
47
48 unhandled:
49   elprintf(EL_UIO, "m68k unmapped r8  [%06x] @%06x", a, SekPc);
50   return d;
51 }
52
53 static u32 PicoRead16_pico(u32 a)
54 {
55   u32 d = 0;
56
57   if      (a == 0x800010)
58     d = (PicoPicohw.fifo_bytes > 0x3f) ? 0 : (0x3f - PicoPicohw.fifo_bytes);
59   else if (a == 0x800012)
60     d = PicoPicohw.fifo_bytes == 0 ? 0x8000 : 0; // guess
61   else
62     elprintf(EL_UIO, "m68k unmapped r16 [%06x] @%06x", a, SekPc);
63
64   return d;
65 }
66
67 static void PicoWrite8_pico(u32 a, u32 d)
68 {
69   switch (a & ~0x800000) {
70     case 0x19: case 0x1b: case 0x1d: case 0x1f: break; // 'S' 'E' 'G' 'A'
71     default:
72       elprintf(EL_UIO, "m68k unmapped w8  [%06x]   %02x @%06x", a, d & 0xff, SekPc);
73       break;
74   }
75 }
76
77 static void PicoWrite16_pico(u32 a, u32 d)
78 {
79   //if (a == 0x800010) dump(d);
80   if (a == 0x800010)
81   {
82     PicoPicohw.fifo_bytes += 2;
83
84     if (PicoPicohw.xpcm_ptr < PicoPicohw.xpcm_buffer + XPCM_BUFFER_SIZE) {
85       *PicoPicohw.xpcm_ptr++ = d >> 8;
86       *PicoPicohw.xpcm_ptr++ = d;
87     }
88     else if (PicoPicohw.xpcm_ptr == PicoPicohw.xpcm_buffer + XPCM_BUFFER_SIZE) {
89       elprintf(EL_ANOMALY|EL_PICOHW, "xpcm_buffer overflow!");
90       PicoPicohw.xpcm_ptr++;
91     }
92   }
93   else if (a == 0x800012) {
94     int r12_old = PicoPicohw.r12;
95     PicoPicohw.r12 = d;
96     if (r12_old != d)
97       PicoReratePico();
98   }
99   else
100     elprintf(EL_UIO, "m68k unmapped w16 [%06x] %04x @%06x", a, d & 0xffff, SekPc);
101 }
102
103
104 PICO_INTERNAL void PicoMemSetupPico(void)
105 {
106   PicoMemSetup();
107
108   // no MD IO or Z80 on Pico
109   m68k_map_unmap(0x400000, 0xbfffff);
110
111   // map Pico I/O
112   cpu68k_map_set(m68k_read8_map,   0x800000, 0x80ffff, PicoRead8_pico, 1);
113   cpu68k_map_set(m68k_read16_map,  0x800000, 0x80ffff, PicoRead16_pico, 1);
114   cpu68k_map_set(m68k_write8_map,  0x800000, 0x80ffff, PicoWrite8_pico, 1);
115   cpu68k_map_set(m68k_write16_map, 0x800000, 0x80ffff, PicoWrite16_pico, 1);
116 }
117