ifpsp060/src/fpsp.S

2099 #	OPERR	: if ((k_factor > +17) || (dec. exp exceeds 3 digits))
23011 #	digits, rather than 1 integer and 16 fraction digits.		#
23016 #	The mantissa digits will be converted with the decimal point	#
23085 #  4. Subtract 16 to compensate for interpreting the mant as all integer digits.
23086 #     (i.e., all digits assumed left of the decimal point.)
23102 	mov.l		&EDIGITS,%d2		# # of nibbles (digits) in fraction part
23103 	mov.l		&ESTRT,%d3		# counter to pick up digits
23111 	dbf.w		%d2,e_gd		# if we have used all 3 digits, exit loop
23128 #     (i.e., all digits assumed left of the decimal point.)
23161 	mov.l		&FSTRT,%d3		# counter to pick up digits
23162 	mov.l		&FNIBS,%d2		# reset number of digits per a0 ptr
23169 #  If all the digits (8) in that long word have been converted (d2=0),
23199 #   2. Check M16 and the digits in lwords 2 and 3 in descending order.
23206 #   2. Check the digits in lwords 3 and 2 in descending order.
23298 	bne.b		ap_n_cl			# if not zero, check digits
23497 #		LEN is the number of digits to be displayed.  The	#
23498 #		k-factor can dictate either the total number of digits,	#
23499 #		if it is a positive number, or the number of digits	#
23507 #		of decimal places needed to insure LEN integer digits	#
23522 #		significant digits.  The excess digits are collected	#
23538 #	A13.	Check for LEN digits.					#
23539 #		If the int operation results in more than LEN digits,	#
23540 #		or less than LEN -1 digits, adjust ILOG and repeat from	#
23550 #		The bcd digits are stored in the correct position in	#
23555 #		digits are stored in the final string.			#
23724 #     LEN is the number of digits to be displayed.  The k-factor
23725 #     can dictate either the total number of digits, if it is
23726 #     a positive number, or the number of digits after the
23777 #     of decimal places needed to insure LEN integer digits
23897 #     digits.  The excess digits are collected in INEX2. If mul,
24093 # A13. Check for LEN digits.
24094 #      If the int operation results in more than LEN digits,
24095 #      or less than LEN -1 digits, adjust ILOG and repeat from
24207 #      The bcd digits are stored in the correct position in
24271 #      digits are stored in the final string.
24281 # is non-zero, OPERR is signaled.  In all cases, all 4 digits are
24302 #	L_SCR1:original USER_FPCR/Exponent digits on return from binstr
24349 	lea.l		L_SCR1(%a6),%a0	# a0 is ptr to L_SCR1 for exp digits
24382 #	L_SCR1:Exponent digits on return from binstr
24464 #	a0 = pointer to LEN bcd digits representing the 64-bit integer.	#
24471 #	LEN digits are formed.						#
24563 	clr.w		%d7		# set d7a to signal no digits done