?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.  ifndef included_constantsx
  2.  define included_constantsx
  3. ;==========================================================
  4. ;The following are common constants given to 64-bit precision.
  5. ;==========================================================
  6. start_xconst:
  7. xconst_pi:
  8.   db $35,$C2,$68,$21,$a2,$da,$0f,$c9
  9.   dw $4001
  10. xconst_e:
  11.   db $9B,$4a,$bb,$a2,$58,$54,$f8,$ad
  12.   dw $4001
  13. xconst_lg_e:
  14.   db $bC,$f0,$17,$5c,$29,$3b,$aa,$b8
  15.   dw $4000
  16. xconst_ln_2:
  17.   db $aC,$79,$cf,$d1,$f7,$17,$72,$b1
  18.   dw $3FFF
  19. xconst_log10_2:
  20.   db $99,$F7,$CF,$FB,$84,$9A,$20,$9A
  21.   dw $3FFE
  22. xconst_lg_10:
  23.   db $FE,$8A,$1B,$CD,$4B,$78,$9A,$D4
  24.   dw $4001
  25. xconst_0:
  26.   db $00,$00,$00,$00,$00,$00,$00,$00
  27.   dw $0000
  28. xconst_1:
  29.   db $00,$00,$00,$00,$00,$00,$00,$80
  30.   dw $4000
  31. xconst_INF:
  32.   db $00,$00,$00,$00,$00,$00,$00,$C0
  33.   dw $0000
  34. xconst_nINF:
  35.   db $00,$00,$00,$00,$00,$00,$00,$C0
  36.   dw $8000
  37. xconst_NaN:
  38.   db $00,$00,$00,$00,$00,$00,$00,$40
  39.   dw $0000
  40. xconst_log10_e:
  41.   db $95,$71,$28,$37,$A9,$D8,$5B,$DE,$FE,$3F
  42. xconst_2pi:
  43.   db $35,$C2,$68,$21,$a2,$da,$0f,$c9
  44.   dw $4002
  45. xconst_2pi_inv:
  46.   db $2A,$15,$44,$4E,$6E,$83,$F9,$A2,$FD,$3F
  47. xconst_p5:
  48.   db $00,$00,$00,$00,$00,$00,$00,$80
  49.   dw $3FFF
  50. xconst_p25:
  51.   db $00,$00,$00,$00,$00,$00,$00,$80
  52.   dw $3FFE
  53. xconst_sqrt_2:
  54.   db $0F,$6D,$DE,$F9,$33,$F3,$04,$B5
  55.   dw $4000
  56. end_xconst:
  57. ;==========================================================
  58. ;The following are used by internal routines.
  59. ;==========================================================
  60. xconst_pi_div_2:
  61.   db $35,$C2,$68,$21,$a2,$da,$0f,$c9
  62.   dw $4000
  63. xconst_3028466566125:
  64.   db $00,$00,$40,$FB,$20,$AB,$47,$B0
  65.   dw $4029
  66.  endif
  67.