# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1346512106 18000
# Node ID e180f52b20794ab403db69090db6583d9d0638a3
# Parent  af3ca2f51baded78e6728081de5f6e7732bd648d
remove unnecessary code.

diff -r af3ca2f51bad -r e180f52b2079 clojure/com/aurellem/run/adv_choreo.clj
--- a/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 10:05:55 2012 -0500
+++ b/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 10:08:26 2012 -0500
@@ -206,40 +206,22 @@
                0x3E 20 0xBB ;; compare E to 20
                0x20
                3
-               0x14
-               0x1E 0
+               0x14 ;; increment row
+               0x1E 0 ;; set column to 0
                
 
+               ;; if row==18, set row to 0
                0x3E 18
                0xBA
                0x20
                2
-               0x16 0
-
-               ;; 0x00 ;;0x1C ;; inc E
-               ;; 0x3E 20 0xBB ;; compare E to 20
-               ;; 0x20 ;; if E is 20
-               ;;   3
-               ;;   0x1E 0 ;; set E to zero
-               ;;   0x00; 0x14   ;; (inc D) -> D
-
-               ;; ;; every time row (D) reaches 18, set row to 0                
-               ;; 0x3E 18 0xBA ;; compare D to 18
-               ;; 0x20 ;; if D is 18
-               ;;   2
-               ;;   0x16 0
-               ;; set D to zero
-               ] 
+               0x16 0] 
                
               set-HL-from-row-and-column
               (flatten
               [;; formula for memory offset is:
                ;; (+ 0x9800 (* 32 row) column) == 
-               ;; (+ 0x97E0 (* 32 (+ 1 row)) column)
-               0xD5 ;; push DE
-
-               ;; RLM: this should be 0x9800, investigate
-               0x21 0x00 0x98 ;; load HL with something
+               0x21 0x00 0x98 ;; load HL with 0x9800
                
                0x06 0
                0x4B  ;; columns (E) -> BC
@@ -254,24 +236,11 @@
                0xBA ;; CP A D
                0x28 ;; skip this next section if A == D
                4
-               ;;(+ 32 3)
                0x09 ;; HL += 32
-               ;;(repeat 32 0x23)
                0x3C
                0x18
-               ;;(->signed-8-bit (+ -6 -32))
+
                (->signed-8-bit -7)
-               ;; 0x14 ;; inc D to handle case where D == 0
-               ;; ;; D will never be > 20, so this will never overflow.
-
-               ;; ;; do 
-               ;;   0x09 ;; HL += 32
-               ;;   0x15 ;; dec D
-               ;; ;; while D != 0
-               ;; 0x20 
-               ;; (->signed-8-bit -4)
-               
-               0xD1 ;; pop DE
                ])
               
               render-glyph