OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [v850/] [sar.cgs] - Rev 450

Go to most recent revision | Compare with Previous | Blame | View Log

# v850 sar
# mach: all

        .include "testutils.inc"

# CY is set to 1 if the bit shifted out last is 1, else 0
# OV is set to zero.
# Z is set if the result is 0, else 0

        noflags
        seti    4, r1
        seti    0x00000000, r2
        sar     r1, r2

        flags   z
        reg     r2, 0

        noflags
        seti    4, r1
        seti    0x00000001, r2
        sar     r1, r2

        flags   z
        reg     r2, 0

        noflags
        seti    4, r1
        seti    0x00000008, r2
        sar     r1, r2

        flags   c + z
        reg     r2, 0

        noflags
        seti    0x00000000, r2
        sar     4, r2

        flags   z
        reg     r2, 0

        noflags
        seti    0x00000001, r2
        sar     4, r2

        flags   z
        reg     r2, 0

        noflags
        seti    0x00000008, r2
        sar     4, r2

        flags   c + z
        reg     r2, 0

# However, if the number of shifts is 0, CY is 0.

        noflags
        seti    0, r1
        seti    0xffffffff, r2
        sar     r1, r2

        flags   s
        reg     r2, 0xffffffff

        noflags
        seti    0xffffffff, r2
        sar     0, r2

        flags   s
        reg     r2, 0xffffffff

# Old MSB is copied as new MSB after shift
# S is 1 if the result is negative, else 0

        noflags
        seti    1, r1
        seti    0x80000000, r2
        sar     r1, r2

        flags   s
        reg     r2, 0xc0000000

        noflags
        seti    1, r1
        seti    0x40000000, r2
        sar     r1, r2

        flags   0
        reg     r2, 0x20000000

        pass

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.