Mercurial > vba-clojure

diff clojure/com/aurellem/exp/item_bridge.clj @ 174:5ce074824fac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
made functions more convienent for repl use.
author Robert McIntyre <rlm@mit.edu>
date Wed, 21 Mar 2012 03:38:46 -0500
parents 8665160f0f3d
children 95b2758dd517
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/exp/item_bridge.clj	Wed Mar 21 03:31:12 2012 -0500
     1.2 +++ b/clojure/com/aurellem/exp/item_bridge.clj	Wed Mar 21 03:38:46 2012 -0500
     1.3 @@ -62,7 +62,7 @@
     1.4                 (conj pcs (first (registers))))))))
     1.5  
     1.6  (defn loop-program []
     1.7 -  [0xF3     ;0xD31D  ;; disable-interrupts
     1.8 +  [0x00     ;0xD31D  ;; disable-interrupts
     1.9  
    1.10     0xC3     ;; loop forever
    1.11     0x1D
    1.12 @@ -71,14 +71,14 @@
    1.13  (def map-function-address-start 0xD36D)
    1.14  
    1.15  (defn test-loop []
    1.16 -  (capture-program-counter
    1.17 +  (continue!
    1.18     (-> (mid-game) 
    1.19         (set-memory-range 0xD31D (loop-program))
    1.20         (set-memory-range
    1.21          map-function-address-start
    1.22 -        [0xD3 0x1D])
    1.23 -       (IE! 0))
    1.24 -   1000))
    1.25 +        [0xD3 0x1D]))))
    1.26 +       
    1.27 +
    1.28  
    1.29  
    1.30  (defn-memo corrupt-moves []