agrego pushfm

src/rustint/core.clj

@@ -1938,6 +1938,14 @@
                     (recur cod regs-de-act (inc cont-prg) res mapa-regs)
                   )
 
+          ; PUSHFM: PUSH FROM MEMORY. Direccionamiento directo. Incrementa cont-prg en 1 y agrega al final de pila el elemento ubicado en la posicion de reg-actual indicada por el valor del argumento.
+          PUSHFM (let [
+                    res (conj pila (second (reg-actual (second fetched))))
+                  ]
+                    (recur cod regs-de-act (inc cont-prg) res mapa-regs)
+                  )
+
+
           ; NOT: Incrementa cont-prg en 1, quita de la pila un elemento booleano, lo niega y lo coloca al final de la pila.
           NOT (let [
                   res (not (last pila)),