# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1340652196 18000
# Node ID c2ee7222a3c4e8dfe7b19ddb0c949a99fd464931
# Parent  2de44c6184ee0496feb144118b579b31d765cc74
investigating a problem with bad sound when writing RAM with bootstrapping program

diff -r 2de44c6184ee -r c2ee7222a3c4 clojure/com/aurellem/run/choreo.clj
--- a/clojure/com/aurellem/run/choreo.clj	Mon Jun 25 14:15:38 2012 -0500
+++ b/clojure/com/aurellem/run/choreo.clj	Mon Jun 25 14:23:16 2012 -0500
@@ -28,8 +28,21 @@
 (defn-memo write-pony-music-data
   ([] (write-pony-music-data (silence-noise)))
   ([script]
-     (->> script
-          (write-RAM 0xA000 
+     (let [bytes (midi-bytes pony-csv)]
+       (->> script
+            (write-RAM (:address (:voice-1 bytes))
+                       (:data    (:voice-1 bytes)))
 
+            (write-RAM (:address (:voice-2 bytes))
+                       (:data    (:voice-2 bytes)))
 
+            (write-RAM (:address (:noise bytes))
+                       (:data    (:noise bytes)))
 
+            (write-RAM (:address (:kernel bytes))
+                       (:data    (:kernel bytes)))
+
+            (transfer-control (:address (:kernel bytes)))))))
+
+
+