Subversion Repositories scarts

# fr30 testcase for orccr $u8
# mach(): fr30

        .include "testutils.inc"

        START

        .text
        .global orccr
orccr:
        orccr           0xff
        test_cc         1 1 1 1
        test_i          1
        test_s_user

        set_cc  0x0f
        orccr           0x00
        test_cc         1 1 1 1
        test_i          1
        test_s_user

        set_cc          0x00
        set_i                   0
        set_s_system
        orccr           0xaa
        test_cc         1 0 1 0
        test_i          0
        test_s_user

        set_cc          0x00
        set_i                   0
        set_s_system
        orccr           0xc0
        test_cc         0 0 0 0
        test_i          0
        test_s_system

        pass