diff options
| author | Xavier ASUS <xavi92psx@gmail.com> | 2019-10-18 00:31:54 +0200 |
|---|---|---|
| committer | Xavier ASUS <xavi92psx@gmail.com> | 2019-10-18 00:31:54 +0200 |
| commit | 268a53de823a6750d6256ee1fb1e7707b4b45740 (patch) | |
| tree | 42c1799a9a82b2f7d9790ee9fe181d72a7274751 /device/lib/stm8-large/cotf.asm | |
| download | sdcc-gas-268a53de823a6750d6256ee1fb1e7707b4b45740.tar.gz | |
sdcc-3.9.0 fork implementing GNU assembler syntax
This fork aims to provide better support for stm8-binutils
Diffstat (limited to 'device/lib/stm8-large/cotf.asm')
| -rw-r--r-- | device/lib/stm8-large/cotf.asm | 116 |
1 files changed, 116 insertions, 0 deletions
diff --git a/device/lib/stm8-large/cotf.asm b/device/lib/stm8-large/cotf.asm new file mode 100644 index 0000000..f64a1ff --- /dev/null +++ b/device/lib/stm8-large/cotf.asm @@ -0,0 +1,116 @@ +;-------------------------------------------------------- +; 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, (0x06, sp) + pushw x + ldw x, (0x06, sp) + pushw x + callf _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 + callf ___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, (0x0a, sp) + pushw x + ldw x, (0x0a, sp) + pushw x + callf ___fslt + addw sp, #8 + tnz a + jreq 00102$ +; ../cotf.c: 46: return -HUGE_VALF; + clrw x + decw x + ldw y, #0xff7f + jra 00106$ +00102$: +; ../cotf.c: 48: return +HUGE_VALF; + clrw x + decw x + ldw y, #0x7f7f + jra 00106$ +00105$: +; ../cotf.c: 50: return tancotf(x, 1); + push #0x01 + ldw x, (0x07, sp) + pushw x + ldw x, (0x07, sp) + pushw x + callf _tancotf + addw sp, #5 +00106$: +; ../cotf.c: 51: } + retf + .area CODE + .area CONST + .area INITIALIZER + .area CABS (ABS) |