2005-11-08 02:04:54 +00:00
|
|
|
/*
|
|
|
|
|
*
|
2006-09-15 14:55:39 +00:00
|
|
|
* (c) 2004,2005 Laurent Vivier <Laurent@lvivier.info>
|
2005-11-08 02:04:54 +00:00
|
|
|
*
|
|
|
|
|
* Some parts from libgcc routines for 68000 w/o floating-point hardware.
|
|
|
|
|
* Copyright (C) 1994, 1996, 1997, 1998 Free Software Foundation, Inc.
|
|
|
|
|
*
|
|
|
|
|
*/
|
|
|
|
|
|
2007-03-22 15:36:39 +00:00
|
|
|
.cpu 68000
|
2005-11-08 02:04:54 +00:00
|
|
|
|
|
|
|
|
.align 2
|
|
|
|
|
|
|
|
|
|
.globl __modsi3
|
|
|
|
|
__modsi3:
|
|
|
|
|
movel %sp@(8), %d1 /* %d1 = divisor */
|
|
|
|
|
movel %sp@(4), %d0 /* %d0 = dividend */
|
|
|
|
|
movel %d1, %sp@-
|
|
|
|
|
movel %d0, %sp@-
|
|
|
|
|
bsr __divsi3
|
|
|
|
|
addql #8, %sp
|
|
|
|
|
movel %sp@(8), %d1 /* %d1 = divisor */
|
|
|
|
|
movel %d1, %sp@-
|
|
|
|
|
movel %d0, %sp@-
|
|
|
|
|
bsr __mulsi3 /* %d0 = (a/b)*b */
|
|
|
|
|
addql #8, %sp
|
|
|
|
|
movel %sp@(4), %d1 /* %d1 = dividend */
|
|
|
|
|
subl %d0, %d1 /* %d1 = a - (a/b)*b */
|
|
|
|
|
movel %d1, %d0
|
|
|
|
|
rts
|
