log.s 302 B

12345678910111213141516171819202122232425262728293031
  1. TEXT log(SB), $0
  2. FMOVD $0.69314718055994530941, F0
  3. FMOVD a+0(FP), F0
  4. FTST
  5. WAIT
  6. FSTSW AX
  7. SAHF
  8. JLO bad
  9. FYL2X
  10. RET
  11. TEXT log10(SB), $0
  12. FMOVD $0.30102999566398119521, F0
  13. FMOVD a+0(FP), F0
  14. FTST
  15. WAIT
  16. FSTSW AX
  17. SAHF
  18. JLO bad
  19. FYL2X
  20. RET
  21. bad:
  22. FMOVDP F0, F0
  23. FMOVDP F0, F0
  24. CALL NaN(SB)
  25. RET