Mercurial > vba-clojure

comparison clojure/com/aurellem/run/adv_choreo.clj @ 565:bb1dc927859b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
saving progress.
author Robert McIntyre <rlm@mit.edu>
date Fri, 31 Aug 2012 12:14:47 -0500
parents a5cb3f8d12ee
children a2ff0032119e
comparison
equal deleted inserted replaced
564:a5cb3f8d12ee 565:bb1dc927859b
185 ;; to 360 characters. Thus, if the current glyphs is a 185 ;; to 360 characters. Thus, if the current glyphs is a
186 ;; multiple of 180, the screen must be refreshed. 186 ;; multiple of 180, the screen must be refreshed.
187 187
188 ;; DE contains max-glyphs and HL will be overwritten next 188 ;; DE contains max-glyphs and HL will be overwritten next
189 ;; section, so both are free to use here. 189 ;; section, so both are free to use here.
190 0 0 0 190 (repeat 100 0)
191 ;; Reset HL to initial value
192 0x21
193 (reverse (disect-bytes-2 data-start))
194
195 0x78 0x22 ;; B -> save glyphs-rendered
196 0x79 0x22 ;;
191 197
192 198
193 ]) 199 ])
194 clear-screen 200 clear-screen
195 201
216 222
217 handle-glyph-count 223 handle-glyph-count
218 (replace {:to-stack-cleanup 224 (replace {:to-stack-cleanup
219 (+ (count display-glyph) (count cleanup))} 225 (+ (count display-glyph) (count cleanup))}
220 handle-glyph-count*)] 226 handle-glyph-count*)]
227 (println (+ (count display-glyph) (count cleanup)))
221 (concat load-data 228 (concat load-data
222 handle-glyph-count 229 handle-glyph-count
223 display-glyph 230 display-glyph
224 cleanup stack-cleanup))) 231 cleanup stack-cleanup)))
225 232