Mercurial > vba-clojure

diff clojure/com/aurellem/run/choreo.clj @ 536:c2ee7222a3c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
investigating a problem with bad sound when writing RAM with bootstrapping program
author Robert McIntyre <rlm@mit.edu>
date Mon, 25 Jun 2012 14:23:16 -0500
parents 2de44c6184ee
children 04f61ade7879
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/choreo.clj	Mon Jun 25 14:15:38 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/choreo.clj	Mon Jun 25 14:23:16 2012 -0500
     1.3 @@ -28,8 +28,21 @@
     1.4  (defn-memo write-pony-music-data
     1.5    ([] (write-pony-music-data (silence-noise)))
     1.6    ([script]
     1.7 -     (->> script
     1.8 -          (write-RAM 0xA000 
     1.9 +     (let [bytes (midi-bytes pony-csv)]
    1.10 +       (->> script
    1.11 +            (write-RAM (:address (:voice-1 bytes))
    1.12 +                       (:data    (:voice-1 bytes)))
    1.13  
    1.14 +            (write-RAM (:address (:voice-2 bytes))
    1.15 +                       (:data    (:voice-2 bytes)))
    1.16  
    1.17 +            (write-RAM (:address (:noise bytes))
    1.18 +                       (:data    (:noise bytes)))
    1.19  
    1.20 +            (write-RAM (:address (:kernel bytes))
    1.21 +                       (:data    (:kernel bytes)))
    1.22 +
    1.23 +            (transfer-control (:address (:kernel bytes)))))))
    1.24 +
    1.25 +
    1.26 +