1.1 --- a/clojure/com/aurellem/gb_driver.clj	Wed Mar 07 19:29:51 2012 -0600
     1.2 +++ b/clojure/com/aurellem/gb_driver.clj	Wed Mar 07 19:53:39 2012 -0600
     1.3 @@ -14,3 +14,18 @@
     1.4      (Gb/getRAM ram-store)
     1.5      ram-store))
     1.6  
     1.7 +
     1.8 +(defn get-rom []
     1.9 +  (let [rom-store (int-array (Gb/getROMSize))]
    1.10 +    (Gb/getRAM rom-store)
    1.11 +    rom-store))
    1.12 +
    1.13 +(defn get-working-ram []
    1.14 +  (let [ram-store (int-array Gb/WRAM_SIZE)]
    1.15 +    (Gb/getWRAM ram-store)
    1.16 +    ram-store))
    1.17 +
    1.18 +(defn get-video-ram []
    1.19 +  (let [ram-store (int-array Gb/VRAM_SIZE)]
    1.20 +    (Gb/getVRAM ram-store)
    1.21 +    ram-store))
    1.22 \ No newline at end of file