?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.  ifndef included_xacosh
  2.  define included_xacosh
  3.  include "../common/pushpop.asm"
  4.  include "constantsx.asm"
  5.  include "xmul.asm"
  6.  include "xsub.asm"
  7.  include "xsqrt.asm"
  8.  include "xbg.asm"
  9.  
  10. ;sqrt(x^2-1)/BG(x,1)
  11. var_x=xOP1+152 ;FIXME
  12. xacosh:
  13. ;log(x+sqrt(x^2-1))
  14.   call pushpop
  15.   push bc
  16.   ld de,var_x-10
  17.   call mov10
  18.   ld hl,var_x-10
  19.   ld d,h
  20.   ld e,l
  21.   ld bc,var_x-20
  22.   call xmul
  23.   ld h,b
  24.   ld l,c
  25.   ld de,xconst_1
  26.   call xsub
  27.   call xsqrt
  28.   ld de,var_x-10
  29.   call xadd
  30.   pop bc
  31.   jp xln
  32.  
  33.  
  34.  
  35.  
  36.   ; push bc
  37.   ; push hl
  38.   ; ld d,h
  39.   ; ld e,l
  40.   ; ld bc,xOP1
  41.   ; call xmul
  42.   ; ld de,xconst_1
  43.   ; ld h,b
  44.   ; ld l,c
  45.   ; ld bc,var_x
  46.   ; call xsub
  47.   ; ld h,b
  48.   ; ld l,c
  49.   ; call xsqrt
  50.   ; pop hl
  51.   ; ld bc,xOP1
  52.   ; call xbg
  53.   ; ld h,b
  54.   ; ld l,c
  55.   ; ld de,var_x
  56.   ; pop bc
  57.   ; jp xmul
  58.  endif
  59.