summaryrefslogtreecommitdiff
path: root/device/lib/stm8/logf.asm
diff options
context:
space:
mode:
Diffstat (limited to 'device/lib/stm8/logf.asm')
-rw-r--r--device/lib/stm8/logf.asm341
1 files changed, 0 insertions, 341 deletions
diff --git a/device/lib/stm8/logf.asm b/device/lib/stm8/logf.asm
deleted file mode 100644
index 360bd29..0000000
--- a/device/lib/stm8/logf.asm
+++ /dev/null
@@ -1,341 +0,0 @@
-;--------------------------------------------------------
-; File Created by SDCC : free open source ANSI-C Compiler
-; Version 3.9.3 #11345 (Linux)
-;--------------------------------------------------------
- .module logf
- .optsdcc -mstm8
-
-;--------------------------------------------------------
-; Public variables in this module
-;--------------------------------------------------------
- .globl _frexpf
- .globl _logf
-;--------------------------------------------------------
-; 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
-; ../logf.c: 216: float logf(float x) _FLOAT_FUNC_REENTRANT
-; -----------------------------------------
-; function logf
-; -----------------------------------------
-_logf:
- sub sp, #14
-; ../logf.c: 226: if (x<=0.0)
- ldw x, (0x13, sp)
- pushw x
- ldw x, (0x13, sp)
- pushw x
- clrw x
- pushw x
- clrw x
- pushw x
- call ___fslt
- addw sp, #8
- ld (0x0e, sp), a
- jrne 00102$
-; ../logf.c: 228: errno=EDOM;
- ldw x, #0x0021
- ldw _errno+0, x
-; ../logf.c: 229: return 0.0;
- clrw x
- clrw y
- jp 00106$
-00102$:
-; ../logf.c: 231: f=frexpf(x, &n);
- ldw x, sp
- incw x
- pushw x
- ldw x, (0x15, sp)
- pushw x
- ldw x, (0x15, sp)
- pushw x
- call _frexpf
- addw sp, #6
- ldw (0x05, sp), x
- ldw (0x03, sp), y
-; ../logf.c: 232: znum=f-0.5;
- clrw x
- pushw x
- push #0x00
- push #0x3f
- ldw x, (0x09, sp)
- pushw x
- ldw x, (0x09, sp)
- pushw x
- call ___fssub
- addw sp, #8
- ldw (0x09, sp), x
- ldw (0x07, sp), y
-; ../logf.c: 233: if (f>C0)
- ldw x, (0x05, sp)
- pushw x
- ldw x, (0x05, sp)
- pushw x
- push #0xf3
- push #0x04
- push #0x35
- push #0x3f
- call ___fslt
- addw sp, #8
- ld (0x0e, sp), a
- jreq 00104$
-; ../logf.c: 235: znum-=0.5;
- clrw x
- pushw x
- push #0x00
- push #0x3f
- ldw x, (0x0d, sp)
- pushw x
- ldw x, (0x0d, sp)
- pushw x
- call ___fssub
- addw sp, #8
- ldw (0x09, sp), x
- ldw (0x07, sp), y
-; ../logf.c: 236: zden=(f*0.5)+0.5;
- ldw x, (0x05, sp)
- pushw x
- ldw x, (0x05, sp)
- pushw x
- clrw x
- pushw x
- push #0x00
- push #0x3f
- call ___fsmul
- addw sp, #8
- push #0x00
- push #0x00
- push #0x00
- push #0x3f
- pushw x
- pushw y
- call ___fsadd
- addw sp, #8
- ldw (0x0d, sp), x
- ldw (0x0b, sp), y
- jra 00105$
-00104$:
-; ../logf.c: 240: n--;
- ldw x, (0x01, sp)
- decw x
- ldw (0x01, sp), x
-; ../logf.c: 241: zden=znum*0.5+0.5;
- ldw x, (0x09, sp)
- pushw x
- ldw x, (0x09, sp)
- pushw x
- clrw x
- pushw x
- push #0x00
- push #0x3f
- call ___fsmul
- addw sp, #8
- push #0x00
- push #0x00
- push #0x00
- push #0x3f
- pushw x
- pushw y
- call ___fsadd
- addw sp, #8
- ldw (0x0d, sp), x
- ldw (0x0b, sp), y
-00105$:
-; ../logf.c: 243: z=znum/zden;
- ldw x, (0x0d, sp)
- pushw x
- ldw x, (0x0d, sp)
- pushw x
- ldw x, (0x0d, sp)
- pushw x
- ldw x, (0x0d, sp)
- pushw x
- call ___fsdiv
- addw sp, #8
- ldw (0x0d, sp), x
- ldw (0x0b, sp), y
- ldw y, (0x0d, sp)
- ldw (0x05, sp), y
- ldw y, (0x0b, sp)
- ldw (0x03, sp), y
-; ../logf.c: 244: w=z*z;
- 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 (0x0d, sp), x
- ldw (0x0b, sp), y
-; ../logf.c: 246: Rz=z+z*(w*A(w)/B(w));
- ldw x, (0x0d, sp)
- pushw x
- ldw x, (0x0d, sp)
- pushw x
- push #0x3d
- push #0x7e
- push #0x0d
- push #0xbf
- call ___fsmul
- addw sp, #8
- ldw (0x09, sp), x
- ldw (0x07, sp), y
- push #0x3a
- push #0x3f
- push #0xd4
- push #0xc0
- ldw x, (0x11, sp)
- pushw x
- ldw x, (0x11, sp)
- pushw x
- call ___fsadd
- addw sp, #8
- ldw (0x0d, sp), x
- ldw (0x0b, sp), y
- ldw x, (0x0d, sp)
- pushw x
- ldw x, (0x0d, sp)
- pushw x
- ldw x, (0x0d, sp)
- pushw x
- ldw x, (0x0d, sp)
- pushw x
- call ___fsdiv
- addw sp, #8
- ldw (0x0d, sp), x
- ldw (0x0b, sp), y
- ldw x, (0x0d, sp)
- pushw x
- ldw x, (0x0d, sp)
- pushw x
- ldw x, (0x09, sp)
- pushw x
- ldw x, (0x09, sp)
- pushw x
- call ___fsmul
- addw sp, #8
- ldw (0x0d, sp), x
- ldw (0x0b, sp), y
- ldw x, (0x0d, sp)
- pushw x
- ldw x, (0x0d, sp)
- pushw x
- 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
- ldw y, (0x0d, sp)
- ldw (0x05, sp), y
- ldw y, (0x0b, sp)
- ldw (0x03, sp), y
-; ../logf.c: 247: xn=n;
- ldw x, (0x01, sp)
- pushw x
- call ___sint2fs
- addw sp, #2
- ldw (0x0d, sp), x
- ldw (0x0b, sp), y
- ldw y, (0x0d, sp)
- ldw (0x09, sp), y
- ldw y, (0x0b, sp)
- ldw (0x07, sp), y
-; ../logf.c: 248: return ((xn*C2+Rz)+xn*C1);
- ldw x, (0x09, sp)
- pushw x
- ldw x, (0x09, sp)
- pushw x
- push #0x83
- push #0x80
- push #0x5e
- push #0xb9
- call ___fsmul
- addw sp, #8
- ldw (0x0d, sp), x
- ldw (0x0b, sp), y
- ldw x, (0x05, sp)
- pushw x
- ldw x, (0x05, sp)
- pushw x
- ldw x, (0x11, sp)
- pushw x
- ldw x, (0x11, sp)
- pushw x
- call ___fsadd
- addw sp, #8
- ldw (0x0d, sp), x
- ldw (0x0b, sp), y
- ldw x, (0x09, sp)
- pushw x
- ldw x, (0x09, sp)
- pushw x
- push #0x00
- push #0x80
- push #0x31
- push #0x3f
- call ___fsmul
- addw sp, #8
- ldw (0x09, sp), x
- ldw (0x07, sp), y
- ldw x, (0x09, sp)
- pushw x
- ldw x, (0x09, sp)
- pushw x
- ldw x, (0x11, sp)
- pushw x
- ldw x, (0x11, sp)
- pushw x
- call ___fsadd
- addw sp, #8
- ldw (0x0d, sp), x
- ldw (0x0b, sp), y
- ldw x, (0x0d, sp)
- ldw y, (0x0b, sp)
-00106$:
-; ../logf.c: 249: }
- addw sp, #14
- ret
- .area CODE
- .area CONST
- .area INITIALIZER
- .area CABS (ABS)
generated by cgit v1.2.3 (git 2.39.1) at 2026-07-17 03:58:14 +0000