Mercurial > vba-clojure

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
line wrap: on
line source
     1 (ns com.aurellem.gb-driver



     2   (:import com.aurellem.gb.Gb)



     3   (:import (java.nio IntBuffer ByteOrder)))



     4 



     5 



     6 (defn init-vba []



     7   (Gb/loadVBA)



     8   (future



     9     (Gb/startEmulator "/home/r/proj/pokemon-escape/roms/yellow.gbc")))



    10 



    11 



    12 (defn get-ram []



    13   (let [ram-store (int-array (Gb/getRAMSize))]



    14     (Gb/getRAM ram-store)



    15     ram-store))



    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))