summaryrefslogtreecommitdiff
path: root/device/lib/stm8/cotf.asm
diff options
context:
space:
mode:
Diffstat (limited to 'device/lib/stm8/cotf.asm')
-rw-r--r--device/lib/stm8/cotf.asm115
1 files changed, 0 insertions, 115 deletions
diff --git a/device/lib/stm8/cotf.asm b/device/lib/stm8/cotf.asm
deleted file mode 100644
index 18c915d..0000000
--- a/device/lib/stm8/cotf.asm
+++ /dev/null
@@ -1,115 +0,0 @@
-;--------------------------------------------------------
-; File Created by SDCC : free open source ANSI-C Compiler
-; Version 3.9.3 #11345 (Linux)
-;--------------------------------------------------------
- .module cotf
- .optsdcc -mstm8
-
-;--------------------------------------------------------
-; Public variables in this module
-;--------------------------------------------------------
- .globl _tancotf
- .globl _fabsf
- .globl _cotf
-;--------------------------------------------------------
-; 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
-; ../cotf.c: 37: float cotf(float x) _FLOAT_FUNC_REENTRANT
-; -----------------------------------------
-; function cotf
-; -----------------------------------------
-_cotf:
-; ../cotf.c: 41: y=fabsf(x);
- ldw x, (0x05, sp)
- pushw x
- ldw x, (0x05, sp)
- pushw x
- call _fabsf
- addw sp, #4
-; ../cotf.c: 42: if (y<1.0E-30) //This one requires more thinking...
- push #0x60
- push #0x42
- push #0xa2
- push #0x0d
- pushw x
- pushw y
- call ___fslt
- addw sp, #8
- tnz a
- jreq 00105$
-; ../cotf.c: 44: errno = ERANGE;
- ldw x, #0x0022
- ldw _errno+0, x
-; ../cotf.c: 45: if (x<0.0)
- clrw x
- pushw x
- clrw x
- pushw x
- ldw x, (0x09, sp)
- pushw x
- ldw x, (0x09, sp)
- pushw x
- call ___fslt
- addw sp, #8
- tnz a
- jreq 00102$
-; ../cotf.c: 46: return -HUGE_VALF;
- clrw x
- decw x
- ldw y, #0xff7f
- ret
-00102$:
-; ../cotf.c: 48: return +HUGE_VALF;
- clrw x
- decw x
- ldw y, #0x7f7f
- ret
-00105$:
-; ../cotf.c: 50: return tancotf(x, 1);
- push #0x01
- ldw x, (0x06, sp)
- pushw x
- ldw x, (0x06, sp)
- pushw x
- call _tancotf
- addw sp, #5
-; ../cotf.c: 51: }
- ret
- .area CODE
- .area CONST
- .area INITIALIZER
- .area CABS (ABS)