comparison clojure/com/aurellem/run/adv_choreo.clj @ 555:2d9bf762a073

tightened up control transfer waiting period.
author Robert McIntyre <rlm@mit.edu>
date Fri, 31 Aug 2012 00:52:33 -0500
parents 37daf1acb212
children 6e6b7961595b
comparison
equal deleted inserted replaced
554:37daf1acb212 555:2d9bf762a073
190 190
191 (write-RAM 191 (write-RAM
192 relocated-bootstrap-start 192 relocated-bootstrap-start
193 (concat glyph-init glyph-program)) 193 (concat glyph-init glyph-program))
194 (transfer-control relocated-bootstrap-start) 194 (transfer-control relocated-bootstrap-start)
195 (do-nothing 10) 195 (do-nothing 1)
196 196
197 )))) 197 ))))
198 198
199 (defn write-all-program-data 199 (defn write-all-program-data
200 ([] (write-all-program-data (begin-glyph-bootstrap))) 200 ([] (write-all-program-data (begin-glyph-bootstrap)))