Mercurial > vba-clojure

comparison clojure/com/aurellem/run/adv_choreo.clj @ 586:af3ca2f51bad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
can now remove hack to regenerate D and E from render-glyph b/c of fixing bug in clear-screen.
author Robert McIntyre <rlm@mit.edu>
date Sat, 01 Sep 2012 10:05:55 -0500
parents 9159187bbf26
children e180f52b2079
comparison
equal deleted inserted replaced
585:9159187bbf26 586:af3ca2f51bad
277 render-glyph 277 render-glyph
278 (flatten 278 (flatten
279 [;; Render each nybble of A as a character 279 [;; Render each nybble of A as a character
280 ;; there are two characters to a glyph. 280 ;; there are two characters to a glyph.
281 281
282 0x21
283 (reverse (disect-bytes-2 data-start))
284 ;; load row and column into DE
285 0x2A 0x57 ;; row -> D
286 0x2A 0x5F ;; column -> E
287
288
289 set-HL-from-row-and-column 282 set-HL-from-row-and-column
290 283
291 0xF1 ;; pop A, now A is equal to key input 284 0xF1 ;; pop A, now A is equal to key input
292 0xF5 ;; save A 285 0xF5 ;; save A
293 286