?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.  ifndef included_xacos
  2.  define included_xacos
  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(1-x^2)/BG(x,1)
  11. var_x=xOP1+152
  12. xacos:
  13.   call pushpop
  14.   push bc
  15.   push hl
  16.   ld d,h
  17.   ld e,l
  18.   ld bc,xOP1
  19.   call xmul
  20.   ld hl,xconst_1
  21.   ld d,b
  22.   ld e,c
  23.   ld bc,var_x
  24.   call xsub
  25.   ex de,hl
  26.   ld h,b
  27.   ld l,c
  28.   call xsqrt
  29.   pop hl
  30.   ld bc,xOP1
  31.   call xbg
  32.   ld h,b
  33.   ld l,c
  34.   ld de,var_x
  35.   pop bc
  36.   jp xmul
  37.  endif
  38.