xref: /openbsd-src/lib/libc/arch/m88k/gen/modsi3.S (revision 5746cf2977bab637710f707ab6ffd43231ea7ce3)
1/*	$OpenBSD: modsi3.S,v 1.3 2022/12/06 18:50:59 guenther Exp $	*/
2
3/*
4 * Copyright (c) 2013 Miodrag Vallat.
5 *
6 * Permission to use, copy, modify, and distribute this software for any
7 * purpose with or without fee is hereby granted, provided that the above
8 * copyright notice and this permission notice appear in all copies.
9 *
10 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
11 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
12 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
13 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
14 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
15 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
16 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
17 */
18
19
20#include "SYS.h"
21
22/*
23 * int __modsi3(int n, int d);
24 */
25
26#ifndef LDSO
27.weak	__modsi3
28#endif
29ENTRY(__modsi3)
30	/* if divider is zero, trap */
31	bcnd	ne0, %r3, 1f
32	tb0	0, %r0, 503
331:
34
35	bb1	31, %r2, 1f
36	bb1	31, %r3, 2f
37
38	/* both operands are positive */
39	divu	%r4, %r2, %r3
409:
41	mul	%r5, %r4, %r3
42	jmp.n	%r1
43	 subu	%r2, %r2, %r5
44
451:
46	bb1	31, %r3, 3f
47
48	/* r2 is negative, r3 is positive */
49	subu	%r4, %r0, %r2
50	divu	%r5, %r4, %r3
51	subu	%r4, %r0, %r5
52	br	9b
53
542:
55	/* r2 is positive, r3 is negative */
56	subu	%r5, %r0, %r3
57	divu	%r4, %r2, %r5
58	subu	%r4, %r0, %r4
59	br	9b
60
613:
62	/* both operands are negative */
63	subu	%r4, %r0, %r2
64	subu	%r5, %r0, %r3
65	divu	%r4, %r4, %r5
66	br	9b
67END(__modsi3)
68