bn/asm/ppc.pl

235 #.set r12,12
841 # r10, r11, r12 are the equivalents of c1, c2, and c3.
855 	adde	r12,r9,r0
863 	adde	r12,r9,r12
870 	addc	r12,r8,r12
878 	addc	r12,r8,r12
886 	addc	r12,r8,r12
889 	$ST	r12,`2*$BNSZ`(r3)	#r[2]=c3
896 	addze	r12,r0
904 	addze	r12,r12
912 	addze	r12,r12
920 	addze	r12,r12
927 	adde	r12,r9,r12
935 	adde	r12,r9,r12
943 	adde	r12,r9,r12
950 	addc	r12,r8,r12
958 	addc	r12,r8,r12
961 	$ST	r12,`5*$BNSZ`(r3)	#r[5]=c3
994 # r10, r11, r12 are the equivalents of c1, c2, and c3.
1009 	addze	r12,r9			# since we didnt set r12 to zero before.
1017 	adde	r12,r12,r9
1024 	addc	r12,r12,r8
1032 	addc	r12,r12,r8
1040 	addc	r12,r12,r8
1043 	$ST	r12,`2*$BNSZ`(r3)	#r[2]=c3;
1050 	addze	r12,r0
1058 	addze	r12,r12
1067 	addze	r12,r12
1075 	addze	r12,r12
1082 	adde	r12,r12,r9
1090 	adde	r12,r12,r9
1098 	adde	r12,r12,r9
1106 	adde	r12,r12,r9
1114 	adde	r12,r12,r9
1121 	addc	r12,r12,r8
1129 	addc	r12,r12,r8
1137 	addc	r12,r12,r8
1145 	addc	r12,r12,r8
1153 	addc	r12,r12,r8
1161 	addc	r12,r12,r8
1164 	$ST	r12,`5*$BNSZ`(r3)	#r[5]=c3;
1171 	addze	r12,r0
1179 	addze	r12,r12
1187 	addze	r12,r12
1195 	addze	r12,r12
1203 	addze	r12,r12
1211 	addze	r12,r12
1219 	addze	r12,r12
1226 	adde	r12,r12,r9
1234 	adde	r12,r12,r9
1242 	adde	r12,r12,r9
1250 	adde	r12,r12,r9
1258 	adde	r12,r12,r9
1266 	adde	r12,r12,r9
1274 	adde	r12,r12,r9
1282 	adde	r12,r12,r9
1289 	addc	r12,r12,r8
1297 	addc	r12,r12,r8
1305 	addc	r12,r12,r8
1313 	addc	r12,r12,r8
1321 	addc	r12,r12,r8
1329 	addc	r12,r12,r8
1337 	addc	r12,r12,r8
1340 	$ST	r12,`8*$BNSZ`(r3)	#r[8]=c3;
1347 	addze	r12,r0
1355 	addze	r12,r12
1363 	addze	r12,r12
1371 	addze	r12,r12
1379 	addze	r12,r12
1387 	addze	r12,r12
1394 	adde	r12,r12,r9
1402 	adde	r12,r12,r9
1410 	adde	r12,r12,r9
1418 	adde	r12,r12,r9
1426 	adde	r12,r12,r9
1433 	addc	r12,r12,r8
1441 	addc	r12,r12,r8
1449 	addc	r12,r12,r8
1457 	addc	r12,r12,r8
1460 	$ST	r12,`11*$BNSZ`(r3)	#r[11]=c3;
1467 	addze	r12,r0
1475 	addze	r12,r12
1483 	addze	r12,r12
1490 	adde	r12,r12,r9
1498 	adde	r12,r12,r9
1505 	addc	r12,r12,r8
1507 	$ST	r12,`14*$BNSZ`(r3)	#r[14]=c3;
1672 	$UMULL	r12,r9,r8		#th = q*dh
1677 	subf	r10,r12,r3		#t = h -th
1689 	subf	r12,r9,r12		#th -=dh
1697 	add	r12,r12,r10		# th+=t
1699 	addi	r12,r12,1		# th++
1702 	$UCMP	cr1,r3,r12		#compare h and th
1707 	subf	r12,r12,r3		#r12 = h-th
1712 	$INSR	r11,r12,`$BITS/2`,`$BITS/2`	# r11 is the value we want rotated $BITS/2.
1782 	xor	r12,r12,r12		# used for carry
1791 	addc	r9,r9,r12
1800 	$UMULH  r12,r6,r8
1802 	#addze	r12,r12
1808 	adde	r9,r9,r12
1814 	$UMULH  r12,r6,r8
1816 	addze	r12,r12			#this spin we collect carry into
1817 					#r12
1831 	addc	r9,r9,r12
1834 	addi	r12,r10,0
1845 	addc	r9,r9,r12
1848 	addi	r12,r10,0
1858 	addc	r9,r9,r12
1861 	addi	r12,r10,0
1864 	addi	r3,r12,0
1890 	xor	r12,r12,r12  		#r12 = 0 . used for carry
1900 	addc	r9,r9,r12		#r12 is carry.
1915 	$UMULH  r12,r6,r8
1917 	addze	r12,r12
1919 	#addze	r12,r12
1927 	adde	r9,r9,r12
1937 	$UMULH  r12,r6,r8
1939 	addze	r12,r12
1941 	addze	r12,r12
1960 	addc	r9,r9,r12
1961 	addze	r12,r10
1972 	addc	r9,r9,r12
1973 	addze	r12,r10
1984 	addc	r9,r9,r12
1985 	addze	r12,r10
1989 	addi	r3,r12,0