Use memory map instead of cartridge.

This commit is contained in:
Fabien Freling 2015-03-22 16:57:03 +01:00
parent 16d303008c
commit e5bc9bc4db
3 changed files with 36 additions and 16 deletions

View file

@ -1,8 +1,8 @@
open Printf
let rec run (cpu: Cpu.t) (cartridge: Cartridge.t) =
Cpu.run cpu cartridge;
run cpu cartridge
let rec run (cpu: Cpu.t) (mem: Memory.map) =
Cpu.run cpu mem;
run cpu mem
(** Power up sequence
http://bgb.bircd.org/pandocs.htm#powerupsequence *)
@ -16,7 +16,7 @@ let power_up cartridge =
let cpu = Cpu.init_cpu in
let mem = Memory.init cartridge in
run cpu cartridge
run cpu mem
let () =