Lines Matching +full:10 +full:k
12 | value in memory; d0 contains the k-factor sign-extended
23 | The k-factor is saved for use in d7. Clear the
31 | ILOG is the log base 10 of the input value. It is
45 | k-factor can dictate either the total number of digits,
53 | SCALE is equal to 10^ISCALE, where ISCALE is the number
57 | 10^^(abs(ISCALE)) using a rounding mode which is a
89 | result is exactly 10^LEN, decrement ILOG and divide
90 | the mantissa by 10.
95 | to be a fraction; i.e. (mantissa)/10^LEN and adjusted
119 | d7: k-factor
169 | The k-factor is saved for use in d7. Clear BINDEC_FLG for
177 movel %d0,%d7 |move k-factor to d7
217 | ILOG is the log base 10 of the input value. It is approx-
224 | d0: k-factor/exponent
230 | d7: k-factor/Unchanged
277 | LEN is the number of digits to be displayed. The k-factor
293 | d7: k-factor/Unchanged
306 tstl %d7 |branch on sign of k
307 bles k_neg |if k <= 0, LEN = ILOG + 1 - k
308 movel %d7,%d4 |if k > 0, LEN = k
312 subl %d7,%d4 |subtract off k
329 | SCALE is equal to 10^ISCALE, where ISCALE is the number
332 | of ISCALE, used in A9. Fp1 contains 10^^(abs(ISCALE)) using
346 | RZ 01 1 0 10/2 RM
347 | RZ 01 1 1 10/2 RM
348 | RM 10 0 0 11/3 RP
349 | RM 10 0 1 10/2 RM
350 | RM 10 1 0 10/2 RM
351 | RM 10 1 1 11/3 RP
352 | RP 11 0 0 10/2 RM
355 | RP 11 1 1 10/2 RM
364 | d6: ILOG/ILOG or k if ((k<=0)&(ILOG<k))
365 | d7: k-factor/Unchanged
370 | fp1: x/10^ISCALE
378 tstl %d7 |test sign of k
380 cmpl %d6,%d7 |test k - ILOG
381 blts k_pos |if ILOG >= k, skip this
382 movel %d7,%d6 |if ((k<0) & (ILOG < k)) ILOG = k
430 fmulx (%a1,%d3),%fp1 |mul by 10**(d3_bit_no)
453 | Check d2 for excess 10 exponential value. If not zero,
456 | multiply by 10^(d2), which is now only allowed to be 24,
457 | with a multiply by 10^8 and 10^16, which is exact since
458 | 10^24 is exact. If the input was denormalized, we must
470 | d7: k-factor/Unchanged
475 | fp1: 10^ISCALE/Unchanged
493 fmovemx %fp1-%fp1,-(%a7) |load ETEMP with 10^ISCALE
507 fmulx 36(%a1),%fp0 |multiply fp0 by 10^8
508 fmulx 48(%a1),%fp0 |multiply fp0 by 10^16
513 fmulx 36(%a1),%fp0 |multiply fp0 by 10^8
514 fmulx 48(%a1),%fp0 |multiply fp0 by 10^16
531 | d7: k-factor/Unchanged
536 | fp1: 10^ISCALE/Unchanged
572 | d7: k-factor/Unchanged
578 | fp1: 10^ISCALE/Unchanged
610 | result is exactly 10^LEN, decrement ILOG and divide
611 | the mantissa by 10. The calculation of 10^LEN cannot
612 | be inexact, since all powers of ten up to 10^27 are exact
625 | d7: k-factor/Unchanged
630 | fp1: 10^ISCALE/Unchanged
631 | fp2: x/10^LEN
642 | Compute 10^(LEN-1)
651 fmulx (%a1,%d3),%fp2 |mul by 10**(d3_bit_no)
657 | 10^LEN-1 is computed for this test and A14. If the input was
658 | denormalized, check only the case in which YINT > 10^LEN.
665 | Compare abs(YINT) to 10^(LEN-1) and 10^LEN
669 fcmpx %fp2,%fp0 |compare abs(YINT) with 10^(LEN-1)
674 fmuls FTEN,%fp2 |compute 10^LEN
677 fmuls FTEN,%fp2 |compute 10^LEN
678 fcmpx %fp2,%fp0 |compare abs(YINT) with 10^LEN
681 fdivs FTEN,%fp0 |if equal, divide by 10
691 | and shouldn't have another; this is to check if abs(YINT) = 10^LEN
692 | 10^LEN is again computed using whatever table is in a1 since the
702 fmulx (%a1,%d3),%fp2 |mul by 10**(d3_bit_no)
708 fcmpx %fp2,%fp0 |check if abs(YINT) = 10^LEN
710 fdivs FTEN,%fp0 |divide abs(YINT) by 10
713 fmuls FTEN,%fp2 | if LEN++, the get 10^^LEN
719 | to be a fraction; i.e. (mantissa)/10^LEN and adjusted
734 | d7: k-factor/Unchanged
740 | fp1: 10^ISCALE/Unchanged
741 | fp2: 10^LEN/Unchanged
749 fdivx %fp2,%fp0 |divide abs(YINT) by 10^LEN
751 fmovex %fp0,(%a0) |move abs(YINT)/10^LEN to memory
807 | d7: k-factor/Unchanged
812 | fp1: 10^ISCALE/Unchanged
813 | fp2: 10^LEN/Unchanged
815 | F_SCR2:Y with original exponent/ILOG/10^4
823 fbeq den_zero |if zero, use k-factor or 4933
828 tstl %d7 |check sign of the k-factor
845 fdivx 24(%a1),%fp0 |compute ILOG/10^4
887 | d7: k-factor/Unchanged
892 | fp1: 10^ISCALE/Unchanged
893 | fp2: 10^LEN/Unchanged
895 | F_SCR2:ILOG/10^4