agrego CAL

src/rustint/core.clj

@@ -2078,6 +2078,17 @@
                 ] (recur cod regs-de-act next_cont_prg pila mapa-regs)
             )
 
+          ; CAL: Llamada a una funcion. Agrega al final de regs-de-act el reg-de-act (proveniente de mapa-regs) indicado por el argumento,
+          ; cambia cont-prg por el valor del argumento y coloca al final de la pila la direccion de retorno (el valor del argumento incrementado en 1).
+          CAL (let [
+                  argval (second fetched),
+                  next_cont_prg argval,
+                  reg-act-to-add (get mapa-regs argval),
+                  retdir (inc argval)
+                ]
+                (recur cod (conj regs-de-act reg-act-to-add) next_cont_prg (conj pila retdir) mapa-regs)
+          )
+
        )
   )
 )