bn/asm/pa-risc2W.s

1005 c3           .reg %r3
1032     ADD,DC  C3,%r0,C3            ; c3++
1062     ADD,DC  C3,%r0,C3               ; add in carry (c3++)
1069     LDO     1(C3),C3              ; bump c3 if overflow,nullify otherwise
1072     ADD,DC  C3,%r0,C3             ; add in carry (c3++)
1098 	COPY     %r0,c3
1116 	SQR_ADD_C a0L,a0R,c1,c2,c3
1120 	SQR_ADD_C2 a1L,a1R,a0L,a0R,c2,c3,c1
1124 	SQR_ADD_C a1L,a1R,c3,c1,c2
1125 	SQR_ADD_C2 a2L,a2R,a0L,a0R,c3,c1,c2
1126 	STD     c3,16(r_ptr)            ; r[2] = c3;
1127 	COPY    %r0,c3
1129 	SQR_ADD_C2 a3L,a3R,a0L,a0R,c1,c2,c3
1130 	SQR_ADD_C2 a2L,a2R,a1L,a1R,c1,c2,c3
1134 	SQR_ADD_C a2L,a2R,c2,c3,c1
1135 	SQR_ADD_C2 a3L,a3R,a1L,a1R,c2,c3,c1
1136 	SQR_ADD_C2 a4L,a4R,a0L,a0R,c2,c3,c1
1140 	SQR_ADD_C2 a5L,a5R,a0L,a0R,c3,c1,c2
1141 	SQR_ADD_C2 a4L,a4R,a1L,a1R,c3,c1,c2
1142 	SQR_ADD_C2 a3L,a3R,a2L,a2R,c3,c1,c2
1143 	STD     c3,40(r_ptr)          ; r[5] = c3;
1144 	COPY    %r0,c3
1146 	SQR_ADD_C a3L,a3R,c1,c2,c3
1147 	SQR_ADD_C2 a4L,a4R,a2L,a2R,c1,c2,c3
1148 	SQR_ADD_C2 a5L,a5R,a1L,a1R,c1,c2,c3
1149 	SQR_ADD_C2 a6L,a6R,a0L,a0R,c1,c2,c3
1153 	SQR_ADD_C2 a7L,a7R,a0L,a0R,c2,c3,c1
1154 	SQR_ADD_C2 a6L,a6R,a1L,a1R,c2,c3,c1
1155 	SQR_ADD_C2 a5L,a5R,a2L,a2R,c2,c3,c1
1156 	SQR_ADD_C2 a4L,a4R,a3L,a3R,c2,c3,c1
1160 	SQR_ADD_C a4L,a4R,c3,c1,c2
1161 	SQR_ADD_C2 a5L,a5R,a3L,a3R,c3,c1,c2
1162 	SQR_ADD_C2 a6L,a6R,a2L,a2R,c3,c1,c2
1163 	SQR_ADD_C2 a7L,a7R,a1L,a1R,c3,c1,c2
1164 	STD     c3,64(r_ptr)          ; r[8] = c3;
1165 	COPY    %r0,c3
1167 	SQR_ADD_C2 a7L,a7R,a2L,a2R,c1,c2,c3
1168 	SQR_ADD_C2 a6L,a6R,a3L,a3R,c1,c2,c3
1169 	SQR_ADD_C2 a5L,a5R,a4L,a4R,c1,c2,c3
1173 	SQR_ADD_C a5L,a5R,c2,c3,c1
1174 	SQR_ADD_C2 a6L,a6R,a4L,a4R,c2,c3,c1
1175 	SQR_ADD_C2 a7L,a7R,a3L,a3R,c2,c3,c1
1179 	SQR_ADD_C2 a7L,a7R,a4L,a4R,c3,c1,c2
1180 	SQR_ADD_C2 a6L,a6R,a5L,a5R,c3,c1,c2
1181 	STD     c3,88(r_ptr)          ; r[11] = c3;
1182 	COPY    %r0,c3
1184 	SQR_ADD_C a6L,a6R,c1,c2,c3
1185 	SQR_ADD_C2 a7L,a7R,a5L,a5R,c1,c2,c3
1189 	SQR_ADD_C2 a7L,a7R,a6L,a6R,c2,c3,c1
1193 	SQR_ADD_C a7L,a7R,c3,c1,c2
1194 	STD     c3, 112(r_ptr)       ; r[14] = c3
1229 	COPY     %r0,c3
1247 	SQR_ADD_C a0L,a0R,c1,c2,c3
1252 	SQR_ADD_C2 a1L,a1R,a0L,a0R,c2,c3,c1
1257 	SQR_ADD_C a1L,a1R,c3,c1,c2
1258 	SQR_ADD_C2 a2L,a2R,a0L,a0R,c3,c1,c2
1260 	STD     c3,16(r_ptr)            ; r[2] = c3;
1261 	COPY    %r0,c3
1263 	SQR_ADD_C2 a3L,a3R,a0L,a0R,c1,c2,c3
1264 	SQR_ADD_C2 a2L,a2R,a1L,a1R,c1,c2,c3
1269 	SQR_ADD_C a2L,a2R,c2,c3,c1
1270 	SQR_ADD_C2 a3L,a3R,a1L,a1R,c2,c3,c1
1275 	SQR_ADD_C2 a3L,a3R,a2L,a2R,c3,c1,c2
1276 	STD     c3,40(r_ptr)           ; r[5] = c3;
1277 	COPY    %r0,c3
1279 	SQR_ADD_C a3L,a3R,c1,c2,c3
1322     ADD,DC  ht,%r0,ht             ; bump c3 if overflow,nullify otherwise
1325     ADD,DC  C3,%r0,C3             ; add in carry (c3++)
1355 	COPY     %r0,c3
1381 	MUL_ADD_C a0L,a0R,b0L,b0R,c1,c2,c3
1385 	MUL_ADD_C a0L,a0R,b1L,b1R,c2,c3,c1
1386 	MUL_ADD_C a1L,a1R,b0L,b0R,c2,c3,c1
1390 	MUL_ADD_C a2L,a2R,b0L,b0R,c3,c1,c2
1391 	MUL_ADD_C a1L,a1R,b1L,b1R,c3,c1,c2
1392 	MUL_ADD_C a0L,a0R,b2L,b2R,c3,c1,c2
1393 	STD       c3,16(r_ptr)
1394 	COPY      %r0,c3
1396 	MUL_ADD_C a0L,a0R,b3L,b3R,c1,c2,c3
1397 	MUL_ADD_C a1L,a1R,b2L,b2R,c1,c2,c3
1398 	MUL_ADD_C a2L,a2R,b1L,b1R,c1,c2,c3
1399 	MUL_ADD_C a3L,a3R,b0L,b0R,c1,c2,c3
1403 	MUL_ADD_C a4L,a4R,b0L,b0R,c2,c3,c1
1404 	MUL_ADD_C a3L,a3R,b1L,b1R,c2,c3,c1
1405 	MUL_ADD_C a2L,a2R,b2L,b2R,c2,c3,c1
1406 	MUL_ADD_C a1L,a1R,b3L,b3R,c2,c3,c1
1407 	MUL_ADD_C a0L,a0R,b4L,b4R,c2,c3,c1
1411 	MUL_ADD_C a0L,a0R,b5L,b5R,c3,c1,c2
1412 	MUL_ADD_C a1L,a1R,b4L,b4R,c3,c1,c2
1413 	MUL_ADD_C a2L,a2R,b3L,b3R,c3,c1,c2
1414 	MUL_ADD_C a3L,a3R,b2L,b2R,c3,c1,c2
1415 	MUL_ADD_C a4L,a4R,b1L,b1R,c3,c1,c2
1416 	MUL_ADD_C a5L,a5R,b0L,b0R,c3,c1,c2
1417 	STD       c3,40(r_ptr)
1418 	COPY      %r0,c3
1420 	MUL_ADD_C a6L,a6R,b0L,b0R,c1,c2,c3
1421 	MUL_ADD_C a5L,a5R,b1L,b1R,c1,c2,c3
1422 	MUL_ADD_C a4L,a4R,b2L,b2R,c1,c2,c3
1423 	MUL_ADD_C a3L,a3R,b3L,b3R,c1,c2,c3
1424 	MUL_ADD_C a2L,a2R,b4L,b4R,c1,c2,c3
1425 	MUL_ADD_C a1L,a1R,b5L,b5R,c1,c2,c3
1426 	MUL_ADD_C a0L,a0R,b6L,b6R,c1,c2,c3
1430 	MUL_ADD_C a0L,a0R,b7L,b7R,c2,c3,c1
1431 	MUL_ADD_C a1L,a1R,b6L,b6R,c2,c3,c1
1432 	MUL_ADD_C a2L,a2R,b5L,b5R,c2,c3,c1
1433 	MUL_ADD_C a3L,a3R,b4L,b4R,c2,c3,c1
1434 	MUL_ADD_C a4L,a4R,b3L,b3R,c2,c3,c1
1435 	MUL_ADD_C a5L,a5R,b2L,b2R,c2,c3,c1
1436 	MUL_ADD_C a6L,a6R,b1L,b1R,c2,c3,c1
1437 	MUL_ADD_C a7L,a7R,b0L,b0R,c2,c3,c1
1441 	MUL_ADD_C a7L,a7R,b1L,b1R,c3,c1,c2
1442 	MUL_ADD_C a6L,a6R,b2L,b2R,c3,c1,c2
1443 	MUL_ADD_C a5L,a5R,b3L,b3R,c3,c1,c2
1444 	MUL_ADD_C a4L,a4R,b4L,b4R,c3,c1,c2
1445 	MUL_ADD_C a3L,a3R,b5L,b5R,c3,c1,c2
1446 	MUL_ADD_C a2L,a2R,b6L,b6R,c3,c1,c2
1447 	MUL_ADD_C a1L,a1R,b7L,b7R,c3,c1,c2
1448 	STD       c3,64(r_ptr)
1449 	COPY      %r0,c3
1451 	MUL_ADD_C a2L,a2R,b7L,b7R,c1,c2,c3
1452 	MUL_ADD_C a3L,a3R,b6L,b6R,c1,c2,c3
1453 	MUL_ADD_C a4L,a4R,b5L,b5R,c1,c2,c3
1454 	MUL_ADD_C a5L,a5R,b4L,b4R,c1,c2,c3
1455 	MUL_ADD_C a6L,a6R,b3L,b3R,c1,c2,c3
1456 	MUL_ADD_C a7L,a7R,b2L,b2R,c1,c2,c3
1460 	MUL_ADD_C a7L,a7R,b3L,b3R,c2,c3,c1
1461 	MUL_ADD_C a6L,a6R,b4L,b4R,c2,c3,c1
1462 	MUL_ADD_C a5L,a5R,b5L,b5R,c2,c3,c1
1463 	MUL_ADD_C a4L,a4R,b6L,b6R,c2,c3,c1
1464 	MUL_ADD_C a3L,a3R,b7L,b7R,c2,c3,c1
1468 	MUL_ADD_C a4L,a4R,b7L,b7R,c3,c1,c2
1469 	MUL_ADD_C a5L,a5R,b6L,b6R,c3,c1,c2
1470 	MUL_ADD_C a6L,a6R,b5L,b5R,c3,c1,c2
1471 	MUL_ADD_C a7L,a7R,b4L,b4R,c3,c1,c2
1472 	STD       c3,88(r_ptr)
1473 	COPY      %r0,c3
1475 	MUL_ADD_C a7L,a7R,b5L,b5R,c1,c2,c3
1476 	MUL_ADD_C a6L,a6R,b6L,b6R,c1,c2,c3
1477 	MUL_ADD_C a5L,a5R,b7L,b7R,c1,c2,c3
1481 	MUL_ADD_C a6L,a6R,b7L,b7R,c2,c3,c1
1482 	MUL_ADD_C a7L,a7R,b6L,b6R,c2,c3,c1
1486 	MUL_ADD_C a7L,a7R,b7L,b7R,c3,c1,c2
1487 	STD       c3,112(r_ptr)
1528 	COPY     %r0,c3
1546 	MUL_ADD_C a0L,a0R,b0L,b0R,c1,c2,c3
1550 	MUL_ADD_C a0L,a0R,b1L,b1R,c2,c3,c1
1551 	MUL_ADD_C a1L,a1R,b0L,b0R,c2,c3,c1
1555 	MUL_ADD_C a2L,a2R,b0L,b0R,c3,c1,c2
1556 	MUL_ADD_C a1L,a1R,b1L,b1R,c3,c1,c2
1557 	MUL_ADD_C a0L,a0R,b2L,b2R,c3,c1,c2
1558 	STD       c3,16(r_ptr)
1559 	COPY      %r0,c3
1561 	MUL_ADD_C a0L,a0R,b3L,b3R,c1,c2,c3
1562 	MUL_ADD_C a1L,a1R,b2L,b2R,c1,c2,c3
1563 	MUL_ADD_C a2L,a2R,b1L,b1R,c1,c2,c3
1564 	MUL_ADD_C a3L,a3R,b0L,b0R,c1,c2,c3
1568 	MUL_ADD_C a3L,a3R,b1L,b1R,c2,c3,c1
1569 	MUL_ADD_C a2L,a2R,b2L,b2R,c2,c3,c1
1570 	MUL_ADD_C a1L,a1R,b3L,b3R,c2,c3,c1
1574 	MUL_ADD_C a2L,a2R,b3L,b3R,c3,c1,c2
1575 	MUL_ADD_C a3L,a3R,b2L,b2R,c3,c1,c2
1576 	STD       c3,40(r_ptr)
1577 	COPY      %r0,c3
1579 	MUL_ADD_C a3L,a3R,b3L,b3R,c1,c2,c3