aTAN2

Date: 02-16-2022

Return to Index

 
Function ATN2 (ByVal Y As Ext,ByVal X As Ext) As Ext
  #Register None
  Dim Res As Ext
 
  !fld y##    ;Get y onto the FPU stack
  !fld x##    ;Get x onto the FPU stack
  !fpatan     ;Get the ATAN(y/x), Put result In ST(1) Then pop the stack
  !fstp res##   ;store the result In res## And pop the stack
 
  Function = Res
End Function
 
'gbs_01437
'Date: 10-17-2014              

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm