fix case and add JMP

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)
        )
   )
 )