working...1

This commit is contained in:
Jaka Furlan 2025-11-29 21:17:09 +01:00
parent bc78a83838
commit 61bb14b9e3
21 changed files with 1054 additions and 12 deletions

View file

@ -0,0 +1,12 @@
(*A <- (F) [convert to integer]*)
let fix (state : Processor.state) : unit =
state.regs.a <- int_of_float state.regs.f;
()
(*F <- (A) [convert to floating]*)
let floatF (state : Processor.state) : unit = (*poimenovana floatF zaradi tipa float*)
state.regs.f <- float_of_int state.regs.a;
()
(*TODO implement the rest*)