# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1346428882 18000
# Node ID a5cb3f8d12eedc4e54a54f58f9deaf230eef20ef
# Parent  a70d9223f6ebc7e1d3580f083017cddaa9714cd9
simplified return program.

diff -r a70d9223f6eb -r a5cb3f8d12ee clojure/com/aurellem/run/adv_choreo.clj
--- a/clojure/com/aurellem/run/adv_choreo.clj	Fri Aug 31 09:37:18 2012 -0500
+++ b/clojure/com/aurellem/run/adv_choreo.clj	Fri Aug 31 11:01:22 2012 -0500
@@ -244,16 +244,9 @@
         
         return-to-header
         (flatten 
-         [0x18
-          (->signed-8-bit
-           (- (count init)
-              2 ;; this command length
-              3 ;; I have no idea why we need a 3 here
-              ;; need to investigate.
-              (count glyph-display)
-              (count header)
-              (count state-machine)))])]
-    
+         [0xC3
+          (reverse  (disect-bytes-2
+                     (+ (count init) start-address)))])]
     (concat init header glyph-display state-machine return-to-header)))