x86/math-emu/mul_Xsig.S

1 /* SPDX-License-Identifier: GPL-2.0 */
2 /*---------------------------------------------------------------------------+
5  | Multiply a 12 byte fixed point number by another fixed point number.      |
9  |                       Australia.  E-mail billm@jacobi.maths.monash.edu.au |
21  +---------------------------------------------------------------------------*/
38 	movl %eax,-4(%ebp)
39 	movl %eax,-8(%ebp)
43 	movl %edx,-12(%ebp)
47 	addl %eax,-12(%ebp)
48 	adcl %edx,-8(%ebp)
49 	adcl $0,-4(%ebp)
51 	movl 8(%esi),%eax	/* msl of Xsig */
53 	addl %eax,-8(%ebp)
54 	adcl %edx,-4(%ebp)
56 	movl -12(%ebp),%eax
58 	movl -8(%ebp),%eax
60 	movl -4(%ebp),%eax
61 	movl %eax,8(%esi)
79 	movl %eax,-4(%ebp)
80 	movl %eax,-8(%ebp)
84 	movl %edx,-12(%ebp)
88 	addl %edx,-12(%ebp)
89 	adcl $0,-8(%ebp)
90 	adcl $0,-4(%ebp)
94 	addl %eax,-12(%ebp)
95 	adcl %edx,-8(%ebp)
96 	adcl $0,-4(%ebp)
98 	movl 8(%esi),%eax	/* msl of Xsig */
100 	addl %eax,-12(%ebp)
101 	adcl %edx,-8(%ebp)
102 	adcl $0,-4(%ebp)
104 	movl 8(%esi),%eax	/* msl of Xsig */
106 	addl %eax,-8(%ebp)
107 	adcl %edx,-4(%ebp)
109 	movl -12(%ebp),%eax
111 	movl -8(%ebp),%eax
113 	movl -4(%ebp),%eax
114 	movl %eax,8(%esi)
133 	movl %eax,-4(%ebp)
134 	movl %eax,-8(%ebp)
137 	mull 8(%ecx)		/* msl of b */
138 	movl %edx,-12(%ebp)
142 	addl %edx,-12(%ebp)
143 	adcl $0,-8(%ebp)
144 	adcl $0,-4(%ebp)
146 	movl 8(%esi),%eax	/* msl of Xsig */
148 	addl %edx,-12(%ebp)
149 	adcl $0,-8(%ebp)
150 	adcl $0,-4(%ebp)
153 	mull 8(%ecx)		/* msl of b */
154 	addl %eax,-12(%ebp)
155 	adcl %edx,-8(%ebp)
156 	adcl $0,-4(%ebp)
158 	movl 8(%esi),%eax	/* msl of Xsig */
160 	addl %eax,-12(%ebp)
161 	adcl %edx,-8(%ebp)
162 	adcl $0,-4(%ebp)
164 	movl 8(%esi),%eax	/* msl of Xsig */
165 	mull 8(%ecx)		/* msl of b */
166 	addl %eax,-8(%ebp)
167 	adcl %edx,-4(%ebp)
169 	movl -12(%ebp),%edx
171 	movl -8(%ebp),%edx
173 	movl -4(%ebp),%edx
174 	movl %edx,8(%esi)