1.1 --- a/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 10:15:04 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 10:53:15 2012 -0500
     1.3 @@ -148,10 +148,7 @@
     1.4          display-glyph
     1.5          (let [init*
     1.6                (flatten
     1.7 -               [(repeat 100 0)
     1.8 -                ;; Reset HL to initial value
     1.9 -
    1.10 -                ;; clear screen if we are at 0,0
    1.11 +               [;; clear screen if we are at 0,0
    1.12                  0x7A 0xB3 ;; D->A, OR E A ==> (= D E 0)
    1.13                  0x20 ;; skip clear-screen if D and E are not both zero
    1.14                  :clear-screen-length])
    1.15 @@ -168,7 +165,7 @@
    1.16                  0x00 0x98 ;; load 0x9800 into HL
    1.17                  
    1.18                  0x16 3 ;; 3 -> D
    1.19 -                0x1E 190 ;; 188 -> E
    1.20 +                0x1E 190 ;; 190 -> E
    1.21  
    1.22                  ;; Empty space Character ID
    1.23                  0x3E 16 ;; 0-> A