Subversion Repositories scarts

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

        .include "compact/testutils.inc"

        start

        mov #0, r0
        mov #0, r1
        dmuls.l r0, r1
        # check result
        sts mach, r3
        sts macl, r4
        assert r3, #0
        assert r4, #0

test2:  
        mov #0, r0
        mov #5, r1
        dmuls.l r0, r1
        # check result
        sts mach, r3
        sts macl, r4
        assert r3, #0
        assert r4, #0

test3:  
        mov #5, r0
        mov #0, r1
        dmuls.l r0, r1
        # check result
        sts mach, r3
        sts macl, r4
        assert r3, #0
        assert r4, #0

test4:  
        mov #1, r0
        mov #5, r1
        dmuls.l r0, r1
        # check result
        sts mach, r3
        sts macl, r4
        assert r3, #0
        assert r4, #5

test5:  
        mov #5, r0
        mov #1, r1
        dmuls.l r0, r1
        # check result
        sts mach, r3
        sts macl, r4
        assert r3, #0
        assert r4, #5

        bra test6
        nop

wrong:
        fail

test6:  
        mov #2, r0
        mov #2, r1
        dmuls.l r0, r1
        # check result
        sts mach, r3
        sts macl, r4
        assert r3, #0
        assert r4, #4

test7:  
        mov #1, r0
        neg r0, r0
        mov #2, r1
        dmuls.l r0, r1
        # check result
        sts mach, r3
        sts macl, r4

        mov #0, r8
        not r8, r9
        not r8, r10
        shll r10
        cmp/eq r3, r9
        bf wrong
        cmp/eq r4, r10
        bf wrong

test8:  
        mov #1, r0
        neg r0, r0
        mov #1, r1
        neg r1, r1
        dmuls.l r0, r1
        # check result
        sts mach, r3
        sts macl, r4
        assert r3, #0
        assert r4, #1

test9:  
        mov #1, r0
        neg r0, r0
        shlr r0
        mov #1, r1
        neg r1, r1
        shlr r1
        dmuls.l r0, r1
        
okay:   
        pass