Mercurial > vba-clojure

comparison clojure/com/aurellem/exp/item_bridge.clj @ 239:19fd38fe376e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
revived a functional version of Dylan's assembly.
author Robert McIntyre <rlm@mit.edu>
date Sun, 25 Mar 2012 00:38:45 -0500
parents e23ab90fcc86
children 22f58fa47c3c
comparison
equal deleted inserted replaced
238:e23ab90fcc86 239:19fd38fe376e
195 (assembly-fn state)) 195 (assembly-fn state))
196 (set-memory-range 196 (set-memory-range
197 memory-function-address-start 197 memory-function-address-start
198 insertion-address-bits)))) 198 insertion-address-bits))))
199 199
200 (def lemonade-trampoline (partial test-trampoline 200 (def lemonade-trampoline
201 trampoline-assembly 201 (partial test-trampoline
202 (menu-open-state))) 202 trampoline-assembly
203 (menu-open-state)))
203 204
204 (defn trampoline-assembly-burn-heal [^SaveState state] 205 (defn trampoline-assembly-burn-heal [^SaveState state]
205 (flatten 206 (flatten
206 [0x3E ;; 207 [0x3E ;;
207 0x3E ;; load lemonade into A 208 0x3E ;; load lemonade into A
208 209
209 0xEA 210 0xEA
210 0x1D 211 0x1D
211 0xD3 ;; set first item to lemonade 212 0xD3 ;; set first item to lemonade
212 213
213 0xC3 ;; return control to the game via absolute jump. 214 0xC3 ;; return control to the game via absolute jump
214 0x0C ;; return control to Route 3's map-function 215 0x0C ;; to Route 3's map-function
215 0x55 216 0x55
216 ])) 217 ]))
217 218
218 219