Boot_roms.Device_boot_rom_select
type model =
| Dmg
| Mgb
| Cgb
| SCgb
val is_cgb : model -> bool
val get_device_and_boot_rom : string -> model * (unit -> bytes)