vba-clojure: clojure/com/aurellem/exp/item

succesful return of control to the game upon item injection.

comparison

equal deleted inserted replaced

-:e1dd3624d295
+:49a709c555f2
 (-> state
 (set-memory-range 0xD31D (loop-program))
 (set-memory-range 0xD36D [0x1D 0xD3])))
 ([] (prepare-memory @current-state)))
+(def memory-function-address-start 0xD36D)
+(defn read-map-function-address
+([^SaveState state]
+(let [mem (memory state)]
+[(aget mem memory-function-address-start)
+(aget mem (inc memory-function-address-start))]))
+([] (read-map-function-address @current-state)))
 (defn succesful-PC-capture
 "This function demonstrates successful PC capturing by
 setting 0xD36D to the value of the start location of
 a specially prepared program.
 (dorun
 (map #(println (Integer/toHexString %))
 (capture-program-counter
 (prepare-memory (menu-open-state))
 9000000))))
+(defn trampoline-assembly [^SaveState state]
+(flatten
+[0x3E ;;
+0x3E ;; load lemonade into A
+0xEA
+0x1D
+0xD3 ;; set first item to lemonade
+0xC3 ;; return control to the game via absolute junp.
+(read-map-function-address state)
+]))
+(defn test-trampoline
+"Demonstrates item-program execution via the map-function that
+returns control to the main pokemon game after one loop."
+[]
+(let [insertion-address 0xD33D
+insertion-address-bits [0x3D 0xD3]]
+(->
+(menu-open-state)
+(set-memory-range
+insertion-address
+(trampoline-assembly (menu-open-state)))
+(set-memory-range
+memory-function-address-start
+insertion-address-bits))))

Mercurial > vba-clojure