diff clojure/com/aurellem/run/adv_choreo.clj @ 580:46bbeac1b329

saving progress.
author Robert McIntyre <rlm@mit.edu>
date Sat, 01 Sep 2012 06:15:23 -0500
parents 9f2b221bbf9b
children 5f09601abe8c
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 06:03:08 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 06:15:23 2012 -0500
     1.3 @@ -234,10 +234,10 @@
     1.4                [;; formula for memory offset is:
     1.5                 ;; (+ 0x9800 (* 32 row) column) == 
     1.6                 ;; (+ 0x97E0 (* 32 (+ 1 row)) column)
     1.7 -               0xD5 0xC5 ;; push D E B C
     1.8 +              
     1.9  
    1.10                 ;; RLM: this should be 0x9800, investigate
    1.11 -               0x21 0xE0 0x97 ;; load HL with 0x97E0
    1.12 +               0x21 0x00 0x98 ;; load HL with 0x97E0
    1.13                 
    1.14                 0x06 0
    1.15                 0x4B
    1.16 @@ -267,7 +267,7 @@
    1.17                 ;; 0x20 
    1.18                 ;; (->signed-8-bit -4)
    1.19                 
    1.20 -               0xC1 0xD1 ;; pop C B E D
    1.21 +             
    1.22                 ]
    1.23                
    1.24                render-glyph
    1.25 @@ -282,6 +282,7 @@
    1.26                 
    1.27                  set-HL-from-row-and-column
    1.28                  0xF1 ;; pop A, now A is equal to key input
    1.29 +                0x3E 0xFF
    1.30                  0xF5 ;; save A
    1.31  
    1.32                  0xE6 0xF0 ;; clear second nybble