Mercurial > vba-clojure

comparison clojure/com/aurellem/run/music.clj @ 423:971bd1774eab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
increased resolution of music-kernel timer.
author Robert McIntyre <rlm@mit.edu>
date Tue, 17 Apr 2012 06:53:48 -0500
parents f211cd655ccb
children 7bd806c4dbb6
comparison
equal deleted inserted replaced
422:b58a356f7cc2 423:971bd1774eab
155 0x01 155 0x01
156 0xE0 156 0xE0
157 0x06 ;; set TMA to 0 157 0x06 ;; set TMA to 0
158 158
159 0x3E 159 0x3E
160 (Integer/parseInt "00000111" 2) 160 (Integer/parseInt "00000110" 2)
161 0xE0 161 0xE0
162 0x07 ;; set TAC to 16384 Hz and activate timer 162 0x07 ;; set TAC to 65536 Hz and activate timer
163 163
164 0xF0 164 0xF0
165 0x07 165 0x07
166 166
167 (music-step) 167 (music-step)
181 0xA2 0x00 0x55 181 0xA2 0x00 0x55
182 0xA3 0x00 0x55 182 0xA3 0x00 0x55
183 0xA4 0x00 0x55 183 0xA4 0x00 0x55
184 0xA5 0x00 0x55 184 0xA5 0x00 0x55
185 0xA6 0x00 0x55 185 0xA6 0x00 0x55
186 0xA7 0x00 0x55]) 186 0xA6 0x55 0xFF
187 0xA6 0x55 0xFF
188 0xA6 0x55 0xFF
189 0x00 0x00 0xFF
190 ])
191
187 192
188 (defn play-music [music-bytes] 193 (defn play-music [music-bytes]
189 (let [program-target 0xC000 194 (let [program-target 0xC000
190 music-target 0xD000] 195 music-target 0xD000]
191 (-> (set-memory-range (second (music-base)) 196 (-> (set-memory-range (second (music-base))