Subversion Repositories scarts

# sh testcase for rotcl $rn -*- Asm -*-
# mach: all
# as: -isa=shcompact
# ld: -m shelf32

        .include "compact/testutils.inc"

        start

        .global rotcl

rotcl:
        clrt
        mov #1, r1
        rotcl r1
        assert r1, #2
        clrt
        rotcl r1
        assert r1, #4
        clrt
        rotcl r1
        assert r1, #8
        clrt
        rotcl r1
        assert r1, #16
        clrt
        rotcl r1
        assert r1, #32
        clrt
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        bf wrong
        rotcl r1
        assert r1, #1

        bra trotcl
        nop

wrong:
        fail

trotcl:
        sett
        mov #1, r1
        rotcl r1
        assert r1, #3
        clrt
        rotcl r1
        assert r1, #6
        clrt
        rotcl r1
        assert r1, #12
        clrt
        rotcl r1
        assert r1, #24
        clrt
        rotcl r1
        assert r1, #48
        clrt
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        bf wrong2
        assert r1, #1
        rotcl r1
        rotcl r1

okay:   
        pass
wrong2:
        fail