Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1.  
  2. include mdef.inc
  3.  
  4.            modstart tanf
  5.  
  6.            xdefp _tanf
  7.  
  8. _tanf proc
  9.            fptan
  10.            fnstsw  ax
  11.            test    eax, 0x400
  12.            jnz     L1
  13.            fstp    st(0)
  14.            ret
  15.  
  16. L1:        fldpi
  17.            fadd    st,st
  18.            fxch    st(1)
  19. L2:
  20.            fprem1
  21.            fnstsw  ax
  22.            test   eax,0x400
  23.            jnz     L2
  24.            fstp    st(1)
  25.            fptan
  26.            fstp    st(0)
  27.            ret
  28. _tanf endp
  29.  
  30.            endmod
  31.            end
  32.