add div

src/rustint/core.clj

@@ -1951,6 +1951,10 @@
           ; MOD: Como ADD, pero calcula el resto de la division.
           MOD (let [res (aplicar-operador-diadico rem pila)]
                    (if (nil? res) res (recur cod regs-de-act (inc cont-prg) res mapa-regs)))
+
+          ; 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)))
        )
   )
 )