Subversion Repositories scarts

# sh testcase for sub $rm, $rn -*- Asm -*-

# mach: all

# as: -isa=shcompact

# ld: -m shelf32

        .include "compact/testutils.inc"

        start

        .global sub1

sub1:

        # 0 - x.

        mov #0, r0

        mov #3, r1

        sub r1, r0

        mov #2, r7

        not r7, r7

        cmp/eq r7, r0

        bf wrong

        .global sub2

sub2:

        # x - 0.

        mov #0, r0

        mov #3, r1

        sub r0, r1

        assert r1, #3

        .global sub3

sub3:

        # x - y.

        mov #4, r0

        mov #3, r1

        sub r0, r1

        mov #0, r7

        not r7, r7

        cmp/eq r7, r1

        bf wrong

        .global sub4

sub4:

        # y - x.

        mov #4, r0

        mov #3, r1

        sub r1, r0

        assert r0, #1

        .global sub5

sub5:

        # y - y == 0 (where y are in two distinct registers).

        mov #4, r0

        mov #4, r1

        sub r1, r0

        assert r0, #0

        .global sub6

sub6:

        # y - y = 0 (where y is the same register).

        mov #4, r1

        sub r1, r1

        assert r1, #0

okay:

        pass

wrong:

        fail