rlm@60: (ns com.aurellem.gb-driver
rlm@60:   (:import com.aurellem.gb.Gb)
rlm@65:   (:import java.io.File)
rlm@60:   (:import (java.nio IntBuffer ByteOrder)))
rlm@48: 
rlm@66: (Gb/loadVBA)
rlm@65: 
rlm@65: (def yellow-rom-image
rlm@65:   (File. "/home/r/proj/pokemon-escape/roms/yellow.gbc"))
rlm@65: 
rlm@67: (def yellow-save-file
rlm@67:   (File. "/home/r/proj/pokemon-escape/roms/yellow.sav"))
rlm@67: 
rlm@62: (defn vba-init []
rlm@67:   (.delete yellow-save-file)
rlm@60:   (future
rlm@65:     (Gb/startEmulator (.getCanonicalPath yellow-rom-image))))
rlm@60: 
rlm@64: (defn cpu-data [size arr-fn]
rlm@64:   (let [store (int-array size)]
rlm@64:     (fn [] 
rlm@64:       (arr-fn store)
rlm@64:       store)))
rlm@60: 
rlm@64: (def ram
rlm@64:   (cpu-data (Gb/getRAMSize) #(Gb/getRAM %)))
rlm@61: 
rlm@64: (def rom 
rlm@64:   (cpu-data (Gb/getROMSize) #(Gb/getROM %)))
rlm@61: 
rlm@64: (def working-ram 
rlm@64:   (cpu-data Gb/WRAM_SIZE #(Gb/getWRAM %)))
rlm@62: 
rlm@64: (def video-ram 
rlm@64:   (cpu-data Gb/VRAM_SIZE #(Gb/getVRAM %)))
rlm@64: 
rlm@64: (def registers
rlm@64:   (cpu-data Gb/NUM_REGISTERS #(Gb/getRegisters %)))
rlm@64: 
rlm@65: (defn step
rlm@65:   ([] (Gb/step))
rlm@67:   ([mask] (Gb/step mask)))
rlm@67: 
rlm@67: (defn shutdown [] (Gb/shutdown))
rlm@65: 
rlm@65:    
rlm@65:   
rlm@65: