done
This commit is contained in:
parent
303f5e06a7
commit
7106f34a4e
10 changed files with 91 additions and 16 deletions
|
|
@ -8,9 +8,9 @@ let state = Processor.{regs; memory}
|
|||
(* Test function *)
|
||||
let test_runner () =
|
||||
let khz = 0.001 in
|
||||
Processor.print_memory state 50;
|
||||
Loader.load_object_file state "/mnt/c/Programiranje/SPO/ass1/horner.obj";
|
||||
Processor.print_memory state 50;
|
||||
Processor.print_memory state 80;
|
||||
Loader.load_object_file state "/mnt/c/Programiranje/SPO/ass1/arithr.obj";
|
||||
Processor.print_memory state 80;
|
||||
Printf.printf "\n\n---Starting execution!---\n\n";
|
||||
Pogajalnik.run state khz
|
||||
|
||||
|
|
|
|||
|
|
@ -195,11 +195,11 @@ let executeFormat3 (state : Processor.state) (nixbpe : nixbpe) (mnemonic: Opcode
|
|||
| STB -> IzvajalnikF3.stb state operand
|
||||
| STCH -> notImplemented "STCH4"
|
||||
| STF -> notImplemented "STF4"
|
||||
| STL -> IzvajalnikF3.stl state operand
|
||||
| STS -> IzvajalnikF3.sts state operand
|
||||
| STSW -> IzvajalnikF3.stsw state operand
|
||||
| STT -> IzvajalnikF3.stt state operand
|
||||
| STX -> IzvajalnikF3.stx state operand
|
||||
| STL -> IzvajalnikF3.stl state ea
|
||||
| STS -> IzvajalnikF3.sts state ea
|
||||
| STSW -> IzvajalnikF3.stsw state ea
|
||||
| STT -> IzvajalnikF3.stt state ea
|
||||
| STX -> IzvajalnikF3.stx state ea
|
||||
|
||||
(* Control / IO *)
|
||||
| TIX -> IzvajalnikF3.tix state operand
|
||||
|
|
|
|||
|
|
@ -10,7 +10,7 @@ let run (state : Processor.state) (khz : float) : unit =
|
|||
(*printni stanje*)
|
||||
Printf.printf "After execution:\n";
|
||||
Processor.print_regs state;
|
||||
Processor.print_memory state 50;
|
||||
Processor.print_memory state 80;
|
||||
flush stdout;
|
||||
|
||||
(*spi*)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue