Mercurial > vba-clojure

comparison clojure/com/aurellem/run/adv_choreo.clj @ 564:a5cb3f8d12ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
simplified return program.
author Robert McIntyre <rlm@mit.edu>
date Fri, 31 Aug 2012 11:01:22 -0500
parents a70d9223f6eb
children bb1dc927859b
comparison
equal deleted inserted replaced
563:a70d9223f6eb 564:a5cb3f8d12ee
242 state-machine 242 state-machine
243 (bootstrap-state-machine state-machine-start-address) 243 (bootstrap-state-machine state-machine-start-address)
244 244
245 return-to-header 245 return-to-header
246 (flatten 246 (flatten
247 [0x18 247 [0xC3
248 (->signed-8-bit 248 (reverse (disect-bytes-2
249 (- (count init) 249 (+ (count init) start-address)))])]
250 2 ;; this command length
251 3 ;; I have no idea why we need a 3 here
252 ;; need to investigate.
253 (count glyph-display)
254 (count header)
255 (count state-machine)))])]
256
257 (concat init header glyph-display state-machine return-to-header))) 250 (concat init header glyph-display state-machine return-to-header)))
258 251
259 252
260 253
261 (defn-memo begin-glyph-bootstrap 254 (defn-memo begin-glyph-bootstrap