Subversion Repositories scarts

# sh testcase for sts.l mach, @-$rn -*- Asm -*-
# mach: all
# as: -isa=shcompact
# ld: -m shelf32

        .include "compact/testutils.inc"

        start

        .global stsl_mach
stsl_mach:
        # Build up a distinctive bit pattern.
        mov #1, r0
        shll8 r0
        add #12, r0
        shll8 r0
        add #85, r0
        shll8 r0
        add #170, r0
        
        lds r0, mach
        mov #40, r2
        shll8 r2
        # Preserve r2.
        mov r2, r7
        sts.l mach, @-r2

        # check results.
        mov.l @r2, r3
        cmp/eq r0, r3
        bf wrong

        # Ensure decrement occurred.
        add #4, r2
        cmp/eq r2, r7
        bf wrong

okay:
        pass
wrong:
        fail