Mercurial > vba-clojure

comparison clojure/com/aurellem/run/adv_choreo.clj @ 567:dba6bb38d2fb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add code to load row and column into DE.
author Robert McIntyre <rlm@mit.edu>
date Sat, 01 Sep 2012 03:09:31 -0500
parents a2ff0032119e
children d2d41ecc88e0
comparison
equal deleted inserted replaced
566:a2ff0032119e 567:dba6bb38d2fb
190 ;; section, so both are free to use here. 190 ;; section, so both are free to use here.
191 (repeat 100 0) 191 (repeat 100 0)
192 ;; Reset HL to initial value 192 ;; Reset HL to initial value
193 0x21 193 0x21
194 (reverse (disect-bytes-2 data-start)) 194 (reverse (disect-bytes-2 data-start))
195 195 ;; load row and column into DE
196 0x78 0x22 ;; B -> save glyphs-rendered 196 0x23 0x23 ;; HL += 2
197 0x79 0x22 ;; 197 0x2A 0x57 ;; row -> D
198 0x2A 0x5F ;; column -> E
199
200
198 201
199 202
200 ]) 203 ])
201 clear-screen 204 clear-screen
202 205