Lines Matching refs:of
9 | Output: Exact floating-point representation of the packed bcd value.
36 | A3. Count the number of leading/trailing zeros in the
41 | mantissa the equivalent of forcing in the bcd value:
44 | SM = 1 a non-zero digit in Mant0, lsd of the fraction
46 | this will insure that any value, regardless of its
50 | A4. Calculate the factor 10^exp in FP1 using a table of
54 | in the comments of the pwrten section.
82 | PTENRN, PTENRM, and PTENRP are arrays of powers of 10 rounded
86 | tables include the first 5 for ease of indexing.
125 | 2. Calculate absolute value of exponent in d1 by mul and add.
128 | (i.e., all digits assumed left of the decimal point.)
137 | ( ) d4: first word of bcd
140 | (*) FP_SCR1: working copy of original bcd value
141 | (*) L_SCR1: copy of original exponent word
144 movel #EDIGITS,%d2 |# of nibbles (digits) in fraction part
150 movel (%a0),%d4 |get first word of bcd
162 subl #16,%d1 |sub to compensate for shift of mant
172 | 1. Calculate absolute value of mantissa in fp0 by mul and add.
174 | (i.e., all digits assumed left of the decimal point.)
183 | ( ) d4: words 2 and 3 of bcd
187 | ( ) FP_SCR1: working copy of original bcd value
188 | ( ) L_SCR1: copy of original exponent word
196 | get the integer digit then skip down & get the rest of the
203 | Get the rest of the mantissa.
208 moveql #FNIBS,%d2 |reset number of digits per a0 ptr
228 | Check the sign of the mant and make the value in fp0 the same sign.
231 btst #31,(%a0) |test sign of the mantissa
242 | of this is to reduce the value of the exponent and the possibility
243 | of error in calculation of pwrten.
245 | 1. Branch on the sign of the adjusted exponent.
263 | of 27 or less are exact, there is no need to use this routine to
273 | ( ) d4: first word of bcd
276 | ( ) FP_SCR1: working copy of original bcd value
277 | ( ) L_SCR1: copy of original exponent word
280 | First check the absolute value of the exponent to see if this
281 | routine is necessary. If so, then check the sign of the exponent
289 btst #30,(%a0) |check sign of exp
321 | Calculate the mantissa multiplier to compensate for the striping of
325 movel #PTENRN,%a1 |get address of power-of-ten table
364 negl %d1 |take abs of exp and clr SE
369 | Calculate the mantissa multiplier to compensate for the appending of
373 movel #PTENRN,%a1 |get address of power-of-ten table
388 | Calculate power-of-ten factor from adjusted and shifted exponent.
397 | ( ) d4: first word of bcd
403 | ( ) a0: pointer to working copy of bcd
405 | (*) fp1: power-of-ten accumulator
410 | Sign of Mant Sign of Exp Rounding Mode PWRTEN Rounding Mode
471 | Check the sign of the adjusted exp and make the value in fp0 the
482 btst #30,(%a0) |test the sign of the exponent