Lines Matching refs:LEN
43 | A6. Calculate LEN.
44 | LEN is the number of digits to be displayed. The
49 | If LEN is computed to be greater than 17, set OPERR in
50 | USER_FPSR. LEN is stored in d4.
54 | of decimal places needed to insure LEN integer digits
85 | A13. Check for LEN digits.
86 | If the int operation results in more than LEN digits,
87 | or less than LEN -1 digits, adjust ILOG and repeat from
89 | result is exactly 10^LEN, decrement ILOG and divide
93 | The binstr routine is used to convert the LEN digit
95 | to be a fraction; i.e. (mantissa)/10^LEN and adjusted
112 | d0: scratch; LEN input to binstr
116 | d4: LEN
276 | A6. Calculate LEN.
277 | LEN is the number of digits to be displayed. The k-factor
282 | If LEN is computed to be greater than 17, set OPERR in
283 | USER_FPSR. LEN is stored in d4.
290 | d4: exc picture/LEN
307 bles k_neg |if k <= 0, LEN = ILOG + 1 - k
308 movel %d7,%d4 |if k > 0, LEN = k
309 bras len_ck |skip to LEN check
315 tstl %d4 |LEN check: branch on sign of LEN
316 bles LEN_ng |if neg, set LEN = 1
317 cmpl #17,%d4 |test if LEN > 17
319 movel #17,%d4 |set max LEN = 17
325 moveql #1,%d4 |min LEN is 1
330 | of decimal places needed to insure LEN integer digits
362 | d4: LEN/Unchanged
384 movel %d6,%d0 |calc ILOG + 1 - LEN in d0
386 subl %d4,%d0 |sub off LEN
467 | d4: LEN/Unchanged
528 | d4: LEN/Unchanged
569 | d4: LEN/Unchanged
606 | A13. Check for LEN digits.
607 | If the int operation results in more than LEN digits,
608 | or less than LEN -1 digits, adjust ILOG and repeat from
610 | result is exactly 10^LEN, decrement ILOG and divide
611 | the mantissa by 10. The calculation of 10^LEN cannot
622 | d4: LEN/LEN adjusted
631 | fp2: x/10^LEN
642 | Compute 10^(LEN-1)
645 movel %d4,%d0 |put LEN in d0
646 subql #1,%d0 |d0 = LEN -1
654 tstl %d0 |test if LEN is zero
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
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
697 movel %d4,%d0 |put LEN in d0
705 tstl %d0 |test if LEN is zero
708 fcmpx %fp2,%fp0 |check if abs(YINT) = 10^LEN
712 addql #1,%d4 | and inc LEN
713 fmuls FTEN,%fp2 | if LEN++, the get 10^^LEN
717 | The binstr routine is used to convert the LEN digit
719 | to be a fraction; i.e. (mantissa)/10^LEN and adjusted
727 | d0: x/LEN call to binstr - final is 0
731 | d4: LEN/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
778 movel %d4,%d0 |put LEN in d0 for binstr call
800 | d0: x/LEN call to binstr - final is 0
804 | d4: LEN/Unchanged
813 | fp2: 10^LEN/Unchanged
884 | d4: LEN/Unchanged
893 | fp2: 10^LEN/Unchanged