diff options
| author | Xavier ASUS <xavi92psx@gmail.com> | 2019-10-23 03:38:32 +0200 |
|---|---|---|
| committer | Xavier ASUS <xavi92psx@gmail.com> | 2019-10-23 03:38:32 +0200 |
| commit | 2cece67cb5af0339e4ab1f18b0bce2f0b4e6ebdd (patch) | |
| tree | b2fbf4e99f194213527304c9189abe65c163ac0b /device/lib/stm8/atanf.asm | |
| parent | ed26eb00026800d1d2ff6289627216c7d1f0d459 (diff) | |
| download | sdcc-gas-2cece67cb5af0339e4ab1f18b0bce2f0b4e6ebdd.tar.gz | |
Removed intermediate files
Diffstat (limited to 'device/lib/stm8/atanf.asm')
| -rw-r--r-- | device/lib/stm8/atanf.asm | 338 |
1 files changed, 0 insertions, 338 deletions
diff --git a/device/lib/stm8/atanf.asm b/device/lib/stm8/atanf.asm deleted file mode 100644 index fc163d7..0000000 --- a/device/lib/stm8/atanf.asm +++ /dev/null @@ -1,338 +0,0 @@ -;-------------------------------------------------------- -; File Created by SDCC : free open source ANSI-C Compiler -; Version 3.9.3 #11345 (Linux) -;-------------------------------------------------------- - .module atanf - .optsdcc -mstm8 - -;-------------------------------------------------------- -; Public variables in this module -;-------------------------------------------------------- - .globl _fabsf - .globl _atanf -;-------------------------------------------------------- -; 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 -; ../atanf.c: 55: float atanf(float x) _FLOAT_FUNC_REENTRANT -; ----------------------------------------- -; function atanf -; ----------------------------------------- -_atanf: - sub sp, #14 -; ../atanf.c: 58: int n=0; - clrw x - ldw (0x01, sp), x -; ../atanf.c: 61: f=fabsf(x); - ldw x, (0x13, sp) - pushw x - ldw x, (0x13, sp) - pushw x - call _fabsf - addw sp, #4 - ldw (0x05, sp), x - ldw (0x03, sp), y -; ../atanf.c: 62: if(f>1.0) - ldw x, (0x05, sp) - pushw x - ldw x, (0x05, sp) - pushw x - clrw x - pushw x - push #0x80 - push #0x3f - call ___fslt - addw sp, #8 - tnz a - jreq 00102$ -; ../atanf.c: 64: f=1.0/f; - ldw x, (0x05, sp) - pushw x - ldw x, (0x05, sp) - pushw x - clrw x - pushw x - push #0x80 - push #0x3f - call ___fsdiv - addw sp, #8 - ldw (0x05, sp), x - ldw (0x03, sp), y -; ../atanf.c: 65: n=2; - ldw x, #0x0002 - ldw (0x01, sp), x -00102$: -; ../atanf.c: 67: if(f>K1) - ldw x, (0x05, sp) - pushw x - ldw x, (0x05, sp) - pushw x - push #0xa3 - push #0x30 - push #0x89 - push #0x3e - call ___fslt - addw sp, #8 - tnz a - jreq 00104$ -; ../atanf.c: 69: f=((K2*f-1.0)+f)/(K3+f); - ldw x, (0x05, sp) - pushw x - ldw x, (0x05, sp) - pushw x - push #0xaf - push #0x67 - push #0x3b - push #0x3f - call ___fsmul - addw sp, #8 - push #0x00 - push #0x00 - push #0x80 - push #0x3f - pushw x - pushw y - call ___fssub - addw sp, #8 - ldw (0x0d, sp), x - ldw x, (0x05, sp) - pushw x - ldw x, (0x05, sp) - pushw x - ldw x, (0x11, sp) - pushw x - pushw y - call ___fsadd - addw sp, #8 - ldw (0x0d, sp), x - ldw (0x0b, sp), y - push #0xd7 - push #0xb3 - push #0xdd - push #0x3f - ldw x, (0x09, sp) - pushw x - ldw x, (0x09, sp) - pushw x - call ___fsadd - addw sp, #8 - pushw x - pushw y - ldw x, (0x11, sp) - pushw x - ldw x, (0x11, sp) - pushw x - call ___fsdiv - addw sp, #8 - ldw (0x05, sp), x - ldw (0x03, sp), y -; ../atanf.c: 73: n++; - ldw x, (0x01, sp) - incw x - ldw (0x01, sp), x -00104$: -; ../atanf.c: 75: if(fabsf(f)<EPS) r=f; - ldw x, (0x05, sp) - pushw x - ldw x, (0x05, sp) - pushw x - call _fabsf - addw sp, #4 - push #0x00 - push #0x00 - push #0x80 - push #0x39 - pushw x - pushw y - call ___fslt - addw sp, #8 - ld (0x0e, sp), a - jreq 00106$ - ldw y, (0x05, sp) - ldw (0x0d, sp), y - ldw y, (0x03, sp) - ldw (0x0b, sp), y - jp 00107$ -00106$: -; ../atanf.c: 78: g=f*f; - ldw x, (0x05, sp) - pushw x - ldw x, (0x05, sp) - pushw x - ldw x, (0x09, sp) - pushw x - ldw x, (0x09, sp) - pushw x - call ___fsmul - addw sp, #8 - ldw (0x09, sp), x - ldw (0x07, sp), y -; ../atanf.c: 79: r=f+P(g,f)/Q(g); - ldw x, (0x09, sp) - pushw x - ldw x, (0x09, sp) - pushw x - push #0x91 - push #0x86 - push #0x50 - push #0xbd - call ___fsmul - addw sp, #8 - push #0xf6 - push #0x10 - push #0xf1 - push #0xbe - pushw x - pushw y - call ___fsadd - addw sp, #8 - ldw (0x0d, sp), x - ldw x, (0x09, sp) - pushw x - ldw x, (0x09, sp) - pushw x - ldw x, (0x11, sp) - pushw x - pushw y - call ___fsmul - addw sp, #8 - ldw (0x0d, sp), x - ldw x, (0x05, sp) - pushw x - ldw x, (0x05, sp) - pushw x - ldw x, (0x11, sp) - pushw x - pushw y - call ___fsmul - addw sp, #8 - ldw (0x0d, sp), x - ldw (0x0b, sp), y - push #0xd3 - push #0xcc - push #0xb4 - push #0x3f - ldw x, (0x0d, sp) - pushw x - ldw x, (0x0d, sp) - pushw x - call ___fsadd - addw sp, #8 - pushw x - pushw y - ldw x, (0x11, sp) - pushw x - ldw x, (0x11, sp) - pushw x - call ___fsdiv - addw sp, #8 - pushw x - pushw y - ldw x, (0x09, sp) - pushw x - ldw x, (0x09, sp) - pushw x - call ___fsadd - addw sp, #8 - ldw (0x0d, sp), x - ldw (0x0b, sp), y -00107$: -; ../atanf.c: 81: if(n>1) r=-r; - ldw x, (0x01, sp) - cpw x, #0x0001 - jrsle 00109$ - ldw y, (0x0d, sp) - ldw x, (0x0b, sp) - sllw x - ccf - rrcw x - ldw (0x0d, sp), y - ldw (0x0b, sp), x -00109$: -; ../atanf.c: 82: r+=a[n]; - ldw x, (0x01, sp) - sllw x - sllw x - addw x, #(_atanf_a_65536_26 + 0) - ldw y, x - ldw y, (0x2, y) - ldw x, (x) - pushw y - pushw x - ldw x, (0x11, sp) - pushw x - ldw x, (0x11, sp) - pushw x - call ___fsadd - addw sp, #8 -; ../atanf.c: 83: if(x<0.0) r=-r; - pushw x - pushw y - push #0x00 - push #0x00 - push #0x00 - push #0x00 - ld a, (0x1c, sp) - push a - ld a, (0x1c, sp) - push a - ld a, (0x1c, sp) - push a - ld a, (0x1c, sp) - push a - call ___fslt - addw sp, #8 - popw y - popw x - tnz a - jreq 00111$ - sllw y - ccf - rrcw y -00111$: -; ../atanf.c: 84: return r; -; ../atanf.c: 85: } - addw sp, #14 - ret - .area CODE - .area CONST -_atanf_a_65536_26: - .byte #0x00, #0x00, #0x00, #0x00 ; 0.000000e+00 - .byte #0x3f, #0x06, #0x0a, #0x92 ; 5.235988e-01 - .byte #0x3f, #0xc9, #0x0f, #0xdb ; 1.570796e+00 - .byte #0x3f, #0x86, #0x0a, #0x92 ; 1.047198e+00 - .area INITIALIZER - .area CABS (ABS) |
