changeset 423:971bd1774eab

increased resolution of music-kernel timer.
author Robert McIntyre <rlm@mit.edu>
date Tue, 17 Apr 2012 06:53:48 -0500
parents b58a356f7cc2
children 7bd806c4dbb6
files clojure/com/aurellem/run/music.clj
diffstat 1 files changed, 8 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/music.clj	Tue Apr 17 06:36:43 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/music.clj	Tue Apr 17 06:53:48 2012 -0500
     1.3 @@ -157,9 +157,9 @@
     1.4      0x06 ;; set TMA to 0
     1.5      
     1.6      0x3E
     1.7 -    (Integer/parseInt "00000111" 2)
     1.8 +    (Integer/parseInt "00000110" 2)
     1.9      0xE0
    1.10 -    0x07 ;; set TAC to 16384 Hz and activate timer
    1.11 +    0x07 ;; set TAC to 65536 Hz and activate timer
    1.12  
    1.13      0xF0
    1.14      0x07
    1.15 @@ -183,7 +183,12 @@
    1.16     0xA4 0x00 0x55
    1.17     0xA5 0x00 0x55
    1.18     0xA6 0x00 0x55
    1.19 -   0xA7 0x00 0x55])
    1.20 +   0xA6 0x55 0xFF
    1.21 +   0xA6 0x55 0xFF
    1.22 +   0xA6 0x55 0xFF
    1.23 +   0x00 0x00 0xFF
    1.24 +   ])
    1.25 +   
    1.26     
    1.27  (defn play-music [music-bytes]
    1.28    (let [program-target 0xC000