rlm@105: (ns com.aurellem.assembly
rlm@105:   (:use (com.aurellem gb-driver vbm title items))
rlm@105:   (:import [com.aurellem.gb_driver SaveState]))
rlm@105: 
rlm@106: (defn mid-game []
rlm@106:   (read-state "mid-game"))
rlm@105: 
rlm@105: (defn inject-assembly
rlm@105:   [^SaveState state
rlm@105:    program-counter registers
rlm@105:    assembly-code]
rlm@105:   (let [scratch-memory (memory state)]
rlm@105:     ;; inject assembly code
rlm@105:     (dorun (map (fn [index val]
rlm@105:                   (aset scratch-memory index val))
rlm@105:                 (range program-counter
rlm@105:                        (+ program-counter (count assembly-code)))
rlm@105:                 assembly-code))
rlm@106:     (-> state
rlm@106:         (write-memory! scratch-memory)
rlm@106:         (write-registers! registers)
rlm@106:         (PC! program-counter))))
rlm@106:         
rlm@105: 
rlm@105: (defn inject-item-assembly
rlm@105:   ([^SaveState state assembly-code]
rlm@105:      (inject-assembly state (inc item-list-start)
rlm@105:                       (registers state)
rlm@105:                       assembly-code))
rlm@105:   ([assembly-code]
rlm@105:      (inject-item-assembly @current-state assembly-code)))
rlm@105: 
rlm@105: (defn info
rlm@105:   ([^SaveState state]
rlm@106:      (println "PC: " (PC state))
rlm@106:      (println "Instruction:"
rlm@106:               (format "0x%02X" (aget (memory state) (PC state))))
rlm@105:      state))    
rlm@105: 
rlm@105: (defn run-assembly
rlm@105:   ([info-fn assembly n]
rlm@105:      (let [final-state
rlm@105:            (reduce (fn [state _]
rlm@105:                      (tick (info-fn state)))
rlm@106:                    (inject-item-assembly (tick (tick (tick (mid-game)))) assembly)
rlm@105:                    (range n))]
rlm@105:        (shutdown!)
rlm@105:        final-state))
rlm@105:   ([assembly n]
rlm@105:      (run-assembly info assembly n)))
rlm@105: