Lines Matching refs:mantissa
537 set mantissalen, 64 # length of mantissa in bits
1462 bsr.l norm # normalize mantissa
1494 bsr.l norm # normalize mantissa
2543 # The packed operand is a zero if the mantissa is all zero, else it's
3441 mov.l FP_SRC_HI(%a6),%d1 # load mantissa
3442 lsr.l &0x8,%d1 # shift mantissa for sgl
3456 mov.l FP_SRC_HI(%a6),%d1 # load mantissa
3457 lsr.l &0x8,%d1 # shift mantissa for sgl
3468 mov.l FP_SRC_HI(%a6),%d1 # load hi mantissa
3473 mov.l FP_SRC_HI(%a6),%d1 # load hi mantissa
3477 mov.l FP_SRC_LO(%a6),%d1 # load lo mantissa
3629 # longword integer directly into the upper longword of the mantissa along
5400 # norm() - normalize mantissa after adjusting exponent #
5416 # If the two exponents differ by > the number of mantissa bits #
5458 cmp.w %d0,L_SCR1(%a6) # is difference >= len(mantissa)+2?
5494 cmp.w %d0,2+L_SCR1(%a6) # is difference >= len(mantissa)+2?
5522 # norm() - normalize the mantissa if the operand was a DENORM #
5575 # norm() - normalize the mantissa if the operand was a DENORM #
5649 # norm() - normalize the mantissa if the operand was a DENORM #
5824 # precision, shift the mantissa bits to the right in order raise the #
5826 # mantissa bits right, maintain the value of the guard, round, and #
5847 # simply calculate the sticky bit and zero the mantissa. otherwise
5868 # calculate if the sticky should be set and clear the entire mantissa.
5873 clr.l FTEMP_HI(%a0) # set d1 = 0 (ms mantissa)
5874 clr.l FTEMP_LO(%a0) # set d2 = 0 (ms mantissa)
5878 # dnrm_lp(): normalize exponent/mantissa to specified threshhold #
6052 # Return a zero mantissa with the sticky bit set
6054 clr.l FTEMP_HI(%a0) # clear hi(mantissa)
6055 clr.l FTEMP_LO(%a0) # clear lo(mantissa)
6080 mov.l FTEMP_HI(%a0), %d0 # fetch hi(mantissa)
6108 mov.l FTEMP_HI(%a0), %d0 # fetch hi(mantissa)
6125 # the entire mantissa is zero.
6127 clr.l FTEMP_HI(%a0) # clear hi(mantissa)
6128 clr.l FTEMP_LO(%a0) # clear lo(mantissa)
6133 # the entire mantissa is zero.
6137 clr.l FTEMP_HI(%a0) # clear hi(mantissa)
6138 clr.l FTEMP_LO(%a0) # clear lo(mantissa)
6263 bcc.b scc_clr # no mantissa overflow
6390 tst.l FTEMP_LO(%a0) # test lower mantissa
6412 mov.l FTEMP_LO(%a0), %d2 # get lower mantissa for s-bit test
6430 # norm(): normalize the mantissa of an extended precision input. the #
6443 # d0 = number of bit positions the mantissa was shifted #
6444 # a0 = the input operand's mantissa is normalized; the exponent #
6453 mov.l FTEMP_HI(%a0), %d0 # load hi(mantissa)
6454 mov.l FTEMP_LO(%a0), %d1 # load lo(mantissa)
6499 # norm() - normalize the mantissa #
6507 # zero; both the exponent and mantissa are changed. #
6570 # only mantissa bits set are in lo(man)
6587 # whole mantissa is zero so this UNNORM is actually a zero
6610 # Simply test the exponent, j-bit, and mantissa values to #
6690 # Simply test the exponent, j-bit, and mantissa values to #
6753 # Simply test the exponent, j-bit, and mantissa values to #
7329 bsr.l norm # normalize the mantissa
7790 bpl.b dst_get_dman # if postive, go process mantissa
7793 mov.l FTEMP_HI(%a0),%d1 # get ms mantissa
7797 mov.l FTEMP_HI(%a0),%d1 # get ms mantissa
7801 mov.l FTEMP_LO(%a0),%d1 # get ls mantissa
7858 mov.l FTEMP_HI(%a0),%d1 # get ms mantissa
7913 # "mantissa" is all zero which means that the answer is zero. but, the '040
7915 # if the mantissa is zero, I will zero the exponent, too.
8465 # norm() - normalize mantissa for EXOP on denorm #
8549 # normalize the mantissa and add the bias of 0x6000 to the resulting negative
9332 # normalize the mantissa and add the bias of 0x6000 to the resulting negative
9859 # norm() - normalize denorm mantissa to provide EXOP #
9950 # normalize the mantissa and add the bias of 0x6000 to the resulting negative
11301 # exponent for the selected precision. also, the mantissa is equal to
11302 # 0x8000000000000000 and this mantissa is the result of rounding non-zero
11754 # exponent for the selected precision. also, the mantissa is equal to
11755 # 0x8000000000000000 and this mantissa is the result of rounding non-zero
12946 # The packed operand is a zero if the mantissa is all zero, else it's
12980 # for the mantissa which is to be interpreted as 17 integer #
12984 # A2. Convert the bcd mantissa to binary by successive #
12986 # The mantissa digits will be converted with the decimal point #
12995 # mantissa the equivalent of forcing in the bcd value: #
13010 # A5. Form the final binary number by scaling the mantissa by #
13012 # mantissa in FP0 by the factor in FP1 if the adjusted #
13095 # Calculate mantissa:
13096 # 1. Calculate absolute value of mantissa in fp0 by mul and add.
13097 # 2. Correct for mantissa sign.
13110 # (*) fp0: mantissa accumulator
13121 # mantissa. We will unroll the loop once.
13127 # Get the rest of the mantissa.
13130 mov.l (%a0,%d1.L*4),%d4 # load mantissa lonqword into d4
13147 addq.l &1,%d1 # inc lw pointer in mantissa
13154 btst &31,(%a0) # test sign of the mantissa
13161 # this routine calculates the amount needed to normalize the mantissa
13174 # 6. Multiply the mantissa by 10**count.
13180 # 6. Divide the mantissa by 10**count.
13243 # Calculate the mantissa multiplier to compensate for the striping of
13244 # zeros from the mantissa.
13259 fmul.x %fp1,%fp0 # mul mantissa by 10**(no_bits_shifted)
13285 bgt.b ap_n_fm # if still pos, go fix mantissa
13291 # Calculate the mantissa multiplier to compensate for the appending of
13292 # zeros to the mantissa.
13307 fdiv.x %fp1,%fp0 # div mantissa by 10**(no_bits_shifted)
13400 # (*) fp0: mantissa accumulator
13491 # The mantissa is scaled to the desired number of #
13513 # the mantissa by 10. #
13515 # A14. Convert the mantissa to bcd. #
13517 # mantissa to bcd in memory. The input to binstr is #
13518 # to be a fraction; i.e. (mantissa)/10^LEN and adjusted #
13563 # d2: upper 32-bits of mantissa for binstr
13564 # d3: scratch;lower 32-bits of mantissa for binstr
13866 # The mantissa is scaled to the desired number of significant
13932 mov.l 0x8(%a0),-(%sp) # put input op mantissa on stk
13940 mov.l 36+8(%a1),-(%sp) # get 10^8 mantissa
13943 mov.l 48+8(%a1),-(%sp) # get 10^16 mantissa
13987 or.l &1,8(%a2) # or in 1 to lsb of mantissa
14068 # the mantissa by 10. The calculation of 10^LEN cannot
14172 # A14. Convert the mantissa to bcd.
14174 # mantissa to bcd in memory. The input to binstr is
14175 # to be a fraction; i.e. (mantissa)/10^LEN and adjusted
14192 # /ptr to first mantissa byte in result string
14224 tst.l %d2 # check for mantissa of zero
14358 tst.l L_SCR2(%a6) # check sign of original mantissa
Indexes created Sun Oct 26 21:10:03 GMT 2025