m68k/fpsp040/decbin.S

5 |	register A6 to extended-precision value in FP0.
9 |	Output:	Exact floating-point representation of the packed bcd value.
11 |	Saves and Modifies: D2-D5
20 |	Expected is a normal bcd (i.e. non-exceptional; all inf, zero,
33 |	assumed following the least-significant digit.
43 |	SM = 0	a non-zero digit in the integer position
44 |	SM = 1	a non-zero digit in Mant0, lsd of the fraction
47 |	representation (ex. 0.1E2, 1E1, 10E0, 100E-1), is converted
121 	moveml	%d2-%d5,-(%a7)
248 |   3. Add one for each zero encountered until a non-zero digit.
250 |   5. Check if the exp has crossed zero in #3 above; make the exp abs
255 |   3. Add one for each zero encountered until a non-zero digit.
260 |  *Why 27?  If the adjusted exponent is within -28 < expA < 28, than
282 | and do append (+) or strip (-) zeros accordingly.
286 	movel	L_SCR1(%a6),%d1	|load expA for range test
288 	ble	pwrten		|if abs(expA) <28, skip ap/st zeros
294 	bnes	ap_p_fx		|if M16 is non-zero, go fix exp
307 	bnes	ap_p_fx		|if non-zero, go to fix exp
316 	negl	%d1		|now its neg; get abs
325 	movel	#PTENRN,%a1	|get address of power-of-ten table
355 	bnes	ap_n_fx		|if non-zero, go to exp fix
364 	negl	%d1		|take abs of exp and clr SE
373 	movel	#PTENRN,%a1	|get address of power-of-ten table
388 | Calculate power-of-ten factor from adjusted and shifted exponent.
405 |	(*) fp1: power-of-ten accumulator
415 |	 -	   +	RP	RM
416 |	 +	   -	RP	RM
417 |	 -	   -	RP	RP
420 |	 -	   +	RM	RP
421 |	 +	   -	RM	RP
422 |	 -	   -	RM	RM
425 |	 -	   +	RZ	RM
426 |	 +	   -	RZ	RP
427 |	 -	   -	RZ	RP
479 |	( ) fp1: scaling factor - 10**(abs(exp))
503 	moveml	(%a7)+,%d2-%d5