comparison clojure/com/aurellem/gb_driver.clj @ 142:b12d2408fd9b

moved set-memory to proper position, added pokemon.clj
author Robert McIntyre <rlm@mit.edu>
date Mon, 19 Mar 2012 19:56:55 -0500
parents d125a294f9d8
children
comparison
equal deleted inserted replaced
141:d125a294f9d8 142:b12d2408fd9b
247 (gen-get-set-register HDMA3 24) 247 (gen-get-set-register HDMA3 24)
248 (gen-get-set-register HDMA4 25) 248 (gen-get-set-register HDMA4 25)
249 (gen-get-set-register HDMA5 26) 249 (gen-get-set-register HDMA5 26)
250 (gen-get-set-register SVBK 27) 250 (gen-get-set-register SVBK 27)
251 (gen-get-set-register IE 28) 251 (gen-get-set-register IE 28)
252 252
253 (defn set-memory [state location value]
254 (set-state! state)
255 (let [mem (memory state)]
256 (aset mem location value)
257 (write-memory! mem)
258 (update-state)))
259
253 ;;;;;;;;;;;;;;; 260 ;;;;;;;;;;;;;;;
254 261
255 (defmacro defn-memo 262 (defmacro defn-memo
256 [& forms] 263 [& forms]
257 (let [fun-name (first forms)] 264 (let [fun-name (first forms)]