Mercurial > vba-clojure
comparison clojure/com/aurellem/gb/hxc.clj @ 376:7c89fe478de4
modifying dylan's assembly bootstrap program so that my primitive item-writer program can write it to memory.
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Wed, 11 Apr 2012 09:14:51 -0500 |
| parents | b477970d0b7a |
| children | acc3d1ad24e8 |
comparison
equal
deleted
inserted
replaced
| 375:ce74088cd953 | 376:7c89fe478de4 |
|---|---|
| 924 ;; The first instance is for Machines; the second, for stones. | 924 ;; The first instance is for Machines; the second, for stones. |
| 925 | 925 |
| 926 ;; 0x251A (in indexable mem): image decompression routine seems to begin here. | 926 ;; 0x251A (in indexable mem): image decompression routine seems to begin here. |
| 927 | 927 |
| 928 | 928 |
| 929 ;; Note: There are two tile tables, one from 8000-8FFF, the other from | |
| 930 ;; 8800-97FF. The latter contains symbols, possibly map tiles(?), with some japanese chars and stuff at the end. | |
| 931 (defn print-pixel-letters! | |
| 932 "The pixel tiles representing letters. Neat!" | |
| 933 ([] (print-pixel-letters! (read-state "oak-speaks"))) | |
| 934 ([state] | |
| 935 (map | |
| 936 (comp | |
| 937 println | |
| 938 (partial map #(if (zero? %) \space 0)) | |
| 939 #(if (< (count %) 8) | |
| 940 (recur (cons 0 %)) | |
| 941 %) | |
| 942 reverse bit-list) | |
| 943 | |
| 944 (take 0xFFF (drop 0x88000 (memory state)))))) | |
| 945 | |
| 946 | |
| 929 (comment | 947 (comment |
| 930 | 948 |
| 931 (def hxc-later | 949 (def hxc-later |
| 932 "Running this code produces, e.g. hardcoded names NPCs give | 950 "Running this code produces, e.g. hardcoded names NPCs give |
| 933 their pokemon. Will sort through it later." | 951 their pokemon. Will sort through it later." |