soc_mmsp2.c 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550
  1. /*
  2. * PicoDrive
  3. * (C) notaz, 2006-2009
  4. *
  5. * This work is licensed under the terms of MAME license.
  6. * See COPYING file in the top-level directory.
  7. */
  8. #include <stdio.h>
  9. #include <stdlib.h>
  10. #include <string.h>
  11. #include <math.h>
  12. #include <sys/types.h>
  13. #include <sys/stat.h>
  14. #include <fcntl.h>
  15. #include <sys/mman.h>
  16. #include <unistd.h>
  17. #include "soc.h"
  18. #include "soc_mmsp2.h"
  19. #include "plat_gp2x.h"
  20. #include "../common/emu.h"
  21. #include "../common/plat.h"
  22. #include "../common/arm_utils.h"
  23. #include "940ctl.h"
  24. volatile unsigned short *gp2x_memregs;
  25. volatile unsigned long *gp2x_memregl;
  26. extern void *gp2x_screens[4];
  27. static int screensel = 0;
  28. int memdev = -1; /* used by code940 */
  29. static int touchdev = -1;
  30. static int touchcal[7] = { 6203, 0, -1501397, 0, -4200, 16132680, 65536 };
  31. #define FRAMEBUFF_SIZE 0x30000
  32. #define FRAMEBUFF_WHOLESIZE (FRAMEBUFF_SIZE*4) // 320*240*2 + some more
  33. #define FRAMEBUFF_ADDR0 (0x4000000 - FRAMEBUFF_WHOLESIZE)
  34. #define FRAMEBUFF_ADDR1 (FRAMEBUFF_ADDR0 + FRAMEBUFF_SIZE)
  35. #define FRAMEBUFF_ADDR2 (FRAMEBUFF_ADDR1 + FRAMEBUFF_SIZE)
  36. #define FRAMEBUFF_ADDR3 (FRAMEBUFF_ADDR2 + FRAMEBUFF_SIZE)
  37. static const int gp2x_screenaddrs[4] = { FRAMEBUFF_ADDR0, FRAMEBUFF_ADDR1, FRAMEBUFF_ADDR2, FRAMEBUFF_ADDR3 };
  38. static int gp2x_screenaddrs_use[4];
  39. static char gamma_was_changed = 0;
  40. static char cpuclk_was_changed = 0;
  41. static unsigned short gp2x_screenaddr_old[4];
  42. static unsigned short memtimex_old[2];
  43. static unsigned short reg0910;
  44. /* video stuff */
  45. static void gp2x_video_flip_(void)
  46. {
  47. unsigned short lsw = (unsigned short) gp2x_screenaddrs_use[screensel&3];
  48. unsigned short msw = (unsigned short)(gp2x_screenaddrs_use[screensel&3] >> 16);
  49. gp2x_memregs[0x2910>>1] = msw;
  50. gp2x_memregs[0x2914>>1] = msw;
  51. gp2x_memregs[0x290E>>1] = lsw;
  52. gp2x_memregs[0x2912>>1] = lsw;
  53. // jump to other buffer:
  54. g_screen_ptr = gp2x_screens[++screensel&3];
  55. }
  56. /* doulblebuffered flip */
  57. static void gp2x_video_flip2_(void)
  58. {
  59. unsigned short msw = (unsigned short)(gp2x_screenaddrs_use[screensel&1] >> 16);
  60. gp2x_memregs[0x2910>>1] = msw;
  61. gp2x_memregs[0x2914>>1] = msw;
  62. gp2x_memregs[0x290E>>1] = 0;
  63. gp2x_memregs[0x2912>>1] = 0;
  64. // jump to other buffer:
  65. g_screen_ptr = gp2x_screens[++screensel&1];
  66. }
  67. static void gp2x_video_changemode_ll_(int bpp)
  68. {
  69. gp2x_memregs[0x28DA>>1] = (((bpp+1)/8)<<9)|0xAB; /*8/15/16/24bpp...*/
  70. gp2x_memregs[0x290C>>1] = 320*((bpp+1)/8); /*line width in bytes*/
  71. }
  72. static void gp2x_video_setpalette_(int *pal, int len)
  73. {
  74. unsigned short *g = (unsigned short *)pal;
  75. volatile unsigned short *memreg = &gp2x_memregs[0x295A>>1];
  76. gp2x_memregs[0x2958>>1] = 0;
  77. len *= 2;
  78. while (len--)
  79. *memreg = *g++;
  80. }
  81. static void gp2x_video_RGB_setscaling_(int ln_offs, int W, int H)
  82. {
  83. float escalaw, escalah;
  84. int bpp = (gp2x_memregs[0x28DA>>1]>>9)&0x3;
  85. unsigned short scalw;
  86. // set offset
  87. gp2x_screenaddrs_use[0] = gp2x_screenaddrs[0] + ln_offs * 320 * bpp;
  88. gp2x_screenaddrs_use[1] = gp2x_screenaddrs[1] + ln_offs * 320 * bpp;
  89. gp2x_screenaddrs_use[2] = gp2x_screenaddrs[2] + ln_offs * 320 * bpp;
  90. gp2x_screenaddrs_use[3] = gp2x_screenaddrs[3] + ln_offs * 320 * bpp;
  91. escalaw = 1024.0; // RGB Horiz LCD
  92. escalah = 320.0; // RGB Vert LCD
  93. if (gp2x_memregs[0x2800>>1]&0x100) //TV-Out
  94. {
  95. escalaw=489.0; // RGB Horiz TV (PAL, NTSC)
  96. if (gp2x_memregs[0x2818>>1] == 287) //PAL
  97. escalah=274.0; // RGB Vert TV PAL
  98. else if (gp2x_memregs[0x2818>>1] == 239) //NTSC
  99. escalah=331.0; // RGB Vert TV NTSC
  100. }
  101. // scale horizontal
  102. scalw = (unsigned short)((float)escalaw *(W/320.0));
  103. /* if there is no horizontal scaling, vertical doesn't work.
  104. * Here is a nasty wrokaround... */
  105. if (H != 240 && W == 320) scalw--;
  106. gp2x_memregs[0x2906>>1]=scalw;
  107. // scale vertical
  108. gp2x_memregl[0x2908>>2]=(unsigned long)((float)escalah *bpp *(H/240.0));
  109. }
  110. static void gp2x_video_wait_vsync_(void)
  111. {
  112. unsigned short v = gp2x_memregs[0x1182>>1];
  113. while (!((v ^ gp2x_memregs[0x1182>>1]) & 0x10))
  114. spend_cycles(1024);
  115. }
  116. /* 940 */
  117. void pause940(int yes)
  118. {
  119. if (yes)
  120. gp2x_memregs[0x0904>>1] &= 0xFFFE;
  121. else
  122. gp2x_memregs[0x0904>>1] |= 1;
  123. }
  124. void reset940(int yes, int bank)
  125. {
  126. gp2x_memregs[0x3B48>>1] = ((yes&1) << 7) | (bank & 0x03);
  127. }
  128. /*
  129. * CPU clock
  130. * Fout = (m * Fin) / (p * 2^s)
  131. * m = MDIV+8, p = PDIV+2, s = SDIV
  132. *
  133. * m = (Fout * p * 2^s) / Fin
  134. */
  135. #define SYS_CLK_FREQ 7372800
  136. static void gp2x_set_cpuclk_(unsigned int mhz)
  137. {
  138. unsigned int mdiv, pdiv, sdiv = 0;
  139. unsigned int v;
  140. int i;
  141. pdiv = 3;
  142. mdiv = (mhz * pdiv * 1000000) / SYS_CLK_FREQ;
  143. if (mdiv & ~0xff) {
  144. fprintf(stderr, "invalid cpuclk MHz: %u\n", mhz);
  145. return;
  146. }
  147. v = ((mdiv-8)<<8) | ((pdiv-2)<<2) | sdiv;
  148. gp2x_memregs[0x910>>1] = v;
  149. for (i = 0; i < 10000; i++)
  150. if (!(gp2x_memregs[0x902>>1] & 1))
  151. break;
  152. cpuclk_was_changed = 1;
  153. }
  154. /* RAM timings */
  155. #define TIMING_CHECK(t, adj, mask) \
  156. t += adj; \
  157. if (t & ~mask) \
  158. goto bad
  159. static void set_ram_timing_vals(int tCAS, int tRC, int tRAS, int tWR, int tMRD, int tRFC, int tRP, int tRCD)
  160. {
  161. int i;
  162. TIMING_CHECK(tCAS, -2, 0x1);
  163. TIMING_CHECK(tRC, -1, 0xf);
  164. TIMING_CHECK(tRAS, -1, 0xf);
  165. TIMING_CHECK(tWR, -1, 0xf);
  166. TIMING_CHECK(tMRD, -1, 0xf);
  167. TIMING_CHECK(tRFC, -1, 0xf);
  168. TIMING_CHECK(tRP, -1, 0xf);
  169. TIMING_CHECK(tRCD, -1, 0xf);
  170. /* get spend_cycles() into cache */
  171. spend_cycles(1);
  172. gp2x_memregs[0x3802>>1] = ((tMRD & 0xF) << 12) | ((tRFC & 0xF) << 8) | ((tRP & 0xF) << 4) | (tRCD & 0xF);
  173. gp2x_memregs[0x3804>>1] = 0x8000 | ((tCAS & 1) << 12) | ((tRC & 0xF) << 8) | ((tRAS & 0xF) << 4) | (tWR & 0xF);
  174. /* be sure we don't access the mem while it's being reprogrammed */
  175. spend_cycles(128*1024);
  176. for (i = 0; i < 8*1024; i++)
  177. if (!(gp2x_memregs[0x3804>>1] & 0x8000))
  178. break;
  179. printf("RAM timings set.\n");
  180. return;
  181. bad:
  182. fprintf(stderr, "RAM timings invalid.\n");
  183. }
  184. static void set_ram_timings_(void)
  185. {
  186. /* craigix: --cas 2 --trc 6 --tras 4 --twr 1 --tmrd 1 --trfc 1 --trp 2 --trcd 2 */
  187. set_ram_timing_vals(2, 6, 4, 1, 1, 1, 2, 2);
  188. }
  189. static void unset_ram_timings_(void)
  190. {
  191. gp2x_memregs[0x3802>>1] = memtimex_old[0];
  192. gp2x_memregs[0x3804>>1] = memtimex_old[1] | 0x8000;
  193. printf("RAM timings reset to startup values.\n");
  194. }
  195. /* LCD refresh */
  196. typedef struct
  197. {
  198. unsigned short reg, valmask, val;
  199. }
  200. reg_setting;
  201. /* 120.00 97/0/2/7|25/ 7/ 7/11/37 */
  202. static const reg_setting lcd_rate_120[] =
  203. {
  204. { 0x0914, 0xffff, (97<<8)|(0<<2)|2 }, /* UPLLSETVREG */
  205. { 0x0924, 0xff00, (2<<14)|(7<<8) }, /* DISPCSETREG */
  206. { 0x281A, 0x00ff, 25 }, /* .HSWID(T2) */
  207. { 0x281C, 0x00ff, 7 }, /* .HSSTR(T8) */
  208. { 0x281E, 0x00ff, 7 }, /* .HSEND(T7) */
  209. { 0x2822, 0x01ff, 11 }, /* .VSEND (T9) */
  210. { 0x2826, 0x0ff0, 37<<4 }, /* .DESTR(T3) */
  211. { 0, 0, 0 }
  212. };
  213. /* 100.00 96/0/2/7|29/25/53/15/37 */
  214. static const reg_setting lcd_rate_100[] =
  215. {
  216. { 0x0914, 0xffff, (96<<8)|(0<<2)|2 }, /* UPLLSETVREG */
  217. { 0x0924, 0xff00, (2<<14)|(7<<8) }, /* DISPCSETREG */
  218. { 0x281A, 0x00ff, 29 }, /* .HSWID(T2) */
  219. { 0x281C, 0x00ff, 25 }, /* .HSSTR(T8) */
  220. { 0x281E, 0x00ff, 53 }, /* .HSEND(T7) */
  221. { 0x2822, 0x01ff, 15 }, /* .VSEND (T9) */
  222. { 0x2826, 0x0ff0, 37<<4 }, /* .DESTR(T3) */
  223. { 0, 0, 0 }
  224. };
  225. static reg_setting lcd_rate_defaults[] =
  226. {
  227. { 0x0914, 0xffff, 0 },
  228. { 0x0924, 0xff00, 0 },
  229. { 0x281A, 0x00ff, 0 },
  230. { 0x281C, 0x00ff, 0 },
  231. { 0x281E, 0x00ff, 0 },
  232. { 0x2822, 0x01ff, 0 },
  233. { 0x2826, 0x0ff0, 0 },
  234. { 0, 0, 0 }
  235. };
  236. static void get_reg_setting(reg_setting *set)
  237. {
  238. for (; set->reg; set++)
  239. {
  240. unsigned short val = gp2x_memregs[set->reg >> 1];
  241. val &= set->valmask;
  242. set->val = val;
  243. }
  244. }
  245. static void set_reg_setting(const reg_setting *set)
  246. {
  247. for (; set->reg; set++)
  248. {
  249. unsigned short val = gp2x_memregs[set->reg >> 1];
  250. val &= ~set->valmask;
  251. val |= set->val;
  252. gp2x_memregs[set->reg >> 1] = val;
  253. }
  254. }
  255. static void set_lcd_custom_rate_(int is_pal)
  256. {
  257. if (gp2x_memregs[0x2800>>1] & 0x100) // tv-out
  258. return;
  259. printf("setting custom LCD refresh (%d Hz)... ", is_pal ? 100 : 120);
  260. fflush(stdout);
  261. set_reg_setting(is_pal ? lcd_rate_100 : lcd_rate_120);
  262. printf("done.\n");
  263. }
  264. static void unset_lcd_custom_rate_(void)
  265. {
  266. printf("reset to prev LCD refresh.\n");
  267. set_reg_setting(lcd_rate_defaults);
  268. }
  269. static void set_lcd_gamma_(int g100, int A_SNs_curve)
  270. {
  271. float gamma = (float) g100 / 100;
  272. int i;
  273. gamma = 1 / gamma;
  274. /* enable gamma */
  275. gp2x_memregs[0x2880>>1] &= ~(1<<12);
  276. gp2x_memregs[0x295C>>1] = 0;
  277. for (i = 0; i < 256; i++)
  278. {
  279. unsigned char g;
  280. unsigned short s;
  281. const unsigned short grey50=143, grey75=177, grey25=97;
  282. double blah;
  283. if (A_SNs_curve)
  284. {
  285. // The next formula is all about gaussian interpolation
  286. blah = (( -128 * exp(-powf((float) i/64.0f + 2.0f , 2.0f))) +
  287. ( -64 * exp(-powf((float) i/64.0f + 1.0f , 2.0f))) +
  288. (grey25 * exp(-powf((float) i/64.0f - 1.0f , 2.0f))) +
  289. (grey50 * exp(-powf((float) i/64.0f - 2.0f , 2.0f))) +
  290. (grey75 * exp(-powf((float) i/64.0f - 3.0f , 2.0f))) +
  291. ( 256 * exp(-powf((float) i/64.0f - 4.0f , 2.0f))) +
  292. ( 320 * exp(-powf((float) i/64.0f - 5.0f , 2.0f))) +
  293. ( 384 * exp(-powf((float) i/64.0f - 6.0f , 2.0f)))) / 1.772637;
  294. blah += 0.5;
  295. }
  296. else
  297. {
  298. blah = i;
  299. }
  300. g = (unsigned char)(255.0 * pow(blah/255.0, gamma));
  301. //printf("%d : %d\n", i, g);
  302. s = (g<<8) | g;
  303. gp2x_memregs[0x295E>>1]= s;
  304. gp2x_memregs[0x295E>>1]= g;
  305. }
  306. gamma_was_changed = 1;
  307. }
  308. static int gp2x_read_battery_(void)
  309. {
  310. return -1; /* TODO? */
  311. }
  312. /* these are not quite MMSP2 related,
  313. * more to GP2X F100/F200 consoles themselves. */
  314. typedef struct ucb1x00_ts_event
  315. {
  316. unsigned short pressure;
  317. unsigned short x;
  318. unsigned short y;
  319. unsigned short pad;
  320. struct timeval stamp;
  321. } UCB1X00_TS_EVENT;
  322. int gp2x_touchpad_read(int *x, int *y)
  323. {
  324. UCB1X00_TS_EVENT event;
  325. static int zero_seen = 0;
  326. int retval;
  327. if (touchdev < 0) return -1;
  328. retval = read(touchdev, &event, sizeof(event));
  329. if (retval <= 0) {
  330. perror("touch read failed");
  331. return -1;
  332. }
  333. // this is to ignore the messed-up 4.1.x driver
  334. if (event.pressure == 0) zero_seen = 1;
  335. if (x) *x = (event.x * touchcal[0] + touchcal[2]) >> 16;
  336. if (y) *y = (event.y * touchcal[4] + touchcal[5]) >> 16;
  337. // printf("read %i %i %i\n", event.pressure, *x, *y);
  338. return zero_seen ? event.pressure : 0;
  339. }
  340. static void proc_set(const char *path, const char *val)
  341. {
  342. FILE *f;
  343. char tmp[16];
  344. f = fopen(path, "w");
  345. if (f == NULL) {
  346. printf("failed to open: %s\n", path);
  347. return;
  348. }
  349. fprintf(f, "0\n");
  350. fclose(f);
  351. printf("\"%s\" is set to: ", path);
  352. f = fopen(path, "r");
  353. if (f == NULL) {
  354. printf("(open failed)\n");
  355. return;
  356. }
  357. fgets(tmp, sizeof(tmp), f);
  358. printf("%s", tmp);
  359. fclose(f);
  360. }
  361. void mmsp2_init(void)
  362. {
  363. int i;
  364. memdev = open("/dev/mem", O_RDWR);
  365. if (memdev == -1)
  366. {
  367. perror("open(\"/dev/mem\")");
  368. exit(1);
  369. }
  370. gp2x_memregs = mmap(0, 0x10000, PROT_READ|PROT_WRITE, MAP_SHARED, memdev, 0xc0000000);
  371. if (gp2x_memregs == MAP_FAILED)
  372. {
  373. perror("mmap(memregs)");
  374. exit(1);
  375. }
  376. gp2x_memregl = (unsigned long *) gp2x_memregs;
  377. gp2x_memregs[0x2880>>1] &= ~0x383; // disable cursor, subpict, osd, video layers
  378. gp2x_screens[0] = mmap(0, FRAMEBUFF_WHOLESIZE, PROT_WRITE, MAP_SHARED,
  379. memdev, gp2x_screenaddrs[0]);
  380. if (gp2x_screens[0] == MAP_FAILED)
  381. {
  382. perror("mmap(g_screen_ptr)");
  383. exit(1);
  384. }
  385. printf("framebuffers:\n");
  386. printf(" %08x -> %p\n", gp2x_screenaddrs[0], gp2x_screens[0]);
  387. for (i = 1; i < 4; i++)
  388. {
  389. gp2x_screens[i] = (char *) gp2x_screens[i - 1] + FRAMEBUFF_SIZE;
  390. printf(" %08x -> %p\n", gp2x_screenaddrs[i], gp2x_screens[i]);
  391. }
  392. g_screen_ptr = gp2x_screens[0];
  393. screensel = 0;
  394. gp2x_screenaddr_old[0] = gp2x_memregs[0x290E>>1];
  395. gp2x_screenaddr_old[1] = gp2x_memregs[0x2910>>1];
  396. gp2x_screenaddr_old[2] = gp2x_memregs[0x2912>>1];
  397. gp2x_screenaddr_old[3] = gp2x_memregs[0x2914>>1];
  398. memcpy(gp2x_screenaddrs_use, gp2x_screenaddrs, sizeof(gp2x_screenaddrs));
  399. /* save startup values: LCD refresh */
  400. get_reg_setting(lcd_rate_defaults);
  401. /* CPU and RAM timings */
  402. reg0910 = gp2x_memregs[0x0910>>1];
  403. memtimex_old[0] = gp2x_memregs[0x3802>>1];
  404. memtimex_old[1] = gp2x_memregs[0x3804>>1];
  405. /* touchscreen */
  406. touchdev = open("/dev/touchscreen/wm97xx", O_RDONLY);
  407. if (touchdev >= 0) {
  408. FILE *pcf = fopen("/etc/pointercal", "r");
  409. if (pcf) {
  410. fscanf(pcf, "%d %d %d %d %d %d %d", &touchcal[0], &touchcal[1],
  411. &touchcal[2], &touchcal[3], &touchcal[4], &touchcal[5], &touchcal[6]);
  412. fclose(pcf);
  413. }
  414. printf("found touchscreen/wm97xx\n");
  415. }
  416. /* disable Linux read-ahead */
  417. proc_set("/proc/sys/vm/max-readahead", "0\n");
  418. proc_set("/proc/sys/vm/min-readahead", "0\n");
  419. /* code940 portion */
  420. sharedmem940_init();
  421. gp2x_video_flip = gp2x_video_flip_;
  422. gp2x_video_flip2 = gp2x_video_flip2_;
  423. gp2x_video_changemode_ll = gp2x_video_changemode_ll_;
  424. gp2x_video_setpalette = gp2x_video_setpalette_;
  425. gp2x_video_RGB_setscaling = gp2x_video_RGB_setscaling_;
  426. gp2x_video_wait_vsync = gp2x_video_wait_vsync_;
  427. gp2x_set_cpuclk = gp2x_set_cpuclk_;
  428. set_lcd_custom_rate = set_lcd_custom_rate_;
  429. unset_lcd_custom_rate = unset_lcd_custom_rate_;
  430. set_lcd_gamma = set_lcd_gamma_;
  431. set_ram_timings = set_ram_timings_;
  432. unset_ram_timings = unset_ram_timings_;
  433. gp2x_read_battery = gp2x_read_battery_;
  434. gp2x_get_ticks_ms = plat_get_ticks_ms_good;
  435. gp2x_get_ticks_us = plat_get_ticks_us_good;
  436. }
  437. void mmsp2_finish(void)
  438. {
  439. reset940(1, 3);
  440. pause940(1);
  441. sharedmem940_finish();
  442. gp2x_video_RGB_setscaling_(0, 320, 240);
  443. gp2x_video_changemode_ll_(16);
  444. gp2x_memregs[0x290E>>1] = gp2x_screenaddr_old[0];
  445. gp2x_memregs[0x2910>>1] = gp2x_screenaddr_old[1];
  446. gp2x_memregs[0x2912>>1] = gp2x_screenaddr_old[2];
  447. gp2x_memregs[0x2914>>1] = gp2x_screenaddr_old[3];
  448. unset_lcd_custom_rate_();
  449. if (gamma_was_changed)
  450. set_lcd_gamma_(100, 0);
  451. unset_ram_timings_();
  452. if (cpuclk_was_changed)
  453. gp2x_memregs[0x910>>1] = reg0910;
  454. munmap(gp2x_screens[0], FRAMEBUFF_WHOLESIZE);
  455. munmap((void *)gp2x_memregs, 0x10000);
  456. close(memdev);
  457. if (touchdev >= 0)
  458. close(touchdev);
  459. }