add sub

src/rustint/core.clj

@@ -1959,6 +1959,10 @@
           ; 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)))
+
+          ; SUB: Como ADD, pero resta.
+          SUB (let [res (aplicar-operador-diadico - pila)]
+                   (if (nil? res) res (recur cod regs-de-act (inc cont-prg) res mapa-regs)))
        )
   )
 )