1.1 --- a/clojure/com/aurellem/gb_driver.clj	Mon Mar 19 19:45:32 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb_driver.clj	Mon Mar 19 19:56:55 2012 -0500
     1.3 @@ -249,7 +249,14 @@
     1.4  (gen-get-set-register HDMA5 26)
     1.5  (gen-get-set-register SVBK 27)
     1.6  (gen-get-set-register IE 28)
     1.7 -                            
     1.8 +
     1.9 +(defn set-memory [state location value]
    1.10 +  (set-state! state)
    1.11 +  (let [mem (memory state)]
    1.12 +    (aset mem location value)
    1.13 +    (write-memory! mem)
    1.14 +    (update-state)))
    1.15 +
    1.16  ;;;;;;;;;;;;;;;
    1.17  
    1.18  (defmacro defn-memo