1.1 --- a/clojure/com/aurellem/run/adv_choreo.clj	Fri Aug 31 09:37:18 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/adv_choreo.clj	Fri Aug 31 11:01:22 2012 -0500
     1.3 @@ -244,16 +244,9 @@
     1.4          
     1.5          return-to-header
     1.6          (flatten 
     1.7 -         [0x18
     1.8 -          (->signed-8-bit
     1.9 -           (- (count init)
    1.10 -              2 ;; this command length
    1.11 -              3 ;; I have no idea why we need a 3 here
    1.12 -              ;; need to investigate.
    1.13 -              (count glyph-display)
    1.14 -              (count header)
    1.15 -              (count state-machine)))])]
    1.16 -    
    1.17 +         [0xC3
    1.18 +          (reverse  (disect-bytes-2
    1.19 +                     (+ (count init) start-address)))])]
    1.20      (concat init header glyph-display state-machine return-to-header)))
    1.21  
    1.22