ifpsp060/src/fpsp.S

2318 	mov.l		FP_SRC_HI(%a6),%d1	# fetch DENORM hi(man)
2321 	mov.l		%d1,FP_SRC_HI(%a6)	# insert new hi(man)
5139 	mov.w		4(%a0),%d1		# fetch hi(man)
14848 	mov.l		0x4(%sp),%d1		# extract hi(man)
14849 	cmpi.l		%d1,&0x80000000		# is hi(man) = 0x80000000?
14852 	tst.l		0x8(%sp)		# is lo(man) = 0x0?
15302 	cmpi.l		%d1,&0x80000000		# is hi(man) = 0x80000000?
15305 	tst.l		0x8(%sp)		# is lo(man) = 0x0?
19994 	lsl.l		&0x8, %d0		# extract and insert hi(man)
20605 	mov.l		SRC_HI(%a0),FP_SCR0_HI(%a6) # copy hi(man)
20606 	mov.l		SRC_LO(%a0),FP_SCR0_LO(%a6) # copy lo(man)
20816 	mov.l		SRC_HI(%a0),FP_SCR0_HI(%a6) # copy hi(man)
20817 	mov.l		SRC_LO(%a0),FP_SCR0_LO(%a6) # copy lo(man)
22325 	beq.b		norm_lo			# hi(man) is all zeroes!
22328 	lsl.l		%d2, %d0		# left shift hi(man)
22331 	or.l		%d3, %d0		# create hi(man)
22332 	lsl.l		%d2, %d1		# create lo(man)
22334 	mov.l		%d0, FTEMP_HI(%a0)	# store new hi(man)
22335 	mov.l		%d1, FTEMP_LO(%a0)	# store new lo(man)
22346 	lsl.l		%d2, %d1		# shift lo(man)
22349 	mov.l		%d1, FTEMP_HI(%a0)	# store hi(man)
22350 	clr.l		FTEMP_LO(%a0)		# lo(man) is now zero
22382 	bne.b		unnorm_shift		# hi(man) is not all zeroes
22385 # hi(man) is all zeroes so see if any bits in lo(man) are set
22425 	bfextu		FTEMP_HI(%a0){%d1:&32}, %d0 # extract new hi(man)
22426 	mov.l		%d0, FTEMP_HI(%a0)	# save new hi(man)
22428 	mov.l		FTEMP_LO(%a0), %d0	# fetch old lo(man)
22429 	lsl.l		%d1, %d0		# extract new lo(man)
22430 	mov.l		%d0, FTEMP_LO(%a0)	# save new lo(man)
22438 # only mantissa bits set are in lo(man)
22443 	mov.l		FTEMP_LO(%a0), %d0	# fetch old lo(man)
22444 	lsl.l		%d1, %d0		# left shift lo(man)
22446 	mov.l		%d0, FTEMP_HI(%a0)	# store new hi(man)
22447 	clr.l		FTEMP_LO(%a0)		# lo(man) = 0