1.1 --- a/clojure/com/aurellem/gb/assembly.clj	Sun Mar 25 00:08:23 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/assembly.clj	Sun Mar 25 00:38:45 2012 -0500
     1.3 @@ -1334,30 +1334,6 @@
     1.4          (view-register "L" L)
     1.5          ))))
     1.6    
     1.7 -
     1.8 -
     1.9 -(defn drive-dylan []
    1.10 -  (-> (write-mem-dyl)
    1.11 -      (#(do (println "memory from 0xC00F to 0xC01F:"
    1.12 -                     (subvec (vec (memory %)) 0xC00F 0xC01F)) %))
    1.13 -      (step [])
    1.14 -      (step [])
    1.15 -      (step [])
    1.16 -      (step [:start])
    1.17 -      (step [:select])
    1.18 -      (step [:u :d])
    1.19 -      (step [:a :b :start :select])
    1.20 -      (step [:a])
    1.21 -      (step [:b])
    1.22 -      (step [:a :b])
    1.23 -      (step [:select])
    1.24 -      (step [])
    1.25 -      (step [])
    1.26 -      (step [])
    1.27 -      (#(do (println "memory from 0xC00F to 0xC01F:"
    1.28 -                     (subvec (vec (memory %)) 0xC00F 0xC01F)) %))
    1.29 -      ))
    1.30 -
    1.31  (defn test-mode-4
    1.32    ([] (test-mode-4 (write-memory)))
    1.33    ([target-state]