Subversion Repositories scarts

# frv testcase for mhsetloh $s12,$FRk
# mach: all

        .include "../testutils.inc"

        start

        .global mhsetloh
mhsetloh:
        set_fr_immed    0,fr1
        mhsetloh        0,fr1
        test_fr_iimmed  0,fr1
        mhsetloh        1,fr1
        test_fr_iimmed  0x0000800,fr1 
        mhsetloh        0xf,fr1
        test_fr_iimmed  0x00007800,fr1
        mhsetloh        -16,fr1
        test_fr_iimmed  0x00008000,fr1
        mhsetloh        -1,fr1
        test_fr_iimmed  0x0000f800,fr1

        ; Try parallel write to both hi and lo
        mhsetloh.p      1,fr1
        mhsethih        0xf,fr1
        test_fr_iimmed  0x78000800,fr1

        pass