?login_element?

Subversion Repositories NedoOS

Rev

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

  1.  ifndef included_xatanh
  2.  define included_xatanh
  3.  include "../common/pushpop.asm"
  4.  include "constantsx.asm"
  5.  include "xmul.asm"
  6.  include "xrsub.asm"
  7.  include "xsqrt.asm"
  8.  include "xbg.asm"
  9.  
  10.  include "xrsub.asm"
  11.  include "xdiv.asm"
  12.  include "xdiv2.asm"
  13.  include "xln.asm"
  14.  
  15. ;x/BG(1,sqrt(1-x^2))
  16. var_x=xOP1+152 ;FIXME
  17. xatanh:
  18. ;log((1+x)/(1-x))/2
  19.   call pushpop
  20.   push bc
  21.  
  22.   ld bc,xOP4
  23.   ld de,xconst_1
  24.   call xadd
  25.   ld bc,xOP5
  26.   ld de,xconst_1
  27.   call xrsub
  28.   ld d,b
  29.   ld e,c
  30.   ld hl,xOP4
  31.   call xdiv
  32.   ld h,b
  33.   ld l,c
  34.   call xln
  35.   pop bc
  36.   jp xdiv2
  37.  endif
  38.