Add CPU instructions.

This commit is contained in:
Fabien Freling 2015-05-08 14:48:44 +02:00
parent 7805e50062
commit 763c81a1e2
2 changed files with 27 additions and 9 deletions

View file

@ -1,7 +1,6 @@
open Printf
let rec run (cpu: Cpu.t) (mem: Memory.map) =
let command = read_line () in
Cpu.run cpu mem;
run cpu mem
@ -17,8 +16,6 @@ let power_up cartridge =
let cpu = Cpu.init_cpu in
let mem = Memory.init cartridge in
Graphics.open_graph "";
Graphics.resize_window 256 256;
run cpu mem