# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1346510599 18000
# Node ID 393b49a833946f5c591983f3cb4a54f483fdda29
# Parent  5f09601abe8cf5fdaf89c880ea6235f52eda6398
tracked down error to set=HL-from-row-and-column

diff -r 5f09601abe8c -r 393b49a83394 clojure/com/aurellem/run/adv_choreo.clj
--- a/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 09:35:07 2012 -0500
+++ b/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 09:43:19 2012 -0500
@@ -134,8 +134,8 @@
         (flatten
          [;; data region
           0x18
-          2
-          0 0 ;; current row and column
+          4
+          0 0 0 0;; current row and column
           ;; save all registers
           0xC5 0xD5 0xE5 0xF5
 
@@ -228,7 +228,8 @@
                ;; 0x20 ;; if D is 18
                ;;   2
                ;;   0x16 0
-               ] ;; set D to zero
+               ;; set D to zero
+               ] 
                
               set-HL-from-row-and-column
               (flatten
@@ -314,12 +315,20 @@
         cleanup
         ;; restore all registers
         (flatten
-         [;; Reset HL to initial value
+         [;; Reset HL to initial data-start value
+          0x44 0x4D ;;HL -> BC
+          
           0x21
           (reverse (disect-bytes-2 data-start))
           ;;0x23
+          ;; write variables
           0x7A 0x22 ;; D -> rows       -> to RAM
           0x7B 0x22 ;; E -> columns
+
+          0x78 0x22 ;; RLM: testing store HL
+          0x79 0x22
+
+
           ])
          
         stack-cleanup