mirror of
https://github.com/vivier/EMILE.git
synced 2024-12-22 10:29:31 +00:00
29 lines
629 B
ArmAsm
29 lines
629 B
ArmAsm
/*
|
|
*
|
|
* (c) 2004,2005 Laurent Vivier <Laurent@lvivier.info>
|
|
*
|
|
* Some parts from libgcc routines for 68000 w/o floating-point hardware.
|
|
* Copyright (C) 1994, 1996, 1997, 1998 Free Software Foundation, Inc.
|
|
*
|
|
*/
|
|
|
|
.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
|