require_relative 'helper'

module Arm
  class TestLogic < MiniTest::Test
    include ArmHelper

    def test_mul1
      code = @machine.mul(  :r0 , :r1 , :r2)
      assert_code code , :mul , [0x91,0x02,0x10,0xe0] #e0 10 02 91
    end
    def test_mul2
      code = @machine.mul(  :r1 , :r2 , :r3)
      assert_code code , :mul , [0x92,0x03,0x11,0xe0] #e0 11 03 92
    end
    def test_mul3
      code = @machine.mul(  :r2 , :r3 , :r4)
      assert_code code , :mul , [0x93,0x04,0x12,0xe0] #e0 12 04 93
    end
    def test_and
      code = @machine.and(  :r1 , :r2 , :r3)
      assert_code code , :and , [0x03,0x10,0x12,0xe0] #e0 12 10 03
    end
    def test_bic
      code = @machine.bic	 :r2 , :r2 , :r3
      assert_code code , :bic , [0x03,0x20,0xd2,0xe1] #e3 d2 20 44
    end
    def test_eor
      code = @machine.eor	 :r2 , :r2 , :r3
      assert_code code , :eor , [0x03,0x20,0x32,0xe0] #e0 32 20 03
    end
    def test_rsb
      code = @machine.rsb	 :r1 ,  :r2 ,  :r3
      assert_code code , :rsb , [0x03,0x10,0x72,0xe0]#e0 72 10 03
    end
    def test_rsc
      code = @machine.rsc	 :r2 ,  :r3 ,  :r4
      assert_code code , :rsc , [0x04,0x20,0xf3,0xe0]#e0 f3 20 04
    end
    def test_sbc
      code = @machine.sbc	 :r3,  :r4 ,  :r5
      assert_code code , :sbc , [0x05,0x30,0xd4,0xe0]#e0 d4 30 05
    end
    def test_sub
      code = @machine.sub  :r2, :r0, 1
      assert_code code, :sub ,  [0x01,0x20,0x50,0xe2] #e2 50 20 01
    end
    def test_subs
      code = @machine.sub  :r2, :r2, 1 , update_status: 1
      assert_code code, :sub ,  [0x01,0x20,0x52,0xe2] #e2 52 20 01
    end
    def test_orr
      code = @machine.orr	 :r2 , :r2 , :r3
      assert_code code , :orr , [0x03,0x20,0x92,0xe1] #e1 92 20 03
    end
    def test_adc
      code = @machine.adc	 :r1,  :r3, :r5
      assert_code code , :adc , [0x05,0x10,0xb3,0xe0] #e0 b3 10 05
    end
    def test_add
      code = @machine.add	 :r1 , :r1, :r3
      assert_code code , :add , [0x03,0x10,0x91,0xe0] #e0 91 10 03
    end
    def test_add_const
      code = @machine.add	 :r1 , :r1, 0x22
      assert_code code , :add , [0x22,0x10,0x91,0xe2] #e2 91 10 22
    end
    def test_add_const_pc
      code = @machine.add	 :r1 , :pc, 0x22
      assert_code code , :add , [0x22,0x10,0x9f,0xe2] #e2 9f 10 22
    end
    def test_add_const_shift
      code = @machine.add( :r1 , :r1 , 0x22 ,  shift_lsr: 8)
      assert_code code , :add , [0x22,0x14,0x91,0xe2] #e2 91 14 23
    end
    def test_add_lst
      code = @machine.add( :r1 , :r2 , :r3 ,  shift_lsr: 8)
      assert_code code , :add , [0x23,0x14,0x92,0xe0] #e0 92 14 23
    end
    def test_big_add
      code = @machine.add	 :r1 , :r1, 0x220
      assert_code code , :add , [0x22,0x1e,0x91,0xe2] #e2 91 1e 22
    end
    def test_too_big_add
      code = @machine.add	 :r1 , :r1, 0x222
      begin # add 0x02 (first instruction) and then 0x220 shifted
        assert_code code , :add , [0x02,0x1c,0x91,0xe2,  0x22,0x10,0x91,0xe2] #e2 91 1e 22
      rescue Risc::LinkException
        retry
      end
    end

    def label pos = 0x22 + 8
      l  = Risc.label("some" , "Label")
      l.set_position   pos
      l
    end

    def test_move_object
      code = @machine.add( :r1 , label)
      code.set_position(0)
      assert_code code , :add , [0x22,0x10,0x9f,0xe2] #e2 9f 10 22
    end

  end
end