Mercurial > vba-clojure

comparison clojure/com/aurellem/run/adv_choreo.clj @ 572:58a25fa15176

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor formatting changes.
author Robert McIntyre <rlm@mit.edu>
date Sat, 01 Sep 2012 03:42:16 -0500
parents c6b01ff2f1e5
children 40f62391db9d
comparison
equal deleted inserted replaced
571:c6b01ff2f1e5 572:58a25fa15176
197 0x2A 0x5F ;; column -> E 197 0x2A 0x5F ;; column -> E
198 198
199 ;; clear screen if we are at 0,0 199 ;; clear screen if we are at 0,0
200 0x57 0xB3 ;; D->A, OR E A ==> (= D E 0) 200 0x57 0xB3 ;; D->A, OR E A ==> (= D E 0)
201 0x20 ;; skip clear-screen if D and E are not both zero 201 0x20 ;; skip clear-screen if D and E are not both zero
202 :clear-screen-length 202 :clear-screen-length])
203 203
204 ])
205 clear-screen 204 clear-screen
206 (flatten 205 (flatten
207 [;; save all registers 206 [;; save all registers
208 0xC5 0xD5 0xE5 0xF5 207 0xC5 0xD5 0xE5 0xF5
209 208
227 0x15 ;; dec D 226 0x15 ;; dec D
228 0x1E 190 ;; 188 -> E 227 0x1E 190 ;; 188 -> E
229 0x20 228 0x20
230 (->signed-8-bit -8) 229 (->signed-8-bit -8)
231 ;; end of do-while-loop 230 ;; end of do-while-loop
232 231
233
234 ;; restore all registers 232 ;; restore all registers
235 0xF1 0xE1 0xD1 0xC1 233 0xF1 0xE1 0xD1 0xC1])
234
235 render-glyph
236 (flatten
237 [0 0
236 ]) 238 ])
237 239
240
238 init (replace 241 init (replace
239 {:clear-screen-length (count clear-screen)} init*) 242 {:clear-screen-length (count clear-screen)} init*)
240 ] 243 ]
241 244
242 (concat init clear-screen)) 245 (concat init clear-screen render-glyph))
243 246
244 cleanup 247 cleanup
245 ;; restore all registers 248 ;; restore all registers
246 (flatten 249 (flatten
247 [0x03 ;; (inc glyphs-rednered) -> glyphs-rendered 250 [0x03 ;; (inc glyphs-rednered) -> glyphs-rendered