arch/.unmaintained/m68k-emul/utility/smult32.s

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Utility 32 bit multiplication routines. m68k version.
   6     Lang: english
   7 */
   8
   9 #include "machine.i"
  10
  11 /* SMult32():
  12     These are the signed/unsigned 32 bit multiplication routines.
  13     I have two different possibilities here since I could be running
  14     on a system without the corresponding muls.l/mulu.l calls.
  15
  16     After some soul searching I am happy that these routines don't
  17     have to be separated between signed/unsigned since the sign is
  18     correct, or the number overflows.
  19
  20     The native versions do make the difference however.
  21
  22     What I do is SetFunction() the correct function in later.
  23 */
  24     .text
  25     .balign 16
  26
  27     .globl  AROS_SLIB_ENTRY(SMult32_020,Utility)
  28
  29     .type   AROS_SLIB_ENTRY(SMult32_020,Utility),@function
  30
  31 AROS_SLIB_ENTRY(SMult32_020,Utility):
  32     muls.l  %d1,%d0
  33     rts
  34
  35 /*
  36     This only contains the 020 version because the 000 versions of
  37     both S and U are the same, but I need the separate files so that
  38     the makefile tricks don't cause problems with duplicate symbols.
  39 */