Lines Matching +full:non +full:- +full:zero

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.
39 |	exponent equal to the exponent from A1 and the zero count
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)
151 	clrl	%d1		|zero d1 for accumulator
154 	bfextu	%d4{%d3:#4},%d0	|get the digit and zero extend into d0
211 	bfextu	%d4{%d3:#4},%d0	|get the digit and zero extend
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.
257 |   5. Check if the exp has crossed zero in #3 above; clear SE.
260 |  *Why 27?  If the adjusted exponent is within -28 < expA < 28, than
262 |   exponent towards zero.  Since all pwrten constants with a power
270 |	(*)  d1: zero count
282 | and do append (+) or strip (-) zeros accordingly.
291 	clrl	%d1		|zero count reg
294 	bnes	ap_p_fx		|if M16 is non-zero, go fix exp
295 	addql	#1,%d1		|inc zero count
298 	bnes	ap_p_cl		|if lw 2 is zero, skip it
307 	bnes	ap_p_fx		|if non-zero, go to fix exp
325 	movel	#PTENRN,%a1	|get address of power-of-ten table
335 	tstl	%d0		|check if d0 is zero
346 	bnes	ap_n_cl		|if not zero, check digits
355 	bnes	ap_n_fx		|if non-zero, go to exp fix
373 	movel	#PTENRN,%a1	|get address of power-of-ten table
383 	tstl	%d0		|check if d0 is zero
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
463 	bccs	e_next		|if zero, skip the mul
467 	tstl	%d0		|check if d0 is zero
468 	bnes	e_loop		|not zero, continue shifting
479 |	( ) fp1: scaling factor - 10**(abs(exp))
503 	moveml	(%a7)+,%d2-%d5