From ad9f469eb3aea8abbdd5a0741005c3a4e04ab640 Mon Sep 17 00:00:00 2001 From: CrossNox Date: Tue, 29 Nov 2022 06:04:04 -0300 Subject: [PATCH] agrego pushfm --- src/rustint/core.clj | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/rustint/core.clj b/src/rustint/core.clj index a2d92ef..32b5194 100644 --- a/src/rustint/core.clj +++ b/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)),