Mercurial > vba-clojure
annotate clojure/com/aurellem/gb_driver.clj @ 60:ef59aee6d715
added function to retrieve main RAM
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Wed, 07 Mar 2012 19:29:51 -0600 |
| parents | 75349da4c344 |
| children | dc8b383ecefa |
| rev | line source |
|---|---|
| rlm@60 | 1 (ns com.aurellem.gb-driver |
| rlm@60 | 2 (:import com.aurellem.gb.Gb) |
| rlm@60 | 3 (:import (java.nio IntBuffer ByteOrder))) |
| rlm@48 | 4 |
| rlm@48 | 5 |
| rlm@60 | 6 (defn init-vba [] |
| rlm@60 | 7 (Gb/loadVBA) |
| rlm@60 | 8 (future |
| rlm@60 | 9 (Gb/startEmulator "/home/r/proj/pokemon-escape/roms/yellow.gbc"))) |
| rlm@60 | 10 |
| rlm@60 | 11 |
| rlm@60 | 12 (defn get-ram [] |
| rlm@60 | 13 (let [ram-store (int-array (Gb/getRAMSize))] |
| rlm@60 | 14 (Gb/getRAM ram-store) |
| rlm@60 | 15 ram-store)) |
| rlm@60 | 16 |