Mercurial > vba-clojure

changeset 588:6e9368c371d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added blank character.
author Robert McIntyre <rlm@mit.edu>
date Sat, 01 Sep 2012 10:11:18 -0500
parents e180f52b2079
children d9d86f6018e8
files clojure/com/aurellem/run/adv_choreo.clj
diffstat 1 files changed, 5 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 10:08:26 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/adv_choreo.clj	Sat Sep 01 10:11:18 2012 -0500
     1.3 @@ -87,7 +87,9 @@
     1.4    "The sixteen 8x8 glyphs which make up the \"terminal\" font."
     1.5    (mapv #(ImageIO/read
     1.6            (File. user-home (str "proj/vba-clojure/font/" % ".png")))
     1.7 -          ["0" "1" "2" "3" "4" "5" "6" "7" "8" "9" "A" "B" "C" "D" "E" "F"]))
     1.8 +        ["0" "1" "2" "3" "4" "5" "6" "7" "8"
     1.9 +         "9" "A" "B" "C" "D" "E" "F" "_"]))
    1.10 +
    1.11  
    1.12  (defn glyph-init-program
    1.13    [start-address]
    1.14 @@ -148,8 +150,6 @@
    1.15            ;; load row and column into DE
    1.16            0x2A 0x57 ;; row -> D
    1.17            0x2A 0x5F ;; column -> E
    1.18 -
    1.19 -
    1.20            ])
    1.21  
    1.22  
    1.23 @@ -174,7 +174,6 @@
    1.24                  ;; 0x9800 to 0x9A34
    1.25                  0x21
    1.26                  0x00 0x98 ;; load 0x9800 into HL
    1.27 -
    1.28                  
    1.29                  0x16 3 ;; 3 -> D
    1.30                  0x1E 190 ;; 188 -> E
    1.31 @@ -240,8 +239,7 @@
    1.32                 0x3C
    1.33                 0x18
    1.34  
    1.35 -               (->signed-8-bit -7)
    1.36 -               ])
    1.37 +               (->signed-8-bit -7)])
    1.38                
    1.39                render-glyph
    1.40                (flatten
    1.41 @@ -264,8 +262,7 @@
    1.42                  0xF1 ;; restore A
    1.43                  0xE6 0x0F ;; select second nybble
    1.44                  0x77 ;; store second nybble as character
    1.45 -                increment-row-column
    1.46 -                 ])
    1.47 +                increment-row-column])
    1.48  
    1.49                
    1.50                init (replace