# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1346433287 18000
# Node ID bb1dc927859b1de598fe0deacef84f216b1794cb
# Parent  a5cb3f8d12eedc4e54a54f58f9deaf230eef20ef
saving progress.

diff -r a5cb3f8d12ee -r bb1dc927859b clojure/com/aurellem/run/adv_choreo.clj
--- a/clojure/com/aurellem/run/adv_choreo.clj	Fri Aug 31 11:01:22 2012 -0500
+++ b/clojure/com/aurellem/run/adv_choreo.clj	Fri Aug 31 12:14:47 2012 -0500
@@ -187,7 +187,13 @@
 
                 ;; DE contains max-glyphs and HL will be overwritten next
                 ;; section, so both are free to use here.
-                0 0 0
+                (repeat 100 0)
+                ;; Reset HL to initial value
+                0x21
+                (reverse (disect-bytes-2 data-start))
+                
+                0x78 0x22 ;; B -> save glyphs-rendered
+                0x79 0x22 ;; 
                 
 
                 ])
@@ -218,6 +224,7 @@
         (replace {:to-stack-cleanup
                   (+ (count display-glyph) (count cleanup))}
                  handle-glyph-count*)]
+    (println  (+ (count display-glyph) (count cleanup)))
     (concat load-data
             handle-glyph-count
             display-glyph