Mercurial > vba-clojure

comparison 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
comparison
equal deleted inserted replaced
535:2de44c6184ee 536:c2ee7222a3c4
26 26
27 27
28 (defn-memo write-pony-music-data 28 (defn-memo write-pony-music-data
29 ([] (write-pony-music-data (silence-noise))) 29 ([] (write-pony-music-data (silence-noise)))
30 ([script] 30 ([script]
31 (->> script 31 (let [bytes (midi-bytes pony-csv)]
32 (write-RAM 0xA000 32 (->> script
33 (write-RAM (:address (:voice-1 bytes))
34 (:data (:voice-1 bytes)))
35
36 (write-RAM (:address (:voice-2 bytes))
37 (:data (:voice-2 bytes)))
38
39 (write-RAM (:address (:noise bytes))
40 (:data (:noise bytes)))
41
42 (write-RAM (:address (:kernel bytes))
43 (:data (:kernel bytes)))
44
45 (transfer-control (:address (:kernel bytes)))))))
33 46
34 47
35 48