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@60: (defn get-ram []
rlm@60:   (let [ram-store (int-array (Gb/getRAMSize))]
rlm@60:     (Gb/getRAM ram-store)
rlm@60:     ram-store))
rlm@60: 
rlm@61: (defn get-rom []
rlm@61:   (let [rom-store (int-array (Gb/getROMSize))]
rlm@63:     (Gb/getR0M rom-store)
rlm@61:     rom-store))
rlm@61: 
rlm@61: (defn get-working-ram []
rlm@61:   (let [ram-store (int-array Gb/WRAM_SIZE)]
rlm@61:     (Gb/getWRAM ram-store)
rlm@61:     ram-store))
rlm@61: 
rlm@61: (defn get-video-ram []
rlm@61:   (let [ram-store (int-array Gb/VRAM_SIZE)]
rlm@61:     (Gb/getVRAM ram-store)
rlm@62:     ram-store))
rlm@62: 
rlm@62: (defn get-registers []
rlm@62:   (let [register-store (int-array Gb/NUM_REGISTERS)]
rlm@62:     (Gb/getRegisters register-store)
rlm@62:     register-store))