# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1334663628 18000
# Node ID 971bd1774eab957857beeed74c1067dcc745dd66
# Parent  b58a356f7cc266259745c0133878866fd22bf03b
increased resolution of music-kernel timer.

diff -r b58a356f7cc2 -r 971bd1774eab clojure/com/aurellem/run/music.clj
--- a/clojure/com/aurellem/run/music.clj	Tue Apr 17 06:36:43 2012 -0500
+++ b/clojure/com/aurellem/run/music.clj	Tue Apr 17 06:53:48 2012 -0500
@@ -157,9 +157,9 @@
     0x06 ;; set TMA to 0
     
     0x3E
-    (Integer/parseInt "00000111" 2)
+    (Integer/parseInt "00000110" 2)
     0xE0
-    0x07 ;; set TAC to 16384 Hz and activate timer
+    0x07 ;; set TAC to 65536 Hz and activate timer
 
     0xF0
     0x07
@@ -183,7 +183,12 @@
    0xA4 0x00 0x55
    0xA5 0x00 0x55
    0xA6 0x00 0x55
-   0xA7 0x00 0x55])
+   0xA6 0x55 0xFF
+   0xA6 0x55 0xFF
+   0xA6 0x55 0xFF
+   0x00 0x00 0xFF
+   ])
+   
    
 (defn play-music [music-bytes]
   (let [program-target 0xC000