Mercurial > vba-clojure
comparison clojure/com/aurellem/run/adv_choreo.clj @ 561:c57398047795
saving progress.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Fri, 31 Aug 2012 08:50:32 -0500 |
parents | 3194a4f438ca |
children | 114f58b5b6d0 |
comparison
equal
deleted
inserted
replaced
560:3194a4f438ca | 561:c57398047795 |
---|---|
208 handle-delay*) | 208 handle-delay*) |
209 | 209 |
210 handle-glyph-count | 210 handle-glyph-count |
211 (replace {:to-stack-cleanup | 211 (replace {:to-stack-cleanup |
212 (+ (count display-glyph) (count cleanup))} | 212 (+ (count display-glyph) (count cleanup))} |
213 handle-glyph-count*) | 213 handle-glyph-count*)] |
214 ] | |
215 (concat load-data | 214 (concat load-data |
216 handle-delay handle-glyph-count | 215 handle-delay handle-glyph-count |
217 display-glyph | 216 display-glyph |
218 cleanup stack-cleanup))) | 217 cleanup stack-cleanup))) |
219 | |
220 | |
221 | 218 |
222 (def main-program-base-address 0xC000) | 219 (def main-program-base-address 0xC000) |
223 | 220 |
224 (defn glyph-bootstrap-program | 221 (defn glyph-bootstrap-program |
225 [start-address delay-count total-glyph-count] | 222 [start-address delay-count total-glyph-count] |