media.c 7.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312
  1. /*
  2. * PicoDrive
  3. * (C) notaz, 2006-2010,2013
  4. *
  5. * This work is licensed under the terms of MAME license.
  6. * See COPYING file in the top-level directory.
  7. */
  8. #include <string.h>
  9. #include "pico_int.h"
  10. #include "cd/cue.h"
  11. unsigned char media_id_header[0x100];
  12. static void strlwr_(char *string)
  13. {
  14. char *p;
  15. for (p = string; *p; p++)
  16. if ('A' <= *p && *p <= 'Z')
  17. *p += 'a' - 'A';
  18. }
  19. static void get_ext(const char *file, char *ext)
  20. {
  21. const char *p;
  22. p = file + strlen(file) - 4;
  23. if (p < file) p = file;
  24. strncpy(ext, p, 4);
  25. ext[4] = 0;
  26. strlwr_(ext);
  27. }
  28. static int detect_media(const char *fname)
  29. {
  30. static const short sms_offsets[] = { 0x7ff0, 0x3ff0, 0x1ff0 };
  31. static const char *sms_exts[] = { "sms", "gg", "sg" };
  32. static const char *md_exts[] = { "gen", "bin", "smd" };
  33. char buff0[32], buff[32];
  34. unsigned short *d16;
  35. pm_file *pmf;
  36. char ext[5];
  37. int i;
  38. get_ext(fname, ext);
  39. // detect wrong extensions
  40. if (!strcmp(ext, ".srm") || !strcmp(ext, "s.gz") || !strcmp(ext, ".mds")) // s.gz ~ .mds.gz
  41. return PM_BAD_DETECT;
  42. /* don't believe in extensions, except .cue */
  43. if (strcasecmp(ext, ".cue") == 0)
  44. return PM_CD;
  45. pmf = pm_open(fname);
  46. if (pmf == NULL)
  47. return PM_BAD_DETECT;
  48. if (pm_read(buff0, 32, pmf) != 32) {
  49. pm_close(pmf);
  50. return PM_BAD_DETECT;
  51. }
  52. if (strncasecmp("SEGADISCSYSTEM", buff0 + 0x00, 14) == 0 ||
  53. strncasecmp("SEGADISCSYSTEM", buff0 + 0x10, 14) == 0) {
  54. pm_close(pmf);
  55. return PM_CD;
  56. }
  57. /* check for SMD evil */
  58. if (pmf->size >= 0x4200 && (pmf->size & 0x3fff) == 0x200) {
  59. if (pm_seek(pmf, sms_offsets[0] + 0x200, SEEK_SET) == sms_offsets[0] + 0x200 &&
  60. pm_read(buff, 16, pmf) == 16 &&
  61. strncmp("TMR SEGA", buff, 8) == 0)
  62. goto looks_like_sms;
  63. /* could parse further but don't bother */
  64. goto extension_check;
  65. }
  66. /* MD header? Act as TMSS BIOS here */
  67. if (pm_seek(pmf, 0x100, SEEK_SET) == 0x100 && pm_read(buff, 16, pmf) == 16) {
  68. if (strncmp(buff, "SEGA", 4) == 0 || strncmp(buff, " SEG", 4) == 0)
  69. goto looks_like_md;
  70. }
  71. for (i = 0; i < ARRAY_SIZE(sms_offsets); i++) {
  72. if (pm_seek(pmf, sms_offsets[i], SEEK_SET) != sms_offsets[i])
  73. continue;
  74. if (pm_read(buff, 16, pmf) != 16)
  75. continue;
  76. if (strncmp("TMR SEGA", buff, 8) == 0)
  77. goto looks_like_sms;
  78. }
  79. extension_check:
  80. /* probably some headerless thing. Maybe check the extension after all. */
  81. for (i = 0; i < ARRAY_SIZE(md_exts); i++)
  82. if (strcasecmp(pmf->ext, md_exts[i]) == 0)
  83. goto looks_like_md;
  84. for (i = 0; i < ARRAY_SIZE(sms_exts); i++)
  85. if (strcasecmp(pmf->ext, sms_exts[i]) == 0)
  86. goto looks_like_sms;
  87. /* If everything else fails, make a guess on the reset vector */
  88. d16 = (unsigned short *)(buff0 + 4);
  89. if ((((d16[0] << 16) | d16[1]) & 0xffffff) >= pmf->size) {
  90. lprintf("bad MD reset vector, assuming SMS\n");
  91. goto looks_like_sms;
  92. }
  93. looks_like_md:
  94. pm_close(pmf);
  95. return PM_MD_CART;
  96. looks_like_sms:
  97. pm_close(pmf);
  98. return PM_MARK3;
  99. }
  100. /* checks if fname points to valid MegaCD image */
  101. int PicoCdCheck(const char *fname_in, int *pregion)
  102. {
  103. const char *fname = fname_in;
  104. unsigned char buf[32];
  105. pm_file *cd_f;
  106. int region = 4; // 1: Japan, 4: US, 8: Europe
  107. char ext[5];
  108. cue_track_type type = CT_UNKNOWN;
  109. cue_data_t *cue_data = NULL;
  110. // opens a cue, or searches for one
  111. cue_data = cue_parse(fname_in);
  112. if (cue_data != NULL) {
  113. fname = cue_data->tracks[1].fname;
  114. type = cue_data->tracks[1].type;
  115. }
  116. else {
  117. get_ext(fname_in, ext);
  118. if (strcasecmp(ext, ".cue") == 0)
  119. return -1;
  120. }
  121. cd_f = pm_open(fname);
  122. if (cue_data != NULL)
  123. cue_destroy(cue_data);
  124. if (cd_f == NULL) return 0; // let the upper level handle this
  125. if (pm_read(buf, 32, cd_f) != 32) {
  126. pm_close(cd_f);
  127. return -1;
  128. }
  129. if (!strncasecmp("SEGADISCSYSTEM", (char *)buf+0x00, 14)) {
  130. if (type && type != CT_ISO)
  131. elprintf(EL_STATUS, ".cue has wrong type: %i", type);
  132. type = CT_ISO; // Sega CD (ISO)
  133. }
  134. if (!strncasecmp("SEGADISCSYSTEM", (char *)buf+0x10, 14)) {
  135. if (type && type != CT_BIN)
  136. elprintf(EL_STATUS, ".cue has wrong type: %i", type);
  137. type = CT_BIN; // Sega CD (BIN)
  138. }
  139. if (type == CT_UNKNOWN) {
  140. pm_close(cd_f);
  141. return 0;
  142. }
  143. pm_seek(cd_f, (type == CT_ISO) ? 0x100 : 0x110, SEEK_SET);
  144. pm_read(media_id_header, sizeof(media_id_header), cd_f);
  145. /* it seems we have a CD image here. Try to detect region now.. */
  146. pm_seek(cd_f, (type == CT_ISO) ? 0x100+0x10B : 0x110+0x10B, SEEK_SET);
  147. pm_read(buf, 1, cd_f);
  148. pm_close(cd_f);
  149. if (buf[0] == 0x64) region = 8; // EU
  150. if (buf[0] == 0xa1) region = 1; // JAP
  151. lprintf("detected %s Sega/Mega CD image with %s region\n",
  152. type == CT_BIN ? "BIN" : "ISO", region != 4 ? (region == 8 ? "EU" : "JAP") : "USA");
  153. if (pregion != NULL)
  154. *pregion = region;
  155. return type;
  156. }
  157. enum media_type_e PicoLoadMedia(const char *filename,
  158. const char *carthw_cfg_fname,
  159. const char *(*get_bios_filename)(int *region, const char *cd_fname),
  160. void (*do_region_override)(const char *media_filename))
  161. {
  162. const char *rom_fname = filename;
  163. enum media_type_e media_type;
  164. enum cd_img_type cd_img_type = CIT_NOT_CD;
  165. unsigned char *rom_data = NULL;
  166. unsigned int rom_size = 0;
  167. pm_file *rom = NULL;
  168. int cd_region = 0;
  169. int ret;
  170. media_type = detect_media(filename);
  171. if (media_type == PM_BAD_DETECT)
  172. goto out;
  173. if ((PicoIn.AHW & PAHW_MCD) && Pico_mcd != NULL)
  174. cdd_unload();
  175. PicoCartUnload();
  176. PicoIn.AHW = 0;
  177. PicoIn.quirks = 0;
  178. if (media_type == PM_CD)
  179. {
  180. // check for MegaCD image
  181. cd_img_type = PicoCdCheck(filename, &cd_region);
  182. if ((int)cd_img_type >= 0 && cd_img_type != CIT_NOT_CD)
  183. {
  184. // valid CD image, ask frontend for BIOS..
  185. rom_fname = NULL;
  186. if (get_bios_filename != NULL)
  187. rom_fname = get_bios_filename(&cd_region, filename);
  188. if (rom_fname == NULL) {
  189. media_type = PM_BAD_CD_NO_BIOS;
  190. goto out;
  191. }
  192. PicoIn.AHW |= PAHW_MCD;
  193. }
  194. else {
  195. media_type = PM_BAD_CD;
  196. goto out;
  197. }
  198. }
  199. else if (media_type == PM_MARK3) {
  200. lprintf("detected SMS ROM\n");
  201. PicoIn.AHW = PAHW_SMS;
  202. }
  203. rom = pm_open(rom_fname);
  204. if (rom == NULL) {
  205. lprintf("Failed to open ROM\n");
  206. media_type = PM_ERROR;
  207. goto out;
  208. }
  209. ret = PicoCartLoad(rom, &rom_data, &rom_size, (PicoIn.AHW & PAHW_SMS) ? 1 : 0);
  210. pm_close(rom);
  211. if (ret != 0) {
  212. if (ret == 2) lprintf("Out of memory\n");
  213. else if (ret == 3) lprintf("Read failed\n");
  214. else lprintf("PicoCartLoad() failed.\n");
  215. media_type = PM_ERROR;
  216. goto out;
  217. }
  218. // detect wrong files
  219. if (strncmp((char *)rom_data, "Pico", 4) == 0) {
  220. lprintf("savestate selected?\n");
  221. media_type = PM_BAD_DETECT;
  222. goto out;
  223. }
  224. if (!(PicoIn.AHW & PAHW_SMS)) {
  225. unsigned short *d = (unsigned short *)(rom_data + 4);
  226. if ((((d[0] << 16) | d[1]) & 0xffffff) >= (int)rom_size) {
  227. lprintf("bad reset vector\n");
  228. media_type = PM_BAD_DETECT;
  229. goto out;
  230. }
  231. }
  232. // load config for this ROM (do this before insert to get correct region)
  233. if (!(PicoIn.AHW & PAHW_MCD)) {
  234. memcpy(media_id_header, rom_data + 0x100, sizeof(media_id_header));
  235. if (do_region_override != NULL)
  236. do_region_override(filename);
  237. }
  238. if (PicoCartInsert(rom_data, rom_size, carthw_cfg_fname)) {
  239. media_type = PM_ERROR;
  240. goto out;
  241. }
  242. rom_data = NULL; // now belongs to PicoCart
  243. Pico.m.ncart_in = 0;
  244. // insert CD if it was detected
  245. if (cd_img_type != CIT_NOT_CD) {
  246. ret = cdd_load(filename, cd_img_type);
  247. if (ret != 0) {
  248. PicoCartUnload();
  249. media_type = PM_BAD_CD;
  250. goto out;
  251. }
  252. Pico.m.ncart_in = 1;
  253. }
  254. if (PicoIn.quirks & PQUIRK_FORCE_6BTN)
  255. PicoSetInputDevice(0, PICO_INPUT_PAD_6BTN);
  256. out:
  257. if (rom_data)
  258. free(rom_data);
  259. return media_type;
  260. }
  261. // vim:shiftwidth=2:ts=2:expandtab