sys/src/libc/386/sqrt.s

   1 TEXT    sqrt(SB), $0
   2         FMOVD   a+0(FP), F0
   3
   4         FTST
   5         WAIT
   6         FSTSW   AX
   7         SAHF
   8         JLO     bad
   9
  10         FSQRT
  11         RET
  12
  13 bad:
  14         FMOVDP  F0, F0
  15         CALL    NaN(SB)
  16         RET