require_relative 'helper'

module Arm
  class TestMoves < MiniTest::Test
    include ArmHelper

    def test_mov
      code = @machine.mov  :r1,  5
      assert_code code , :mov , [0x05,0x10,0xb0,0xe3] #e3 b0 10 05
    end
    def test_mov_pc
      code = @machine.mov  :pc,  5
      assert_code code , :mov , [0x05,0xf0,0xb0,0xe3] #e3 b0 f0 06
    end
    def test_mov_max_128
      code = @machine.mov  :r1,  128
      assert_code code , :mov , [0x80,0x10,0xb0,0xe3] #e3 b0 10 80
    end
    def test_mov_256
      code = @machine.mov  :r1,  256
      assert_code code , :mov , [0x01,0x1c,0xb0,0xe3] #e3 b0 1c 01
    end
    def test_mov_big
      code = @machine.mov  :r0,  0x222  # is not 8 bit and can't be rotated by the arm system in one instruction
      code.set_position(0)
      begin  # mov 512(0x200) = e3 a0 0c 02    add 34(0x22) = e2 90 00 22
        assert_code code , :mov , [ 0x02,0x0c,0xb0,0xe3 , 0x22,0x00,0x90,0xe2]
      rescue Register::LinkException
        retry
      end
    end
    def test_mvn
      code = @machine.mvn  :r1,  5
      assert_code code , :mvn , [0x05,0x10,0xf0,0xe3] #e3 f0 10 05
    end

    def test_shiftr1
      code = @machine.mov  :r1,  :r2 , :shift_asr => Register::RegisterValue.new(:r3 , :Integer)
      assert_code code , :mov , [0x52,0x13,0xb0,0xe1] #e1 b0 13 52
    end
    def test_shiftr2
      code = @machine.mov  :r2,  :r3 , :shift_asr => Register::RegisterValue.new(:r4 , :Integer)
      assert_code code , :mov , [0x53,0x24,0xb0,0xe1] #e1 b0 24 53
    end
    def test_shiftr3
      code = @machine.mov  :r3,  :r4 , :shift_asr => Register::RegisterValue.new(:r5 , :Integer)
      assert_code code , :mov , [0x54,0x35,0xb0,0xe1] #e1 b0 35 54
    end

    def test_shiftl1
      code = @machine.mov  :r1,  :r2 , :shift_lsr => Register::RegisterValue.new(:r3 , :Integer)
      assert_code code , :mov , [0x32,0x13,0xb0,0xe1] #e1 b0 13 32
    end
    def test_shiftl2
      code = @machine.mov  :r2,  :r3 , :shift_lsr => Register::RegisterValue.new(:r4 , :Integer)
      assert_code code , :mov , [0x33,0x24,0xb0,0xe1] #e1 b0 24 33
    end
    def test_shiftl3
      code = @machine.mov  :r3,  :r4 , :shift_lsr => Register::RegisterValue.new(:r5 , :Integer)
      assert_code code , :mov , [0x34,0x35,0xb0,0xe1] #e1 b0 35 34
    end

  end
end