diff clojure/com/aurellem/run/adv_choreo.clj @ 571:c6b01ff2f1e5

added row and column variables; clear-screen logic works now.
author Robert McIntyre <rlm@mit.edu>
date Sat, 01 Sep 2012 03:40:50 -0500
parents a6dcb6236fbc
children 58a25fa15176
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 03:36:33 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 03:40:50 2012 -0500
     1.3 @@ -137,9 +137,9 @@
     1.4          (flatten
     1.5           [;; data region
     1.6            0x18
     1.7 -          2
     1.8 +          4
     1.9            0 0 ;; current num of glyphs-rendered
    1.10 -
    1.11 +          0 0 ;; current row and column
    1.12            ;; save all registers
    1.13            0xC5 0xD5 0xE5 0xF5
    1.14  
    1.15 @@ -198,8 +198,8 @@
    1.16  
    1.17                  ;; clear screen if we are at 0,0
    1.18                  0x57 0xB3 ;; D->A, OR E A ==> (= D E 0)
    1.19 -                ;;0x20 ;; skip clear-screen if D and E are not both zero
    1.20 -                ;;:clear-screen-length
    1.21 +                0x20 ;; skip clear-screen if D and E are not both zero
    1.22 +                :clear-screen-length
    1.23  
    1.24                  ])
    1.25                clear-screen
    1.26 @@ -241,8 +241,6 @@
    1.27            
    1.28                (concat init clear-screen))
    1.29                
    1.30 -         
    1.31 -
    1.32          cleanup
    1.33          ;; restore all registers
    1.34          (flatten