add mod

src/rustint/core.clj

@@ -1947,6 +1947,10 @@
           ; LTE: Como ADD, pero calcula la operacion relacional <= entre los dos valores.
           LTE (let [res (aplicar-operador-diadico <= pila)]
                    (if (nil? res) res (recur cod regs-de-act (inc cont-prg) res mapa-regs)))
+
+          ; 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)))
        )
   )
 )