ifpsp060/src/fplsp.S

8402 	clr.l		%d6
8403 	bfffo		%d4{&0:&32},%d6
8404 	lsl.l		%d6,%d4
8405 	add.l		%d6,%d2			# (D3,D4,D5) is normalized
8418 	clr.l		%d6
8419 	bfffo		%d4{&0:&32},%d6		# find first 1
8420 	mov.l		%d6,%d2			# get k
8421 	lsl.l		%d6,%d4
8423 	lsl.l		%d6,%d5
8424 	neg.l		%d6
8425 	add.l		&32,%d6
8426 	lsr.l		%d6,%d7
9453 	clr.l		%d6
9454 	bfffo		%d4{&0:&32},%d6
9455 	lsl.l		%d6,%d4
9456 	sub.l		%d6,%d3			# (D3,D4,D5) is normalized
9461 	clr.l		%d6
9462 	bfffo		%d4{&0:&32},%d6
9463 	sub.l		%d6,%d3
9464 	lsl.l		%d6,%d4
9466 	lsl.l		%d6,%d5
9467 	neg.l		%d6
9468 	add.l		&32,%d6
9469 	lsr.l		%d6,%d7
9498 	clr.l		%d6
9499 	bfffo		%d1{&0:&32},%d6
9500 	lsl.l		%d6,%d1
9501 	sub.l		%d6,%d0			# (D0,D1,D2) is normalized
9506 	clr.l		%d6
9507 	bfffo		%d1{&0:&32},%d6
9508 	sub.l		%d6,%d0
9509 	lsl.l		%d6,%d1
9511 	lsl.l		%d6,%d2
9512 	neg.l		%d6
9513 	add.l		&32,%d6
9514 	lsr.l		%d6,%d7
9529 	clr.l		%d6			# D6 := carry <- 0
9546 	tst.l		%d6			# test carry bit
9567 	clr.l		%d6			# clear carry
9578 	scs		%d6			# set Carry if 2(R) overflows
9597 	clr.l		%d6
9598 	bfffo		%d1{&0:&32},%d6
9599 	lsl.l		%d6,%d1
9600 	sub.l		%d6,%d0			# (D0,D1,D2) is normalized
9605 	clr.l		%d6
9606 	bfffo		%d1{&0:&32},%d6
9608 	sub.l		%d6,%d0
9609 	lsl.l		%d6,%d1
9611 	lsl.l		%d6,%d2
9612 	neg.l		%d6
9613 	add.l		&32,%d6
9614 	lsr.l		%d6,%d7
9625 	mov.l		L_SCR1(%a6),%d6
9626 	mov.w		%d6,Y(%a6)
9637 	mov.l		L_SCR1(%a6),%d6
9638 	sub.l		&0x3FFE,%d6
9639 	mov.l		%d6,L_SCR1(%a6)
9641 	mov.w		%d6,Y(%a6)
9651 	mov.l		L_SCR1(%a6),%d6		# new biased expo(Y)
9652 	subq.l		&1,%d6			# biased expo(Y/2)
9653 	cmp.l		%d0,%d6
9674 	mov.w		SignX(%a6),%d6
9681 	clr.l		%d6
9682 	mov.w		SignQ(%a6),%d6		# D6 is sign(Q)
9684 	lsr.l		%d7,%d6
9686 	or.l		%d6,%d3			# sign and bits of Q
9688 #	fmov.l		%fpsr,%d6
9689 #	and.l		&0xFF00FFFF,%d6
9690 #	or.l		%d3,%d6
9691 #	fmov.l		%d6,%fpsr		# put Q in fpsr
9735 	mov.l		%d3,%d6
9736 	and.l		&0x00000001,%d6
9737 	tst.l		%d6
9742 	mov.w		SignX(%a6),%d6
9743 	eor.l		&0x00008000,%d6
9744 	mov.w		%d6,SignX(%a6)