?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.  ifndef included_xasin
  2.  define included_xasin
  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. ;x/BG(sqrt(1-x^2),1)
  11. var_x=xOP1+152
  12. xasin:
  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 h,b
  21.   ld l,c
  22.   ld de,xconst_1
  23.   call xrsub
  24.   call xsqrt
  25.   call xbg
  26.   pop de
  27.   pop bc
  28.   jp xmul
  29.  endif
  30.