soc_pollux.c 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439
  1. /*
  2. * PicoDrive
  3. * (C) notaz, 2009,2010
  4. *
  5. * This work is licensed under the terms of MAME license.
  6. * See COPYING file in the top-level directory.
  7. */
  8. /*
  9. * <random_info=mem_map>
  10. * 00000000-029fffff linux (42MB)
  11. * 02a00000-02dfffff fb (4MB, 153600B really used)
  12. * 02e00000-02ffffff sound dma (2MB)
  13. * 03000000-03ffffff MPEGDEC (?, 16MB)
  14. * </random_info>
  15. */
  16. #include <stdio.h>
  17. #include <stdlib.h>
  18. #include <string.h>
  19. #include <math.h>
  20. #include <sys/types.h>
  21. #include <sys/stat.h>
  22. #include <fcntl.h>
  23. #include <sys/mman.h>
  24. #include <unistd.h>
  25. #include <sys/ioctl.h>
  26. #include <linux/fb.h>
  27. #include "soc.h"
  28. #include "plat_gp2x.h"
  29. #include "../common/emu.h"
  30. #include "../common/plat.h"
  31. #include "../common/arm_utils.h"
  32. #include "pollux_set.h"
  33. static volatile unsigned short *memregs;
  34. static volatile unsigned int *memregl;
  35. static int memdev = -1;
  36. static int battdev = -1;
  37. extern void *gp2x_screens[4];
  38. #define fb_buf_count 4
  39. static unsigned int fb_paddr[fb_buf_count];
  40. static int fb_work_buf;
  41. static int fbdev = -1;
  42. static char cpuclk_was_changed = 0;
  43. static unsigned short memtimex_old[2];
  44. static unsigned int pllsetreg0_old;
  45. static unsigned int timer_drift; // count per real second
  46. static int last_pal_setting = 0;
  47. /* misc */
  48. static void pollux_set_fromenv(const char *env_var)
  49. {
  50. const char *set_string;
  51. set_string = getenv(env_var);
  52. if (set_string)
  53. pollux_set(memregs, set_string);
  54. else
  55. printf("env var %s not defined.\n", env_var);
  56. }
  57. /* video stuff */
  58. static void pollux_video_flip(int buf_count)
  59. {
  60. memregl[0x406C>>2] = fb_paddr[fb_work_buf];
  61. memregl[0x4058>>2] |= 0x10;
  62. fb_work_buf++;
  63. if (fb_work_buf >= buf_count)
  64. fb_work_buf = 0;
  65. g_screen_ptr = gp2x_screens[fb_work_buf];
  66. }
  67. static void gp2x_video_flip_(void)
  68. {
  69. pollux_video_flip(fb_buf_count);
  70. }
  71. /* doulblebuffered flip */
  72. static void gp2x_video_flip2_(void)
  73. {
  74. pollux_video_flip(2);
  75. }
  76. static void gp2x_video_changemode_ll_(int bpp)
  77. {
  78. static int prev_bpp = 0;
  79. int code = 0, bytes = 2;
  80. int rot_cmd[2] = { 0, 0 };
  81. unsigned int r;
  82. char buff[32];
  83. int ret;
  84. if (bpp == prev_bpp)
  85. return;
  86. prev_bpp = bpp;
  87. printf("changemode: %dbpp rot=%d\n", abs(bpp), bpp < 0);
  88. /* negative bpp means rotated mode */
  89. rot_cmd[0] = (bpp < 0) ? 6 : 5;
  90. ret = ioctl(fbdev, _IOW('D', 90, int[2]), rot_cmd);
  91. if (ret < 0)
  92. perror("rot ioctl failed");
  93. memregl[0x4004>>2] = (bpp < 0) ? 0x013f00ef : 0x00ef013f;
  94. memregl[0x4000>>2] |= 1 << 3;
  95. /* the above ioctl resets LCD timings, so set them here */
  96. snprintf(buff, sizeof(buff), "POLLUX_LCD_TIMINGS_%s", last_pal_setting ? "PAL" : "NTSC");
  97. pollux_set_fromenv(buff);
  98. switch (abs(bpp))
  99. {
  100. case 8:
  101. code = 0x443a;
  102. bytes = 1;
  103. break;
  104. case 15:
  105. case 16:
  106. code = 0x4432;
  107. bytes = 2;
  108. break;
  109. default:
  110. printf("unhandled bpp request: %d\n", abs(bpp));
  111. return;
  112. }
  113. memregl[0x405c>>2] = bytes;
  114. memregl[0x4060>>2] = bytes * (bpp < 0 ? 240 : 320);
  115. r = memregl[0x4058>>2];
  116. r = (r & 0xffff) | (code << 16) | 0x10;
  117. memregl[0x4058>>2] = r;
  118. }
  119. static void gp2x_video_setpalette_(int *pal, int len)
  120. {
  121. /* pollux palette is 16bpp only.. */
  122. int i;
  123. for (i = 0; i < len; i++)
  124. {
  125. int c = pal[i];
  126. c = ((c >> 8) & 0xf800) | ((c >> 5) & 0x07c0) | ((c >> 3) & 0x001f);
  127. memregl[0x4070>>2] = (i << 24) | c;
  128. }
  129. }
  130. static void gp2x_video_RGB_setscaling_(int ln_offs, int W, int H)
  131. {
  132. /* maybe a job for 3d hardware? */
  133. }
  134. static void gp2x_video_wait_vsync_(void)
  135. {
  136. while (!(memregl[0x308c>>2] & (1 << 10)))
  137. spend_cycles(128);
  138. memregl[0x308c>>2] |= 1 << 10;
  139. }
  140. /* CPU clock */
  141. static void gp2x_set_cpuclk_(unsigned int mhz)
  142. {
  143. char buff[24];
  144. snprintf(buff, sizeof(buff), "cpuclk=%u", mhz);
  145. pollux_set(memregs, buff);
  146. cpuclk_was_changed = 1;
  147. }
  148. /* RAM timings */
  149. static void set_ram_timings_(void)
  150. {
  151. pollux_set_fromenv("POLLUX_RAM_TIMINGS");
  152. }
  153. static void unset_ram_timings_(void)
  154. {
  155. int i;
  156. memregs[0x14802>>1] = memtimex_old[0];
  157. memregs[0x14804>>1] = memtimex_old[1] | 0x8000;
  158. for (i = 0; i < 0x100000; i++)
  159. if (!(memregs[0x14804>>1] & 0x8000))
  160. break;
  161. printf("RAM timings reset to startup values.\n");
  162. }
  163. /* LCD refresh */
  164. static void set_lcd_custom_rate_(int is_pal)
  165. {
  166. /* just remember PAL/NTSC. We always set timings in _changemode_ll() */
  167. last_pal_setting = is_pal;
  168. }
  169. static void unset_lcd_custom_rate_(void)
  170. {
  171. }
  172. static void set_lcd_gamma_(int g100, int A_SNs_curve)
  173. {
  174. /* hm, the LCD possibly can do it (but not POLLUX) */
  175. }
  176. static int gp2x_read_battery_(void)
  177. {
  178. unsigned short magic_val = 0;
  179. if (battdev < 0)
  180. return -1;
  181. if (read(battdev, &magic_val, sizeof(magic_val)) != sizeof(magic_val))
  182. return -1;
  183. switch (magic_val) {
  184. default:
  185. case 1: return 100;
  186. case 2: return 66;
  187. case 3: return 40;
  188. case 4: return 0;
  189. }
  190. }
  191. #define TIMER_BASE3 0x1980
  192. #define TIMER_REG(x) memregl[(TIMER_BASE3 + x) >> 2]
  193. static unsigned int gp2x_get_ticks_us_(void)
  194. {
  195. TIMER_REG(0x08) = 0x4b; /* run timer, latch value */
  196. return TIMER_REG(0);
  197. }
  198. static unsigned int gp2x_get_ticks_ms_(void)
  199. {
  200. /* approximate /= 1000 */
  201. unsigned long long v64;
  202. v64 = (unsigned long long)gp2x_get_ticks_us_() * 4294968;
  203. return v64 >> 32;
  204. }
  205. static void timer_cleanup(void)
  206. {
  207. TIMER_REG(0x40) = 0x0c; /* be sure clocks are on */
  208. TIMER_REG(0x08) = 0x23; /* stop the timer, clear irq in case it's pending */
  209. TIMER_REG(0x00) = 0; /* clear counter */
  210. TIMER_REG(0x40) = 0; /* clocks off */
  211. TIMER_REG(0x44) = 0; /* dividers back to default */
  212. }
  213. /* note: both PLLs are programmed the same way,
  214. * the databook incorrectly states that PLL1 differs */
  215. static int decode_pll(unsigned int reg)
  216. {
  217. long long v;
  218. int p, m, s;
  219. p = (reg >> 18) & 0x3f;
  220. m = (reg >> 8) & 0x3ff;
  221. s = reg & 0xff;
  222. if (p == 0)
  223. p = 1;
  224. v = 27000000; // master clock
  225. v = v * m / (p << s);
  226. return v;
  227. }
  228. int pollux_get_real_snd_rate(int req_rate)
  229. {
  230. int clk0_src, clk1_src, rate, div;
  231. clk0_src = (memregl[0xdbc4>>2] >> 1) & 7;
  232. clk1_src = (memregl[0xdbc8>>2] >> 1) & 7;
  233. if (clk0_src > 1 || clk1_src != 7) {
  234. fprintf(stderr, "get_real_snd_rate: bad clk sources: %d %d\n", clk0_src, clk1_src);
  235. return req_rate;
  236. }
  237. rate = decode_pll(clk0_src ? memregl[0xf008>>2] : memregl[0xf004>>2]);
  238. // apply divisors
  239. div = ((memregl[0xdbc4>>2] >> 4) & 0x3f) + 1;
  240. rate /= div;
  241. div = ((memregl[0xdbc8>>2] >> 4) & 0x3f) + 1;
  242. rate /= div;
  243. rate /= 64;
  244. //printf("rate %d\n", rate);
  245. rate -= rate * timer_drift / 1000000;
  246. printf("adjusted rate: %d\n", rate);
  247. if (rate < 8000-1000 || rate > 44100+1000) {
  248. fprintf(stderr, "get_real_snd_rate: got bad rate: %d\n", rate);
  249. return req_rate;
  250. }
  251. return rate;
  252. }
  253. void pollux_init(void)
  254. {
  255. struct fb_fix_screeninfo fbfix;
  256. int i, ret, rate, timer_div;
  257. memdev = open("/dev/mem", O_RDWR);
  258. if (memdev == -1) {
  259. perror("open(/dev/mem) failed");
  260. exit(1);
  261. }
  262. memregs = mmap(0, 0x20000, PROT_READ|PROT_WRITE, MAP_SHARED, memdev, 0xc0000000);
  263. if (memregs == MAP_FAILED) {
  264. perror("mmap(memregs) failed");
  265. exit(1);
  266. }
  267. memregl = (volatile void *)memregs;
  268. fbdev = open("/dev/fb0", O_RDWR);
  269. if (fbdev < 0) {
  270. perror("can't open fbdev");
  271. exit(1);
  272. }
  273. ret = ioctl(fbdev, FBIOGET_FSCREENINFO, &fbfix);
  274. if (ret == -1) {
  275. perror("ioctl(fbdev) failed");
  276. exit(1);
  277. }
  278. printf("framebuffer: \"%s\" @ %08lx\n", fbfix.id, fbfix.smem_start);
  279. fb_paddr[0] = fbfix.smem_start;
  280. gp2x_screens[0] = mmap(0, 320*240*2*fb_buf_count, PROT_READ|PROT_WRITE,
  281. MAP_SHARED, memdev, fb_paddr[0]);
  282. if (gp2x_screens[0] == MAP_FAILED)
  283. {
  284. perror("mmap(gp2x_screens) failed");
  285. exit(1);
  286. }
  287. memset(gp2x_screens[0], 0, 320*240*2*fb_buf_count);
  288. printf(" %p -> %08x\n", gp2x_screens[0], fb_paddr[0]);
  289. for (i = 1; i < fb_buf_count; i++)
  290. {
  291. fb_paddr[i] = fb_paddr[i-1] + 320*240*2;
  292. gp2x_screens[i] = (char *)gp2x_screens[i-1] + 320*240*2;
  293. printf(" %p -> %08x\n", gp2x_screens[i], fb_paddr[i]);
  294. }
  295. fb_work_buf = 0;
  296. g_screen_ptr = gp2x_screens[0];
  297. battdev = open("/dev/pollux_batt", O_RDONLY);
  298. if (battdev < 0)
  299. perror("Warning: could't open pollux_batt");
  300. /* find what PLL1 runs at, for the timer */
  301. rate = decode_pll(memregl[0xf008>>2]);
  302. printf("PLL1 @ %dHz\n", rate);
  303. /* setup timer */
  304. timer_div = (rate + 500000) / 1000000;
  305. if (1 <= timer_div && timer_div <= 256) {
  306. timer_drift = (rate - (timer_div * 1000000)) / timer_div;
  307. if (TIMER_REG(0x08) & 8) {
  308. fprintf(stderr, "warning: timer in use, overriding!\n");
  309. timer_cleanup();
  310. }
  311. TIMER_REG(0x44) = ((timer_div - 1) << 4) | 2; /* using PLL1, divide by it's rate */
  312. TIMER_REG(0x40) = 0x0c; /* clocks on */
  313. TIMER_REG(0x08) = 0x6b; /* run timer, clear irq, latch value */
  314. gp2x_get_ticks_ms = gp2x_get_ticks_ms_;
  315. gp2x_get_ticks_us = gp2x_get_ticks_us_;
  316. }
  317. else {
  318. fprintf(stderr, "warning: could not make use of timer\n");
  319. // those functions are actually not good at all on Wiz kernel
  320. gp2x_get_ticks_ms = plat_get_ticks_ms_good;
  321. gp2x_get_ticks_us = plat_get_ticks_us_good;
  322. }
  323. pllsetreg0_old = memregl[0xf004>>2];
  324. memtimex_old[0] = memregs[0x14802>>1];
  325. memtimex_old[1] = memregs[0x14804>>1];
  326. gp2x_video_flip = gp2x_video_flip_;
  327. gp2x_video_flip2 = gp2x_video_flip2_;
  328. gp2x_video_changemode_ll = gp2x_video_changemode_ll_;
  329. gp2x_video_setpalette = gp2x_video_setpalette_;
  330. gp2x_video_RGB_setscaling = gp2x_video_RGB_setscaling_;
  331. gp2x_video_wait_vsync = gp2x_video_wait_vsync_;
  332. /* some firmwares have sys clk on PLL0, we can't adjust CPU clock
  333. * by reprogramming the PLL0 then, as it overclocks system bus */
  334. if ((memregl[0xf000>>2] & 0x03000030) == 0x01000000)
  335. gp2x_set_cpuclk = gp2x_set_cpuclk_;
  336. else {
  337. fprintf(stderr, "unexpected PLL config (%08x), overclocking disabled\n",
  338. memregl[0xf000>>2]);
  339. gp2x_set_cpuclk = NULL;
  340. }
  341. set_lcd_custom_rate = set_lcd_custom_rate_;
  342. unset_lcd_custom_rate = unset_lcd_custom_rate_;
  343. set_lcd_gamma = set_lcd_gamma_;
  344. set_ram_timings = set_ram_timings_;
  345. unset_ram_timings = unset_ram_timings_;
  346. gp2x_read_battery = gp2x_read_battery_;
  347. }
  348. void pollux_finish(void)
  349. {
  350. /* switch to default fb mem, turn portrait off */
  351. memregl[0x406C>>2] = fb_paddr[0];
  352. memregl[0x4058>>2] |= 0x10;
  353. close(fbdev);
  354. gp2x_video_changemode_ll_(16);
  355. unset_ram_timings_();
  356. if (cpuclk_was_changed) {
  357. memregl[0xf004>>2] = pllsetreg0_old;
  358. memregl[0xf07c>>2] |= 0x8000;
  359. }
  360. timer_cleanup();
  361. munmap((void *)memregs, 0x20000);
  362. close(memdev);
  363. if (battdev >= 0)
  364. close(battdev);
  365. }