1.1 --- a/org/rom.org	Mon Apr 09 01:44:19 2012 -0500
     1.2 +++ b/org/rom.org	Mon Apr 09 03:46:04 2012 -0500
     1.3 @@ -1567,6 +1567,24 @@
     1.4  ;; 0x251A (in indexable mem): image decompression routine seems to begin here.
     1.5  
     1.6  
     1.7 +;; Note: There are two tile tables, one from 8000-8FFF, the other from
     1.8 +;; 8800-97FF. The latter contains symbols, possibly map tiles(?), with some japanese chars and stuff at the end. 
     1.9 +(defn print-pixel-letters!
    1.10 +  "The pixel tiles representing letters. Neat!"
    1.11 + ([] (print-pixel-letters! (read-state "oak-speaks"))) 
    1.12 +([state] 
    1.13 +   (map
    1.14 +    (comp
    1.15 +     println
    1.16 +     (partial map #(if (zero? %) \space 0))
    1.17 +     #(if (< (count %) 8)
    1.18 +        (recur (cons 0 %))
    1.19 +        %)
    1.20 +     reverse bit-list)
    1.21 +    
    1.22 +    (take 0xFFF (drop 0x8800 (memory state))))))
    1.23 +
    1.24 +
    1.25  (comment 
    1.26  
    1.27  (def hxc-later