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]