summaryrefslogtreecommitdiff
path: root/device/lib/stm8/tanhf.asm
diff options
context:
space:
mode:
authorXavier ASUS <xavi92psx@gmail.com>2019-10-23 03:38:32 +0200
committerXavier ASUS <xavi92psx@gmail.com>2019-10-23 03:38:32 +0200
commit2cece67cb5af0339e4ab1f18b0bce2f0b4e6ebdd (patch)
treeb2fbf4e99f194213527304c9189abe65c163ac0b /device/lib/stm8/tanhf.asm
parented26eb00026800d1d2ff6289627216c7d1f0d459 (diff)
downloadsdcc-gas-2cece67cb5af0339e4ab1f18b0bce2f0b4e6ebdd.tar.gz
Removed intermediate files
Diffstat (limited to 'device/lib/stm8/tanhf.asm')
-rw-r--r--device/lib/stm8/tanhf.asm296
1 files changed, 0 insertions, 296 deletions
diff --git a/device/lib/stm8/tanhf.asm b/device/lib/stm8/tanhf.asm
deleted file mode 100644
index c8480a5..0000000
--- a/device/lib/stm8/tanhf.asm
+++ /dev/null
@@ -1,296 +0,0 @@
-;--------------------------------------------------------
-; File Created by SDCC : free open source ANSI-C Compiler
-; Version 3.9.3 #11345 (Linux)
-;--------------------------------------------------------
- .module tanhf
- .optsdcc -mstm8
-
-;--------------------------------------------------------
-; Public variables in this module
-;--------------------------------------------------------
- .globl _fabsf
- .globl _expf
- .globl _tanhf
-;--------------------------------------------------------
-; 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
-; ../tanhf.c: 50: float tanhf(float x) _FLOAT_FUNC_REENTRANT
-; -----------------------------------------
-; function tanhf
-; -----------------------------------------
-_tanhf:
- sub sp, #12
-; ../tanhf.c: 54: f=fabsf(x);
- ldw x, (0x11, sp)
- pushw x
- ldw x, (0x11, sp)
- pushw x
- call _fabsf
- addw sp, #4
- ldw (0x03, sp), x
- ldw (0x01, sp), y
-; ../tanhf.c: 55: if(f>SBIG) r=1.0;
- ldw x, (0x03, sp)
- pushw x
- ldw x, (0x03, sp)
- pushw x
- push #0xb0
- push #0x2c
- push #0x10
- push #0x41
- call ___fslt
- addw sp, #8
- ld (0x0c, sp), a
- jreq 00108$
- clrw x
- ldw (0x0b, sp), x
- ldw x, #0x3f80
- ldw (0x09, sp), x
- jp 00109$
-00108$:
-; ../tanhf.c: 56: else if(f>K1)
- ldw x, (0x03, sp)
- pushw x
- ldw x, (0x03, sp)
- pushw x
- push #0x54
- push #0x9f
- push #0x0c
- push #0x3f
- call ___fslt
- addw sp, #8
- tnz a
- jreq 00105$
-; ../tanhf.c: 58: r=0.5-1.0/(expf(f+f)+1.0);
- ldw x, (0x03, sp)
- pushw x
- ldw x, (0x03, sp)
- pushw x
- ldw x, (0x07, sp)
- pushw x
- ldw x, (0x07, sp)
- pushw x
- call ___fsadd
- addw sp, #8
- ldw (0x0b, sp), x
- ldw (0x09, sp), y
- ldw x, (0x0b, sp)
- pushw x
- ldw x, (0x0b, sp)
- pushw x
- call _expf
- addw sp, #4
- ldw (0x0b, sp), x
- ldw (0x09, sp), y
- clrw x
- pushw x
- push #0x80
- push #0x3f
- ldw x, (0x0f, sp)
- pushw x
- ldw x, (0x0f, sp)
- pushw x
- call ___fsadd
- addw sp, #8
- ldw (0x0b, sp), x
- ldw (0x09, sp), y
- ldw x, (0x0b, sp)
- pushw x
- ldw x, (0x0b, sp)
- pushw x
- clrw x
- pushw x
- push #0x80
- push #0x3f
- call ___fsdiv
- addw sp, #8
- pushw x
- pushw y
- clrw x
- pushw x
- push #0x00
- push #0x3f
- call ___fssub
- addw sp, #8
- ldw (0x0b, sp), x
- ldw (0x09, sp), y
-; ../tanhf.c: 59: r+=r;
- ldw x, (0x0b, sp)
- pushw x
- ldw x, (0x0b, sp)
- pushw x
- ldw x, (0x0f, sp)
- pushw x
- ldw x, (0x0f, sp)
- pushw x
- call ___fsadd
- addw sp, #8
- ldw (0x0b, sp), x
- ldw (0x09, sp), y
- jp 00109$
-00105$:
-; ../tanhf.c: 61: else if(f<EPS) r=f;
- clrw x
- pushw x
- push #0x80
- push #0x39
- ldw x, (0x07, sp)
- pushw x
- ldw x, (0x07, sp)
- pushw x
- call ___fslt
- addw sp, #8
- tnz a
- jreq 00102$
- ldw y, (0x03, sp)
- ldw (0x0b, sp), y
- ldw y, (0x01, sp)
- ldw (0x09, sp), y
- jp 00109$
-00102$:
-; ../tanhf.c: 64: g=f*f;
- ldw x, (0x03, sp)
- pushw x
- ldw x, (0x03, sp)
- pushw x
- ldw x, (0x07, sp)
- pushw x
- ldw x, (0x07, sp)
- pushw x
- call ___fsmul
- addw sp, #8
- ldw (0x07, sp), x
- ldw (0x05, sp), y
-; ../tanhf.c: 65: r=f+f*(P(g)/Q(g));
- ldw x, (0x07, sp)
- pushw x
- ldw x, (0x07, sp)
- pushw x
- push #0xb2
- push #0x11
- push #0x7b
- push #0xbb
- call ___fsmul
- addw sp, #8
- push #0xc6
- push #0xe2
- push #0x52
- push #0xbf
- pushw x
- pushw y
- call ___fsadd
- addw sp, #8
- ldw (0x0b, sp), x
- ldw x, (0x07, sp)
- pushw x
- ldw x, (0x07, sp)
- pushw x
- ldw x, (0x0f, sp)
- pushw x
- pushw y
- call ___fsmul
- addw sp, #8
- ldw (0x0b, sp), x
- ldw (0x09, sp), y
- push #0x1a
- push #0x2a
- push #0x1e
- push #0x40
- ldw x, (0x0b, sp)
- pushw x
- ldw x, (0x0b, sp)
- pushw x
- call ___fsadd
- addw sp, #8
- pushw x
- pushw y
- ldw x, (0x0f, sp)
- pushw x
- ldw x, (0x0f, sp)
- pushw x
- call ___fsdiv
- addw sp, #8
- pushw x
- pushw y
- ldw x, (0x07, sp)
- pushw x
- ldw x, (0x07, sp)
- pushw x
- call ___fsmul
- addw sp, #8
- pushw x
- pushw y
- ldw x, (0x07, sp)
- pushw x
- ldw x, (0x07, sp)
- pushw x
- call ___fsadd
- addw sp, #8
- ldw (0x0b, sp), x
- ldw (0x09, sp), y
-00109$:
-; ../tanhf.c: 67: if(x<0.0) r=-r;
- clrw x
- pushw x
- clrw x
- pushw x
- ldw x, (0x15, sp)
- pushw x
- ldw x, (0x15, sp)
- pushw x
- call ___fslt
- addw sp, #8
- tnz a
- jreq 00111$
- ldw y, (0x0b, sp)
- ldw x, (0x09, sp)
- sllw x
- ccf
- rrcw x
- ldw (0x0b, sp), y
- ldw (0x09, sp), x
-00111$:
-; ../tanhf.c: 68: return r;
- ldw x, (0x0b, sp)
- ldw y, (0x09, sp)
-; ../tanhf.c: 69: }
- addw sp, #12
- ret
- .area CODE
- .area CONST
- .area INITIALIZER
- .area CABS (ABS)