# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1346488850 18000
# Node ID c6b01ff2f1e5491e0a669ccc5d43c360cac06814
# Parent  a6dcb6236fbc7beba381dfa021808a0ac4642eea
added row and column variables; clear-screen logic works now.

diff -r a6dcb6236fbc -r c6b01ff2f1e5 clojure/com/aurellem/run/adv_choreo.clj
--- a/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 03:36:33 2012 -0500
+++ b/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 03:40:50 2012 -0500
@@ -137,9 +137,9 @@
         (flatten
          [;; data region
           0x18
-          2
+          4
           0 0 ;; current num of glyphs-rendered
-
+          0 0 ;; current row and column
           ;; save all registers
           0xC5 0xD5 0xE5 0xF5
 
@@ -198,8 +198,8 @@
 
                 ;; clear screen if we are at 0,0
                 0x57 0xB3 ;; D->A, OR E A ==> (= D E 0)
-                ;;0x20 ;; skip clear-screen if D and E are not both zero
-                ;;:clear-screen-length
+                0x20 ;; skip clear-screen if D and E are not both zero
+                :clear-screen-length
 
                 ])
               clear-screen
@@ -241,8 +241,6 @@
           
               (concat init clear-screen))
               
-         
-
         cleanup
         ;; restore all registers
         (flatten