Lines Matching refs:d0
184 movel (%a0),%d0
185 movew 4(%a0),%d0
187 andil #0x7FFFFFFF,%d0 | ...COMPACTIFY X
189 cmpil #0x3FD78000,%d0 | ...|X| >= 2**(-40)?
194 cmpil #0x4004BC7E,%d0 | ...|X| < 15 PI?
211 movel N(%a6),%d0
212 asll #4,%d0
213 addal %d0,%a1 | ...A1 IS THE ADDRESS OF N*PIBY2
224 movel N(%a6),%d0
225 addl ADJN(%a6),%d0 | ...SEE IF D0 IS ODD OR EVEN
226 rorl #1,%d0 | ...D0 WAS ODD IFF D0 IS NEGATIVE
227 cmpil #0,%d0
249 rorl #1,%d0
250 andil #0x80000000,%d0
252 eorl %d0,X(%a6) | ...X IS NOW R'= SGN*R
305 rorl #1,%d0
306 andil #0x80000000,%d0
311 eorl %d0,X(%a6) | ...X IS NOW S'= SGN*S
312 andil #0x80000000,%d0
316 oril #0x3F800000,%d0 | ...D0 IS SGN IN SINGLE
317 movel %d0,POSNEG1(%a6)
352 cmpil #0x3FFF8000,%d0
357 movel ADJN(%a6),%d0
358 cmpil #0,%d0
384 |--If compact form of abs(arg) in d0=$7ffeffff, argument is so large that
388 cmpil #0x7ffeffff,%d0 |is argument dangerously large?
415 movew INARG(%a6),%d0
416 movel %d0,%a1 | ...save a copy of D0
417 andil #0x00007FFF,%d0
418 subil #0x00003FFF,%d0 | ...D0 IS K
419 cmpil #28,%d0
422 subil #27,%d0 | ...D0 IS L := K-27
426 clrl %d0 | ...D0 IS L := 0
437 subl %d0,%d2 | ...BIASED EXPO OF 2**(-L)*(2/PI)
458 movel %d0,%d2
473 addil #0x00003FDD,%d0
474 movew %d0,FP_SCR3(%a6)
479 movel ENDFLAG(%a6),%d0
503 cmpil #0,%d0
517 movel ADJN(%a6),%d0
518 cmpil #4,%d0
538 movel (%a0),%d0
539 movew 4(%a0),%d0
541 andil #0x7FFFFFFF,%d0 | ...COMPACTIFY X
543 cmpil #0x3FD78000,%d0 | ...|X| >= 2**(-40)?
548 cmpil #0x4004BC7E,%d0 | ...|X| < 15 PI?
566 movel N(%a6),%d0
567 asll #4,%d0
568 addal %d0,%a1 | ...ADDRESS OF N*PIBY2, IN Y1, Y2
577 movel N(%a6),%d0
578 rorl #1,%d0
580 cmpil #0,%d0 | ...D0 < 0 IFF N IS ODD
592 movel %d0,%d2
598 eorl %d0,%d2
606 rorl #1,%d0
607 andil #0x80000000,%d0
611 eorl %d0,POSNEG1(%a6)
619 eorl %d0,SPRIME(%a6)
670 rorl #1,%d0
671 andil #0x80000000,%d0
674 eorl %d0,RPRIME(%a6)
675 eorl %d0,SPRIME(%a6)
677 oril #0x3F800000,%d0
678 movel %d0,POSNEG1(%a6)
728 cmpil #0x3FFF8000,%d0