comparison clojure/com/aurellem/gb/util.clj @ 578:385799ea1e9c

implemented row glyph drawing.
author Robert McIntyre <rlm@mit.edu>
date Sat, 01 Sep 2012 05:14:37 -0500
parents 0b6624c1291c
children
comparison
equal deleted inserted replaced
577:df3a7eac39d7 578:385799ea1e9c
78 (binary-str (reg-fn state)))) 78 (binary-str (reg-fn state))))
79 state) 79 state)
80 80
81 (defn view-memory 81 (defn view-memory
82 ([^SaveState state mem] 82 ([^SaveState state mem]
83 (let [val (aget (memory state) mem)] 83 (let [val (accurate-memory state mem)]
84 (println (format "0x%04X = %s 0x%02X %d" mem 84 (println (format "0x%04X = %s 0x%02X %d" mem
85 (binary-str val) val val))) 85 (binary-str val) val val)))
86 state) 86 state)
87 ([mem] 87 ([mem]
88 (view-memory @current-state mem))) 88 (view-memory @current-state mem)))