fabs
/
oboy
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Store full ROM in Cartridge.t 

Now that the full ROM is stored, all fields are derived from it.
master
Fabien Freling 2015-02-24 14:40:11 +01:00
parent 5cbd8c9794
commit 1a978d6814
1 changed files with 23 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
src/cartridge.ml
View File

@ -10,6 +10,7 @@ type memory_bank_controller =
| MBC1 | MBC1
type t = { type t = {
full_rom : bytes;
nintendo_logo : bytes; nintendo_logo : bytes;
title : string; title : string;
(* mem_type : memory_bank_controller; *) (* mem_type : memory_bank_controller; *)
@ -28,8 +29,7 @@ let check_nintendo_logo cartridge =
(Bytes.compare cartridge.nintendo_logo reference) == 0 (Bytes.compare cartridge.nintendo_logo reference) == 0
(** ROM size is expressed in KB *) (** ROM size is expressed in KB *)
let get_ROM_size b = let get_ROM_size = function
match Bytes.get b 0 |> int_of_char with
| 0x00 -> 32 (* no ROM banking *) | 0x00 -> 32 (* no ROM banking *)
| 0x01 -> 64 (* 4 banks *) | 0x01 -> 64 (* 4 banks *)
| 0x02 -> 128 (* 8 banks *) | 0x02 -> 128 (* 8 banks *)
@ -44,8 +44,7 @@ let get_ROM_size b =
| _ -> raise Read_error | _ -> raise Read_error
(** RAM size is expressed in KB *) (** RAM size is expressed in KB *)
let get_RAM_size b = let get_RAM_size = function
match Bytes.get b 0 |> int_of_char with
| 0x00 -> 0 | 0x00 -> 0
| 0x01 -> 2 | 0x01 -> 2
| 0x02 -> 8 | 0x02 -> 8
@ -55,41 +54,39 @@ let get_RAM_size b =
let read_cartridge file = let read_cartridge file =
try try
let fd = openfile file [Unix.O_RDONLY] 0o644 in let ic = open_in_bin file in
let file_size = in_channel_length ic in
let full_rom = Bytes.create file_size in
really_input ic full_rom 0 file_size;
close_in ic;
try try
let nin_logo_offset = 0x0104 in
if (lseek fd nin_logo_offset SEEK_SET) != nin_logo_offset
then raise Read_error;
(* Nintendo logo *) (* Nintendo logo *)
let nin_logo_offset = 0x0104 in
let nin_logo_size = 48 in let nin_logo_size = 48 in
let nintendo_logo = Bytes.create nin_logo_size in let nintendo_logo = Bytes.sub full_rom nin_logo_offset nin_logo_size in
if (read fd nintendo_logo 0 nin_logo_size) != nin_logo_size
then raise Read_error;
(* Title *) (* Title *)
let title_offset = 0x0134 in
let title_size = 16 in let title_size = 16 in
let title_b = Bytes.create title_size in let title_b = Bytes.sub full_rom title_offset title_size in
if (read fd title_b 0 title_size) != title_size
then raise Read_error;
let title = Bytes.to_string title_b in let title = Bytes.to_string title_b in
(* ROM size *) (* ROM size *)
let byte = Bytes.create 1 in let rom_size_code = Bytes.get full_rom 0x0148 |> int_of_char in
let _ = lseek fd 4 SEEK_CUR in let rom_size = get_ROM_size rom_size_code in
if (read fd byte 0 1) != 1
then raise Read_error;
let rom_size = get_ROM_size byte in
(* RAM size *) (* RAM size *)
if (read fd byte 0 1) != 1 let ram_size_code = Bytes.get full_rom 0x0149 |> int_of_char in
then raise Read_error; let ram_size = get_RAM_size ram_size_code in
let ram_size = get_RAM_size byte in
Unix.close fd; Some { full_rom; nintendo_logo; title; rom_size; ram_size }
Some { nintendo_logo; title; rom_size; ram_size }
with Read_error -> Unix.close fd; None with
| Invalid_argument(msg) -> None (* This is triggered by Bytes.sub *)
| Read_error -> None
with Unix_error(err, cmd, msg) -> None with Sys_error(msg) -> None