# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1346498123 18000
# Node ID 46bbeac1b329dbbad5c78cc366507a2baf959f34
# Parent  9f2b221bbf9be0603223725d443cfee5ffa8a8cf
saving progress.

diff -r 9f2b221bbf9b -r 46bbeac1b329 clojure/com/aurellem/run/adv_choreo.clj
--- a/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 06:03:08 2012 -0500
+++ b/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 06:15:23 2012 -0500
@@ -234,10 +234,10 @@
               [;; formula for memory offset is:
                ;; (+ 0x9800 (* 32 row) column) == 
                ;; (+ 0x97E0 (* 32 (+ 1 row)) column)
-               0xD5 0xC5 ;; push D E B C
+              
 
                ;; RLM: this should be 0x9800, investigate
-               0x21 0xE0 0x97 ;; load HL with 0x97E0
+               0x21 0x00 0x98 ;; load HL with 0x97E0
                
                0x06 0
                0x4B
@@ -267,7 +267,7 @@
                ;; 0x20 
                ;; (->signed-8-bit -4)
                
-               0xC1 0xD1 ;; pop C B E D
+             
                ]
               
               render-glyph
@@ -282,6 +282,7 @@
                
                 set-HL-from-row-and-column
                 0xF1 ;; pop A, now A is equal to key input
+                0x3E 0xFF
                 0xF5 ;; save A
 
                 0xE6 0xF0 ;; clear second nybble