Subversion Repositories Kolibri OS

Rev

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

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