# HG changeset patch # User Robert McIntyre # Date 1332419880 18000 # Node ID 4e3d5f33875097a75d9311ce81ddba163d60dcf6 # Parent 426fce7e609deb6dfcbcfa7dd2de266f4b083ff4# Parent 531e1342ff56e1fc748dbbb9f70fca7039ec8bf4 merged changes diff -r 531e1342ff56 -r 4e3d5f338750 clojure/com/aurellem/exp/item_bridge.clj --- a/clojure/com/aurellem/exp/item_bridge.clj Thu Mar 22 07:03:02 2012 -0500 +++ b/clojure/com/aurellem/exp/item_bridge.clj Thu Mar 22 07:38:00 2012 -0500 @@ -118,9 +118,26 @@ (defn mid-game-corrupt [] (read-state "corrupt-mid-game")) - - +(defn prepare-memory + ([^SaveState state] + (-> state + (set-memory-range 0xD31D (loop-program)) + (set-memory-range 0xD336 [0x1D 0xD3]))) + ([] (prepare-memory @current-state))) + +(defn test-memory-fun [n] + (capture-program-counter + (set-memory-range + (tick (mid-game)) + 0xD36D + [0 0]) + n)) +;;(def good (test-memory-fun 17000)) + +;;(def bad (test-memory-fun 18000)) + + diff -r 531e1342ff56 -r 4e3d5f338750 save-states/menu-open.sav Binary file save-states/menu-open.sav has changed