GBRb 0.1.0 → 0.2.0

data/perf/cpu_perf_spec.rb

@@ -3,7 +3,7 @@ require 'benchmark'
 
 module GBRb::CPU
   describe Z80 do
-    xit "full speed" do
+    it "full speed" do
       n = 1_000_000
       class Z80
         def fetch
@@ -14,7 +14,7 @@ module GBRb::CPU
 
       @cpu = Z80.new
       elapsed_time = Benchmark.realtime do
-        n.times { @cpu.run }
+        n.times { @cpu.step }
       end
 
       elapsed_time.should be < 1.0

data/spec/gbrb/cartridge/cartridge_spec.rb

@@ -0,0 +1,19 @@
+require_relative '../../spec_helper.rb'
+
+require_relative '../../../lib/gbrb/cartridge/cartridge'
+
+module GBRb
+  describe BaseCartridge do
+    it "is initialized with an IO object" do
+      c = BaseCartridge.new StringIO.new ""
+    end
+
+    it "separates data into banks" do
+      raw_data = StringIO.new(0x01.chr * MEMORY_BANK_SIZE + 0x02.chr * MEMORY_BANK_SIZE)
+      c = BaseCartridge.new raw_data
+      c.rom_bank(0).each {|b| b.should eq 0x01}
+      c.rom_bank(1).each {|b| b.should eq 0x02}
+    end
+  end
+end
+

data/spec/gbrb/cartridge/mbc1_spec.rb

@@ -0,0 +1,83 @@
+require_relative '../../spec_helper'
+require_relative '../../../lib/gbrb/cartridge'
+
+module GBRb
+  describe MBC1 do
+    context 'post_initialize' do
+      let(:m) { MBC1.new StringIO.new '' }
+
+      it 'sets the mode' do
+        m.instance_eval('@mode').should eq :rom
+      end
+
+      it 'sets the rom bank number' do
+        m.instance_eval('@rom_bank_number').should eq 1
+      end
+
+      it 'sets the ram bank number' do
+        m.instance_eval('@ram_bank_number').should eq 0
+      end
+
+      it 'sets the ram status' do
+        m.instance_eval('@ram_status').should eq :disabled
+      end
+    end
+
+    context 'write_byte' do
+      let(:m) { MBC1.new StringIO.new '' }
+
+      context 'Swap current ROM bank' do
+        it 'changes rom bank' do
+          m.write_byte 0x2345, 7
+          m.instance_eval('@rom_bank_number').should eq 7
+        end
+
+        it 'maps 0 to bank 1' do
+          m.write_byte 0x2941, 0
+          m.instance_eval('@rom_bank_number').should eq 1
+        end
+
+        it 'only sets the lowest 5 bits' do
+          m.write_byte 0x3456, 0x33
+          m.instance_eval('@rom_bank_number').should eq 0x13
+        end
+
+        it 'sets the upper 2 bits when in rom mode' do
+          m.instance_eval('@mode = :rom')
+          m.write_byte 0x4567, 3
+          m.instance_eval('@rom_bank_number').should eq 0x61
+        end
+
+        it 'sets the ram bank when in ram mode' do
+          m.instance_eval('@mode = :ram')
+          m.write_byte 0x5678, 2
+          m.instance_eval('@ram_bank_number').should eq 0x02
+        end
+      end
+
+      context 'Change operating mode' do
+        it '0x01 is RAM' do
+          m.write_byte 0x6820, 0x01
+          m.instance_eval('@mode').should eq :ram
+        end
+
+        it '0x00 is ROM' do
+          m.write_byte 0x7481, 0x00
+          m.instance_eval('@mode').should eq :rom
+        end
+      end
+
+      context 'Enable/disable ram' do
+        it 'disables ram with 0x00' do
+          m.write_byte 0x1234, 0x00
+          m.instance_eval('@ram_status').should eq :disabled
+        end
+
+        it 'enables ram with 0x0a' do
+          m.write_byte 0x0123, 0x0a
+          m.instance_eval('@ram_status').should eq :enabled
+        end
+      end
+    end
+  end
+end

data/spec/gbrb/cpu/z80_spec.rb

@@ -80,7 +80,11 @@ module GBRb
             reg.clear
             reg.read.should eq 0x00
             run pop_opcode
-            reg.read.should eq value
+            if register == :af
+              reg.read.should eq value & 0xfff0
+            else
+              reg.read.should eq value
+            end
           end
 
           it "push/pop bc" do
@@ -455,6 +459,13 @@ module GBRb
             run 0x28
             @z.r.pc.read.should eq 0xff96
           end
+
+          it "jr a16" do
+            @z.r.pc.store 0x0002
+            @z.mmu.write_word 0x0002, 0x4231
+            run 0xc3
+            @z.r.pc.read.should eq 0x4231
+          end
         end
 
         context "ld (immediate value)" do
@@ -623,6 +634,13 @@ module GBRb
             @z.mmu.read_byte(address).should eq @z.r.a.read
             @z.r.hl.read.should eq address + 1
           end
+
+          it "ld a hl+" do
+            address = @z.r.hl.read
+            run 0x2a
+            @z.mmu.read_byte(address).should eq @z.r.a.read
+            @z.r.hl.read.should eq address +1
+          end
         end
 
         context "ld decrement" do
@@ -633,6 +651,14 @@ module GBRb
             @z.mmu.read_byte(address).should eq @z.r.a.read
             @z.r.hl.read.should eq address - 1
           end
+
+          it "ld a hl-" do
+            @z.r.hl.store 0x4c
+            address = @z.r.hl.read
+            run 0x3a
+            @z.mmu.read_byte(address).should eq @z.r.a.read
+            @z.r.hl.read.should eq address - 1
+          end
         end
 
         context "ld (indirect destination)" do
@@ -1300,8 +1326,9 @@ module GBRb
         before(:each) { @z.reset }
 
         def run op
+          @z.r.pc.store 7
+          @z.mmu.write_byte 7, op.to_i
           @z.dispatch @z.decode 0xcb
-          @z.dispatch @z.decode op.to_i
         end
 
         context "#reset" do
@@ -2475,6 +2502,69 @@ module GBRb
           end
         end
 
+        context "srl" do
+          it "srl b" do
+            @z.r.b.store 0b10101010
+            run 0x38
+            @z.r.b.read.should eq 0b01010101
+            @z.r.carry_flag?.should be_false
+          end
+
+          it "srl c" do
+            @z.r.c.store 0b00000001
+            run 0x39
+            @z.r.c.read.should eq 0b00000000
+            @z.r.carry_flag?.should be_true
+            @z.r.zero_flag?.should be_true
+          end
+
+          it "srl d" do
+            @z.r.d.store 0b00000000
+            @z.r.set_carry_flag
+            run 0x3a
+            @z.r.d.read.should eq 0b00000000
+            @z.r.carry_flag?.should be_false
+            @z.r.zero_flag?.should be_true
+          end
+
+          it "srl e" do
+            @z.r.e.store 0b10011001
+            run 0x3b
+            @z.r.e.read.should eq 0b01001100
+            @z.r.carry_flag?.should be_true
+          end
+
+          it "srl h" do
+            @z.r.h.store 0b11111111
+            run 0x3c
+            @z.r.h.read.should eq 0b01111111
+            @z.r.carry_flag?.should be_true
+          end
+
+          it "srl l" do
+            @z.r.l.store 0b11111110
+            run 0x3d
+            @z.r.l.read.should eq 0b01111111
+            @z.r.carry_flag?.should be_false
+          end
+
+          it "srl (hl)" do
+            @z.mmu.write_byte 0x1d3b, 0b01010101
+            @z.r.hl.store 0x1d3b
+            run 0x3e
+            @z.mmu.read_byte(0x1d3b).should eq 0b00101010
+            @z.r.carry_flag?.should be_true
+            @z.r.hl.read.should eq 0x1d3b
+          end
+
+          it "srl a" do
+            @z.r.a.store 0b00100110
+            run 0x3f
+            @z.r.a.read.should eq 0b0010011
+            @z.r.carry_flag?.should be_false
+          end
+        end
+
         context "swap" do
           it "swap b" do
             @z.r.b.store 0b10101010

data/spec/gbrb/{cpu/instruction_spec.rb → instruction_set/arithmetic_spec.rb}

@@ -1,26 +1,8 @@
 require_relative '../../spec_helper'
-require_relative '../../../lib/gbrb/cpu/instruction.rb'
+require_relative '../../../lib/gbrb/instruction_set/arithmetic.rb'
 require_relative '../../../lib/gbrb/cpu/register.rb'
 
-module GBRb::CPU
-  describe Instruction do
-    it "has a m time" do
-      i = Instruction.new
-      i.m.should be_true
-    end
-
-    it "has a t time" do
-      i = Instruction.new
-      i.t.should be_true
-    end
-
-    it "is callable" do
-      i = Instruction.new
-      world = double
-      i.call world, nil
-    end
-  end
-
+module GBRb::InstructionSet
   describe Inc do
     it "clears the add sub flag" do
       fake_register = double.as_null_object
@@ -34,7 +16,7 @@ module GBRb::CPU
     end
 
     it "sets the zero flag when zero" do
-      a = Register.new 0xff
+      a = GBRb::CPU::Register.new 0xff
       world = double.as_null_object
       world.should_receive(:a).at_least(1).times.and_return(a)
       world.should_receive(:set_zero_flag)
@@ -43,7 +25,7 @@ module GBRb::CPU
     end
 
     it "does not set the carry flag when value overflows register" do
-      a = Register.new 0xff
+      a = GBRb::CPU::Register.new 0xff
       world = double.as_null_object
       world.should_receive(:a).at_least(1).times.and_return(a)
       world.should_not_receive(:set_carry_flag)
@@ -52,7 +34,7 @@ module GBRb::CPU
     end
 
     it "sets the half carry flag when low nibble overflows" do
-      a = Register.new 0x0f
+      a = GBRb::CPU::Register.new 0x0f
       world = double.as_null_object
       world.should_receive(:a).at_least(1).times.and_return(a)
       world.should_receive(:set_half_carry_flag)
@@ -62,7 +44,7 @@ module GBRb::CPU
     end
 
     it "does not touch the flags if initialized with false" do
-      a = Register.new 0xff
+      a = GBRb::CPU::Register.new 0xff
       world = double.as_null_object
       world.should_receive(:a).at_least(1).times.and_return(a)
       world.should_not_receive(:set_carry_flag)
@@ -86,7 +68,7 @@ module GBRb::CPU
     end
 
     it "sets the zero flag when zero" do
-      a = Register.new 0x01
+      a = GBRb::CPU::Register.new 0x01
       world = double.as_null_object
       world.should_receive(:a).at_least(1).times.and_return(a)
       world.should_not_receive(:set_half_carry_flag)
@@ -96,7 +78,7 @@ module GBRb::CPU
     end
 
     it "does not set the carry flag when value underflows register" do
-      a = Register.new 0x00
+      a = GBRb::CPU::Register.new 0x00
       world = double.as_null_object
       world.should_receive(:a).at_least(1).times.and_return(a)
       world.should_not_receive(:set_carry_flag)
@@ -105,7 +87,7 @@ module GBRb::CPU
     end
 
     it "sets the half carry flag when borrowing from high nibble" do
-      a = Register.new 0x10
+      a = GBRb::CPU::Register.new 0x10
       world = double.as_null_object
       world.should_receive(:a).at_least(1).times.and_return(a)
       world.should_receive(:set_half_carry_flag)
@@ -115,7 +97,7 @@ module GBRb::CPU
     end
 
     it "does not touch the flags if initialized with false" do
-      a = Register.new 0xff
+      a = GBRb::CPU::Register.new 0xff
       world = double.as_null_object
       world.should_receive(:a).at_least(1).times.and_return(a)
       world.should_not_receive(:set_half_carry_flag)
@@ -125,25 +107,9 @@ module GBRb::CPU
     end
   end
 
-  describe Ld do
-    it "does not set any flags" do
-      b = Register.new
-      c = Register.new 0x34
-      world = double.as_null_object
-      world.should_receive(:b).at_least(1).times.and_return(b)
-      world.should_receive(:c).at_least(1).times.and_return(c)
-      world.should_not_receive(:set_half_carry_flag)
-      world.should_not_receive(:set_carry_flag)
-      world.should_not_receive(:set_add_sub_flag)
-      world.should_not_receive(:set_zero_flag)
-      i = Ld.new :b, :c
-      i.call world, nil
-    end
-  end
-
   describe Add do
     it "clears the add sub flag" do
-      a = Register.new 0x34
+      a = GBRb::CPU::Register.new 0x34
       world = double.as_null_object
       world.should_receive(:clear_add_sub_flag)
       world.should_receive(:a).at_least(1).times.and_return(a)
@@ -152,7 +118,7 @@ module GBRb::CPU
     end
 
     it "sets the zero flag when zero" do
-      a = Register.new 0x80
+      a = GBRb::CPU::Register.new 0x80
       world = double.as_null_object
       world.should_receive(:a).at_least(1).times.and_return(a)
       world.should_receive(:set_zero_flag)
@@ -162,7 +128,7 @@ module GBRb::CPU
     end
 
     it "sets the carry flag when value overflows register" do
-      a = Register.new 0xff
+      a = GBRb::CPU::Register.new 0xff
       world = double.as_null_object
       world.should_receive(:a).at_least(1).times.and_return(a)
       i = Add.new :a
@@ -171,7 +137,7 @@ module GBRb::CPU
     end
 
     it "sets the half carry flag when low nibble overflows" do
-      a = Register.new 0x0d
+      a = GBRb::CPU::Register.new 0x0d
       world = double.as_null_object
       world.should_receive(:a).at_least(1).times.and_return(a)
       world.should_receive(:set_half_carry_flag)
@@ -183,7 +149,7 @@ module GBRb::CPU
 
   describe Sub do
     it "sets the add sub flag" do
-      a = Register.new 0x34
+      a = GBRb::CPU::Register.new 0x34
       world = double.as_null_object
       world.should_receive(:set_add_sub_flag)
       world.should_receive(:a).at_least(1).times.and_return(a)
@@ -192,7 +158,7 @@ module GBRb::CPU
     end
 
     it "sets the zero flag when zero" do
-      a = Register.new 0x80
+      a = GBRb::CPU::Register.new 0x80
       world = double.as_null_object
       world.should_receive(:a).at_least(1).times.and_return(a)
       world.should_receive(:set_zero_flag)
@@ -202,7 +168,7 @@ module GBRb::CPU
     end
 
     it "sets the carry flag when value underflows register" do
-      a = Register.new 0x00
+      a = GBRb::CPU::Register.new 0x00
       world = double.as_null_object
       world.should_receive(:a).at_least(1).times.and_return(a)
       i = Sub.new :a
@@ -210,8 +176,8 @@ module GBRb::CPU
     end
 
     it "sets the half carry flag when borrowing from high nibble" do
-      a = Register.new 0x10
-      b = Register.new 0x01
+      a = GBRb::CPU::Register.new 0x10
+      b = GBRb::CPU::Register.new 0x01
       world = double.as_null_object
       world.should_receive(:a).at_least(1).times.and_return(a)
       world.should_receive(:b).at_least(1).times.and_return(b)
@@ -224,8 +190,8 @@ module GBRb::CPU
 
   describe Cp do
     it "does not modify the accumulator" do
-      a = Register.new 0x1f
-      b = Register.new 0x3b
+      a = GBRb::CPU::Register.new 0x1f
+      b = GBRb::CPU::Register.new 0x3b
       world = double.as_null_object
       world.stub(a: a)
       world.stub(b: b)
@@ -235,49 +201,4 @@ module GBRb::CPU
       i.call world, nil
     end
   end
-
-  describe And do
-    it "sets the correct flags" do
-      a = Register.new 0x73
-      b = Register.new 0xd2
-      world = double.as_null_object
-      world.stub(:a).and_return(a)
-      world.stub(:b).and_return(b)
-      world.should_receive :clear_add_sub_flag
-      world.should_receive :set_half_carry_flag
-      world.should_receive :clear_carry_flag
-      i = And.new :a, :b
-      i.call world, nil
-    end
-  end
-
-  describe Or do
-    it "sets the correct flags" do
-      a = Register.new 0x81
-      b = Register.new 0xaf
-      world = double.as_null_object
-      world.stub(:a).and_return(a)
-      world.stub(:b).and_return(b)
-      world.should_receive :clear_add_sub_flag
-      world.should_receive :clear_half_carry_flag
-      world.should_receive :clear_carry_flag
-      i= Or.new :a, :b
-      i.call world, nil
-    end
-  end
-
-  describe Xor do
-    it "sets the correct flags" do
-      a = Register.new 0x81
-      b = Register.new 0xaf
-      world = double.as_null_object
-      world.stub(:a).and_return(a)
-      world.stub(:b).and_return(b)
-      world.should_receive :clear_add_sub_flag
-      world.should_receive :clear_half_carry_flag
-      world.should_receive :clear_carry_flag
-      i= Xor.new :a, :b
-      i.call world, nil
-    end
-  end
 end