view clojure/com/aurellem/gb_driver.clj @ 65:60c768964937

going to make restarts work
author Robert McIntyre <rlm@mit.edu>
date Wed, 07 Mar 2012 21:04:55 -0600
parents 02bca9640f3f
children 43d4fb2a6fc2
line wrap: on
line source
1 (ns com.aurellem.gb-driver
2 (:import com.aurellem.gb.Gb)
3 (:import java.io.File)
4 (:import (java.nio IntBuffer ByteOrder)))
7 (def yellow-rom-image
8 (File. "/home/r/proj/pokemon-escape/roms/yellow.gbc"))
10 (defn vba-init []
11 (Gb/loadVBA)
12 (future
13 (Gb/startEmulator (.getCanonicalPath yellow-rom-image))))
15 (defn cpu-data [size arr-fn]
16 (let [store (int-array size)]
17 (fn []
18 (arr-fn store)
19 store)))
21 (def ram
22 (cpu-data (Gb/getRAMSize) #(Gb/getRAM %)))
24 (def rom
25 (cpu-data (Gb/getROMSize) #(Gb/getROM %)))
27 (def working-ram
28 (cpu-data Gb/WRAM_SIZE #(Gb/getWRAM %)))
30 (def video-ram
31 (cpu-data Gb/VRAM_SIZE #(Gb/getVRAM %)))
33 (def registers
34 (cpu-data Gb/NUM_REGISTERS #(Gb/getRegisters %)))
37 (def key-mask
38 {:a 0x0001
39 :b 0x0002
41 :l 0x0020
42 :r 0x0010
43 :u 0x0040
44 :d 0x0080
46 :select 0x0004
47 :start 0x0008
48 :restart 0x0800})
50 (defn keycode [& keys]
51 (reduce bit-or (map key-mask keys)))
53 (defn step
54 ([] (Gb/step))
55 ([& keys] (Gb/step (apply keycode keys))))