diff --git a/src/rustint/core.clj b/src/rustint/core.clj
index 95a1dc0..7758d3e 100644
--- a/src/rustint/core.clj
+++ b/src/rustint/core.clj
@@ -2412,10 +2412,9 @@
 ; [[[String "2"] [i64 6] [i64 2] [i64 3] [i64 0]] [[f64 3] [i64 0]]]
 ;                                                   ^^^ ^
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-; TODO
-; (defn cargar-en-ult-reg
-;
-;)
+(defn cargar-en-ult-reg [reg-act dir rtype value]
+  (assoc-in reg-act [(- (count reg-act) 1) dir] [rtype value])
+)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; CARGAR-EN-REG-DEST: Recibe un vector de registros de activacion, coordenadas, un tipo y un valor. Devuelve el