Subversion Repositories openrisc_me

# cr16 testcase for tbitw
# mach:  cr16

        .include "testutils.inc"

        start

        .global tbitw
tbitw:
        movw $0, r1
        lpr     r1, psr
        tbitw   $0,_y
        spr  psr, r1
        cmpb    $0x20, r1
        beq ok1
not_ok:
        fail

ok1:
        movw $0, r1
        lpr     r1, psr
        movd   $_y, (r1,r0)
        tbitw   $1,0(r1,r0)
        loadw   _y, r1
        spr  psr, r1
        cmpb    $0x20, r1
        beq ok2
        br not_ok
ok2:

        pass

_y:     .word   0xf7