Lines Matching refs:LEN
23496 # A6. Calculate LEN. #
23497 # LEN is the number of digits to be displayed. The #
23502 # If LEN is computed to be greater than 17, set OPERR in #
23503 # USER_FPSR. LEN is stored in d4. #
23507 # of decimal places needed to insure LEN integer digits #
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 #
23542 # result is exactly 10^LEN, decrement ILOG and divide #
23546 # The binstr routine is used to convert the LEN digit #
23548 # to be a fraction; i.e. (mantissa)/10^LEN and adjusted #
23591 # d0: scratch; LEN input to binstr
23595 # d4: LEN
23723 # A6. Calculate LEN.
23724 # LEN is the number of digits to be displayed. The k-factor
23729 # If LEN is computed to be greater than 17, set OPERR in
23730 # USER_FPSR. LEN is stored in d4.
23737 # d4: exc picture/LEN
23754 ble.b k_neg # if k <= 0, LEN = ILOG + 1 - k
23755 mov.l %d7,%d4 # if k > 0, LEN = k
23756 bra.b len_ck # skip to LEN check
23762 tst.l %d4 # LEN check: branch on sign of LEN
23763 ble.b LEN_ng # if neg, set LEN = 1
23764 cmp.l %d4,&17 # test if LEN > 17
23766 mov.l &17,%d4 # set max LEN = 17
23772 mov.l &1,%d4 # min LEN is 1
23777 # of decimal places needed to insure LEN integer digits
23809 # d4: LEN/Unchanged
23831 mov.l %d6,%d0 # calc ILOG + 1 - LEN in d0
23833 sub.l %d4,%d0 # sub off LEN
24000 # d4: LEN/Unchanged
24041 # d4: LEN/Unchanged
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
24097 # result is exactly 10^LEN, decrement ILOG and divide
24098 # the mantissa by 10. The calculation of 10^LEN cannot
24109 # d4: LEN/LEN adjusted
24118 # fp2: x/10^LEN
24129 # Compute 10^(LEN-1)
24132 mov.l %d4,%d0 # put LEN in d0
24133 subq.l &1,%d0 # d0 = LEN -1
24141 tst.l %d0 # test if LEN is zero
24144 # 10^LEN-1 is computed for this test and A14. If the input was
24145 # denormalized, check only the case in which YINT > 10^LEN.
24152 # Compare abs(YINT) to 10^(LEN-1) and 10^LEN
24156 fcmp.x %fp0,%fp2 # compare abs(YINT) with 10^(LEN-1)
24161 fmul.s FTEN(%pc),%fp2 # compute 10^LEN
24164 fmul.s FTEN(%pc),%fp2 # compute 10^LEN
24165 fcmp.x %fp0,%fp2 # compare abs(YINT) with 10^LEN