bn/asm/x86_64-mont5.pl

105 	push	%r12
141 	lea	128($bp),%r12		# reassign $bp (+size optimization)
143 		$bp="%r12";
431 	mov	-24(%rsi),%r12
458 	push	%r12
527 	mov	-24(%rsi),%r12
544 		$bp="%r12";
982 	mov	($np),%r12
987 	dec	%r12			# so that after 'not' we get -n[0]
1049 my @A1=("%r12","%r13");
1068 	push	%r12
1166 	mov	-24(%rsi),%r12
1731 	mov	8*4($tptr),%r12
1781 	add	%rax,%r12
1784 	add	%r12,%r11
1785 	mov	%rdx,%r12
1786 	adc	\$0,%r12
1792 	add	%r13,%r12
1827 	adc	8*4($tptr),%r12
1873 	add	%rax,%r12
1876 	add	%r12,%r11
1877 	mov	%rdx,%r12
1878 	adc	\$0,%r12
1884 	add	%r13,%r12
1920 	adc	8*4($tptr),%r12
1936 	adc	\$0,%r12
1948 	adc	8*4($tptr),%r12
1963 	mov	%r12,8*4($tptr)
1985 	mov	8*0($nptr),%r12
1992 	dec	%r12			# so that after 'not' we get -n[0]
2001 	mov	8*0($nptr),%r12
2007 	not	%r12
2011 	and	%rax,%r12
2017 	adc	8*0($tptr),%r12
2021 	mov	%r12,8*0($rptr)
2057 	push	%r12
2197 	mov	-24(%rsi),%r12
2220 	push	%r12
2298 	mov	-24(%rsi),%r12
2418 	mulx	1*8($aptr),%r11,%r12	# a[1]*b[0]
2421 	adc	%rax,%r12
2441 	adox	%r12,%r11
2442 	mulx	2*8($nptr),%rax,%r12
2446 	adox	%r13,%r12
2450 	adcx	%rax,%r12
2453 	mov	%r12,-8*2($tptr)
2463 	mulx	2*8($aptr),%r12,%rax	# ...
2464 	adcx	%r14,%r12
2479 	adox	%r15,%r12
2482 	adcx	%rax,%r12
2487 	mov	%r12,-3*8($tptr)
2540 	mulx	1*8($aptr),%r14,%r12	# a[1]*b[i]
2545 	adcx	%r15,%r12
2547 	adox	-2*8($tptr),%r12
2567 	adox	%r12,%r11
2568 	mulx	2*8($nptr),%rax,%r12
2570 	adox	%r13,%r12
2575 	adcx	%rax,%r12
2578 	mov	%r12,-8*2($tptr)
2590 	mulx	2*8($aptr),%r12,%rax	# ...
2592 	adox	%r14,%r12
2595 	adcx	2*8($tptr),%r12
2609 	adox	%r15,%r12
2612 	adcx	%rax,%r12
2618 	mov	%r12,-3*8($tptr)
2641 	mov	($nptr,$num),%r12
2653 	dec	%r12			# so that after 'not' we get -n[0]
2675 my @A1=("%r12","%r13");
2686 	push	%r12
2788 	mov	-24(%rsi),%r12
2874 	xor	%r12,%r12
2892 	adox	%rax,%r12
2894 	adcx	%r12,%r11
2896 	mulx	5*8($aptr),%r12,%rax
2897 	adcx	%r13,%r12
2921 	adcx	%r12,%r10
2923 	.byte	0xc4,0xe2,0x9b,0xf6,0x9e,0x30,0x00,0x00,0x00	# mulx	6*8($aptr),%r12,%rbx
2925 	adox	%r14,%r12
2928 	adcx	%rax,%r12
2945 	adcx	%r12,%r10
2947 	.byte	0xc4,0x62,0x9b,0xf6,0xae,0x38,0x00,0x00,0x00	# mulx	7*8($aptr),%r12,%r13
2951 	adox	%rax,%r12
2952 	adcx	%r14,%r12
2964 	adox	%r12,%r10
2965 	mulx	7*8($aptr),%r11,%r12
2972 	adox	$zero,%r12		# of=0
2973 	adcx	$zero,%r12		# cf=0
2987 	adcx	%r12,%r11
2992 	mulx	%r8,%r12,%r13		# a[7]*a[5]
2996 	adox	%rbx,%r12
2997 	adcx	%rax,%r12
3015 	adc	12*8($tptr),%r12
3048 	adox	%r12,%r11
3050 	.byte	0xc4,0x62,0xfb,0xf6,0xa5,0x20,0x00,0x00,0x00	# mulx	4*8($aaptr),%rax,%r12
3052 	adox	%r13,%r12
3055 	adcx	%rax,%r12
3086 	adc	4*8($tptr),%r12
3108 	adc	\$0,%r12
3121 	mov	%r12,4*8($tptr)
3122 	 mov	4*8($carry),%r12
3138 	mov	%r12,12*8($tptr)
3245 	mov	8*4($tptr),%r12
3275 	adox	%r12,%r11
3277 	.byte	0xc4,0x62,0xe3,0xf6,0xa5,0x20,0x00,0x00,0x00	# mulx	8*4($nptr),%rbx,%r12
3281 	adox	%r13,%r12
3288 	adcx	%rax,%r12
3316 	adc	8*4($tptr),%r12
3344 	adox	%r12,%r11
3346 	.byte	0xc4,0x62,0xfb,0xf6,0xa5,0x20,0x00,0x00,0x00	# mulx	8*4($nptr),%rax,%r12
3348 	adox	%r13,%r12
3351 	adcx	%rax,%r12
3379 	adc	8*4($tptr),%r12
3398 	adc	\$0,%r12
3413 	adc	8*4($tptr),%r12
3427 	mov	%r12,8*4($tptr)
3448 	mov	8*0($nptr),%r12
3456 	dec	%r12			# so that after 'not' we get -n[0]
3465 	mov	8*0($nptr),%r12
3470 	andn	%rax,%r12,%r12
3477 	adc	8*0($tptr),%r12
3481 	mov	%r12,8*0($rptr)
3661 	push	%r12
3705 	mov	-24(%rax),%r12
3711 	mov	%r12,216($context)	# restore context->R12
3735 	lea	24(%rsi),%r12		# &disp->EstablisherFrame
3738 	mov	%r12,48(%rsp)		# arg7
3748 	pop	%r12