ifpsp060/src/ilsp.S

369 	mov.l		%d5, %d4		# U1U2
370 	sub.l		%d3, %d4		# U1U2 - V1q
372 	swap		%d4
374 	mov.w		%d4,%d0
375 	mov.w		%d6,%d4			# insert lower word (U3)
380 #	add.l		%d6, %d4		# (U1U2 - V1q) + U3
382 	cmp.l		%d2, %d4
450 # destroys %d2,%d3,%d4.
455 	mov.l		%d5, %d4
457 	swap		%d4
460 	mulu.w		%d4, %d2		# %d2 <- msw-source*lsw-dest
461 	mulu.w		%d4, %d3		# %d3 <- msw*msw
463 	clr.l		%d4
466 	addx.w		%d4, %d3		# add any carry to m*m product
468 	addx.w		%d4, %d3		# add any carry to m*m product
513 	movm.l		&0x3800,-(%sp)		# save d2-d4
548 	mov.l		%d1,%d4			# md in d4
550 	swap		%d4			# hi(md) in lo d4
555 	mulu.w		%d4,%d2			# [3] lo(mr) * hi(md)
556 	mulu.w		%d4,%d3			# [4] hi(mr) * hi(md)
561 	clr.l		%d4			# load d4 w/ zero value
564 	addx.l		%d4,%d3			#    [4]  + carry
566 	addx.l		%d4,%d3			#    [4]  + carry
580 	mov.w		MUL64_CC(%a6),%d4
581 	andi.b		&0x10,%d4		# keep old 'X' bit
584 	ori.b		&0x8,%d4		# set 'N' bit
586 	mov.w		%d4,%cc
597 	movm.l		(%sp)+,&0x001c		# restore d2-d4
609 	mov.w		MUL64_CC(%a6),%d4
610 	andi.b		&0x10,%d4
611 	ori.b		&0x4,%d4
612 	mov.w		%d4,%cc			# set 'Z' ccode bit
674 	mov.l		%d1,%d4			# md in d4
676 	swap		%d4			# hi(md) in lo d4
681 	mulu.w		%d4,%d2			# [3] lo(mr) * hi(md)
682 	mulu.w		%d4,%d3			# [4] hi(mr) * hi(md)
687 	clr.l		%d4			# load d4 w/ zero value
690 	addx.l		%d4,%d3			#    [4]  + carry
692 	addx.l		%d4,%d3			#    [4]  + carry
714 	addx.l		%d4,%d1			# add carry to hi(result)
717 	mov.w		MUL64_CC(%a6),%d4
718 	andi.b		&0x10,%d4		# keep old 'X' bit
721 	ori.b		&0x8,%d4		# set 'N' bit
723 	mov.w		%d4,%cc
746 	mov.w		MUL64_CC(%a6),%d4
747 	andi.b		&0x10,%d4
748 	ori.b		&0x4,%d4
749 	mov.w		%d4,%cc			# set 'Z' ccode bit
793 	movm.l		&0x3800,-(%sp)		# save d2-d4
812 	movm.l		&0x3800,-(%sp)		# save d2-d4
831 	movm.l		&0x3800,-(%sp)		# save d2-d4
847 	movm.l		&0x3800,-(%sp)		# save d2-d4
870 	movm.l		&0x3800,-(%sp)		# save d2-d4
893 	movm.l		&0x3800,-(%sp)		# save d2-d4
917 	mov.w		%cc, %d4		# fetch resulting ccodes
918 	or.b		%d4, %d3		# combine w/ earlier ccodes
921 	mov.w		CMP2_CC(%a6), %d4	# fetch old ccodes
922 	andi.b		&0x1a, %d4		# keep 'X','N','V' bits
923 	or.b		%d3, %d4		# insert new ccodes
924 	mov.w		%d4,%cc			# save new ccodes
928 	movm.l		(%sp)+,&0x001c		# restore d2-d4