GBRb 0.1.0

data/lib/gbrb/cpu/register.rb

@@ -0,0 +1,44 @@
+require_relative '../cpu'
+
+module GBRb::CPU
+  class Register
+    def initialize value=0x00, bits=8
+      if bits == 8 or bits == 16
+        @bits = bits
+      else
+        raise ArgumentError
+      end
+      store value
+    end
+
+    def read
+      @value
+    end
+
+    def store value
+      @value = value & (mask - 1)
+    end
+
+    def clear
+      store 0x00
+    end
+
+    def zero?
+      @value.zero?
+    end
+
+    def == other
+      other.read == @value and other.bits == bits
+    end
+
+    def mask
+      @mask ||= 0x10 ** (@bits/4 )
+    end
+
+    def half_mask
+      @half_mask ||= 0x10 ** (@bits/8)
+    end
+
+    attr_reader :bits
+  end
+end

data/lib/gbrb/cpu/register_ensemble.rb

@@ -0,0 +1,59 @@
+require_relative '../cpu'
+require_relative 'register'
+require_relative 'flags_register'
+require_relative 'concatenated_register'
+
+module GBRb::CPU
+  class RegisterEnsemble
+    attr_accessor :a, :b, :c, :d, :e, :f, :h, :l, :m, :t, :pc, :sp, :bc, :de, :hl, :af
+
+    def initialize
+      @a = Register.new
+      @b = Register.new
+      @c = Register.new
+      @d = Register.new
+      @e = Register.new
+      @h = Register.new
+      @l = Register.new
+
+      @f = FlagsRegister.new
+
+      @pc = Register.new(0x0000, 16)
+      @sp = Register.new(0x0000, 16)
+
+      @m = Register.new
+      @t = Register.new
+
+      @bc = ConcatenatedRegister.new @b, @c
+      @de = ConcatenatedRegister.new @d, @e
+      @hl = ConcatenatedRegister.new @h, @l
+      @af = ConcatenatedRegister.new @a, @f
+    end
+
+    def each &block
+      [@pc, @sp, @a, @b, @c, @d, @e, @h, @l, @f].each &block
+    end
+
+    def == other
+      register_list.inject(true){|result, el| result && public_send(el) == other.public_send(el)}
+    end
+
+    def method_missing m, *a, &b
+      case m
+      when /\Aset_.*_flag\z/
+        f.public_send m
+      when /\Aclear_.*_flag\z/
+        f.public_send m
+      when /\A.*_flag\?\z/
+        f.public_send m
+      else
+        super m, a, b
+      end
+    end
+
+    private
+    def register_list
+      instance_variables.map {|iv| iv.to_s.chars.drop(1).join.to_sym}
+    end
+  end
+end

data/lib/gbrb/cpu/z80.rb

@@ -0,0 +1,584 @@
+require_relative '../cpu'
+require_relative '../mmu'
+require_relative 'register_ensemble'
+require_relative 'instruction'
+
+module GBRb
+  module CPU
+    class Z80
+      attr_reader :registers
+      alias_method :r, :registers
+
+      attr_reader :mmu
+
+      def initialize mmu=MMU.new
+        @mmu = mmu
+        reset
+      end
+
+      def reset
+        @registers = RegisterEnsemble.new
+        @mmu.reset
+        clock
+        @registers.sp.store 0xfffe
+        @registers.pc.store 0x0000
+        @last_m = 0
+        @last_t = 0
+      end
+
+      def instructions
+        return @instructions if @instructions
+
+        i = Array.new 256, :not_implemented
+        i[0x00] = Instruction.new
+        i[0x01] = Ld.new(:bc, nil, 3, 12, false, false, 2)
+        i[0x02] = Ld.new(:bc, :a, 1, 8, true, false)
+        i[0x03] = Inc.new(:bc, 1, 8, false)
+        i[0x04] = Inc.new(:b)
+        i[0x05] = Dec.new(:b)
+        i[0x06] = Ld.new(:b, nil, 2, 8, false, false, 1)
+        i[0x07] = Rl.new :a, true, false, 1, 4
+        i[0x08] = Ld.new(nil, :sp, 3, 20, :immediate, false, 2)
+        i[0x09] = AddHl.new(:bc)
+        i[0x0a] = Ld.new(:a, :bc, 1, 8, false, true)
+        i[0x0b] = Dec.new(:bc, 1, 8, false)
+        i[0x0c] = Inc.new(:c)
+        i[0x0d] = Dec.new(:c)
+        i[0x0e] = Ld.new(:c, nil, 2, 8, false, false, 1)
+        i[0x0f] = Rr.new :a, true, false, 1, 4
+
+        i[0x10] = Stop.new
+        i[0x11] = Ld.new(:de, nil, 3, 12, false, false, 2)
+        i[0x12] = Ld.new(:de, :a, 1, 8, true, false)
+        i[0x13] = Inc.new(:de, 1, 8, false)
+        i[0x14] = Inc.new(:d)
+        i[0x15] = Dec.new(:d)
+        i[0x16] = Ld.new(:d, nil, 2, 8, false, false, 1)
+        i[0x17] = Rl.new :a, false, false, 1, 4
+        i[0x18] = Jump.new :none
+        i[0x19] = AddHl.new(:de)
+        i[0x1a] = Ld.new(:a, :de, 1, 8, false, true)
+        i[0x1b] = Dec.new(:de, 1, 8, false)
+        i[0x1c] = Inc.new(:e)
+        i[0x1d] = Dec.new(:e)
+        i[0x1e] = Ld.new(:e, nil, 2, 8, false, false, 1)
+        i[0x1f] = Rr.new :a, true, false, 1, 4
+
+        i[0x20] = Jump.new(:nz)
+        i[0x21] = Ld.new(:hl, nil, 3, 12, false, false, 2)
+        i[0x22] = Ld.new(:hl, :a, 1, 8, :increment, false)
+        i[0x23] = Inc.new(:hl, 1, 8, false)
+        i[0x24] = Inc.new(:h)
+        i[0x25] = Dec.new(:h)
+        i[0x26] = Ld.new(:h, nil, 2, 8, false, false, 1)
+        i[0x28] = Jump.new :z
+        i[0x29] = AddHl.new(:hl)
+        i[0x2a] = Ld.new(:a, :hl, 1, 8, false, :increment)
+        i[0x2b] = Dec.new(:hl, 1, 8, false)
+        i[0x2c] = Inc.new(:l)
+        i[0x2d] = Dec.new(:l)
+        i[0x2e] = Ld.new(:l, nil, 2, 8, false, false, 1)
+        i[0x2f] = Cpl.new(1, 4)
+
+        i[0x30] = Jump.new :nc
+        i[0x31] = Ld.new(:sp, nil, 3, 12, false, false, 2)
+        i[0x32] = Ld.new(:hl, :a, 1, 8, :decrement, false)
+        i[0x33] = Inc.new(:sp, 1, 8, false)
+        i[0x34] = Inc.new(:hl, 1, 12, true, true)
+        i[0x35] = Dec.new(:hl, 1, 12, true, true)
+        i[0x36] = Ld.new(:hl, nil, 2, 12, true, false, 1)
+        i[0x37] = Scf.new
+        i[0x38] = Jump.new :c
+        i[0x39] = AddHl.new(:sp)
+        i[0x3a] = Ld.new(:a, :hl, 1, 8, false, :decrement)
+        i[0x3b] = Dec.new(:sp, 1, 8, false)
+        i[0x3c] = Inc.new(:a)
+        i[0x3d] = Dec.new(:a)
+        i[0x3e] = Ld.new(:a, nil, 2, 8, false, false, 1)
+        i[0x3f] = Ccf.new
+
+        i[0x40] = Ld.new(:b, :b)
+        i[0x41] = Ld.new(:b, :c)
+        i[0x42] = Ld.new(:b, :d)
+        i[0x43] = Ld.new(:b, :e)
+        i[0x44] = Ld.new(:b, :h)
+        i[0x45] = Ld.new(:b, :l)
+        i[0x46] = Ld.new(:b, :hl, 1, 8, false, true)
+        i[0x47] = Ld.new(:b, :a)
+        i[0x48] = Ld.new(:c, :b)
+        i[0x49] = Ld.new(:c, :c)
+        i[0x4a] = Ld.new(:c, :d)
+        i[0x4b] = Ld.new(:c, :e)
+        i[0x4c] = Ld.new(:c, :h)
+        i[0x4d] = Ld.new(:c, :l)
+        i[0x4e] = Ld.new(:c, :hl, 1, 8, false, true)
+        i[0x4f] = Ld.new(:c, :a)
+
+        i[0x50] = Ld.new(:d, :b)
+        i[0x51] = Ld.new(:d, :c)
+        i[0x52] = Ld.new(:d, :d)
+        i[0x53] = Ld.new(:d, :e)
+        i[0x54] = Ld.new(:d, :h)
+        i[0x55] = Ld.new(:d, :l)
+        i[0x56] = Ld.new(:d, :hl, 1, 8, false, true)
+        i[0x57] = Ld.new(:d, :a)
+        i[0x58] = Ld.new(:e, :b)
+        i[0x59] = Ld.new(:e, :c)
+        i[0x5a] = Ld.new(:e, :d)
+        i[0x5b] = Ld.new(:e, :e)
+        i[0x5c] = Ld.new(:e, :h)
+        i[0x5d] = Ld.new(:e, :l)
+        i[0x5e] = Ld.new(:e, :hl, 1, 8, false, true)
+        i[0x5f] = Ld.new(:e, :a)
+
+        i[0x60] = Ld.new(:h, :b)
+        i[0x61] = Ld.new(:h, :c)
+        i[0x62] = Ld.new(:h, :d)
+        i[0x63] = Ld.new(:h, :e)
+        i[0x64] = Ld.new(:h, :h)
+        i[0x65] = Ld.new(:h, :l)
+        i[0x66] = Ld.new(:h, :hl, 1, 8, false, true)
+        i[0x67] = Ld.new(:h, :a)
+        i[0x68] = Ld.new(:l, :b)
+        i[0x69] = Ld.new(:l, :c)
+        i[0x6a] = Ld.new(:l, :d)
+        i[0x6b] = Ld.new(:l, :e)
+        i[0x6c] = Ld.new(:l, :h)
+        i[0x6d] = Ld.new(:l, :l)
+        i[0x6e] = Ld.new(:l, :hl, 1, 8, false, true)
+        i[0x6f] = Ld.new(:l, :a)
+
+        i[0x70] = Ld.new(:hl, :b, 1, 8, true)
+        i[0x71] = Ld.new(:hl, :c, 1, 8, true)
+        i[0x72] = Ld.new(:hl, :d, 1, 8, true)
+        i[0x73] = Ld.new(:hl, :e, 1, 8, true)
+        i[0x74] = Ld.new(:hl, :h, 1, 8, true)
+        i[0x75] = Ld.new(:hl, :l, 1, 8, true)
+        i[0x77] = Ld.new(:hl, :a, 1, 8, true)
+        i[0x78] = Ld.new(:a, :b)
+        i[0x79] = Ld.new(:a, :c)
+        i[0x7a] = Ld.new(:a, :d)
+        i[0x7b] = Ld.new(:a, :e)
+        i[0x7c] = Ld.new(:a, :h)
+        i[0x7d] = Ld.new(:a, :l)
+        i[0x7e] = Ld.new(:a, :hl, 1, 8, false, true)
+        i[0x7f] = Ld.new(:a, :a)
+
+        i[0x80] = Add.new(:b)
+        i[0x81] = Add.new(:c)
+        i[0x82] = Add.new(:d)
+        i[0x83] = Add.new(:e)
+        i[0x84] = Add.new(:h)
+        i[0x85] = Add.new(:l)
+        i[0x86] = Add.new(:hl, 1, 8, true)
+        i[0x87] = Add.new(:a)
+        i[0x88] = Adc.new(:b)
+        i[0x89] = Adc.new(:c)
+        i[0x8a] = Adc.new(:d)
+        i[0x8b] = Adc.new(:e)
+        i[0x8c] = Adc.new(:h)
+        i[0x8d] = Adc.new(:l)
+        i[0x8e] = Adc.new(:hl, 1, 8, true)
+        i[0x8f] = Adc.new(:a)
+
+        i[0x90] = Sub.new(:b)
+        i[0x91] = Sub.new(:c)
+        i[0x92] = Sub.new(:d)
+        i[0x93] = Sub.new(:e)
+        i[0x94] = Sub.new(:h)
+        i[0x95] = Sub.new(:l)
+        i[0x96] = Sub.new(:hl, 1, 8, true)
+        i[0x97] = Sub.new(:a)
+        i[0x98] = Sbc.new(:b)
+        i[0x99] = Sbc.new(:c)
+        i[0x9a] = Sbc.new(:d)
+        i[0x9b] = Sbc.new(:e)
+        i[0x9c] = Sbc.new(:h)
+        i[0x9d] = Sbc.new(:l)
+        i[0x9e] = Sbc.new(:hl, 1, 8, true)
+        i[0x9f] = Sbc.new(:a)
+
+        i[0xa0] = And.new(:b)
+        i[0xa1] = And.new(:c)
+        i[0xa2] = And.new(:d)
+        i[0xa3] = And.new(:e)
+        i[0xa4] = And.new(:h)
+        i[0xa5] = And.new(:l)
+        i[0xa6] = And.new(:hl, 1, 8, true)
+        i[0xa7] = And.new(:a)
+        i[0xa8] = Xor.new(:b)
+        i[0xa9] = Xor.new(:c)
+        i[0xaa] = Xor.new(:d)
+        i[0xab] = Xor.new(:e)
+        i[0xac] = Xor.new(:h)
+        i[0xad] = Xor.new(:l)
+        i[0xae] = Xor.new(:hl, 1, 8, true)
+        i[0xaf] = Xor.new(:a)
+
+        i[0xb0] = Or.new(:b)
+        i[0xb1] = Or.new(:c)
+        i[0xb2] = Or.new(:d)
+        i[0xb3] = Or.new(:e)
+        i[0xb4] = Or.new(:h)
+        i[0xb5] = Or.new(:l)
+        i[0xb6] = Or.new(:hl, 1, 8, true)
+        i[0xb7] = Or.new(:a)
+        i[0xb8] = Cp.new(:b)
+        i[0xb9] = Cp.new(:c)
+        i[0xba] = Cp.new(:d)
+        i[0xbb] = Cp.new(:e)
+        i[0xbc] = Cp.new(:h)
+        i[0xbd] = Cp.new(:l)
+        i[0xbe] = Cp.new(:hl, 1, 8, true)
+        i[0xbf] = Cp.new(:a)
+
+        i[0xc0] = Ret.new(1, 8, 20, :NZ)
+        i[0xc1] = Pop.new(:bc)
+        i[0xc2] = Jump.new(:nz, 3, 16, 12, 2)
+        i[0xc5] = Push.new(:bc)
+        i[0xc6] = Add.new :a, 2, 8, false, 1
+        i[0xc7] = Rst.new(0x00)
+        i[0xc9] = Ret.new
+        i[0xcb] = Instruction.new
+        i[0xcc] = Call.new(3, 24, 2, :Z)
+        i[0xcd] = Call.new
+        i[0xce] = Adc.new(:a, 2, 8, false, 1)
+        i[0xcf] = Rst.new(0x08)
+
+        i[0xd1] = Pop.new(:de)
+        i[0xd5] = Push.new(:de)
+        i[0xd7] = Rst.new(0x10)
+        i[0xd9] = Ret.new
+        i[0xdd] = Instruction.new 0, 0
+        i[0xde] = Sbc.new(:a, 2, 8, false, 1)
+        i[0xdf] = Rst.new(0x18)
+
+        i[0xe0] = Ldh.new(nil, :a, 2, 12, true, false, 1, 0xff00)
+        i[0xe1] = Pop.new(:hl)
+        i[0xe2] = Ld.new(:c, :a, 2, 8, true, false, 0, 0xff00)
+        i[0xe5] = Push.new(:hl)
+        i[0xe6] = And.new(nil, 2, 8, false, 1)
+        i[0xe7] = Rst.new(0x20)
+        i[0xea] = Ld.new(nil, :a, 3, 16, :immediate, false, 2)
+        i[0xee] = Xor.new(:a, 2, 8, false, 1)
+        i[0xef] = Rst.new(0x28)
+
+        i[0xf0] = Ldh.new(:a, nil, 2, 12, false, true, 1, 0xff00)
+        i[0xf1] = Pop.new(:af)
+        i[0xf2] = Ld.new(:a, :c, 2, 8, false, true, 0, 0xff00)
+        i[0xf3] = DisableInterrupts.new
+        i[0xf5] = Push.new(:af)
+        i[0xf7] = Rst.new(0x30)
+        i[0xf8] = Ldhlsp.new
+        i[0xf9] = Ld.new(:sp, :hl, 1, 8)
+        i[0xfa] = Ld.new(:a, nil, 3, 16, false, true, 2)
+        i[0xfb] = EnableInterrupts.new
+        i[0xfe] = Cp.new nil, 2, 8, false, 1
+        i[0xff] = Rst.new(0x38)
+
+        @instructions = i
+      end
+
+      def cb_instructions
+        return @cb_instructions if @cb_instructions
+
+        i = Array.new 256, :not_implemented
+
+        i[0x00] = Rl.new :b, true
+        i[0x01] = Rl.new :c, true
+        i[0x02] = Rl.new :d, true
+        i[0x03] = Rl.new :e, true
+        i[0x04] = Rl.new :h, true
+        i[0x05] = Rl.new :l, true
+        i[0x06] = Rl.new :hl, true, true
+        i[0x07] = Rl.new :a, true
+        i[0x08] = Rr.new :b, true
+        i[0x09] = Rr.new :c, true
+        i[0x0a] = Rr.new :d, true
+        i[0x0b] = Rr.new :e, true
+        i[0x0c] = Rr.new :h, true
+        i[0x0d] = Rr.new :l, true
+        i[0x0e] = Rr.new :hl, true, true
+        i[0x0f] = Rr.new :a, true
+
+        i[0x10] = Rl.new :b
+        i[0x11] = Rl.new :c
+        i[0x12] = Rl.new :d
+        i[0x13] = Rl.new :e
+        i[0x14] = Rl.new :h
+        i[0x15] = Rl.new :l
+        i[0x16] = Rl.new :hl, false, true
+        i[0x17] = Rl.new :a
+        i[0x18] = Rr.new :b
+        i[0x19] = Rr.new :c
+        i[0x1a] = Rr.new :d
+        i[0x1b] = Rr.new :e
+        i[0x1c] = Rr.new :h
+        i[0x1d] = Rr.new :l
+        i[0x1e] = Rr.new :hl, false, true
+        i[0x1f] = Rr.new :a
+
+        i[0x30] = Swap.new :b
+        i[0x31] = Swap.new :c
+        i[0x32] = Swap.new :d
+        i[0x33] = Swap.new :e
+        i[0x34] = Swap.new :h
+        i[0x35] = Swap.new :l
+        i[0x36] = Swap.new :hl, 2, 16, true
+        i[0x37] = Swap.new :a
+
+        i[0x40] = Bit.new 0, :b
+        i[0x41] = Bit.new 0, :c
+        i[0x42] = Bit.new 0, :d
+        i[0x43] = Bit.new 0, :e
+        i[0x44] = Bit.new 0, :h
+        i[0x45] = Bit.new 0, :l
+        i[0x46] = Bit.new 0, :hl, true
+        i[0x47] = Bit.new 0, :a
+        i[0x48] = Bit.new 1, :b
+        i[0x49] = Bit.new 1, :c
+        i[0x4a] = Bit.new 1, :d
+        i[0x4b] = Bit.new 1, :e
+        i[0x4c] = Bit.new 1, :h
+        i[0x4d] = Bit.new 1, :l
+        i[0x4e] = Bit.new 1, :hl, true
+        i[0x4f] = Bit.new 1, :a
+
+        i[0x50] = Bit.new 2, :b
+        i[0x51] = Bit.new 2, :c
+        i[0x52] = Bit.new 2, :d
+        i[0x53] = Bit.new 2, :e
+        i[0x54] = Bit.new 2, :h
+        i[0x55] = Bit.new 2, :l
+        i[0x56] = Bit.new 2, :hl, true
+        i[0x57] = Bit.new 2, :a
+        i[0x58] = Bit.new 3, :b
+        i[0x59] = Bit.new 3, :c
+        i[0x5a] = Bit.new 3, :d
+        i[0x5b] = Bit.new 3, :e
+        i[0x5c] = Bit.new 3, :h
+        i[0x5d] = Bit.new 3, :l
+        i[0x5e] = Bit.new 3, :hl, true
+        i[0x5f] = Bit.new 3, :a
+
+        i[0x60] = Bit.new 4, :b
+        i[0x61] = Bit.new 4, :c
+        i[0x62] = Bit.new 4, :d
+        i[0x63] = Bit.new 4, :e
+        i[0x64] = Bit.new 4, :h
+        i[0x65] = Bit.new 4, :l
+        i[0x66] = Bit.new 4, :hl, true
+        i[0x67] = Bit.new 4, :a
+        i[0x68] = Bit.new 5, :b
+        i[0x69] = Bit.new 5, :c
+        i[0x6a] = Bit.new 5, :d
+        i[0x6b] = Bit.new 5, :e
+        i[0x6c] = Bit.new 5, :h
+        i[0x6d] = Bit.new 5, :l
+        i[0x6e] = Bit.new 5, :hl, true
+        i[0x6f] = Bit.new 5, :a
+
+        i[0x70] = Bit.new 6, :b
+        i[0x71] = Bit.new 6, :c
+        i[0x72] = Bit.new 6, :d
+        i[0x73] = Bit.new 6, :e
+        i[0x74] = Bit.new 6, :h
+        i[0x75] = Bit.new 6, :l
+        i[0x76] = Bit.new 6, :hl, true
+        i[0x77] = Bit.new 6, :a
+        i[0x78] = Bit.new 7, :b
+        i[0x79] = Bit.new 7, :c
+        i[0x7a] = Bit.new 7, :d
+        i[0x7b] = Bit.new 7, :e
+        i[0x7c] = Bit.new 7, :h
+        i[0x7d] = Bit.new 7, :l
+        i[0x7e] = Bit.new 7, :hl, true
+        i[0x7f] = Bit.new 7, :a
+
+        i[0x80] = Res.new 0, :b
+        i[0x81] = Res.new 0, :c
+        i[0x82] = Res.new 0, :d
+        i[0x83] = Res.new 0, :e
+        i[0x84] = Res.new 0, :h
+        i[0x85] = Res.new 0, :l
+        i[0x86] = Res.new 0, :hl, true
+        i[0x87] = Res.new 0, :a
+        i[0x88] = Res.new 1, :b
+        i[0x89] = Res.new 1, :c
+        i[0x8a] = Res.new 1, :d
+        i[0x8b] = Res.new 1, :e
+        i[0x8c] = Res.new 1, :h
+        i[0x8d] = Res.new 1, :l
+        i[0x8e] = Res.new 1, :hl, true
+        i[0x8f] = Res.new 1, :a
+
+        i[0x90] = Res.new 2, :b
+        i[0x91] = Res.new 2, :c
+        i[0x92] = Res.new 2, :d
+        i[0x93] = Res.new 2, :e
+        i[0x94] = Res.new 2, :h
+        i[0x95] = Res.new 2, :l
+        i[0x96] = Res.new 2, :hl, true
+        i[0x97] = Res.new 2, :a
+        i[0x98] = Res.new 3, :b
+        i[0x99] = Res.new 3, :c
+        i[0x9a] = Res.new 3, :d
+        i[0x9b] = Res.new 3, :e
+        i[0x9c] = Res.new 3, :h
+        i[0x9d] = Res.new 3, :l
+        i[0x9e] = Res.new 3, :hl, true
+        i[0x9f] = Res.new 3, :a
+
+        i[0xa0] = Res.new 4, :b
+        i[0xa1] = Res.new 4, :c
+        i[0xa2] = Res.new 4, :d
+        i[0xa3] = Res.new 4, :e
+        i[0xa4] = Res.new 4, :h
+        i[0xa5] = Res.new 4, :l
+        i[0xa6] = Res.new 4, :hl, true
+        i[0xa7] = Res.new 4, :a
+        i[0xa8] = Res.new 5, :b
+        i[0xa9] = Res.new 5, :c
+        i[0xaa] = Res.new 5, :d
+        i[0xab] = Res.new 5, :e
+        i[0xac] = Res.new 5, :h
+        i[0xad] = Res.new 5, :l
+        i[0xae] = Res.new 5, :hl, true
+        i[0xaf] = Res.new 5, :a
+
+        i[0xb0] = Res.new 6, :b
+        i[0xb1] = Res.new 6, :c
+        i[0xb2] = Res.new 6, :d
+        i[0xb3] = Res.new 6, :e
+        i[0xb4] = Res.new 6, :h
+        i[0xb5] = Res.new 6, :l
+        i[0xb6] = Res.new 6, :hl, true
+        i[0xb7] = Res.new 6, :a
+        i[0xb8] = Res.new 7, :b
+        i[0xb9] = Res.new 7, :c
+        i[0xba] = Res.new 7, :d
+        i[0xbb] = Res.new 7, :e
+        i[0xbc] = Res.new 7, :h
+        i[0xbd] = Res.new 7, :l
+        i[0xbe] = Res.new 7, :hl, true
+        i[0xbf] = Res.new 7, :a
+
+        i[0xc0] = Set.new 0, :b
+        i[0xc1] = Set.new 0, :c
+        i[0xc2] = Set.new 0, :d
+        i[0xc3] = Set.new 0, :e
+        i[0xc4] = Set.new 0, :h
+        i[0xc5] = Set.new 0, :l
+        i[0xc6] = Set.new 0, :hl, true
+        i[0xc7] = Set.new 0, :a
+        i[0xc8] = Set.new 1, :b
+        i[0xc9] = Set.new 1, :c
+        i[0xca] = Set.new 1, :d
+        i[0xcb] = Set.new 1, :e
+        i[0xcc] = Set.new 1, :h
+        i[0xcd] = Set.new 1, :l
+        i[0xce] = Set.new 1, :hl, true
+        i[0xcf] = Set.new 1, :a
+
+        i[0xd0] = Set.new 2, :b
+        i[0xd1] = Set.new 2, :c
+        i[0xd2] = Set.new 2, :d
+        i[0xd3] = Set.new 2, :e
+        i[0xd4] = Set.new 2, :h
+        i[0xd5] = Set.new 2, :l
+        i[0xd6] = Set.new 2, :hl, true
+        i[0xd7] = Set.new 2, :a
+        i[0xd8] = Set.new 3, :b
+        i[0xd9] = Set.new 3, :c
+        i[0xda] = Set.new 3, :d
+        i[0xdb] = Set.new 3, :e
+        i[0xdc] = Set.new 3, :h
+        i[0xdd] = Set.new 3, :l
+        i[0xde] = Set.new 3, :hl, true
+        i[0xdf] = Set.new 3, :a
+
+        i[0xe0] = Set.new 4, :b
+        i[0xe1] = Set.new 4, :c
+        i[0xe2] = Set.new 4, :d
+        i[0xe3] = Set.new 4, :e
+        i[0xe4] = Set.new 4, :h
+        i[0xe5] = Set.new 4, :l
+        i[0xe6] = Set.new 4, :hl, true
+        i[0xe7] = Set.new 4, :a
+        i[0xe8] = Set.new 5, :b
+        i[0xe9] = Set.new 5, :c
+        i[0xea] = Set.new 5, :d
+        i[0xeb] = Set.new 5, :e
+        i[0xec] = Set.new 5, :h
+        i[0xed] = Set.new 5, :l
+        i[0xee] = Set.new 5, :hl, true
+        i[0xef] = Set.new 5, :a
+
+        i[0xf0] = Set.new 6, :b
+        i[0xf1] = Set.new 6, :c
+        i[0xf2] = Set.new 6, :d
+        i[0xf3] = Set.new 6, :e
+        i[0xf4] = Set.new 6, :h
+        i[0xf5] = Set.new 6, :l
+        i[0xf6] = Set.new 6, :hl, true
+        i[0xf7] = Set.new 6, :a
+        i[0xf8] = Set.new 7, :b
+        i[0xf9] = Set.new 7, :c
+        i[0xfa] = Set.new 7, :d
+        i[0xfb] = Set.new 7, :e
+        i[0xfc] = Set.new 7, :h
+        i[0xfd] = Set.new 7, :l
+        i[0xfe] = Set.new 7, :hl, true
+        i[0xff] = Set.new 7, :a
+
+        @cb_instructions = i
+      end
+
+      def clock
+        @clock ||= { m: 0, t: 0 }
+      end
+
+      def step
+        dispatch decode fetch
+      end
+
+      def fetch
+        opcode = mmu.read_byte(r.pc.read)
+        r.pc.store r.pc.read + 1
+        opcode
+      end
+
+      def decode opcode
+        if @cb_prefix
+          @cb_prefix = false
+          cb_instructions[opcode.to_i]
+        else
+          @cb_prefix = true if opcode == 0xcb
+          instructions[opcode.to_i]
+        end
+      end
+
+      def dispatch instruction
+        raise GBRb::CPU::InstructionNotImplemented if instruction == :not_implemented
+
+        if instruction.immediate_count > 0
+          immediates = []
+          instruction.immediate_count.times { immediates << fetch }
+          if immediates.length == 1
+            immediates = immediates.first
+          else
+            immediates = (immediates.last << 8) + immediates.first
+          end
+          instruction.call @registers, @mmu, immediates
+        else
+          instruction.call @registers, @mmu
+        end
+
+        @clock[:m] += instruction.m
+        @clock[:t] += instruction.t
+        @last_m = instruction.m
+        @last_t = instruction.t
+      end
+    end
+  end
+end