# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1346512278 18000
# Node ID 6e9368c371d59d49c4d766a03bc4eb1938a8d1eb
# Parent  e180f52b20794ab403db69090db6583d9d0638a3
added blank character.

diff -r e180f52b2079 -r 6e9368c371d5 clojure/com/aurellem/run/adv_choreo.clj
--- a/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 10:08:26 2012 -0500
+++ b/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 10:11:18 2012 -0500
@@ -87,7 +87,9 @@
   "The sixteen 8x8 glyphs which make up the \"terminal\" font."
   (mapv #(ImageIO/read
           (File. user-home (str "proj/vba-clojure/font/" % ".png")))
-          ["0" "1" "2" "3" "4" "5" "6" "7" "8" "9" "A" "B" "C" "D" "E" "F"]))
+        ["0" "1" "2" "3" "4" "5" "6" "7" "8"
+         "9" "A" "B" "C" "D" "E" "F" "_"]))
+
 
 (defn glyph-init-program
   [start-address]
@@ -148,8 +150,6 @@
           ;; load row and column into DE
           0x2A 0x57 ;; row -> D
           0x2A 0x5F ;; column -> E
-
-
           ])
 
 
@@ -174,7 +174,6 @@
                 ;; 0x9800 to 0x9A34
                 0x21
                 0x00 0x98 ;; load 0x9800 into HL
-
                 
                 0x16 3 ;; 3 -> D
                 0x1E 190 ;; 188 -> E
@@ -240,8 +239,7 @@
                0x3C
                0x18
 
-               (->signed-8-bit -7)
-               ])
+               (->signed-8-bit -7)])
               
               render-glyph
               (flatten
@@ -264,8 +262,7 @@
                 0xF1 ;; restore A
                 0xE6 0x0F ;; select second nybble
                 0x77 ;; store second nybble as character
-                increment-row-column
-                 ])
+                increment-row-column])
 
               
               init (replace