Mercurial > vba-clojure

     1 (ns com.aurellem.gb-driver

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

     3   (:import java.io.File)

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

     5 

     6 

     7 (def yellow-rom-image

     8   (File. "/home/r/proj/pokemon-escape/roms/yellow.gbc"))

     9 

    10 (defn vba-init []

    11   (Gb/loadVBA)

    12   (future

    13     (Gb/startEmulator (.getCanonicalPath yellow-rom-image))))

    14 

    15 (defn cpu-data [size arr-fn]

    16   (let [store (int-array size)]

    17     (fn [] 

    18       (arr-fn store)

    19       store)))

    20 

    21 (def ram

    22   (cpu-data (Gb/getRAMSize) #(Gb/getRAM %)))

    23 

    24 (def rom 

    25   (cpu-data (Gb/getROMSize) #(Gb/getROM %)))

    26 

    27 (def working-ram 

    28   (cpu-data Gb/WRAM_SIZE #(Gb/getWRAM %)))

    29 

    30 (def video-ram 

    31   (cpu-data Gb/VRAM_SIZE #(Gb/getVRAM %)))

    32 

    33 (def registers

    34   (cpu-data Gb/NUM_REGISTERS #(Gb/getRegisters %)))

    35 

    36 

    37 (def key-mask

    38   {:a         0x0001

    39    :b         0x0002

    40 

    41    :l         0x0020

    42    :r         0x0010

    43    :u         0x0040

    44    :d         0x0080

    45 

    46    :select    0x0004

    47    :start     0x0008

    48    :restart   0x0800})

    49 

    50 (defn keycode [& keys]

    51   (reduce bit-or (map key-mask keys)))

    52 

    53 (defn step

    54   ([] (Gb/step))

    55   ([& keys] (Gb/step (apply keycode keys))))

    56 

    57    

    58   

    59
author	Robert McIntyre <rlm@mit.edu>
date	Wed, 07 Mar 2012 21:04:55 -0600
parents	02bca9640f3f
children	43d4fb2a6fc2