Lines Matching refs:D2
5408 mov.l %d2,-(%sp)
5409 mov.l %d1,%d2
5410 ror.l &1,%d2
5411 and.l &0x80000000,%d2
5412 eor.l %d1,%d2
5413 and.l &0x80000000,%d2
5419 eor.l %d2,RPRIME(%a6)
5420 mov.l (%sp)+,%d2
5582 mov.l %d2,-(%sp) # save d2
5640 mov.l &0x00003FFE,%d2 # BIASED EXP OF 2/PI
5641 sub.l %d1,%d2 # BIASED EXP OF 2**(-L)*(2/PI)
5645 mov.w %d2,FP_SCR0_EX(%a6) # FP_SCR0 = 2**(-L)*(2/PI)
5655 mov.l %a1,%d2
5656 swap %d2
5657 and.l &0x80000000,%d2
5658 or.l &0x5F000000,%d2 # d2 = SIGN(INARG)*2**63 IN SGL
5659 mov.l %d2,TWOTO63(%a6)
5665 mov.l %d1,%d2 # d2 = L
5667 add.l &0x00003FFF,%d2 # BIASED EXP OF 2**L * (PI/2)
5668 mov.w %d2,FP_SCR0_EX(%a6)
5712 mov.l (%sp)+,%d2 # restore d2
6013 mov.l %d2,-(%sp) # save d2
6071 mov.l &0x00003FFE,%d2 # BIASED EXP OF 2/PI
6072 sub.l %d1,%d2 # BIASED EXP OF 2**(-L)*(2/PI)
6076 mov.w %d2,FP_SCR0_EX(%a6) # FP_SCR0 = 2**(-L)*(2/PI)
6086 mov.l %a1,%d2
6087 swap %d2
6088 and.l &0x80000000,%d2
6089 or.l &0x5F000000,%d2 # d2 = SIGN(INARG)*2**63 IN SGL
6090 mov.l %d2,TWOTO63(%a6)
6096 mov.l %d1,%d2 # d2 = L
6098 add.l &0x00003FFF,%d2 # BIASED EXP OF 2**L * (PI/2)
6099 mov.w %d2,FP_SCR0_EX(%a6)
6143 mov.l (%sp)+,%d2 # restore d2
6410 mov.l %d2,-(%sp) # SAVE d2 TEMPORARILY
6411 mov.l %d1,%d2 # THE EXP AND 16 BITS OF X
6413 and.l &0x7FFF0000,%d2 # EXPONENT OF F
6414 sub.l &0x3FFB0000,%d2 # K+4
6415 asr.l &1,%d2
6416 add.l %d2,%d1 # THE 7 BITS IDENTIFYING F
6426 mov.l (%sp)+,%d2 # RESTORE d2
8504 movm.l &0x3f00,-(%sp) # save some registers {d2-d7}
8508 clr.l %d2 # D2 used for holding K
8516 mov.l &32,%d2
8520 add.l %d6,%d2 # (D3,D4,D5) is normalized
8525 neg.l %d2
8526 mov.l %d2,ADJK(%a6)
8528 movm.l (%sp)+,&0xfc # restore registers {d2-d7}
8535 mov.l %d6,%d2 # get k
8547 neg.l %d2
8548 mov.l %d2,ADJK(%a6)
8550 movm.l (%sp)+,&0xfc # restore registers {d2-d7}
9123 mov.l %d2,-(%sp)
9127 mov.l %d1,%d2
9131 asr.l &6,%d2 # d2 IS L, N = 64L + J
9132 mov.l %d2,%d1
9134 sub.l %d1,%d2 # d2 IS M', N = 64(M+M') + J
9135 add.l &0x3FFF,%d2
9220 mov.l %d2,-(%sp)
9224 mov.l %d1,%d2
9228 asr.l &6,%d2 # d2 IS L, N = 64L + J
9229 mov.l %d2,%d1
9231 sub.l %d1,%d2 # d2 IS M', N = 64(M+M') + J
9232 add.l &0x3FFF,%d2
9300 mov.w %d2,ADJFACT(%a6) # INSERT EXPONENT
9301 mov.l (%sp)+,%d2
9855 mov.l DST_LO(%a1),%d2 # (D0,D1,D2) is |X|
9863 mov.l %d2,%d1
9864 clr.l %d2
9869 sub.l %d6,%d0 # (D0,D1,D2) is normalized
9878 mov.l %d2,%d7 # a copy of D2
9879 lsl.l %d6,%d2
9883 or.l %d7,%d1 # (D0,D1,D2) normalized
9888 add.l &0x00003FFE,%d0 # (D0,D1,D2) normalized
9901 #..(Carry,D1,D2) is R
9917 #..At this point carry = 0, R = (D1,D2), Y = (D4,D5)
9920 cmp.l %d2,%d5 # compare lo(R) and lo(Y)
9931 #..If Carry is set, then Y < (Carry,D1,D2) < 2Y. Otherwise, Carry = 0
9932 #..and Y < (D1,D2) < 2Y. Either way, perform R - Y
9933 sub.l %d5,%d2 # lo(R) - lo(Y)
9944 add.l %d2,%d2 # lo(R) = 2lo(R)
9949 #..At this point, R=(Carry,D1,D2) = 2^(k-L)X - QY, j+k=L, j >= 0, R < 2Y.
9954 #..k = L, j = 0, Carry = 0, R = (D1,D2) = X - QY, R < Y.
9962 mov.l %d2,%d1
9963 clr.l %d2
9968 sub.l %d6,%d0 # (D0,D1,D2) is normalized
9978 mov.l %d2,%d7 # a copy of D2
9979 lsl.l %d6,%d2
9983 or.l %d7,%d1 # (D0,D1,D2) normalized
9992 mov.l %d2,R_Lo(%a6)
10002 mov.l %d2,R_Lo(%a6)
10027 cmp.l %d2,%d5
10064 movm.l (%sp)+,&0xfc # {%d2-%d7}
11646 mov.l %d2,-(%sp) # save d2
11648 mov.l %d1,%d2 # make a copy
11650 andi.w &0x8000,%d2 # keep old sign
11652 or.w %d2,%d1 # concat old sign,new exp
11654 mov.l (%sp)+,%d2 # restore d2
11716 mov.l %d2,-(%sp) # save d2
11718 mov.w %d1,%d2 # make a copy
11723 andi.w &0x8000,%d2 # keep old sign
11724 or.w %d2,%d1 # concat old sign,new exp
11726 mov.l (%sp)+,%d2 # restore d2
11836 mov.l %d2,-(%sp) # save d2
11838 mov.l %d1,%d2 # make a copy
11840 andi.w &0x8000,%d2 # keep old sign
11844 or.w %d2,%d1 # concat old sign,new exp
11846 mov.l (%sp)+,%d2 # restore d2
12173 mov.l %d2,-(%sp) # save d2
12176 mov.w %d1,%d2 # make a copy
12179 andi.w &0x8000,%d2 # keep old sign
12180 or.w %d1,%d2 # concat old sign,new exponent
12181 mov.w %d2,FP_SCR0_EX(%a6) # insert new exponent
12182 mov.l (%sp)+,%d2 # restore d2
12235 mov.l %d2,-(%sp) # save d2
12236 mov.w %d1,%d2 # make a copy
12239 andi.w &0x8000,%d2 # extract old sign
12242 or.w %d1,%d2 # concat old sign,new exp
12243 mov.w %d2,FP_SCR1_EX(%a6) # insert new exponent
12245 mov.l (%sp)+,%d2 # restore d2
12288 mov.l %d2,-(%sp) # save d2
12290 mov.l %d1,%d2 # make a copy
12292 andi.w &0x8000,%d2 # keep old sign
12296 or.w %d2,%d1
12298 mov.l (%sp)+,%d2 # restore d2
12460 mov.l %d2,-(%sp) # store d2
12462 mov.l %d1,%d2 # make a copy
12464 andi.w &0x8000,%d2 # keep old sign
12466 or.w %d2,%d1 # concat old sign,new exp
12468 mov.l (%sp)+,%d2 # restore d2
12529 mov.l %d2,-(%sp) # save d2
12531 mov.w %d1,%d2 # make a copy
12536 andi.w &0x8000,%d2 # keep old sign
12537 or.w %d2,%d1 # concat old sign,new exp
12539 mov.l (%sp)+,%d2 # restore d2
12604 mov.l %d2,-(%sp) # save d2
12606 mov.l %d1,%d2 # make a copy
12608 andi.w &0x8000,%d2 # keep old sign
12612 or.w %d2,%d1 # concat old sign,new exp
12614 mov.l (%sp)+,%d2 # restore d2
12953 mov.l %d2,-(%sp) # save d2
12956 mov.w %d1,%d2 # make a copy
12959 andi.w &0x8000,%d2 # keep old sign
12960 or.w %d1,%d2 # concat old sign,new exp
12961 mov.w %d2,FP_SCR0_EX(%a6) # insert new exponent
12962 mov.l (%sp)+,%d2 # restore d2
13015 mov.l %d2,-(%sp) # save d2
13016 mov.l %d1,%d2 # make a copy
13018 andi.w &0x8000,%d2 # keep old sign
13022 or.w %d2,%d1 # concat new sign,new exp
13025 mov.l (%sp)+,%d2 # restore d2
13068 mov.l %d2,-(%sp) # save d2
13070 mov.l %d1,%d2 # make a copy
13072 andi.w &0x8000,%d2 # keep old sign
13076 or.w %d2,%d1 # concat sign,exp
13079 mov.l (%sp)+,%d2 # restore d2
13571 mov.l %d2,-(%sp) # save d2
13574 mov.l %d1,%d2 # make a copy
13577 andi.w &0x8000,%d2 # keep old sign
13578 or.w %d1,%d2 # concat old sign,new exp
13579 mov.w %d2,FP_SCR0_EX(%a6) # insert new exponent
13580 mov.l (%sp)+,%d2 # restore d2
13630 mov.l %d2,-(%sp) # save d2
13631 mov.l %d1,%d2 # make a copy
13633 andi.w &0x8000,%d2 # keep old sign
13637 or.w %d2,%d1 # concat new sign,new exp
13640 mov.l (%sp)+,%d2 # restore d2
13683 mov.l %d2,-(%sp) # save d2
13685 mov.l %d1,%d2 # make a copy
13687 andi.w &0x8000,%d2 # keep old sign
13691 or.w %d2,%d1 # concat sign,exp
13694 mov.l (%sp)+,%d2 # restore d2
14017 mov.l %d2,-(%sp) # save d2
14019 mov.l %d1,%d2 # make a copy
14021 andi.w &0x8000,%d2 # keep old sign
14023 or.w %d2,%d1 # concat old sign,new exp
14025 mov.l (%sp)+,%d2 # restore d2
14064 mov.l %d2,-(%sp) # save d2
14066 mov.l %d1,%d2 # make a copy
14071 andi.w &0x8000,%d2 # keep old sign
14072 or.w %d2,%d1 # concat old sign,new exp
14074 mov.l (%sp)+,%d2 # restore d2
14141 mov.l %d2,-(%sp) # save d2
14143 mov.l %d1,%d2 # make a copy
14145 andi.w &0x8000,%d2 # keep old sign
14149 or.w %d2,%d1 # concat old sign,new exp
14151 mov.l (%sp)+,%d2 # restore d2
14364 mov.l %d2,-(%sp) # save d2
14366 mov.l %d1,%d2 # make a copy
14368 andi.w &0x8000,%d2 # keep old sign
14370 or.w %d2,%d1 # concat old sign,new exp
14372 mov.l (%sp)+,%d2 # restore d2
14417 mov.l %d2,-(%sp) # save d2
14419 mov.l %d1,%d2 # make a copy
14421 andi.w &0x8000,%d2 # keep old sign
14425 or.w %d2,%d1 # concat old sign,new exp
14427 mov.l (%sp)+,%d2 # restore d2
14474 mov.l %d2,-(%sp) # save d2
14476 mov.l %d1,%d2 # make a copy
14478 andi.w &0x8000,%d2 # keep old sign
14482 or.w %d2,%d1 # concat old sign, new exp
14484 mov.l (%sp)+,%d2 # restore d2
14687 mov.l %d2,-(%sp) # save d2
14694 mov.w (%sp),%d2 # fetch new sign, exp
14695 andi.l &0x7fff,%d2 # strip sign
14696 sub.l %d0,%d2 # add scale factor
14698 cmp.l %d2,(tbl_fadd_ovfl.b,%pc,%d1.w*4) # is it an overflow?
14701 cmp.l %d2,(tbl_fadd_unfl.b,%pc,%d1.w*4) # is it an underflow?
14708 or.w %d2,%d1 # concat sign,new exp
14713 mov.l (%sp)+,%d2 # restore d2
14745 mov.l (%sp)+,%d2 # restore d2
14756 subi.l &0x6000,%d2 # add extra bias
14757 andi.w &0x7fff,%d2
14758 or.w %d2,%d1 # concat sign,new exp
14808 mov.l (%sp)+,%d2 # restore d2
14829 mov.l %d1,%d2 # make a copy
14831 andi.w &0x8000,%d2 # keep old sign
14835 or.w %d2,%d1 # concat sign,new exp
15140 mov.l %d2,-(%sp) # save d2
15147 mov.w (%sp),%d2 # fetch new exponent
15148 andi.l &0x7fff,%d2 # strip sign
15149 sub.l %d0,%d2 # add scale factor
15151 cmp.l %d2,(tbl_fsub_ovfl.b,%pc,%d1.w*4) # is it an overflow?
15154 cmp.l %d2,(tbl_fsub_unfl.b,%pc,%d1.w*4) # is it an underflow?
15161 or.w %d2,%d1 # insert new exponent
15166 mov.l (%sp)+,%d2 # restore d2
15198 mov.l (%sp)+,%d2 # restore d2
15209 subi.l &0x6000,%d2 # subtract new bias
15210 andi.w &0x7fff,%d2 # clear top bit
15211 or.w %d2,%d1 # concat sign,exp
15261 mov.l (%sp)+,%d2 # restore d2
15282 mov.l %d1,%d2 # make a copy
15284 andi.w &0x8000,%d2 # keep old sign
15288 or.w %d2,%d1 # concat sgn,exp
15634 mov.l %d2,-(%sp) # save d2
15637 mov.l %d1,%d2 # make a copy
15640 andi.w &0x8000,%d2 # keep old sign
15641 or.w %d1,%d2 # concat old sign,new exp
15642 mov.w %d2,FP_SCR0_EX(%a6) # insert new exponent
15643 mov.l (%sp)+,%d2 # restore d2
15712 mov.l %d2,-(%sp) # save d2
15713 mov.l %d1,%d2 # make a copy
15715 andi.w &0x8000,%d2 # keep old sign
15719 or.w %d2,%d1 # concat new sign,new exp
15722 mov.l (%sp)+,%d2 # restore d2
15765 mov.l %d2,-(%sp) # save d2
15767 mov.l %d1,%d2 # make a copy
15769 andi.w &0x8000,%d2 # keep old sign
15773 or.w %d2,%d1 # concat sign,exp
15776 mov.l (%sp)+,%d2 # restore d2
18925 mov.l %d2,-(%sp) # save d2
18926 mov.l L_SCR1(%a6),%d2 # fetch opword
18928 btst &0xb,%d2 # is it word or long?
18932 mov.l %d2,%d1
18938 extb.l %d2 # sign extend displacement
18939 add.l %d2,%d0 # index + disp
18942 mov.l (%sp)+,%d2 # restore old d2
19021 mov.l %d2,-(%sp) # save d2
19022 mov.l L_SCR1(%a6),%d2 # fetch opword
19024 btst &0xb,%d2 # is index word or long?
19028 mov.l %d2,%d1
19034 extb.l %d2 # sign extend displacement
19035 add.l %d2,%d0 # disp + index
19038 mov.l (%sp)+,%d2 # restore temp register
19041 # d2 = index
19049 movm.l &0x3c00,-(%sp) # save d2-d5
19054 clr.l %d2 # yes, so index = 0
19063 movm.l &0x3c00,-(%sp) # save d2-d5
19064 mov.l %d0,%d2 # put index in d2
19070 ext.l %d2
19074 lsl.l %d0,%d2
19158 add.l %d2,%d0 # <ea> += index
19163 add.l %d2,%d3 # preindexing
19174 add.l %d2,%d3 # ea = (base + bd) + index
19179 movm.l (%sp)+,&0x003c # restore d2-d5
19186 movm.l (%sp)+,&0x003c # restore d2-d5
19191 movm.l (%sp)+,&0x003c # restore d2-d5
21112 mov.l %d2,%d0
21197 mov.l %d0,%d2
21258 mov.w %d0,%d2
21319 mov.b %d0,%d2
21751 clr.l FTEMP_LO(%a0) # set d2 = 0 (ms mantissa)
21824 mov.l %d2, -(%sp) # create temp storage
21832 mov.b GRS(%a6), %d2
21833 or.b %d2, 3+FTEMP_LO2(%a6)
21836 bfextu FTEMP_HI(%a0){&0:%d0}, %d2 # %d2 = new FTEMP_HI
21840 mov.l %d2, FTEMP_HI(%a0) # store new FTEMP_HI
21849 mov.l (%sp)+, %d2 # restore temp register
21876 mov.l %d2, -(%sp) # create temp storage
21886 mov.b GRS(%a6), %d2
21887 or.b %d2, 3+FTEMP_LO2(%a6)
21889 bfextu FTEMP_HI(%a0){&0:%d0}, %d2 # %d2 = new FTEMP_LO
21906 mov.l %d2, FTEMP_LO(%a0) # store FTEMP_LO
21909 mov.l (%sp)+,%d2 # restore temp register
22150 clr.l FTEMP_LO(%a0) # clear d2
22243 movm.l &0x3000, -(%sp) # make some temp registers {d2/d3}
22262 mov.l &30, %d2 # of the sgl prec. limits
22263 lsl.l %d2, %d3 # shift g-r bits to MSB of d3
22264 mov.l FTEMP_HI(%a0), %d2 # get word 2 for s-bit test
22265 and.l &0x0000003f, %d2 # s bit is the or of all other
22287 mov.l &30, %d2 # of the dbl prec. limits
22288 lsl.l %d2, %d3 # shift g-r bits to the MSB of d3
22289 mov.l FTEMP_LO(%a0), %d2 # get lower mantissa for s-bit test
22290 and.l &0x000001ff, %d2 # s bit is the or-ing of all
22301 movm.l (%sp)+, &0xc # restore scratch registers {d2/d3}
22327 mov.l %d2, -(%sp) # create some temp regs
22333 bfffo %d0{&0:&32}, %d2 # how many places to shift?
22337 lsl.l %d2, %d0 # left shift hi(man)
22338 bfextu %d1{&0:%d2}, %d3 # extract lo bits
22341 lsl.l %d2, %d1 # create lo(man)
22346 mov.l %d2, %d0 # return shift amount
22349 mov.l (%sp)+, %d2
22354 bfffo %d1{&0:&32}, %d2 # how many places to shift?
22355 lsl.l %d2, %d1 # shift lo(man)
22356 add.l &32, %d2 # add 32 to shft amount
22361 mov.l %d2, %d0 # return shift amount
22364 mov.l (%sp)+, %d2
23087 movm.l &0x3c00,-(%sp) # save d2-d5
23102 # (*) d2: digit count
23111 mov.l &EDIGITS,%d2 # # of nibbles (digits) in fraction part
23120 dbf.w %d2,e_gd # if we have used all 3 digits, exit loop
23144 # (*) d2: digit count
23171 mov.l &FNIBS,%d2 # reset number of digits per a0 ptr
23178 # If all the digits (8) in that long word have been converted (d2=0),
23180 # to initialize the digit offset, and set d2 to 7 for the digit count;
23184 dbf.w %d2,md2b # check for last digit in this lw
23232 # (*) d2: digit count
23265 mov.l &7,%d2 # init digit counter
23271 dbf.w %d2,ap_p_gd # get next digit
23273 mov.l %d1,%d0 # copy counter to d2
23289 mov.l &3,%d2 # init d2 to count bits in counter
23313 mov.l &7,%d2 # init digit counter
23319 dbf.w %d2,ap_n_gd # get next digit
23337 mov.l &3,%d2 # init d2 to count bits in counter
23356 # (*) d2: {FPCR[6:5],SM,SE} as index in RTABLE; temp
23393 bfextu %d3{&26:&2},%d2 # isolate rounding mode bits
23395 asl.l &2,%d2 # format d2 to be
23397 add.l %d0,%d2 # in d2 as index into RTABLE
23399 mov.b (%a1,%d2),%d0 # load new rounding bits from table
23465 movm.l (%sp)+,&0x3c # restore d2-d5
23602 # d2: upper 32-bits of mantissa for binstr
23621 movm.l &0x3f20,-(%sp) # {%d2-%d7/%a2}
23646 mov.l 8(%a0),%d2
23649 lsl.l &1,%d2
23663 mov.l %d2,8(%a0)
23682 # d2: x/x
23744 # d2: x/x/scratch
23816 # d2: x/0 or 24 for A9
23845 clr.w %d2 # set up d2 for very small case
23852 mov.l &24,%d2 # put 24 in d2 for A9
23907 # Check d2 for excess 10 exponential value. If not zero,
23910 # multiply by 10^(d2), which is now only allowed to be 24,
23919 # d2: 0 or 24/unchanged
23993 tst.w %d2 # test for small exp case
24007 # d2: x/x
24048 # d2: x/x/scratch
24116 # d2: x/x
24224 # d2: x/ms 32-bits of mant of abs(YINT)
24247 mov.l 4(%a0),%d2 # move 2nd word of FP_RES to d2
24259 lsr.l &1,%d2 # shift d2:d3 right, add 0s
24263 tst.l %d2 # check for mantissa of zero
24270 addx.l %d1,%d2 # continue inc
24297 # d2: x/ms 32-bits of exp fraction/scratch
24342 mov.l 4(%a2),%d2 # move word 2 to d2
24349 lsr.l &1,%d2 # shift d2:d3 right
24355 addx.l %d1,%d2 # continue inc
24377 # d2: x/x
24411 movm.l (%sp)+,&0x4fc # {%d2-%d7/%a2}
24466 # d2:d3 = 64-bit binary integer #
24487 # Copy the fraction in d2:d3 to d4:d5. #
24489 # A3. Multiply the fraction in d2:d3 by 8 using bit-field #
24490 # extracts and shifts. The three msbs from d2 will go into d1. #
24495 # A5. Add using the carry the 64-bit quantities in d2:d3 and d4:d5 #
24496 # into d2:d3. D1 will contain the bcd digit formed. #
24513 # d2: upper 32-bits of fraction for mul by 8
24532 # A2. Copy d2:d3 to d4:d5. Start loop.
24535 mov.l %d2,%d4 # copy the fraction before muls
24538 # A3. Multiply d2:d3 by 8; extract msbs into d1.
24540 bfextu %d2{&0:&3},%d1 # copy 3 msbs of d2 into d1
24541 asl.l &3,%d2 # shift d2 left by 3 places
24544 or.l %d6,%d2 # or in msbs from d3 into d2
24557 addx.l %d4,%d2 # add with extend upper 32 bits
Indexes created Wed Oct 22 13:09:56 GMT 2025