# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1335375690 18000
# Node ID 3171cbe077f32bb8114b1fb4539012ecf2776205
# Parent  3939ad680681f4f192d39673f15ab4682612daf4
created basic frame system for multiple voices.

diff -r 3939ad680681 -r 3171cbe077f3 clojure/com/aurellem/run/music.clj
--- a/clojure/com/aurellem/run/music.clj	Wed Apr 25 12:35:53 2012 -0500
+++ b/clojure/com/aurellem/run/music.clj	Wed Apr 25 12:41:30 2012 -0500
@@ -293,7 +293,7 @@
     ;; initialize frame 1 
     0x21
     0x00
-    0xD0 ;; set HL to 0xD000 == music-start
+    0xD0 ;; set HL to 0xD000 == music-start 1
     0x0E
     0x00 ;; 0->C
     0x06
@@ -306,13 +306,22 @@
     0xE5 ;; push HL
 
     ;; initialize frame 2
-    
+    0x21
+    0x00
+    0xC0 ;; set HL to 0xC000 == music-start 2
+
+    0xF5 ;; push AF
+    0xC5 ;; push CB
+    0xE5 ;; push HL
+
+
     
     ;; init-2 (0->A,B,C), 0xC000 -> HL
 
     ;; push to stack
 
-    ;; SP - 5
+    0xE8 ;; SP + 8
+    6
     ;; pop from stack
     (music-step music-1)
     ;; save to stack