azan

prayers time calculator written in nasm
git clone git://git.afify.dev/azan
Log | Files | Refs | README | LICENSE

commit 2aa8003831cf2337f3281a39a5d31e08ad00d172
parent 86150536c7aeeb09a91df35c8767bc93df434a21
Author: afify <hassan@afify.dev>
Date:   Tue, 24 Nov 2020 18:19:27 +0300

[ref] move math macros to math.s

Diffstat:
Mmacros.s | 60++----------------------------------------------------------
Amath.s | 59+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
2 files changed, 61 insertions(+), 58 deletions(-)

diff --git a/macros.s b/macros.s @@ -12,7 +12,7 @@ %define MAX_ARGC 2 section .rodata - usage_msg: db "usage: azan-nasm [-uv]", 10, 0 + usage_msg: db "usage: azan-nasm [-nuv]", 10, 0 usage_len: equ $ - usage_msg version_msg: db "azan-nasm-", VERSION, 10, 0 version_len: equ $ - version_msg @@ -55,63 +55,7 @@ section .note.openbsd.ident note EEXIT EXIT_SUCCESS %endmacro -%macro ACOS 1 ;acos(x) = atan(sqrt((1-x*x)/(x*x))) - movsd [tmp0], %1 - fld qword [tmp0] - fld st0 - fmul st0, st1 - fld1 - fsubrp st1, st0 - fsqrt - fxch - fpatan - fstp qword [tmp0] - movsd %1, [tmp0] -%endmacro - -%macro ASIN 1 ;asin(x) = atan(sqrt(x*x/(1-x*x))) - movsd [tmp0], %1 - fld qword [tmp0] - fld st0 - fmul st0, st1 - fld1 - fsubrp st1, st0 - fsqrt - fpatan - fstp qword [tmp0] - movsd %1, [tmp0] -%endmacro - -%macro COS 1 - movsd [tmp0], %1 - fld qword [tmp0] - fcos - fstp qword [tmp0] - movsd %1, [tmp0] -%endmacro - -%macro SIN 1 - movsd [tmp0], %1 - fld qword [tmp0] - fsin - fstp qword [tmp0] - movsd %1, [tmp0] -%endmacro - -%macro ATAN2 2 - movsd [tmp0], %1 - movsd [tmp1], %2 - fld qword [tmp0] ;x - fld qword [tmp1] ;y - fpatan - fstp qword [tmp0] - movsd %1, [tmp0] -%endmacro - -%macro CALC_DIFF 1 - ; diff = prayer time - tstamp - subsd %1, xmm6 - +%macro SEC_TO_HM 1 ;hours = floor(diff / sec_inhour) = xmm15 movsd xmm15, %1 divsd xmm15, [sec_inhour] diff --git a/math.s b/math.s @@ -0,0 +1,59 @@ +; See LICENSE file for copyright and license details. + +%ifndef MATH_S +%define MATH_S + +%macro COS 1 + movsd [tmp0], %1 + fld qword [tmp0] + fcos + fstp qword [tmp0] + movsd %1, [tmp0] +%endmacro + +%macro SIN 1 + movsd [tmp0], %1 + fld qword [tmp0] + fsin + fstp qword [tmp0] + movsd %1, [tmp0] +%endmacro + +%macro ACOS 1 ;acos(x) = atan(sqrt((1-x*x)/(x*x))) + movsd [tmp0], %1 + fld qword [tmp0] + fld st0 + fmul st0, st1 + fld1 + fsubrp st1, st0 + fsqrt + fxch + fpatan + fstp qword [tmp0] + movsd %1, [tmp0] +%endmacro + +%macro ASIN 1 ;asin(x) = atan(sqrt(x*x/(1-x*x))) + movsd [tmp0], %1 + fld qword [tmp0] + fld st0 + fmul st0, st1 + fld1 + fsubrp st1, st0 + fsqrt + fpatan + fstp qword [tmp0] + movsd %1, [tmp0] +%endmacro + +%macro ATAN2 2 + movsd [tmp0], %1 + movsd [tmp1], %2 + fld qword [tmp0] ;x + fld qword [tmp1] ;y + fpatan + fstp qword [tmp0] + movsd %1, [tmp0] +%endmacro + +%endif ;MATH_S