diff --git a/src/rustint/core.clj b/src/rustint/core.clj
index 2f73d09..a2d92ef 100644
--- a/src/rustint/core.clj
+++ b/src/rustint/core.clj
@@ -1920,6 +1920,10 @@
           POPDIVREF (let [res (asignar-aritmetico-ref regs-de-act pila reg-actual fetched dividir)]
                          (if (nil? res) res (recur cod res (inc cont-prg) (vec (butlast pila)) mapa-regs)))
 
+          ; POPMODREF: Como POPADDREF, pero calcula el resto de la division.
+          POPMODREF (let [res (asignar-aritmetico-ref 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, quita de la pila dos elementos, calcula su suma y la coloca al final de la pila
           ; fetched: ADD
           ; pila recibida: [1 0 0 3 4]