Mercurial > vba-clojure

comparison clojure/com/aurellem/run/adv_choreo.clj @ 590:ba185915c24f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
modified cutie mark image to remove white outline
author Robert McIntyre <rlm@mit.edu>
date Sat, 01 Sep 2012 10:53:15 -0500
parents d9d86f6018e8
children 96ee9d72aeb9
comparison
equal deleted inserted replaced
589:d9d86f6018e8 590:ba185915c24f
146 146
147 147
148 display-glyph 148 display-glyph
149 (let [init* 149 (let [init*
150 (flatten 150 (flatten
151 [(repeat 100 0) 151 [;; clear screen if we are at 0,0
152 ;; Reset HL to initial value
153
154 ;; clear screen if we are at 0,0
155 0x7A 0xB3 ;; D->A, OR E A ==> (= D E 0) 152 0x7A 0xB3 ;; D->A, OR E A ==> (= D E 0)
156 0x20 ;; skip clear-screen if D and E are not both zero 153 0x20 ;; skip clear-screen if D and E are not both zero
157 :clear-screen-length]) 154 :clear-screen-length])
158 155
159 clear-screen 156 clear-screen
166 ;; 0x9800 to 0x9A34 163 ;; 0x9800 to 0x9A34
167 0x21 164 0x21
168 0x00 0x98 ;; load 0x9800 into HL 165 0x00 0x98 ;; load 0x9800 into HL
169 166
170 0x16 3 ;; 3 -> D 167 0x16 3 ;; 3 -> D
171 0x1E 190 ;; 188 -> E 168 0x1E 190 ;; 190 -> E
172 169
173 ;; Empty space Character ID 170 ;; Empty space Character ID
174 0x3E 16 ;; 0-> A 171 0x3E 16 ;; 0-> A
175 172
176 ;; begin of do-while loop 173 ;; begin of do-while loop