rlm@60: (ns com.aurellem.gb-driver
rlm@60:   (:import com.aurellem.gb.Gb)
rlm@60:   (:import (java.nio IntBuffer ByteOrder)))
rlm@48: 
rlm@62: (defn vba-init []
rlm@60:   (Gb/loadVBA)
rlm@60:   (future
rlm@60:     (Gb/startEmulator "/home/r/proj/pokemon-escape/roms/yellow.gbc")))
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@64: