Mercurial > vba-clojure
changeset 580:46bbeac1b329
saving progress.
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Sat, 01 Sep 2012 06:15:23 -0500 |
| parents | 9f2b221bbf9b |
| children | 5f09601abe8c |
| files | clojure/com/aurellem/run/adv_choreo.clj |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
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