Mercurial > vba-clojure

comparison clojure/com/aurellem/run/adv_choreo.clj @ 563:a70d9223f6eb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added blank glyph.
author Robert McIntyre <rlm@mit.edu>
date Fri, 31 Aug 2012 09:37:18 -0500
parents 114f58b5b6d0
children a5cb3f8d12ee
comparison
equal deleted inserted replaced
562:114f58b5b6d0 563:a70d9223f6eb
173 0x18 173 0x18
174 :to-stack-cleanup 174 :to-stack-cleanup
175 ]) 175 ])
176 176
177 display-glyph 177 display-glyph
178 (flatten 178
179 [0xF1 ;; pop A, now A is equal to key input 179 (let [init
180 180
181 0 0 0 181 (flatten
182 182 [0xF1 ;; pop A, now A is equal to key input
183 183 ;; BC is current number of glyphs rendered.
184 ]) 184 ;; each glyph is two characters, and the screen can hold up
185 ;; to 360 characters. Thus, if the current glyphs is a
186 ;; multiple of 180, the screen must be refreshed.
187
188 ;; DE contains max-glyphs and HL will be overwritten next
189 ;; section, so both are free to use here.
190 0 0 0
191
192
193 ])
194 clear-screen
195
196 []]
197 (concat init clear-screen))
198
185 199
186 200
187 cleanup 201 cleanup
188 ;; restore all registers 202 ;; restore all registers
189 (flatten 203 (flatten