working...

This commit is contained in:
Jaka Furlan 2025-11-29 18:00:02 +01:00
parent d836b3955d
commit 0332001ef8
75 changed files with 427 additions and 1081 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*)