121 my $tp="r22";
177 	addi	$tp,$sp,$LOCALS
214 	$ST	$lo1,0($tp)	; tp[j-1]
217 	addi	$tp,$tp,$BNSZ	; tp++
227 	$ST	$lo1,0($tp)	; tp[j-1]
232 	$ST	$hi1,$BNSZ($tp)
239 	addi	$tp,$sp,$LOCALS
264 	$LD	$tj,$BNSZ($tp)	; tp[j]
278 	$ST	$lo1,0($tp)	; tp[j-1]
279 	addi	$tp,$tp,$BNSZ	; tp++
282 	$LD	$tj,$BNSZ($tp)	; tp[j]
292 	$ST	$lo1,0($tp)	; tp[j-1]
298 	$ST	$hi1,$BNSZ($tp)
307 	addi	$tp,$sp,$LOCALS
311 Lsub:	$LDX	$tj,$tp,$j
324 	$LDX	$tj,$tp,$j
328 	$STX	$j,$tp,$j	; zap at once
361     $bi,$mi,$tp,$ap_end,$cnt) = map("r$_",(9..12,14..31));
446 	addic	$tp,$sp,$SIZE_T*7	# &t[-1], clear carry bit
473 	$STU	$mi,$SIZE_T($tp)	# put aside t[0]*n0 for tail processing
560 	$STU	$acc0,$SIZE_T($tp)	# word of result
593 	$ST	$acc0,$SIZE_T*1($tp)	# result
594 	$ST	$acc1,$SIZE_T*2($tp)
595 	$ST	$acc2,$SIZE_T*3($tp)
596 	$ST	$acc3,$SIZE_T*4($tp)
597 	$ST	$carry,$SIZE_T*5($tp)	# save topmost carry
607 	addic	$tp,$sp,$SIZE_T*7	# &t[-1], clear carry bit
633 	$STU	$mi,$SIZE_T($tp)	# put aside t[0]*n0 for tail processing
658 	$LD	$t0,$SIZE_T*5($tp)	# t[4..7]
660 	$LD	$t1,$SIZE_T*6($tp)
661 	$LD	$t2,$SIZE_T*7($tp)
662 	$LD	$t3,$SIZE_T*8($tp)
719 	$STU	$acc0,$SIZE_T($tp)	# word of result
727 	$LD	$t0,$SIZE_T*5($tp)	# next t[i] or topmost carry
733 	$LD	$t1,$SIZE_T*6($tp)
734 	$LD	$t2,$SIZE_T*7($tp)
735 	$LD	$t3,$SIZE_T*8($tp)
765 	$ST	$a0,$SIZE_T*1($tp)	# result
767 	$ST	$a1,$SIZE_T*2($tp)
768 	$ST	$a2,$SIZE_T*3($tp)
769 	$ST	$a3,$SIZE_T*4($tp)
770 	$ST	$carry,$SIZE_T*5($tp)	# store topmost carry
786 	addic	$tp,$sp,$SIZE_T*7	# &t[-1], clear carry bit
800 	addi	$tp,$sp,$SIZE_T*15
806 	$LD	$acc0,$SIZE_T*1($tp)
809 	$LD	$acc1,$SIZE_T*2($tp)
812 	$LD	$acc2,$SIZE_T*3($tp)
814 	$LDU	$acc3,$SIZE_T*4($tp)
832 	 addi	$tp,$sp,$SIZE_T*12
844 	$ST	$zero,$SIZE_T*0($tp)	# wipe stack clean
847 	$ST	$zero,$SIZE_T*1($tp)
850 	$ST	$zero,$SIZE_T*2($tp)
853 	$ST	$zero,$SIZE_T*3($tp)
856 	$LD	$t0,$SIZE_T*4($tp)
859 	$LD	$t1,$SIZE_T*5($tp)
862 	$LD	$t2,$SIZE_T*6($tp)
865 	$LD	$t3,$SIZE_T*7($tp)
866 	addi	$tp,$tp,$SIZE_T*4
876 	$ST	$zero,$SIZE_T*0($tp)
879 	$ST	$zero,$SIZE_T*1($tp)
882 	$ST	$zero,$SIZE_T*2($tp)
885 	$ST	$zero,$SIZE_T*3($tp)
888 	$ST	$zero,$SIZE_T*4($tp)
965 my ($tp,$ap_end,$na0)=($bp,$np,$carry);
1037 	addi	$tp,$sp,$SIZE_T*11	# &tp[-1]
1044 	$ST	$zero,$SIZE_T*1($tp)
1045 	$ST	$zero,$SIZE_T*2($tp)
1046 	$ST	$zero,$SIZE_T*3($tp)
1047 	$ST	$zero,$SIZE_T*4($tp)
1048 	$ST	$zero,$SIZE_T*5($tp)
1049 	$ST	$zero,$SIZE_T*6($tp)
1050 	$ST	$zero,$SIZE_T*7($tp)
1051 	$ST	$zero,$SIZE_T*8($tp)
1053 	$ST	$zero,$SIZE_T*9($tp)
1054 	$ST	$zero,$SIZE_T*10($tp)
1055 	$ST	$zero,$SIZE_T*11($tp)
1056 	$ST	$zero,$SIZE_T*12($tp)
1057 	$ST	$zero,$SIZE_T*13($tp)
1058 	$ST	$zero,$SIZE_T*14($tp)
1059 	$ST	$zero,$SIZE_T*15($tp)
1060 	$STU	$zero,$SIZE_T*16($tp)
1066 	$PUSH	$tp,$SIZE_T*9($sp)	# &tp[2*num-1]
1068 	addi	$tp,$sp,$SIZE_T*11	# &tp[-1]
1120 	$ST	$acc0,$SIZE_T*1($tp)	# t[0]
1122 	$ST	$acc1,$SIZE_T*2($tp)	# t[1]
1150 	$ST	$acc2,$SIZE_T*3($tp)	# t[2]
1152 	$ST	$acc3,$SIZE_T*4($tp)	# t[3]
1176 	$ST	$acc4,$SIZE_T*5($tp)	# t[4]
1178 	$ST	$acc5,$SIZE_T*6($tp)	# t[5]
1198 	$ST	$acc6,$SIZE_T*7($tp)	# t[6]
1200 	$STU	$acc7,$SIZE_T*8($tp)	# t[7]
1241 	$LD	$a0,$SIZE_T*1($tp)
1242 	$LD	$a1,$SIZE_T*2($tp)
1243 	$LD	$a2,$SIZE_T*3($tp)
1244 	$LD	$a3,$SIZE_T*4($tp)
1245 	$LD	$a4,$SIZE_T*5($tp)
1246 	$LD	$a5,$SIZE_T*6($tp)
1247 	$LD	$a6,$SIZE_T*7($tp)
1248 	$LD	$a7,$SIZE_T*8($tp)
1318 	$STU	$acc0,$SIZE_T($tp)
1339 	$LD	$a0,$SIZE_T*1($tp)
1340 	$LD	$a1,$SIZE_T*2($tp)
1341 	$LD	$a2,$SIZE_T*3($tp)
1342 	$LD	$a3,$SIZE_T*4($tp)
1343 	$LD	$a4,$SIZE_T*5($tp)
1344 	$LD	$a5,$SIZE_T*6($tp)
1345 	$LD	$a6,$SIZE_T*7($tp)
1346 	$LD	$a7,$SIZE_T*8($tp)
1373 	sub	$t1,$tp,$t0
1381 	$ST	$acc0,$SIZE_T*1($tp)
1383 	$ST	$acc1,$SIZE_T*2($tp)
1385 	$ST	$acc2,$SIZE_T*3($tp)
1387 	$ST	$acc3,$SIZE_T*4($tp)
1389 	$ST	$acc4,$SIZE_T*5($tp)
1391 	$ST	$acc5,$SIZE_T*6($tp)
1393 	$ST	$acc6,$SIZE_T*7($tp)
1395 	$ST	$acc7,$SIZE_T*8($tp)
1397 	mr	$tp,$t1
1415 	$ST	$acc0,$SIZE_T*1($tp)	# tp[8]=
1417 	$ST	$acc1,$SIZE_T*2($tp)
1419 	$ST	$acc2,$SIZE_T*3($tp)
1420 	$ST	$acc3,$SIZE_T*4($tp)
1421 	$ST	$acc4,$SIZE_T*5($tp)
1422 	$ST	$acc5,$SIZE_T*6($tp)
1423 	$ST	$acc6,$SIZE_T*7($tp)
1424 	#$ST	$acc7,$SIZE_T*8($tp)	# tp[15] is not interesting
1425 	addi	$tp,$sp,$SIZE_T*11	# &tp[-1]
1443 	$LD	$t1,$SIZE_T*6($tp)	# =tp[5]
1449 	$LD	$t2,$SIZE_T*7($tp)	# =tp[6]
1455 	$LD	$t3,$SIZE_T*8($tp)	# =tp[7]
1462 	$LD	$t0,$SIZE_T*9($tp)	# =tp[8]
1468 	$LD	$t1,$SIZE_T*10($tp)	# =tp[9]
1472 	$ST	$acc0,$SIZE_T*1($tp)	# tp[0]=
1476 	$LD	$t2,$SIZE_T*11($tp)	# =tp[10]
1479 	$ST	$acc1,$SIZE_T*2($tp)	# tp[1]=
1483 	$LD	$t3,$SIZE_T*12($tp)	# =tp[11]
1487 	$ST	$acc2,$SIZE_T*3($tp)	# tp[2]=
1491 	$LD	$t0,$SIZE_T*13($tp)	# =tp[12]
1493 	$ST	$acc3,$SIZE_T*4($tp)	# tp[3]=
1494 	$ST	$acc4,$SIZE_T*5($tp)	# tp[4]=
1495 	$ST	$acc5,$SIZE_T*6($tp)	# tp[5]=
1496 	$ST	$acc6,$SIZE_T*7($tp)	# tp[6]=
1497 	$STU	$acc7,$SIZE_T*8($tp)	# tp[7]=
1510 	$ST	$acc0,$SIZE_T*1($tp)	# tp[8]=
1512 	$LD	$t1,$SIZE_T*6($tp)	# =tp[13]
1517 	$LD	$t2,$SIZE_T*7($tp)	# =tp[14]
1528 	$ST	$acc1,$SIZE_T*2($tp)	# tp[9]=
1548 	$ST	$acc2,$SIZE_T*3($tp)	# tp[10]=
1550 	$ST	$acc3,$SIZE_T*4($tp)	# tp[11]=
1552 	$ST	$acc4,$SIZE_T*5($tp)	# tp[12]=
1554 	$ST	$acc5,$SIZE_T*6($tp)	# tp[13]=
1556 	$ST	$acc6,$SIZE_T*7($tp)	# tp[14]=
1558 	$ST	$acc7,$SIZE_T*8($tp)	# tp[15]=
1560 	addi	$tp,$sp,$SIZE_T*11	# &tp[-1]
1569 	$STU	$na0,$SIZE_T($tp)	# put aside t[0]*n0 for tail processing
1604 	$LD	$t0,$SIZE_T*1($tp)
1605 	$LD	$t1,$SIZE_T*2($tp)
1606 	$LD	$t2,$SIZE_T*3($tp)
1607 	$LD	$t3,$SIZE_T*4($tp)
1608 	subi	$rp,$tp,$SIZE_T*7
1611 	$LD	$t0,$SIZE_T*5($tp)
1613 	$LD	$t1,$SIZE_T*6($tp)
1615 	$LD	$t2,$SIZE_T*7($tp)
1617 	$LD	$t3,$SIZE_T*8($tp)
1662 	$STU	$acc0,$SIZE_T($tp)
1680 	$LD	$a0,$SIZE_T*1($tp)
1683 	$LD	$a1,$SIZE_T*2($tp)
1685 	$LD	$a2,$SIZE_T*3($tp)
1686 	$LD	$a3,$SIZE_T*4($tp)
1687 	$LD	$a4,$SIZE_T*5($tp)
1688 	$LD	$a5,$SIZE_T*6($tp)
1689 	$LD	$a6,$SIZE_T*7($tp)
1690 	$LD	$a7,$SIZE_T*8($tp)
1715 	$POP	$t3,$SIZE_T*9($sp)	# &tp[2*num-1]
1716 	addi	$cnt,$tp,$SIZE_T*8	# end of current t[num] window
1740 	$ST	$t0,$SIZE_T*1($tp)
1742 	$ST	$t1,$SIZE_T*2($tp)
1744 	$ST	$acc2,$SIZE_T*3($tp)
1746 	$ST	$acc3,$SIZE_T*4($tp)
1748 	$ST	$acc4,$SIZE_T*5($tp)
1750 	$ST	$acc5,$SIZE_T*6($tp)
1752 	$ST	$acc6,$SIZE_T*7($tp)
1754 	$ST	$acc7,$SIZE_T*8($tp)
1757 	addi	$tp,$rp,$SIZE_T*7	# slide the window
1768 	mr	$n0,$tp			# put tp aside
1769 	addi	$tp,$tp,$SIZE_T*8
1782 	$LD	$acc0,$SIZE_T*1($tp)
1784 	$LD	$acc1,$SIZE_T*2($tp)
1787 	$LD	$acc2,$SIZE_T*3($tp)
1790 	$LD	$acc3,$SIZE_T*4($tp)
1794 	$LD	$acc4,$SIZE_T*5($tp)
1798 	$LD	$acc5,$SIZE_T*6($tp)
1802 	$LD	$acc6,$SIZE_T*7($tp)
1806 	$LDU	$acc7,$SIZE_T*8($tp)
1817 	 $LD	$acc0,$SIZE_T*1($n0)	# original $tp
1841 	addi	$tp,$sp,$SIZE_T*11
1854 	 $ST	$zero,$SIZE_T*1($tp)
1856 	 $ST	$zero,$SIZE_T*2($tp)
1858 	 $ST	$zero,$SIZE_T*3($tp)
1860 	 $STU	$zero,$SIZE_T*4($tp)

Last Index update Fri Nov 22 14:03:13 UTC 2024

Dedicated to & Maintained by Room-11