cfu8.s 695 B

1234567891011121314151617181920212223242526272829303132333435363738394041424344
  1. #
  2. ! $Source$
  3. ! $State$
  4. ! $Revision$
  5. #include "powerpc.h"
  6. .sect .text
  7. ! Converts a 64-bit double into a 32-bit unsigned integer.
  8. !
  9. ! Stack: ( double -- uint )
  10. .define .cfu8
  11. .cfu8:
  12. la(r3, .fd_00000000)
  13. lfd f0, 0(r3) ! f0 = 0.0
  14. lfd f1, 0(sp) ! value to be converted
  15. la(r3, .fd_FFFFFFFF)
  16. lfd f3, 0(r3) ! f3 = 0xFFFFFFFF
  17. la(r3, .fd_80000000)
  18. lfd f4, 0(r3) ! f4 = 0x80000000
  19. fsel f2, f1, f1, f0
  20. fsub f5, f3, f1
  21. fsel f2, f5, f2, f3
  22. fsub f5, f2, f4
  23. fcmpu cr0, f2, f4
  24. fsel f2, f5, f5, f2
  25. fctiwz f2, f2
  26. stfd f2, 0(sp)
  27. addi sp, sp, 4
  28. bclr IFTRUE, LT, 0
  29. lwz r3, 0(sp)
  30. xoris r3, r3, 0x8000
  31. stw r3, 0(sp)
  32. bclr ALWAYS, 0, 0