| blob | 7ce8e794250a27d7030673f35786ff2a52498641 |
1 #if defined(__i386__)
2 .file "src/crypto/bn/asm/co-586.S"
3 .text
4 .globl _bn_mul_comba8
5 .private_extern _bn_mul_comba8
6 .align 4
7 _bn_mul_comba8:
8 L_bn_mul_comba8_begin:
9 pushl %esi
10 movl 12(%esp),%esi
11 pushl %edi
12 movl 20(%esp),%edi
13 pushl %ebp
14 pushl %ebx
15 xorl %ebx,%ebx
16 movl (%esi),%eax
17 xorl %ecx,%ecx
18 movl (%edi),%edx
19 # ################## Calculate word 0
20 xorl %ebp,%ebp
21 # mul a[0]*b[0]
22 mull %edx
23 addl %eax,%ebx
24 movl 20(%esp),%eax
25 adcl %edx,%ecx
26 movl (%edi),%edx
27 adcl $0,%ebp
28 movl %ebx,(%eax)
29 movl 4(%esi),%eax
30 # saved r[0]
31 # ################## Calculate word 1
32 xorl %ebx,%ebx
33 # mul a[1]*b[0]
34 mull %edx
35 addl %eax,%ecx
36 movl (%esi),%eax
37 adcl %edx,%ebp
38 movl 4(%edi),%edx
39 adcl $0,%ebx
40 # mul a[0]*b[1]
41 mull %edx
42 addl %eax,%ecx
43 movl 20(%esp),%eax
44 adcl %edx,%ebp
45 movl (%edi),%edx
46 adcl $0,%ebx
47 movl %ecx,4(%eax)
48 movl 8(%esi),%eax
49 # saved r[1]
50 # ################## Calculate word 2
51 xorl %ecx,%ecx
52 # mul a[2]*b[0]
53 mull %edx
54 addl %eax,%ebp
55 movl 4(%esi),%eax
56 adcl %edx,%ebx
57 movl 4(%edi),%edx
58 adcl $0,%ecx
59 # mul a[1]*b[1]
60 mull %edx
61 addl %eax,%ebp
62 movl (%esi),%eax
63 adcl %edx,%ebx
64 movl 8(%edi),%edx
65 adcl $0,%ecx
66 # mul a[0]*b[2]
67 mull %edx
68 addl %eax,%ebp
69 movl 20(%esp),%eax
70 adcl %edx,%ebx
71 movl (%edi),%edx
72 adcl $0,%ecx
73 movl %ebp,8(%eax)
74 movl 12(%esi),%eax
75 # saved r[2]
76 # ################## Calculate word 3
77 xorl %ebp,%ebp
78 # mul a[3]*b[0]
79 mull %edx
80 addl %eax,%ebx
81 movl 8(%esi),%eax
82 adcl %edx,%ecx
83 movl 4(%edi),%edx
84 adcl $0,%ebp
85 # mul a[2]*b[1]
86 mull %edx
87 addl %eax,%ebx
88 movl 4(%esi),%eax
89 adcl %edx,%ecx
90 movl 8(%edi),%edx
91 adcl $0,%ebp
92 # mul a[1]*b[2]
93 mull %edx
94 addl %eax,%ebx
95 movl (%esi),%eax
96 adcl %edx,%ecx
97 movl 12(%edi),%edx
98 adcl $0,%ebp
99 # mul a[0]*b[3]
100 mull %edx
101 addl %eax,%ebx
102 movl 20(%esp),%eax
103 adcl %edx,%ecx
104 movl (%edi),%edx
105 adcl $0,%ebp
106 movl %ebx,12(%eax)
107 movl 16(%esi),%eax
108 # saved r[3]
109 # ################## Calculate word 4
110 xorl %ebx,%ebx
111 # mul a[4]*b[0]
112 mull %edx
113 addl %eax,%ecx
114 movl 12(%esi),%eax
115 adcl %edx,%ebp
116 movl 4(%edi),%edx
117 adcl $0,%ebx
118 # mul a[3]*b[1]
119 mull %edx
120 addl %eax,%ecx
121 movl 8(%esi),%eax
122 adcl %edx,%ebp
123 movl 8(%edi),%edx
124 adcl $0,%ebx
125 # mul a[2]*b[2]
126 mull %edx
127 addl %eax,%ecx
128 movl 4(%esi),%eax
129 adcl %edx,%ebp
130 movl 12(%edi),%edx
131 adcl $0,%ebx
132 # mul a[1]*b[3]
133 mull %edx
134 addl %eax,%ecx
135 movl (%esi),%eax
136 adcl %edx,%ebp
137 movl 16(%edi),%edx
138 adcl $0,%ebx
139 # mul a[0]*b[4]
140 mull %edx
141 addl %eax,%ecx
142 movl 20(%esp),%eax
143 adcl %edx,%ebp
144 movl (%edi),%edx
145 adcl $0,%ebx
146 movl %ecx,16(%eax)
147 movl 20(%esi),%eax
148 # saved r[4]
149 # ################## Calculate word 5
150 xorl %ecx,%ecx
151 # mul a[5]*b[0]
152 mull %edx
153 addl %eax,%ebp
154 movl 16(%esi),%eax
155 adcl %edx,%ebx
156 movl 4(%edi),%edx
157 adcl $0,%ecx
158 # mul a[4]*b[1]
159 mull %edx
160 addl %eax,%ebp
161 movl 12(%esi),%eax
162 adcl %edx,%ebx
163 movl 8(%edi),%edx
164 adcl $0,%ecx
165 # mul a[3]*b[2]
166 mull %edx
167 addl %eax,%ebp
168 movl 8(%esi),%eax
169 adcl %edx,%ebx
170 movl 12(%edi),%edx
171 adcl $0,%ecx
172 # mul a[2]*b[3]
173 mull %edx
174 addl %eax,%ebp
175 movl 4(%esi),%eax
176 adcl %edx,%ebx
177 movl 16(%edi),%edx
178 adcl $0,%ecx
179 # mul a[1]*b[4]
180 mull %edx
181 addl %eax,%ebp
182 movl (%esi),%eax
183 adcl %edx,%ebx
184 movl 20(%edi),%edx
185 adcl $0,%ecx
186 # mul a[0]*b[5]
187 mull %edx
188 addl %eax,%ebp
189 movl 20(%esp),%eax
190 adcl %edx,%ebx
191 movl (%edi),%edx
192 adcl $0,%ecx
193 movl %ebp,20(%eax)
194 movl 24(%esi),%eax
195 # saved r[5]
196 # ################## Calculate word 6
197 xorl %ebp,%ebp
198 # mul a[6]*b[0]
199 mull %edx
200 addl %eax,%ebx
201 movl 20(%esi),%eax
202 adcl %edx,%ecx
203 movl 4(%edi),%edx
204 adcl $0,%ebp
205 # mul a[5]*b[1]
206 mull %edx
207 addl %eax,%ebx
208 movl 16(%esi),%eax
209 adcl %edx,%ecx
210 movl 8(%edi),%edx
211 adcl $0,%ebp
212 # mul a[4]*b[2]
213 mull %edx
214 addl %eax,%ebx
215 movl 12(%esi),%eax
216 adcl %edx,%ecx
217 movl 12(%edi),%edx
218 adcl $0,%ebp
219 # mul a[3]*b[3]
220 mull %edx
221 addl %eax,%ebx
222 movl 8(%esi),%eax
223 adcl %edx,%ecx
224 movl 16(%edi),%edx
225 adcl $0,%ebp
226 # mul a[2]*b[4]
227 mull %edx
228 addl %eax,%ebx
229 movl 4(%esi),%eax
230 adcl %edx,%ecx
231 movl 20(%edi),%edx
232 adcl $0,%ebp
233 # mul a[1]*b[5]
234 mull %edx
235 addl %eax,%ebx
236 movl (%esi),%eax
237 adcl %edx,%ecx
238 movl 24(%edi),%edx
239 adcl $0,%ebp
240 # mul a[0]*b[6]
241 mull %edx
242 addl %eax,%ebx
243 movl 20(%esp),%eax
244 adcl %edx,%ecx
245 movl (%edi),%edx
246 adcl $0,%ebp
247 movl %ebx,24(%eax)
248 movl 28(%esi),%eax
249 # saved r[6]
250 # ################## Calculate word 7
251 xorl %ebx,%ebx
252 # mul a[7]*b[0]
253 mull %edx
254 addl %eax,%ecx
255 movl 24(%esi),%eax
256 adcl %edx,%ebp
257 movl 4(%edi),%edx
258 adcl $0,%ebx
259 # mul a[6]*b[1]
260 mull %edx
261 addl %eax,%ecx
262 movl 20(%esi),%eax
263 adcl %edx,%ebp
264 movl 8(%edi),%edx
265 adcl $0,%ebx
266 # mul a[5]*b[2]
267 mull %edx
268 addl %eax,%ecx
269 movl 16(%esi),%eax
270 adcl %edx,%ebp
271 movl 12(%edi),%edx
272 adcl $0,%ebx
273 # mul a[4]*b[3]
274 mull %edx
275 addl %eax,%ecx
276 movl 12(%esi),%eax
277 adcl %edx,%ebp
278 movl 16(%edi),%edx
279 adcl $0,%ebx
280 # mul a[3]*b[4]
281 mull %edx
282 addl %eax,%ecx
283 movl 8(%esi),%eax
284 adcl %edx,%ebp
285 movl 20(%edi),%edx
286 adcl $0,%ebx
287 # mul a[2]*b[5]
288 mull %edx
289 addl %eax,%ecx
290 movl 4(%esi),%eax
291 adcl %edx,%ebp
292 movl 24(%edi),%edx
293 adcl $0,%ebx
294 # mul a[1]*b[6]
295 mull %edx
296 addl %eax,%ecx
297 movl (%esi),%eax
298 adcl %edx,%ebp
299 movl 28(%edi),%edx
300 adcl $0,%ebx
301 # mul a[0]*b[7]
302 mull %edx
303 addl %eax,%ecx
304 movl 20(%esp),%eax
305 adcl %edx,%ebp
306 movl 4(%edi),%edx
307 adcl $0,%ebx
308 movl %ecx,28(%eax)
309 movl 28(%esi),%eax
310 # saved r[7]
311 # ################## Calculate word 8
312 xorl %ecx,%ecx
313 # mul a[7]*b[1]
314 mull %edx
315 addl %eax,%ebp
316 movl 24(%esi),%eax
317 adcl %edx,%ebx
318 movl 8(%edi),%edx
319 adcl $0,%ecx
320 # mul a[6]*b[2]
321 mull %edx
322 addl %eax,%ebp
323 movl 20(%esi),%eax
324 adcl %edx,%ebx
325 movl 12(%edi),%edx
326 adcl $0,%ecx
327 # mul a[5]*b[3]
328 mull %edx
329 addl %eax,%ebp
330 movl 16(%esi),%eax
331 adcl %edx,%ebx
332 movl 16(%edi),%edx
333 adcl $0,%ecx
334 # mul a[4]*b[4]
335 mull %edx
336 addl %eax,%ebp
337 movl 12(%esi),%eax
338 adcl %edx,%ebx
339 movl 20(%edi),%edx
340 adcl $0,%ecx
341 # mul a[3]*b[5]
342 mull %edx
343 addl %eax,%ebp
344 movl 8(%esi),%eax
345 adcl %edx,%ebx
346 movl 24(%edi),%edx
347 adcl $0,%ecx
348 # mul a[2]*b[6]
349 mull %edx
350 addl %eax,%ebp
351 movl 4(%esi),%eax
352 adcl %edx,%ebx
353 movl 28(%edi),%edx
354 adcl $0,%ecx
355 # mul a[1]*b[7]
356 mull %edx
357 addl %eax,%ebp
358 movl 20(%esp),%eax
359 adcl %edx,%ebx
360 movl 8(%edi),%edx
361 adcl $0,%ecx
362 movl %ebp,32(%eax)
363 movl 28(%esi),%eax
364 # saved r[8]
365 # ################## Calculate word 9
366 xorl %ebp,%ebp
367 # mul a[7]*b[2]
368 mull %edx
369 addl %eax,%ebx
370 movl 24(%esi),%eax
371 adcl %edx,%ecx
372 movl 12(%edi),%edx
373 adcl $0,%ebp
374 # mul a[6]*b[3]
375 mull %edx
376 addl %eax,%ebx
377 movl 20(%esi),%eax
378 adcl %edx,%ecx
379 movl 16(%edi),%edx
380 adcl $0,%ebp
381 # mul a[5]*b[4]
382 mull %edx
383 addl %eax,%ebx
384 movl 16(%esi),%eax
385 adcl %edx,%ecx
386 movl 20(%edi),%edx
387 adcl $0,%ebp
388 # mul a[4]*b[5]
389 mull %edx
390 addl %eax,%ebx
391 movl 12(%esi),%eax
392 adcl %edx,%ecx
393 movl 24(%edi),%edx
394 adcl $0,%ebp
395 # mul a[3]*b[6]
396 mull %edx
397 addl %eax,%ebx
398 movl 8(%esi),%eax
399 adcl %edx,%ecx
400 movl 28(%edi),%edx
401 adcl $0,%ebp
402 # mul a[2]*b[7]
403 mull %edx
404 addl %eax,%ebx
405 movl 20(%esp),%eax
406 adcl %edx,%ecx
407 movl 12(%edi),%edx
408 adcl $0,%ebp
409 movl %ebx,36(%eax)
410 movl 28(%esi),%eax
411 # saved r[9]
412 # ################## Calculate word 10
413 xorl %ebx,%ebx
414 # mul a[7]*b[3]
415 mull %edx
416 addl %eax,%ecx
417 movl 24(%esi),%eax
418 adcl %edx,%ebp
419 movl 16(%edi),%edx
420 adcl $0,%ebx
421 # mul a[6]*b[4]
422 mull %edx
423 addl %eax,%ecx
424 movl 20(%esi),%eax
425 adcl %edx,%ebp
426 movl 20(%edi),%edx
427 adcl $0,%ebx
428 # mul a[5]*b[5]
429 mull %edx
430 addl %eax,%ecx
431 movl 16(%esi),%eax
432 adcl %edx,%ebp
433 movl 24(%edi),%edx
434 adcl $0,%ebx
435 # mul a[4]*b[6]
436 mull %edx
437 addl %eax,%ecx
438 movl 12(%esi),%eax
439 adcl %edx,%ebp
440 movl 28(%edi),%edx
441 adcl $0,%ebx
442 # mul a[3]*b[7]
443 mull %edx
444 addl %eax,%ecx
445 movl 20(%esp),%eax
446 adcl %edx,%ebp
447 movl 16(%edi),%edx
448 adcl $0,%ebx
449 movl %ecx,40(%eax)
450 movl 28(%esi),%eax
451 # saved r[10]
452 # ################## Calculate word 11
453 xorl %ecx,%ecx
454 # mul a[7]*b[4]
455 mull %edx
456 addl %eax,%ebp
457 movl 24(%esi),%eax
458 adcl %edx,%ebx
459 movl 20(%edi),%edx
460 adcl $0,%ecx
461 # mul a[6]*b[5]
462 mull %edx
463 addl %eax,%ebp
464 movl 20(%esi),%eax
465 adcl %edx,%ebx
466 movl 24(%edi),%edx
467 adcl $0,%ecx
468 # mul a[5]*b[6]
469 mull %edx
470 addl %eax,%ebp
471 movl 16(%esi),%eax
472 adcl %edx,%ebx
473 movl 28(%edi),%edx
474 adcl $0,%ecx
475 # mul a[4]*b[7]
476 mull %edx
477 addl %eax,%ebp
478 movl 20(%esp),%eax
479 adcl %edx,%ebx
480 movl 20(%edi),%edx
481 adcl $0,%ecx
482 movl %ebp,44(%eax)
483 movl 28(%esi),%eax
484 # saved r[11]
485 # ################## Calculate word 12
486 xorl %ebp,%ebp
487 # mul a[7]*b[5]
488 mull %edx
489 addl %eax,%ebx
490 movl 24(%esi),%eax
491 adcl %edx,%ecx
492 movl 24(%edi),%edx
493 adcl $0,%ebp
494 # mul a[6]*b[6]
495 mull %edx
496 addl %eax,%ebx
497 movl 20(%esi),%eax
498 adcl %edx,%ecx
499 movl 28(%edi),%edx
500 adcl $0,%ebp
501 # mul a[5]*b[7]
502 mull %edx
503 addl %eax,%ebx
504 movl 20(%esp),%eax
505 adcl %edx,%ecx
506 movl 24(%edi),%edx
507 adcl $0,%ebp
508 movl %ebx,48(%eax)
509 movl 28(%esi),%eax
510 # saved r[12]
511 # ################## Calculate word 13
512 xorl %ebx,%ebx
513 # mul a[7]*b[6]
514 mull %edx
515 addl %eax,%ecx
516 movl 24(%esi),%eax
517 adcl %edx,%ebp
518 movl 28(%edi),%edx
519 adcl $0,%ebx
520 # mul a[6]*b[7]
521 mull %edx
522 addl %eax,%ecx
523 movl 20(%esp),%eax
524 adcl %edx,%ebp
525 movl 28(%edi),%edx
526 adcl $0,%ebx
527 movl %ecx,52(%eax)
528 movl 28(%esi),%eax
529 # saved r[13]
530 # ################## Calculate word 14
531 xorl %ecx,%ecx
532 # mul a[7]*b[7]
533 mull %edx
534 addl %eax,%ebp
535 movl 20(%esp),%eax
536 adcl %edx,%ebx
537 adcl $0,%ecx
538 movl %ebp,56(%eax)
539 # saved r[14]
540 # save r[15]
541 movl %ebx,60(%eax)
542 popl %ebx
543 popl %ebp
544 popl %edi
545 popl %esi
546 ret
547 .globl _bn_mul_comba4
548 .private_extern _bn_mul_comba4
549 .align 4
550 _bn_mul_comba4:
551 L_bn_mul_comba4_begin:
552 pushl %esi
553 movl 12(%esp),%esi
554 pushl %edi
555 movl 20(%esp),%edi
556 pushl %ebp
557 pushl %ebx
558 xorl %ebx,%ebx
559 movl (%esi),%eax
560 xorl %ecx,%ecx
561 movl (%edi),%edx
562 # ################## Calculate word 0
563 xorl %ebp,%ebp
564 # mul a[0]*b[0]
565 mull %edx
566 addl %eax,%ebx
567 movl 20(%esp),%eax
568 adcl %edx,%ecx
569 movl (%edi),%edx
570 adcl $0,%ebp
571 movl %ebx,(%eax)
572 movl 4(%esi),%eax
573 # saved r[0]
574 # ################## Calculate word 1
575 xorl %ebx,%ebx
576 # mul a[1]*b[0]
577 mull %edx
578 addl %eax,%ecx
579 movl (%esi),%eax
580 adcl %edx,%ebp
581 movl 4(%edi),%edx
582 adcl $0,%ebx
583 # mul a[0]*b[1]
584 mull %edx
585 addl %eax,%ecx
586 movl 20(%esp),%eax
587 adcl %edx,%ebp
588 movl (%edi),%edx
589 adcl $0,%ebx
590 movl %ecx,4(%eax)
591 movl 8(%esi),%eax
592 # saved r[1]
593 # ################## Calculate word 2
594 xorl %ecx,%ecx
595 # mul a[2]*b[0]
596 mull %edx
597 addl %eax,%ebp
598 movl 4(%esi),%eax
599 adcl %edx,%ebx
600 movl 4(%edi),%edx
601 adcl $0,%ecx
602 # mul a[1]*b[1]
603 mull %edx
604 addl %eax,%ebp
605 movl (%esi),%eax
606 adcl %edx,%ebx
607 movl 8(%edi),%edx
608 adcl $0,%ecx
609 # mul a[0]*b[2]
610 mull %edx
611 addl %eax,%ebp
612 movl 20(%esp),%eax
613 adcl %edx,%ebx
614 movl (%edi),%edx
615 adcl $0,%ecx
616 movl %ebp,8(%eax)
617 movl 12(%esi),%eax
618 # saved r[2]
619 # ################## Calculate word 3
620 xorl %ebp,%ebp
621 # mul a[3]*b[0]
622 mull %edx
623 addl %eax,%ebx
624 movl 8(%esi),%eax
625 adcl %edx,%ecx
626 movl 4(%edi),%edx
627 adcl $0,%ebp
628 # mul a[2]*b[1]
629 mull %edx
630 addl %eax,%ebx
631 movl 4(%esi),%eax
632 adcl %edx,%ecx
633 movl 8(%edi),%edx
634 adcl $0,%ebp
635 # mul a[1]*b[2]
636 mull %edx
637 addl %eax,%ebx
638 movl (%esi),%eax
639 adcl %edx,%ecx
640 movl 12(%edi),%edx
641 adcl $0,%ebp
642 # mul a[0]*b[3]
643 mull %edx
644 addl %eax,%ebx
645 movl 20(%esp),%eax
646 adcl %edx,%ecx
647 movl 4(%edi),%edx
648 adcl $0,%ebp
649 movl %ebx,12(%eax)
650 movl 12(%esi),%eax
651 # saved r[3]
652 # ################## Calculate word 4
653 xorl %ebx,%ebx
654 # mul a[3]*b[1]
655 mull %edx
656 addl %eax,%ecx
657 movl 8(%esi),%eax
658 adcl %edx,%ebp
659 movl 8(%edi),%edx
660 adcl $0,%ebx
661 # mul a[2]*b[2]
662 mull %edx
663 addl %eax,%ecx
664 movl 4(%esi),%eax
665 adcl %edx,%ebp
666 movl 12(%edi),%edx
667 adcl $0,%ebx
668 # mul a[1]*b[3]
669 mull %edx
670 addl %eax,%ecx
671 movl 20(%esp),%eax
672 adcl %edx,%ebp
673 movl 8(%edi),%edx
674 adcl $0,%ebx
675 movl %ecx,16(%eax)
676 movl 12(%esi),%eax
677 # saved r[4]
678 # ################## Calculate word 5
679 xorl %ecx,%ecx
680 # mul a[3]*b[2]
681 mull %edx
682 addl %eax,%ebp
683 movl 8(%esi),%eax
684 adcl %edx,%ebx
685 movl 12(%edi),%edx
686 adcl $0,%ecx
687 # mul a[2]*b[3]
688 mull %edx
689 addl %eax,%ebp
690 movl 20(%esp),%eax
691 adcl %edx,%ebx
692 movl 12(%edi),%edx
693 adcl $0,%ecx
694 movl %ebp,20(%eax)
695 movl 12(%esi),%eax
696 # saved r[5]
697 # ################## Calculate word 6
698 xorl %ebp,%ebp
699 # mul a[3]*b[3]
700 mull %edx
701 addl %eax,%ebx
702 movl 20(%esp),%eax
703 adcl %edx,%ecx
704 adcl $0,%ebp
705 movl %ebx,24(%eax)
706 # saved r[6]
707 # save r[7]
708 movl %ecx,28(%eax)
709 popl %ebx
710 popl %ebp
711 popl %edi
712 popl %esi
713 ret
714 .globl _bn_sqr_comba8
715 .private_extern _bn_sqr_comba8
716 .align 4
717 _bn_sqr_comba8:
718 L_bn_sqr_comba8_begin:
719 pushl %esi
720 pushl %edi
721 pushl %ebp
722 pushl %ebx
723 movl 20(%esp),%edi
724 movl 24(%esp),%esi
725 xorl %ebx,%ebx
726 xorl %ecx,%ecx
727 movl (%esi),%eax
728 # ############### Calculate word 0
729 xorl %ebp,%ebp
730 # sqr a[0]*a[0]
731 mull %eax
732 addl %eax,%ebx
733 adcl %edx,%ecx
734 movl (%esi),%edx
735 adcl $0,%ebp
736 movl %ebx,(%edi)
737 movl 4(%esi),%eax
738 # saved r[0]
739 # ############### Calculate word 1
740 xorl %ebx,%ebx
741 # sqr a[1]*a[0]
742 mull %edx
743 addl %eax,%eax
744 adcl %edx,%edx
745 adcl $0,%ebx
746 addl %eax,%ecx
747 adcl %edx,%ebp
748 movl 8(%esi),%eax
749 adcl $0,%ebx
750 movl %ecx,4(%edi)
751 movl (%esi),%edx
752 # saved r[1]
753 # ############### Calculate word 2
754 xorl %ecx,%ecx
755 # sqr a[2]*a[0]
756 mull %edx
757 addl %eax,%eax
758 adcl %edx,%edx
759 adcl $0,%ecx
760 addl %eax,%ebp
761 adcl %edx,%ebx
762 movl 4(%esi),%eax
763 adcl $0,%ecx
764 # sqr a[1]*a[1]
765 mull %eax
766 addl %eax,%ebp
767 adcl %edx,%ebx
768 movl (%esi),%edx
769 adcl $0,%ecx
770 movl %ebp,8(%edi)
771 movl 12(%esi),%eax
772 # saved r[2]
773 # ############### Calculate word 3
774 xorl %ebp,%ebp
775 # sqr a[3]*a[0]
776 mull %edx
777 addl %eax,%eax
778 adcl %edx,%edx
779 adcl $0,%ebp
780 addl %eax,%ebx
781 adcl %edx,%ecx
782 movl 8(%esi),%eax
783 adcl $0,%ebp
784 movl 4(%esi),%edx
785 # sqr a[2]*a[1]
786 mull %edx
787 addl %eax,%eax
788 adcl %edx,%edx
789 adcl $0,%ebp
790 addl %eax,%ebx
791 adcl %edx,%ecx
792 movl 16(%esi),%eax
793 adcl $0,%ebp
794 movl %ebx,12(%edi)
795 movl (%esi),%edx
796 # saved r[3]
797 # ############### Calculate word 4
798 xorl %ebx,%ebx
799 # sqr a[4]*a[0]
800 mull %edx
801 addl %eax,%eax
802 adcl %edx,%edx
803 adcl $0,%ebx
804 addl %eax,%ecx
805 adcl %edx,%ebp
806 movl 12(%esi),%eax
807 adcl $0,%ebx
808 movl 4(%esi),%edx
809 # sqr a[3]*a[1]
810 mull %edx
811 addl %eax,%eax
812 adcl %edx,%edx
813 adcl $0,%ebx
814 addl %eax,%ecx
815 adcl %edx,%ebp
816 movl 8(%esi),%eax
817 adcl $0,%ebx
818 # sqr a[2]*a[2]
819 mull %eax
820 addl %eax,%ecx
821 adcl %edx,%ebp
822 movl (%esi),%edx
823 adcl $0,%ebx
824 movl %ecx,16(%edi)
825 movl 20(%esi),%eax
826 # saved r[4]
827 # ############### Calculate word 5
828 xorl %ecx,%ecx
829 # sqr a[5]*a[0]
830 mull %edx
831 addl %eax,%eax
832 adcl %edx,%edx
833 adcl $0,%ecx
834 addl %eax,%ebp
835 adcl %edx,%ebx
836 movl 16(%esi),%eax
837 adcl $0,%ecx
838 movl 4(%esi),%edx
839 # sqr a[4]*a[1]
840 mull %edx
841 addl %eax,%eax
842 adcl %edx,%edx
843 adcl $0,%ecx
844 addl %eax,%ebp
845 adcl %edx,%ebx
846 movl 12(%esi),%eax
847 adcl $0,%ecx
848 movl 8(%esi),%edx
849 # sqr a[3]*a[2]
850 mull %edx
851 addl %eax,%eax
852 adcl %edx,%edx
853 adcl $0,%ecx
854 addl %eax,%ebp
855 adcl %edx,%ebx
856 movl 24(%esi),%eax
857 adcl $0,%ecx
858 movl %ebp,20(%edi)
859 movl (%esi),%edx
860 # saved r[5]
861 # ############### Calculate word 6
862 xorl %ebp,%ebp
863 # sqr a[6]*a[0]
864 mull %edx
865 addl %eax,%eax
866 adcl %edx,%edx
867 adcl $0,%ebp
868 addl %eax,%ebx
869 adcl %edx,%ecx
870 movl 20(%esi),%eax
871 adcl $0,%ebp
872 movl 4(%esi),%edx
873 # sqr a[5]*a[1]
874 mull %edx
875 addl %eax,%eax
876 adcl %edx,%edx
877 adcl $0,%ebp
878 addl %eax,%ebx
879 adcl %edx,%ecx
880 movl 16(%esi),%eax
881 adcl $0,%ebp
882 movl 8(%esi),%edx
883 # sqr a[4]*a[2]
884 mull %edx
885 addl %eax,%eax
886 adcl %edx,%edx
887 adcl $0,%ebp
888 addl %eax,%ebx
889 adcl %edx,%ecx
890 movl 12(%esi),%eax
891 adcl $0,%ebp
892 # sqr a[3]*a[3]
893 mull %eax
894 addl %eax,%ebx
895 adcl %edx,%ecx
896 movl (%esi),%edx
897 adcl $0,%ebp
898 movl %ebx,24(%edi)
899 movl 28(%esi),%eax
900 # saved r[6]
901 # ############### Calculate word 7
902 xorl %ebx,%ebx
903 # sqr a[7]*a[0]
904 mull %edx
905 addl %eax,%eax
906 adcl %edx,%edx
907 adcl $0,%ebx
908 addl %eax,%ecx
909 adcl %edx,%ebp
910 movl 24(%esi),%eax
911 adcl $0,%ebx
912 movl 4(%esi),%edx
913 # sqr a[6]*a[1]
914 mull %edx
915 addl %eax,%eax
916 adcl %edx,%edx
917 adcl $0,%ebx
918 addl %eax,%ecx
919 adcl %edx,%ebp
920 movl 20(%esi),%eax
921 adcl $0,%ebx
922 movl 8(%esi),%edx
923 # sqr a[5]*a[2]
924 mull %edx
925 addl %eax,%eax
926 adcl %edx,%edx
927 adcl $0,%ebx
928 addl %eax,%ecx
929 adcl %edx,%ebp
930 movl 16(%esi),%eax
931 adcl $0,%ebx
932 movl 12(%esi),%edx
933 # sqr a[4]*a[3]
934 mull %edx
935 addl %eax,%eax
936 adcl %edx,%edx
937 adcl $0,%ebx
938 addl %eax,%ecx
939 adcl %edx,%ebp
940 movl 28(%esi),%eax
941 adcl $0,%ebx
942 movl %ecx,28(%edi)
943 movl 4(%esi),%edx
944 # saved r[7]
945 # ############### Calculate word 8
946 xorl %ecx,%ecx
947 # sqr a[7]*a[1]
948 mull %edx
949 addl %eax,%eax
950 adcl %edx,%edx
951 adcl $0,%ecx
952 addl %eax,%ebp
953 adcl %edx,%ebx
954 movl 24(%esi),%eax
955 adcl $0,%ecx
956 movl 8(%esi),%edx
957 # sqr a[6]*a[2]
958 mull %edx
959 addl %eax,%eax
960 adcl %edx,%edx
961 adcl $0,%ecx
962 addl %eax,%ebp
963 adcl %edx,%ebx
964 movl 20(%esi),%eax
965 adcl $0,%ecx
966 movl 12(%esi),%edx
967 # sqr a[5]*a[3]
968 mull %edx
969 addl %eax,%eax
970 adcl %edx,%edx
971 adcl $0,%ecx
972 addl %eax,%ebp
973 adcl %edx,%ebx
974 movl 16(%esi),%eax
975 adcl $0,%ecx
976 # sqr a[4]*a[4]
977 mull %eax
978 addl %eax,%ebp
979 adcl %edx,%ebx
980 movl 8(%esi),%edx
981 adcl $0,%ecx
982 movl %ebp,32(%edi)
983 movl 28(%esi),%eax
984 # saved r[8]
985 # ############### Calculate word 9
986 xorl %ebp,%ebp
987 # sqr a[7]*a[2]
988 mull %edx
989 addl %eax,%eax
990 adcl %edx,%edx
991 adcl $0,%ebp
992 addl %eax,%ebx
993 adcl %edx,%ecx
994 movl 24(%esi),%eax
995 adcl $0,%ebp
996 movl 12(%esi),%edx
997 # sqr a[6]*a[3]
998 mull %edx
999 addl %eax,%eax
1000 adcl %edx,%edx
1001 adcl $0,%ebp
1002 addl %eax,%ebx
1003 adcl %edx,%ecx
1004 movl 20(%esi),%eax
1005 adcl $0,%ebp
1006 movl 16(%esi),%edx
1007 # sqr a[5]*a[4]
1008 mull %edx
1009 addl %eax,%eax
1010 adcl %edx,%edx
1011 adcl $0,%ebp
1012 addl %eax,%ebx
1013 adcl %edx,%ecx
1014 movl 28(%esi),%eax
1015 adcl $0,%ebp
1016 movl %ebx,36(%edi)
1017 movl 12(%esi),%edx
1018 # saved r[9]
1019 # ############### Calculate word 10
1020 xorl %ebx,%ebx
1021 # sqr a[7]*a[3]
1022 mull %edx
1023 addl %eax,%eax
1024 adcl %edx,%edx
1025 adcl $0,%ebx
1026 addl %eax,%ecx
1027 adcl %edx,%ebp
1028 movl 24(%esi),%eax
1029 adcl $0,%ebx
1030 movl 16(%esi),%edx
1031 # sqr a[6]*a[4]
1032 mull %edx
1033 addl %eax,%eax
1034 adcl %edx,%edx
1035 adcl $0,%ebx
1036 addl %eax,%ecx
1037 adcl %edx,%ebp
1038 movl 20(%esi),%eax
1039 adcl $0,%ebx
1040 # sqr a[5]*a[5]
1041 mull %eax
1042 addl %eax,%ecx
1043 adcl %edx,%ebp
1044 movl 16(%esi),%edx
1045 adcl $0,%ebx
1046 movl %ecx,40(%edi)
1047 movl 28(%esi),%eax
1048 # saved r[10]
1049 # ############### Calculate word 11
1050 xorl %ecx,%ecx
1051 # sqr a[7]*a[4]
1052 mull %edx
1053 addl %eax,%eax
1054 adcl %edx,%edx
1055 adcl $0,%ecx
1056 addl %eax,%ebp
1057 adcl %edx,%ebx
1058 movl 24(%esi),%eax
1059 adcl $0,%ecx
1060 movl 20(%esi),%edx
1061 # sqr a[6]*a[5]
1062 mull %edx
1063 addl %eax,%eax
1064 adcl %edx,%edx
1065 adcl $0,%ecx
1066 addl %eax,%ebp
1067 adcl %edx,%ebx
1068 movl 28(%esi),%eax
1069 adcl $0,%ecx
1070 movl %ebp,44(%edi)
1071 movl 20(%esi),%edx
1072 # saved r[11]
1073 # ############### Calculate word 12
1074 xorl %ebp,%ebp
1075 # sqr a[7]*a[5]
1076 mull %edx
1077 addl %eax,%eax
1078 adcl %edx,%edx
1079 adcl $0,%ebp
1080 addl %eax,%ebx
1081 adcl %edx,%ecx
1082 movl 24(%esi),%eax
1083 adcl $0,%ebp
1084 # sqr a[6]*a[6]
1085 mull %eax
1086 addl %eax,%ebx
1087 adcl %edx,%ecx
1088 movl 24(%esi),%edx
1089 adcl $0,%ebp
1090 movl %ebx,48(%edi)
1091 movl 28(%esi),%eax
1092 # saved r[12]
1093 # ############### Calculate word 13
1094 xorl %ebx,%ebx
1095 # sqr a[7]*a[6]
1096 mull %edx
1097 addl %eax,%eax
1098 adcl %edx,%edx
1099 adcl $0,%ebx
1100 addl %eax,%ecx
1101 adcl %edx,%ebp
1102 movl 28(%esi),%eax
1103 adcl $0,%ebx
1104 movl %ecx,52(%edi)
1105 # saved r[13]
1106 # ############### Calculate word 14
1107 xorl %ecx,%ecx
1108 # sqr a[7]*a[7]
1109 mull %eax
1110 addl %eax,%ebp
1111 adcl %edx,%ebx
1112 adcl $0,%ecx
1113 movl %ebp,56(%edi)
1114 # saved r[14]
1115 movl %ebx,60(%edi)
1116 popl %ebx
1117 popl %ebp
1118 popl %edi
1119 popl %esi
1120 ret
1121 .globl _bn_sqr_comba4
1122 .private_extern _bn_sqr_comba4
1123 .align 4
1124 _bn_sqr_comba4:
1125 L_bn_sqr_comba4_begin:
1126 pushl %esi
1127 pushl %edi
1128 pushl %ebp
1129 pushl %ebx
1130 movl 20(%esp),%edi
1131 movl 24(%esp),%esi
1132 xorl %ebx,%ebx
1133 xorl %ecx,%ecx
1134 movl (%esi),%eax
1135 # ############### Calculate word 0
1136 xorl %ebp,%ebp
1137 # sqr a[0]*a[0]
1138 mull %eax
1139 addl %eax,%ebx
1140 adcl %edx,%ecx
1141 movl (%esi),%edx
1142 adcl $0,%ebp
1143 movl %ebx,(%edi)
1144 movl 4(%esi),%eax
1145 # saved r[0]
1146 # ############### Calculate word 1
1147 xorl %ebx,%ebx
1148 # sqr a[1]*a[0]
1149 mull %edx
1150 addl %eax,%eax
1151 adcl %edx,%edx
1152 adcl $0,%ebx
1153 addl %eax,%ecx
1154 adcl %edx,%ebp
1155 movl 8(%esi),%eax
1156 adcl $0,%ebx
1157 movl %ecx,4(%edi)
1158 movl (%esi),%edx
1159 # saved r[1]
1160 # ############### Calculate word 2
1161 xorl %ecx,%ecx
1162 # sqr a[2]*a[0]
1163 mull %edx
1164 addl %eax,%eax
1165 adcl %edx,%edx
1166 adcl $0,%ecx
1167 addl %eax,%ebp
1168 adcl %edx,%ebx
1169 movl 4(%esi),%eax
1170 adcl $0,%ecx
1171 # sqr a[1]*a[1]
1172 mull %eax
1173 addl %eax,%ebp
1174 adcl %edx,%ebx
1175 movl (%esi),%edx
1176 adcl $0,%ecx
1177 movl %ebp,8(%edi)
1178 movl 12(%esi),%eax
1179 # saved r[2]
1180 # ############### Calculate word 3
1181 xorl %ebp,%ebp
1182 # sqr a[3]*a[0]
1183 mull %edx
1184 addl %eax,%eax
1185 adcl %edx,%edx
1186 adcl $0,%ebp
1187 addl %eax,%ebx
1188 adcl %edx,%ecx
1189 movl 8(%esi),%eax
1190 adcl $0,%ebp
1191 movl 4(%esi),%edx
1192 # sqr a[2]*a[1]
1193 mull %edx
1194 addl %eax,%eax
1195 adcl %edx,%edx
1196 adcl $0,%ebp
1197 addl %eax,%ebx
1198 adcl %edx,%ecx
1199 movl 12(%esi),%eax
1200 adcl $0,%ebp
1201 movl %ebx,12(%edi)
1202 movl 4(%esi),%edx
1203 # saved r[3]
1204 # ############### Calculate word 4
1205 xorl %ebx,%ebx
1206 # sqr a[3]*a[1]
1207 mull %edx
1208 addl %eax,%eax
1209 adcl %edx,%edx
1210 adcl $0,%ebx
1211 addl %eax,%ecx
1212 adcl %edx,%ebp
1213 movl 8(%esi),%eax
1214 adcl $0,%ebx
1215 # sqr a[2]*a[2]
1216 mull %eax
1217 addl %eax,%ecx
1218 adcl %edx,%ebp
1219 movl 8(%esi),%edx
1220 adcl $0,%ebx
1221 movl %ecx,16(%edi)
1222 movl 12(%esi),%eax
1223 # saved r[4]
1224 # ############### Calculate word 5
1225 xorl %ecx,%ecx
1226 # sqr a[3]*a[2]
1227 mull %edx
1228 addl %eax,%eax
1229 adcl %edx,%edx
1230 adcl $0,%ecx
1231 addl %eax,%ebp
1232 adcl %edx,%ebx
1233 movl 12(%esi),%eax
1234 adcl $0,%ecx
1235 movl %ebp,20(%edi)
1236 # saved r[5]
1237 # ############### Calculate word 6
1238 xorl %ebp,%ebp
1239 # sqr a[3]*a[3]
1240 mull %eax
1241 addl %eax,%ebx
1242 adcl %edx,%ecx
1243 adcl $0,%ebp
1244 movl %ebx,24(%edi)
1245 # saved r[6]
1246 movl %ecx,28(%edi)
1247 popl %ebx
1248 popl %ebp
1249 popl %edi
1250 popl %esi
1251 ret
1252 #endif