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
7616 # sgetman(): extracts the mantissa of the input argument. The #
7617 # mantissa is converted to an extended precision number w/ #
7626 # fp0 = exponent(X) or mantissa(X) #
7671 # For denormalized numbers, shift the mantissa until the j-bit = 1,
9486 bsr.l _round # round the mantissa
9642 mov.l &0x80000000,%d1 # load normalized mantissa
9648 clr.l -(%sp) # insert zero low mantissa
9649 mov.l %d1,-(%sp) # insert new high mantissa
9654 lsr.l %d0,%d1 # make low mantissa longword
9655 mov.l %d1,-(%sp) # insert new low mantissa
9656 clr.l -(%sp) # insert zero high mantissa
9670 mov.l &0x80000000,-(%sp) # insert new high mantissa
9671 mov.l %d0,-(%sp) # insert new lo mantissa
10218 # so, normalize the mantissa, add 0x6000 to the new exponent,
10226 bsr.l norm # normalize mantissa
10294 # dst op is a DENORM. we have to normalize the mantissa to see if the
10302 bsr.l norm # normalize mantissa
10316 andi.l &0x7ff,%d1 # dbl mantissa set?
12033 # norm() - normalize mantissa for EXOP on denorm #
12117 # normalize the mantissa and add the bias of 0x6000 to the resulting negative
12900 # normalize the mantissa and add the bias of 0x6000 to the resulting negative
13427 # norm() - normalize denorm mantissa to provide EXOP #
13518 # normalize the mantissa and add the bias of 0x6000 to the resulting negative
14869 # exponent for the selected precision. also, the mantissa is equal to
14870 # 0x8000000000000000 and this mantissa is the result of rounding non-zero
15322 # exponent for the selected precision. also, the mantissa is equal to
15323 # 0x8000000000000000 and this mantissa is the result of rounding non-zero
15853 # norm() - normalize mantissa after adjusting exponent #
15869 # If the two exponents differ by > the number of mantissa bits #
15911 cmp.w %d0,L_SCR1(%a6) # is difference >= len(mantissa)+2?
15947 cmp.w %d0,2+L_SCR1(%a6) # is difference >= len(mantissa)+2?
15975 # norm() - normalize the mantissa if the operand was a DENORM #
16028 # norm() - normalize the mantissa if the operand was a DENORM #
16102 # norm() - normalize the mantissa if the operand was a DENORM #
20427 bsr.l norm # normalize the mantissa
20888 bpl.b dst_get_dman # if postive, go process mantissa
20891 mov.l FTEMP_HI(%a0),%d1 # get ms mantissa
20895 mov.l FTEMP_HI(%a0),%d1 # get ms mantissa
20899 mov.l FTEMP_LO(%a0),%d1 # get ls mantissa
20956 mov.l FTEMP_HI(%a0),%d1 # get ms mantissa
21011 # "mantissa" is all zero which means that the answer is zero. but, the '040
21013 # if the mantissa is zero, I will zero the exponent, too.
21701 # precision, shift the mantissa bits to the right in order raise the #
21703 # mantissa bits right, maintain the value of the guard, round, and #
21724 # simply calculate the sticky bit and zero the mantissa. otherwise
21745 # calculate if the sticky should be set and clear the entire mantissa.
21750 clr.l FTEMP_HI(%a0) # set d1 = 0 (ms mantissa)
21751 clr.l FTEMP_LO(%a0) # set d2 = 0 (ms mantissa)
21755 # dnrm_lp(): normalize exponent/mantissa to specified threshold #
21929 # Return a zero mantissa with the sticky bit set
21931 clr.l FTEMP_HI(%a0) # clear hi(mantissa)
21932 clr.l FTEMP_LO(%a0) # clear lo(mantissa)
21957 mov.l FTEMP_HI(%a0), %d0 # fetch hi(mantissa)
21985 mov.l FTEMP_HI(%a0), %d0 # fetch hi(mantissa)
22002 # the entire mantissa is zero.
22004 clr.l FTEMP_HI(%a0) # clear hi(mantissa)
22005 clr.l FTEMP_LO(%a0) # clear lo(mantissa)
22010 # the entire mantissa is zero.
22014 clr.l FTEMP_HI(%a0) # clear hi(mantissa)
22015 clr.l FTEMP_LO(%a0) # clear lo(mantissa)
22140 bcc.b scc_clr # no mantissa overflow
22267 tst.l FTEMP_LO(%a0) # test lower mantissa
22289 mov.l FTEMP_LO(%a0), %d2 # get lower mantissa for s-bit test
22307 # norm(): normalize the mantissa of an extended precision input. the #
22320 # d0 = number of bit positions the mantissa was shifted #
22321 # a0 = the input operand's mantissa is normalized; the exponent #
22330 mov.l FTEMP_HI(%a0), %d0 # load hi(mantissa)
22331 mov.l FTEMP_LO(%a0), %d1 # load lo(mantissa)
22376 # norm() - normalize the mantissa #
22384 # zero; both the exponent and mantissa are changed. #
22447 # only mantissa bits set are in lo(man)
22464 # whole mantissa is zero so this UNNORM is actually a zero
22487 # Simply test the exponent, j-bit, and mantissa values to #
22567 # Simply test the exponent, j-bit, and mantissa values to #
22630 # Simply test the exponent, j-bit, and mantissa values to #
22985 # The packed operand is a zero if the mantissa is all zero, else it's
23019 # for the mantissa which is to be interpreted as 17 integer #
23023 # A2. Convert the bcd mantissa to binary by successive #
23025 # The mantissa digits will be converted with the decimal point #
23034 # mantissa the equivalent of forcing in the bcd value: #
23049 # A5. Form the final binary number by scaling the mantissa by #
23051 # mantissa in FP0 by the factor in FP1 if the adjusted #
23134 # Calculate mantissa:
23135 # 1. Calculate absolute value of mantissa in fp0 by mul and add.
23136 # 2. Correct for mantissa sign.
23149 # (*) fp0: mantissa accumulator
23160 # mantissa. We will unroll the loop once.
23166 # Get the rest of the mantissa.
23169 mov.l (%a0,%d1.L*4),%d4 # load mantissa lonqword into d4
23186 addq.l &1,%d1 # inc lw pointer in mantissa
23193 btst &31,(%a0) # test sign of the mantissa
23200 # this routine calculates the amount needed to normalize the mantissa
23213 # 6. Multiply the mantissa by 10**count.
23219 # 6. Divide the mantissa by 10**count.
23282 # Calculate the mantissa multiplier to compensate for the striping of
23283 # zeros from the mantissa.
23298 fmul.x %fp1,%fp0 # mul mantissa by 10**(no_bits_shifted)
23324 bgt.b ap_n_fm # if still pos, go fix mantissa
23330 # Calculate the mantissa multiplier to compensate for the appending of
23331 # zeros to the mantissa.
23346 fdiv.x %fp1,%fp0 # div mantissa by 10**(no_bits_shifted)
23439 # (*) fp0: mantissa accumulator
23530 # The mantissa is scaled to the desired number of #
23552 # the mantissa by 10. #
23554 # A14. Convert the mantissa to bcd. #
23556 # mantissa to bcd in memory. The input to binstr is #
23557 # to be a fraction; i.e. (mantissa)/10^LEN and adjusted #
23602 # d2: upper 32-bits of mantissa for binstr
23603 # d3: scratch;lower 32-bits of mantissa for binstr
23905 # The mantissa is scaled to the desired number of significant
23971 mov.l 0x8(%a0),-(%sp) # put input op mantissa on stk
23979 mov.l 36+8(%a1),-(%sp) # get 10^8 mantissa
23982 mov.l 48+8(%a1),-(%sp) # get 10^16 mantissa
24026 or.l &1,8(%a2) # or in 1 to lsb of mantissa
24107 # the mantissa by 10. The calculation of 10^LEN cannot
24211 # A14. Convert the mantissa to bcd.
24213 # mantissa to bcd in memory. The input to binstr is
24214 # to be a fraction; i.e. (mantissa)/10^LEN and adjusted
24231 # /ptr to first mantissa byte in result string
24263 tst.l %d2 # check for mantissa of zero
24397 tst.l L_SCR2(%a6) # check sign of original mantissa
Indexes created Sat Oct 25 16:10:12 GMT 2025