ifpsp060/src/pfpsp.S

2098 #	OPERR	: if ((k_factor > +17) || (dec. exp exceeds 3 digits))
12971 #	digits, rather than 1 integer and 16 fraction digits.		#
12976 #	The mantissa digits will be converted with the decimal point	#
13045 #  4. Subtract 16 to compensate for interpreting the mant as all integer digits.
13046 #     (i.e., all digits assumed left of the decimal point.)
13062 	mov.l		&EDIGITS,%d2		# # of nibbles (digits) in fraction part
13063 	mov.l		&ESTRT,%d3		# counter to pick up digits
13071 	dbf.w		%d2,e_gd		# if we have used all 3 digits, exit loop
13088 #     (i.e., all digits assumed left of the decimal point.)
13121 	mov.l		&FSTRT,%d3		# counter to pick up digits
13122 	mov.l		&FNIBS,%d2		# reset number of digits per a0 ptr
13129 #  If all the digits (8) in that long word have been converted (d2=0),
13159 #   2. Check M16 and the digits in lwords 2 and 3 in descending order.
13166 #   2. Check the digits in lwords 3 and 2 in descending order.
13258 	bne.b		ap_n_cl			# if not zero, check digits
13457 #		LEN is the number of digits to be displayed.  The	#
13458 #		k-factor can dictate either the total number of digits,	#
13459 #		if it is a positive number, or the number of digits	#
13467 #		of decimal places needed to insure LEN integer digits	#
13482 #		significant digits.  The excess digits are collected	#
13498 #	A13.	Check for LEN digits.					#
13499 #		If the int operation results in more than LEN digits,	#
13500 #		or less than LEN -1 digits, adjust ILOG and repeat from	#
13510 #		The bcd digits are stored in the correct position in	#
13515 #		digits are stored in the final string.			#
13684 #     LEN is the number of digits to be displayed.  The k-factor
13685 #     can dictate either the total number of digits, if it is
13686 #     a positive number, or the number of digits after the
13737 #     of decimal places needed to insure LEN integer digits
13857 #     digits.  The excess digits are collected in INEX2. If mul,
14053 # A13. Check for LEN digits.
14054 #      If the int operation results in more than LEN digits,
14055 #      or less than LEN -1 digits, adjust ILOG and repeat from
14167 #      The bcd digits are stored in the correct position in
14231 #      digits are stored in the final string.
14241 # is non-zero, OPERR is signaled.  In all cases, all 4 digits are
14262 #	L_SCR1:original USER_FPCR/Exponent digits on return from binstr
14309 	lea.l		L_SCR1(%a6),%a0	# a0 is ptr to L_SCR1 for exp digits
14342 #	L_SCR1:Exponent digits on return from binstr
14424 #	a0 = pointer to LEN bcd digits representing the 64-bit integer.	#
14431 #	LEN digits are formed.						#
14523 	clr.w		%d7		# set d7a to signal no digits done