Mercurial > vba-clojure

changeset 188:4e3d5f338750

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merged changes
author Robert McIntyre <rlm@mit.edu>
date Thu, 22 Mar 2012 07:38:00 -0500
parents 426fce7e609d (diff) 531e1342ff56 (current diff)
children d954835b24a4
files
diffstat 2 files changed, 19 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/exp/item_bridge.clj	Thu Mar 22 07:03:02 2012 -0500
     1.2 +++ b/clojure/com/aurellem/exp/item_bridge.clj	Thu Mar 22 07:38:00 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 +

     2.1 Binary file save-states/menu-open.sav has changed