Commit eee39d02 authored by Quentin Aristote's avatar Quentin Aristote
Browse files

corrected timer

parent e817cdf8
...@@ -189,7 +189,7 @@ let rec read_value id t = ...@@ -189,7 +189,7 @@ let rec read_value id t =
let print_only = ref false let print_only = ref false
let number_steps = ref (-1) let number_steps = ref (-1)
let rom_directory = ref "./" let rom_directory = ref "./"
let cycle_duration = ref 0.05 let cycle_duration = ref 0.
(* The main part of the program *) (* The main part of the program *)
let compile filename = let compile filename =
...@@ -421,7 +421,7 @@ let main () = ...@@ -421,7 +421,7 @@ let main () =
^ "cter n is the ASCII character cor" ^ "cter n is the ASCII character cor"
^ "responding encoded by the byte RO" ^ "responding encoded by the byte RO"
^ "M[n]ROM[n+1]...ROM[n+7]."; ^ "M[n]ROM[n+1]...ROM[n+7].";
"-time", Arg.Int (fun t -> cycle_duration := float_of_int t /. 100.), "-time", Arg.Int (fun t -> cycle_duration := float_of_int t /. 1000.),
"Minimum time in millisecondes each cycle has to take, set to 0 by default."] "Minimum time in millisecondes each cycle has to take, set to 0 by default."]
compile compile
"" ""
......
Supports Markdown
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