comparison clojure/com/aurellem/gb_driver.clj @ 61:dc8b383ecefa

added code to retrieve other RAM areas and ROM
author Robert McIntyre <rlm@mit.edu>
date Wed, 07 Mar 2012 19:53:39 -0600
parents ef59aee6d715
children 4699c7bab77d
comparison
equal deleted inserted replaced
60:ef59aee6d715 61:dc8b383ecefa
12 (defn get-ram [] 12 (defn get-ram []
13 (let [ram-store (int-array (Gb/getRAMSize))] 13 (let [ram-store (int-array (Gb/getRAMSize))]
14 (Gb/getRAM ram-store) 14 (Gb/getRAM ram-store)
15 ram-store)) 15 ram-store))
16 16
17
18 (defn get-rom []
19 (let [rom-store (int-array (Gb/getROMSize))]
20 (Gb/getRAM rom-store)
21 rom-store))
22
23 (defn get-working-ram []
24 (let [ram-store (int-array Gb/WRAM_SIZE)]
25 (Gb/getWRAM ram-store)
26 ram-store))
27
28 (defn get-video-ram []
29 (let [ram-store (int-array Gb/VRAM_SIZE)]
30 (Gb/getVRAM ram-store)
31 ram-store))