1.1 --- a/clojure/com/aurellem/assembly.clj	Sat Mar 17 19:30:45 2012 -0500
     1.2 +++ b/clojure/com/aurellem/assembly.clj	Sat Mar 17 21:29:08 2012 -0500
     1.3 @@ -464,42 +464,6 @@
     1.4    (set-state! (input-number)) 
     1.5    (dotimes [_ 90000] (step (view-memory @current-state 0xD352))))
     1.6  
     1.7 -(defn d2 []
     1.8 -  (->
     1.9 -   (write-mem-dyl)
    1.10 -   (view-memory 0xD31F)
    1.11 -   step step step step step
    1.12 -   (view-memory 0xD31F)))
    1.13 -
    1.14 -(defn dylan []
    1.15 -  (->
    1.16 -   (write-mem-dyl)
    1.17 -   (tick)
    1.18 -   (tick)
    1.19 -   (tick)
    1.20 -   (tick)
    1.21 -   (tick)
    1.22 -   (tick)
    1.23 -   (tick)
    1.24 -   (tick)
    1.25 -   (tick)
    1.26 -   (tick)
    1.27 -   (tick)
    1.28 -   (tick)
    1.29 -
    1.30 -   (tick)
    1.31 -   (tick)
    1.32 -   (tick)
    1.33 -   (tick)
    1.34 -   (tick)
    1.35 -
    1.36 -   (d-tick)
    1.37 -   (view-register "A" A)
    1.38 -   (view-register "B" B)
    1.39 -   (view-register "C" C)
    1.40 -   
    1.41 -   ))
    1.42 -
    1.43  
    1.44      
    1.45  
    1.46 @@ -559,7 +523,45 @@
    1.47    (-> (tick (mid-game))
    1.48        (IE! 0)
    1.49        (inject-item-assembly (write-memory-assembly*))))
    1.50 -            
    1.51 +
    1.52 +
    1.53 +(defn d2 []
    1.54 +  (->
    1.55 +   (write-mem-dyl)
    1.56 +   (view-memory 0xD31F)
    1.57 +   step step step step step
    1.58 +   (view-memory 0xD31F)))
    1.59 +
    1.60 +(defn dylan []
    1.61 +  (->
    1.62 +   (write-mem-dyl)
    1.63 +   (tick)
    1.64 +   (tick)
    1.65 +   (tick)
    1.66 +   (tick)
    1.67 +   (tick)
    1.68 +   (tick)
    1.69 +   (tick)
    1.70 +   (tick)
    1.71 +   (tick)
    1.72 +   (tick)
    1.73 +   (tick)
    1.74 +   (tick)
    1.75 +
    1.76 +   (tick)
    1.77 +   (tick)
    1.78 +   (tick)
    1.79 +   (tick)
    1.80 +   (tick)
    1.81 +
    1.82 +   (d-tick)
    1.83 +   (view-register "A" A)
    1.84 +   (view-register "B" B)
    1.85 +   (view-register "C" C)
    1.86 +   
    1.87 +   ))
    1.88 +
    1.89 +
    1.90  
    1.91  
    1.92  (defn write-memory-assembly []