# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1340248136 18000
# Node ID d2c40a12de280b92042ddee080fca5e431a233c3
# Parent  e6c02264dc9c119e6b3df047204f6b35ee27790b
problem turned out to be nothing.

diff -r e6c02264dc9c -r d2c40a12de28 clojure/com/aurellem/run/image.clj
--- a/clojure/com/aurellem/run/image.clj	Wed Jun 20 21:41:38 2012 -0500
+++ b/clojure/com/aurellem/run/image.clj	Wed Jun 20 22:08:56 2012 -0500
@@ -466,31 +466,30 @@
                       (drop 255 data))])))))
 
 (defn test-write-data []
-  (let [test-data (repeat 3 0xD3)
+  (let [test-data [0xDE 0xAD 0xBE 0xEF]
         base-address 0xA000
-        target-address 0xA500
+        target-address 0xC000
 
         test-kernel
         (flatten
          [0xF3 ;; disable interrupts
           (write-data (+ 1 base-address)
                       target-address test-data)
+          (clear-music-registers)
           (infinite-loop)])]
-;;    (assert
-  ;;   (= test-data
-    (-> (mid-game)
-        tick tick tick
-        (set-memory-range base-address test-kernel)
-        (PC! base-address)
-
-        ;;(run-moves (repeat 100 []))
-        ;;(memory)
-        ;;vec
-        ;;(subvec target-address
-        ;;        (+ target-address
-        ;;           (count test-data)))
-        ;;println
-        )))
+    (assert
+     (= test-data
+        (-> (mid-game)
+            tick tick tick
+            (set-memory-range base-address test-kernel)
+            (PC! base-address)
+            
+            (run-moves (repeat 100 []))
+            (memory)
+            vec
+            (subvec target-address
+                    (+ target-address
+                       (count test-data))))))))