sdcc-3.9.0 fork implementing GNU assembler syntax

This fork aims to provide better support for stm8-binutils

1 files changed, 341 insertions, 0 deletions

diff --git a/device/lib/stm8/logf.asm b/device/lib/stm8/logf.asm
new file mode 100644
index 0000000..360bd29
--- /dev/null
+++ b/device/lib/stm8/logf.asm
@@ -0,0 +1,341 @@
+;--------------------------------------------------------
+; 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)