1.1 --- a/clojure/com/aurellem/exp/item_bridge.clj	Thu Mar 22 06:07:31 2012 -0500
     1.2 +++ b/clojure/com/aurellem/exp/item_bridge.clj	Thu Mar 22 07:36:54 2012 -0500
     1.3 @@ -118,9 +118,26 @@
     1.4  
     1.5  (defn mid-game-corrupt []
     1.6    (read-state "corrupt-mid-game"))
     1.7 -   
     1.8  
     1.9 -             
    1.10 +(defn prepare-memory
    1.11 +  ([^SaveState state]
    1.12 +     (-> state
    1.13 +         (set-memory-range 0xD31D (loop-program))
    1.14 +         (set-memory-range 0xD336 [0x1D 0xD3])))
    1.15 +  ([] (prepare-memory @current-state)))
    1.16 +     
    1.17  
    1.18  
    1.19 +(defn test-memory-fun [n]
    1.20 +  (capture-program-counter
    1.21 +   (set-memory-range
    1.22 +    (tick (mid-game))
    1.23 +    0xD36D
    1.24 +    [0 0])
    1.25 +   n))
    1.26  
    1.27 +;;(def good (test-memory-fun 17000))
    1.28 +
    1.29 +;;(def bad (test-memory-fun 18000))
    1.30 +
    1.31 +