?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.  ifndef included_xtan
  2.  define included_xtan
  3.  include "../common/pushpop.asm"
  4.  include "xdiv.asm"
  5.  include "xcos.asm"
  6.  include "xsin.asm"
  7.  
  8. tan_x=xOP1+90
  9. tan_y=xOP1+80
  10. xtan:
  11.   call pushpop
  12.   push bc
  13.   ld bc,tan_x
  14.   call xcos
  15.   ld d,b
  16.   ld e,c
  17.   ld bc,tan_y
  18.   call xsin
  19.   ld h,b
  20.   ld l,c
  21.   pop bc
  22.   jp xdiv
  23. ;#undefine tan_x
  24. ;#undefine tan_y
  25.  endif
  26.