agrego popmod

src/rustint/core.clj

@@ -1890,6 +1890,10 @@
           POPDIV (let [res (asignar-aritmetico regs-de-act pila reg-actual fetched dividir)]
                       (if (nil? res) res (recur cod res (inc cont-prg) (vec (butlast pila)) mapa-regs)))
 
+          ; POPMOD: Como POPADD, pero calcula el resto de la division.
+          POPMOD (let [res (asignar-aritmetico regs-de-act pila reg-actual fetched rem)]
+                      (if (nil? res) res (recur cod res (inc cont-prg) (vec (butlast pila)) mapa-regs)))
+
           ; Incrementa cont-prg en 1 y quita el ultimo elemento de pila. El argumento indica en reg-actual las coordenadas [#reg-act, offset] donde sumar el elemento en regs-de-act al llamar recursivamente a interpretar (verificando la compatibilidad de los tipos)
           ; Por ejemplo:
           ; fetched: [POPADDREF 2]