include mdef.inc modstart tanf xdefp _tanf _tanf proc fptan fnstsw ax test eax, 0x400 jnz L1 fstp st(0) ret L1: fldpi fadd st,st fxch st(1) L2: fprem1 fnstsw ax test eax,0x400 jnz L2 fstp st(1) fptan fstp st(0) ret _tanf endp endmod end