add mul

src/rustint/core.clj

@@ -1955,6 +1955,10 @@
           ; DIV: Como ADD, pero divide.
           DIV (let [res (aplicar-operador-diadico dividir pila)]
                    (if (nil? res) res (recur cod regs-de-act (inc cont-prg) res mapa-regs)))
+
+          ; MUL: Como ADD, pero multiplica.
+          MUL (let [res (aplicar-operador-diadico * pila)]
+                   (if (nil? res) res (recur cod regs-de-act (inc cont-prg) res mapa-regs)))
        )
   )
 )