GBRb 0.1.0 → 0.2.0

data/lib/gbrb/instruction_set/cpl.rb

@@ -0,0 +1,12 @@
+require_relative '../cpu'
+require_relative 'instruction'
+
+module GBRb::InstructionSet
+  class Cpl < Instruction
+    def call r, mem
+      r.set_add_sub_flag
+      r.set_half_carry_flag
+      r.a.store r.a.read ^ 0xff
+    end
+  end
+end

data/lib/gbrb/instruction_set/daa.rb

@@ -0,0 +1,33 @@
+require_relative '../cpu'
+require_relative 'instruction'
+
+module GBRb::InstructionSet
+  class Daa < Instruction
+    def initialize m=1, t=4
+      super
+    end
+
+    def call r, *misc
+      a = r.a.read
+
+      if r.add_sub_flag?
+        a = (a - 0x06) & 0xff if r.half_carry_flag?
+        a -= 0x60 if r.carry_flag?
+      else
+        if r.half_carry_flag? || a&0x0f > 9
+          a += 0x06
+        end
+        if r.carry_flag? || a > 0x9f
+          a += 0x60
+        end
+      end
+
+      r.clear_half_carry_flag
+
+      r.set_carry_flag if a & 0x100 == 0x100
+
+      r.a.store a
+      r.a.zero? ? r.set_zero_flag : r.clear_zero_flag
+    end
+  end
+end

data/lib/gbrb/instruction_set/instruction.rb

@@ -0,0 +1,23 @@
+module GBRb::InstructionSet
+  class Instruction
+    attr_accessor :i, :m, :t
+
+    def initialize m=1, t=4, immediates=0, *extra
+      @m = m
+      @t = t
+      @immediates = immediates
+    end
+
+    def immediate_count
+      @immediates
+    end
+
+    def call r, mem
+      nil
+    end
+
+    def carry? left, right, mask
+      (mask-1 & left).public_send(@op, mask-1 & right) & mask == mask
+    end
+  end
+end

data/lib/gbrb/instruction_set/jump.rb

@@ -0,0 +1,47 @@
+require_relative 'instruction'
+
+module GBRb::InstructionSet
+  class Jump < Instruction
+    def initialize condition, m=2, t_high=12, t_low=8, immediates=1
+      super m, t_low, immediates
+      @m_low = m
+      @t_high = t_high
+      @t_low = t_low
+      @condition = condition.downcase.to_sym
+    end
+
+    def call r, mem, offset=0x00
+      do_it = case @condition
+              when :c
+                r.carry_flag?
+              when :none
+                true
+              when :nc
+                not r.carry_flag?
+              when :nz
+                not r.zero_flag?
+              when :z
+                r.zero_flag?
+              else
+                false
+              end
+
+      if do_it
+        @t = @t_high
+        @m = @t_high / 4
+        if @immediates == 0
+          r.pc.store r.hl.read
+        elsif @immediates == 1
+          sign = (offset >> 7 == 1) ? :- : :+
+          offset = ((offset ^ 0xff) + 1) & 0xff if sign == :-
+          r.pc.store r.pc.read.public_send(sign, offset)
+        else
+          r.pc.store offset
+        end
+      else
+        @t = @t_low
+        @m = @m_low
+      end
+    end
+  end
+end

data/lib/gbrb/instruction_set/ld.rb

@@ -0,0 +1,241 @@
+require_relative '../cpu'
+require_relative 'instruction'
+
+
+module GBRb::InstructionSet
+  class Ld < Instruction
+    def initialize destination, target, m=1, t=4
+      super m, t
+      @destination = destination.to_sym
+      @target = target.to_sym
+    end
+
+    def call r, mem
+      v = r.public_send(@target).read
+      r.public_send(@destination).store v
+    end
+  end
+
+  class Ldnhl < Instruction
+    def initialize destination, m=2, t=8
+      super m, t
+      @destination = destination.to_sym
+    end
+
+    def call r, mem
+      r.public_send(@destination).store mem.read_byte(r.hl.read)
+    end
+  end
+
+  class Ldhln < Instruction
+    def initialize target, m=2, t=8
+      super m, t
+      @target = target.to_sym
+    end
+
+    def call r, mem
+      mem.write_byte r.hl.read, r.public_send(@target).read
+    end
+  end
+
+  class LdD8 < Instruction
+    def initialize destination, m=2, t=8
+      super m, t, 1
+      @destination = destination
+    end
+
+    def call r, mem, v
+      r.public_send(@destination).store v
+    end
+  end
+
+  class LdhlD8 < Instruction
+    def initialize m=3, t=12
+      super m, t, 1
+    end
+
+    def call r, mem, v
+      mem.write_byte r.hl.read, v
+    end
+  end
+
+  class LdD16 < Instruction
+    def initialize destination, m=3, t=12
+      super m, t, 2
+      @destination = destination
+    end
+
+    def call r, mem, v
+      r.public_send(@destination).store v
+    end
+  end
+
+  class Ldahli < Instruction
+    def initialize m=2, t=8
+      super
+    end
+
+    def call r, mem
+      r.a.store mem.read_byte r.hl.read
+      r.hl.store r.hl.read + 1
+    end
+  end
+
+  class Ldhlia < Instruction
+    def initialize m=2, t=8
+      super
+    end
+
+    def call r, mem
+      mem.write_byte r.hl.read, r.a.read
+      r.hl.store r.hl.read + 1
+    end
+  end
+
+  class Ldahld < Instruction
+    def initialize m=2, t=8
+      super
+    end
+
+    def call r, mem
+      r.a.store mem.read_byte r.hl.read
+      r.hl.store r.hl.read - 1
+    end
+  end
+
+  class Ldhlda < Instruction
+    def initialize m=2, t=8
+      super
+    end
+
+    def call r, mem
+      mem.write_byte r.hl.read, r.a.read
+      r.hl.store r.hl.read - 1
+    end
+  end
+
+
+  class Ldann < Instruction
+    def initialize target, m=2, t=8
+      super m, t
+      @target = target
+    end
+
+    def call r, mem
+      r.a.store mem.read_byte r.public_send(@target).read
+    end
+  end
+
+  class Ldnna < Instruction
+    def initialize destination, m=2, t=8
+      super m, t
+      @destination = destination
+    end
+
+    def call r, mem
+      mem.write_byte r.public_send(@destination).read, r.a.read
+    end
+  end
+
+  class Ldca < Instruction
+    def initialize m=2, t=8
+      super m, t
+    end
+
+    def call r, mem
+      mem.write_byte r.c.read + 0xff00, r.a.read
+    end
+  end
+
+
+  class Ldac < Instruction
+    def initialize m=2, t=8
+      super m,t
+    end
+
+    def call r, mem
+      r.a.store mem.read_byte(r.c.read + 0xff00)
+    end
+  end
+
+  class Lda16a < Instruction
+    def initialize m=4, t=16, immediates=2
+      super
+    end
+
+    def call r, mem, v
+      mem.write_byte v, r.a.read
+    end
+  end
+
+  class Ldaa16 < Instruction
+    def initialize m=4, t=16, immediates=2
+      super
+    end
+
+    def call r, mem, v
+      r.a.store mem.read_byte v
+    end
+  end
+
+  class Lda16sp < Instruction
+    def initialize m=5, t=20, immediates=2
+      super
+    end
+
+    def call r, mem, v
+      mem.write_word v, r.sp.read
+    end
+  end
+
+  class Ldsphl < Instruction
+    def initialize m=2, t=8
+      super m, t
+    end
+
+    def call r, mem
+      r.sp.store r.hl.read
+    end
+  end
+
+  class Ldh < Instruction
+    def initialize destination, target, indirect_dest, indirect_target, m=3, t=12, immediates=1
+      super m, t, immediates
+
+      @destination = destination
+      @target = target
+      @indirect_dest = indirect_dest
+      @indirect_target = indirect_target
+      @offset = 0xff00
+    end
+
+    def call r, mem, address
+      if @indirect_dest
+        value = r.public_send(@target.to_sym).read
+        mem.write_byte address + @offset, value
+      elsif @indirect_target
+        value = mem.read_byte address + @offset
+        r.public_send(@destination.to_sym).store value
+      end
+    end
+  end
+
+  class Ldhlsp < Instruction
+    def initialize m=3, t=12, immediates=1
+      super
+      @op = :+
+    end
+
+    def call r, mem, offset
+      check = (r.sp.read ^ offset ^ ((r.sp.read + offset) & 0xffff))
+      sign = (offset >> 7 == 1) ? :- : :+
+      offset = ((offset ^ 0xff) + 1) & 0xff if sign == :-
+      value = r.sp.read.public_send(sign, offset)
+      r.hl.store value
+      r.clear_zero_flag
+      r.clear_add_sub_flag
+      check & 0x100 == 0x100 ? r.set_carry_flag : r.clear_carry_flag
+      check & 0x10 == 0x10 ? r.set_half_carry_flag : r.clear_half_carry_flag
+    end
+  end
+end

data/lib/gbrb/instruction_set/return.rb

@@ -0,0 +1,43 @@
+require_relative 'instruction'
+
+module GBRb::InstructionSet
+  class Ret < Instruction
+    def initialize condition, m=2, t_high=20, t=8
+      @condition = condition
+      @t_high = t_high
+      @t_low = t
+      @m_low = m
+      super m, t, 0
+    end
+
+    def call r, mem
+      condition_met = case @condition
+                      when :c
+                        r.carry_flag?
+                      when :nc
+                        not r.carry_flag?
+                      when :nz
+                        not r.zero_flag?
+                      when :z
+                        r.zero_flag?
+                      when :none
+                        true
+                      else
+                        false
+                      end
+      if condition_met
+        @t = @t_high
+        @m = @t_high / 4
+        low = mem.read_byte(r.sp.read)
+        r.sp.store r.sp.read + 1
+        high = mem.read_byte(r.sp.read)
+        r.sp.store r.sp.read + 1
+
+        r.pc.store (high << 8) + low
+      else
+        @t = @t_low
+        @m = @m_low
+      end
+    end
+  end
+end

data/lib/gbrb/instruction_set/rotate.rb

@@ -0,0 +1,178 @@
+require_relative '../cpu'
+require_relative 'instruction'
+
+module GBRb::InstructionSet
+  class Rl < Instruction
+    def initialize target, carry=false, indirect=false, m=1, t=4, zero=true
+      super m, t
+      @target = target.to_sym
+      @carry = carry
+      @indirect = indirect
+      @zero_check = zero
+    end
+
+    def call r, mem
+      if @indirect
+        address = r.public_send(@target).read
+        v = mem.read_byte(address) << 1
+      else
+        v = r.public_send(@target).read << 1
+      end
+
+      carry_in = if @carry
+                   v & 0x100 == 0x100 ? 1 : 0
+                 else
+                   r.carry_flag? ? 1 : 0
+                 end
+
+      v += carry_in
+
+      if @indirect
+        mem.write_byte(address, v)
+      else
+        r.public_send(@target).store v
+      end
+
+      r.clear_add_sub_flag
+      r.clear_half_carry_flag
+      if @zero_check
+        v & 0xff == 0 ? r.set_zero_flag : r.clear_zero_flag
+      else
+        r.clear_zero_flag
+      end
+      carry_out = v >> 8
+      carry_out == 1 ? r.set_carry_flag : r.clear_carry_flag
+    end
+  end
+
+  class Rr < Instruction
+    def initialize target, carry=false, indirect=false, m=1, t=4, check_for_zero=true
+      super m, t
+      @target = target.to_sym
+      @carry = carry
+      @indirect = indirect
+      @check_for_zero = check_for_zero
+    end
+
+    def call r, mem
+      if @indirect
+        address = r.public_send(@target).read
+        v = mem.read_byte(address)
+      else
+        v = r.public_send(@target).read
+      end
+
+      carry_out = v & 0x01
+
+      carry_in = if @carry
+                   carry_out
+                 else
+                   r.carry_flag? ? 1 : 0
+                 end
+
+      v >>= 1
+
+      v += carry_in << 7
+
+      if @indirect
+        original = mem.read_byte address
+        mem.write_byte(address, v)
+      else
+        r.public_send(@target).store v
+      end
+
+      r.clear_add_sub_flag
+      r.clear_half_carry_flag
+      if @check_for_zero
+        v & 0xff == 0 ? r.set_zero_flag : r.clear_zero_flag
+      else
+        r.clear_zero_flag
+      end
+      carry_out == 1 ? r.set_carry_flag : r.clear_carry_flag
+    end
+  end
+
+  class Srl < Instruction
+    def initialize target, indirect=false, m=1, t=4
+      super m, t
+      @target = target
+      @indirect = indirect
+    end
+
+    def call r, mem
+      if @indirect
+        v = mem.read_byte r.public_send(@target).read
+      else
+        v = r.public_send(@target).read
+      end
+
+      v & 0b1 == 0 ? r.clear_carry_flag : r.set_carry_flag
+      v >>= 1
+      v == 0 ? r.set_zero_flag : r.clear_zero_flag
+      r.clear_add_sub_flag
+      r.clear_half_carry_flag
+
+      if @indirect
+        mem.write_byte(r.public_send(@target).read, v)
+      else
+        r.public_send(@target).store v
+      end
+    end
+  end
+
+  class Sla < Instruction
+    def initialize target, indirect=false, m=1, t=4
+      super m, t
+      @target = target
+      @indirect = indirect
+    end
+
+    def call r, mem
+      if @indirect
+        v = mem.read_byte r.public_send(@target).read
+      else
+        v = r.public_send(@target).read
+      end
+
+      v & 0b10000000 == 0b10000000 ? r.set_carry_flag : r.clear_carry_flag
+      v = (v << 1) & 0xff
+      v == 0 ? r.set_zero_flag : r.clear_zero_flag
+      r.clear_add_sub_flag
+      r.clear_half_carry_flag
+
+      if @indirect
+        mem.write_byte(r.public_send(@target).read, v)
+      else
+        r.public_send(@target).store v
+      end
+    end
+  end
+
+  class Sra < Instruction
+    def initialize target, indirect=false, m=1, t=4
+      super m, t
+      @target = target
+      @indirect = indirect
+    end
+
+    def call r, mem
+      if @indirect
+        v = mem.read_byte r.public_send(@target).read
+      else
+        v = r.public_send(@target).read
+      end
+
+      v & 0b01 == 0b01 ? r.set_carry_flag : r.clear_carry_flag
+      v = ((v >> 1) | (v & 0x80)) & 0xff
+      v == 0 ? r.set_zero_flag : r.clear_zero_flag
+      r.clear_add_sub_flag
+      r.clear_half_carry_flag
+
+      if @indirect
+        mem.write_byte(r.public_send(@target).read, v)
+      else
+        r.public_send(@target).store v
+      end
+    end
+  end
+end