Commit c464ca69 authored by Fabien Freling's avatar Fabien Freling

Add graphics window.

parent 644a1356
true: package(unix), warn(A-40-42)
true: package(unix), package(graphics), warn(A-40-42)
open Printf
let rec run (cpu: Cpu.t) (mem: Memory.map) =
let command = read_line () in
Cpu.run cpu mem;
run cpu mem
......@@ -16,6 +17,8 @@ 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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment