diff options
Diffstat (limited to 'device/lib/stm8/atan2f.asm')
| -rw-r--r-- | device/lib/stm8/atan2f.asm | 236 |
1 files changed, 0 insertions, 236 deletions
diff --git a/device/lib/stm8/atan2f.asm b/device/lib/stm8/atan2f.asm deleted file mode 100644 index e43db71..0000000 --- a/device/lib/stm8/atan2f.asm +++ /dev/null @@ -1,236 +0,0 @@ -;-------------------------------------------------------- -; File Created by SDCC : free open source ANSI-C Compiler -; Version 3.9.3 #11345 (Linux) -;-------------------------------------------------------- - .module atan2f - .optsdcc -mstm8 - -;-------------------------------------------------------- -; Public variables in this module -;-------------------------------------------------------- - .globl _fabsf - .globl _atanf - .globl _atan2f -;-------------------------------------------------------- -; ram data -;-------------------------------------------------------- - .area DATA -;-------------------------------------------------------- -; ram data -;-------------------------------------------------------- - .area INITIALIZED -;-------------------------------------------------------- -; absolute external ram data -;-------------------------------------------------------- - .area DABS (ABS) - -; default segment ordering for linker - .area HOME - .area GSINIT - .area GSFINAL - .area CONST - .area INITIALIZER - .area CODE - -;-------------------------------------------------------- -; global & static initialisations -;-------------------------------------------------------- - .area HOME - .area GSINIT - .area GSFINAL - .area GSINIT -;-------------------------------------------------------- -; Home -;-------------------------------------------------------- - .area HOME - .area HOME -;-------------------------------------------------------- -; code -;-------------------------------------------------------- - .area CODE -; ../atan2f.c: 34: float atan2f(float x, float y) -; ----------------------------------------- -; function atan2f -; ----------------------------------------- -_atan2f: - sub sp, #10 -; ../atan2f.c: 38: if ((x==0.0) && (y==0.0)) - ldw x, (0x0f, sp) - jrne 00102$ - ldw x, (0x0d, sp) - sllw x - jrne 00102$ - ldw x, (0x13, sp) - jrne 00102$ - ldw x, (0x11, sp) - sllw x - jrne 00102$ -; ../atan2f.c: 40: errno=EDOM; - ldw x, #0x0021 - ldw _errno+0, x -; ../atan2f.c: 41: return 0.0; - clrw x - clrw y - jp 00109$ -00102$: -; ../atan2f.c: 44: if(fabsf(y)>=fabsf(x)) - ldw x, (0x13, sp) - pushw x - ldw x, (0x13, sp) - pushw x - call _fabsf - addw sp, #4 - ldw (0x04, sp), x - ldw (0x02, sp), y - ldw x, (0x0f, sp) - pushw x - ldw x, (0x0f, sp) - pushw x - call _fabsf - addw sp, #4 - ldw (0x08, sp), x - ldw (0x06, sp), y -; ../atan2f.c: 47: if(y<0.0) r+=(x>=0?PI:-PI); - clrw x - pushw x - clrw x - pushw x - ldw x, (0x13, sp) - pushw x - ldw x, (0x13, sp) - pushw x -; ../atan2f.c: 44: if(fabsf(y)>=fabsf(x)) - call ___fslt - addw sp, #8 - ld (0x0a, sp), a - ldw x, (0x08, sp) - pushw x - ldw x, (0x08, sp) - pushw x - ldw x, (0x08, sp) - pushw x - ldw x, (0x08, sp) - pushw x - call ___fslt - addw sp, #8 - ld (0x09, sp), a - jrne 00107$ -; ../atan2f.c: 46: r=atanf(x/y); - ldw x, (0x13, sp) - pushw x - ldw x, (0x13, sp) - pushw x - ldw x, (0x13, sp) - pushw x - ldw x, (0x13, sp) - pushw x - call ___fsdiv - addw sp, #8 - pushw x - pushw y - call _atanf - addw sp, #4 - ldw (0x08, sp), x - ldw (0x06, sp), y -; ../atan2f.c: 47: if(y<0.0) r+=(x>=0?PI:-PI); - clrw x - pushw x - clrw x - pushw x - ldw x, (0x17, sp) - pushw x - ldw x, (0x17, sp) - pushw x - call ___fslt - addw sp, #8 - tnz a - jrne 00150$ - jp 00108$ -00150$: - tnz (0x0a, sp) - jrne 00111$ - ldw x, #0x0fdb - ldw (0x04, sp), x - ldw x, #0x4049 - ldw (0x02, sp), x - jra 00112$ -00111$: - ldw x, #0x0fdb - ldw (0x04, sp), x - ldw x, #0xc049 - ldw (0x02, sp), x -00112$: - ldw x, (0x04, sp) - pushw x - ldw x, (0x04, sp) - pushw x - ldw x, (0x0c, sp) - pushw x - ldw x, (0x0c, sp) - pushw x - call ___fsadd - addw sp, #8 - ldw (0x08, sp), x - ldw (0x06, sp), y - jra 00108$ -00107$: -; ../atan2f.c: 51: r=-atanf(y/x); - ldw x, (0x0f, sp) - pushw x - ldw x, (0x0f, sp) - pushw x - ldw x, (0x17, sp) - pushw x - ldw x, (0x17, sp) - pushw x - call ___fsdiv - addw sp, #8 - pushw x - pushw y - call _atanf - addw sp, #4 - exgw x, y - sllw x - ccf - rrcw x - ldw (0x08, sp), y - ldw (0x06, sp), x -; ../atan2f.c: 52: r+=(x<0.0?-HALF_PI:HALF_PI); - ld a, (0x0a, sp) - jreq 00113$ - ldw x, #0x0fdb - ldw (0x04, sp), x - ldw x, #0xbfc9 - jra 00114$ -00113$: - ldw x, #0x0fdb - ldw (0x04, sp), x - ldw x, #0x3fc9 -00114$: - ldw y, (0x04, sp) - pushw y - pushw x - ldw x, (0x0c, sp) - pushw x - ldw x, (0x0c, sp) - pushw x - call ___fsadd - addw sp, #8 - ldw (0x03, sp), x - ldw (0x01, sp), y - ldw y, (0x03, sp) - ldw (0x08, sp), y - ldw y, (0x01, sp) - ldw (0x06, sp), y -00108$: -; ../atan2f.c: 54: return r; - ldw x, (0x08, sp) - ldw y, (0x06, sp) -00109$: -; ../atan2f.c: 55: } - addw sp, #10 - ret - .area CODE - .area CONST - .area INITIALIZER - .area CABS (ABS) |