1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
| /* SPDX-License-Identifier: GPL-2.0 */
| #include "libgcc.h"
|
| ; numerator in A0/A1
| ; denominator in A2/A3
| .global __modsi3
| __modsi3:
| PUSHP S2P
| bsr modnorm
| bsr __divsi3
| mov.l er3,er0
| bra exitdiv
|
| .global __umodsi3
| __umodsi3:
| bsr __udivsi3
| mov.l er3,er0
| rts
|
| .global __divsi3
| __divsi3:
| PUSHP S2P
| jsr divnorm
| bsr __udivsi3
|
| ; examine what the sign should be
| exitdiv:
| btst #3,S2L
| beq reti
|
| ; should be -ve
| neg.l A0P
|
| reti:
| POPP S2P
| rts
|
| divnorm:
| mov.l A0P,A0P ; is the numerator -ve
| stc ccr,S2L ; keep the sign in bit 3 of S2L
| bge postive
|
| neg.l A0P ; negate arg
|
| postive:
| mov.l A1P,A1P ; is the denominator -ve
| bge postive2
|
| neg.l A1P ; negate arg
| xor.b #0x08,S2L ; toggle the result sign
|
| postive2:
| rts
|
| ;; Basically the same, except that the sign of the divisor determines
| ;; the sign.
| modnorm:
| mov.l A0P,A0P ; is the numerator -ve
| stc ccr,S2L ; keep the sign in bit 3 of S2L
| bge mpostive
|
| neg.l A0P ; negate arg
|
| mpostive:
| mov.l A1P,A1P ; is the denominator -ve
| bge mpostive2
|
| neg.l A1P ; negate arg
|
| mpostive2:
| rts
|
| .end
|
|
