Home Explore Help
Register Sign In
RISCI_ATOM
/
harvey
mirror of https://github.com/Harvey-OS/harvey.git
1
0
Fork 0
Files Issues 0 Wiki
Tree: 1331a7deaa
Branches Tags
harvey
/
sys
/
src
/
libc
/
386
/
387
/
sqrt.s

sqrt.s 128 B
History Raw

12345678910111213141516 
  1. TEXT	sqrt(SB), $0
    2. 

  2. 	FMOVD	a+0(FP), F0
    3. 

  3. 

  4. 	FTST
    5. 

  5. 	WAIT
    6. 

  6. 	FSTSW	AX
    7. 

  7. 	SAHF
    8. 

  8. 	JLO	bad
    9. 

  9. 

  10. 	FSQRT
    11. 

  11. 	RET
    12. 

  12. 

  13. bad:
    14. 

  14. 	FMOVDP	F0, F0
    15. 

  15. 	CALL	NaN(SB)
    16. 

  16. 	RET
    17.