diff --git a/src/rustint/core.clj b/src/rustint/core.clj index 32b5194..60ae00c 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -2059,10 +2059,13 @@ ) ; FLUSH: Purga la salida e incrementa cont-prg en 1. - (do (flush) (recur cod regs-de-act (inc cont-prg) pila mapa-regs)) + FLUSH (do (flush) (recur cod regs-de-act (inc cont-prg) pila mapa-regs)) ; NL: New line. Imprime un salto de linea e incrementa cont-prg en 1. - (do (println) (recur cod regs-de-act (inc cont-prg) pila mapa-regs)) + NL (do (println) (recur cod regs-de-act (inc cont-prg) pila mapa-regs)) + + ; JMP: Salto incondicional. Cambia cont-prg por el valor del argumento. + JMP (recur cod regs-de-act (second fetched) pila mapa-regs) ) ) )