sdcc-3.9.0 fork implementing GNU assembler syntax

This fork aims to provide better support for stm8-binutils

1 files changed, 236 insertions, 0 deletions

diff --git a/device/lib/stm8/atan2f.asm b/device/lib/stm8/atan2f.asm
new file mode 100644
index 0000000..e43db71
--- /dev/null
+++ b/device/lib/stm8/atan2f.asm
@@ -0,0 +1,236 @@
+;--------------------------------------------------------
+; File Created by SDCC : free open source ANSI-C Compiler
+; Version 3.9.3 #11345 (Linux)
+;--------------------------------------------------------
+	.module atan2f
+	.optsdcc -mstm8
+	
+;--------------------------------------------------------
+; Public variables in this module
+;--------------------------------------------------------
+	.globl _fabsf
+	.globl _atanf
+	.globl _atan2f
+;--------------------------------------------------------
+; 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
+;	../atan2f.c: 34: float atan2f(float x, float y)
+;	-----------------------------------------
+;	 function atan2f
+;	-----------------------------------------
+_atan2f:
+	sub	sp, #10
+;	../atan2f.c: 38: if ((x==0.0) && (y==0.0))
+	ldw	x, (0x0f, sp)
+	jrne	00102$
+	ldw	x, (0x0d, sp)
+	sllw	x
+	jrne	00102$
+	ldw	x, (0x13, sp)
+	jrne	00102$
+	ldw	x, (0x11, sp)
+	sllw	x
+	jrne	00102$
+;	../atan2f.c: 40: errno=EDOM;
+	ldw	x, #0x0021
+	ldw	_errno+0, x
+;	../atan2f.c: 41: return 0.0;
+	clrw	x
+	clrw	y
+	jp	00109$
+00102$:
+;	../atan2f.c: 44: if(fabsf(y)>=fabsf(x))
+	ldw	x, (0x13, sp)
+	pushw	x
+	ldw	x, (0x13, sp)
+	pushw	x
+	call	_fabsf
+	addw	sp, #4
+	ldw	(0x04, sp), x
+	ldw	(0x02, sp), y
+	ldw	x, (0x0f, sp)
+	pushw	x
+	ldw	x, (0x0f, sp)
+	pushw	x
+	call	_fabsf
+	addw	sp, #4
+	ldw	(0x08, sp), x
+	ldw	(0x06, sp), y
+;	../atan2f.c: 47: if(y<0.0) r+=(x>=0?PI:-PI);
+	clrw	x
+	pushw	x
+	clrw	x
+	pushw	x
+	ldw	x, (0x13, sp)
+	pushw	x
+	ldw	x, (0x13, sp)
+	pushw	x
+;	../atan2f.c: 44: if(fabsf(y)>=fabsf(x))
+	call	___fslt
+	addw	sp, #8
+	ld	(0x0a, sp), a
+	ldw	x, (0x08, sp)
+	pushw	x
+	ldw	x, (0x08, sp)
+	pushw	x
+	ldw	x, (0x08, sp)
+	pushw	x
+	ldw	x, (0x08, sp)
+	pushw	x
+	call	___fslt
+	addw	sp, #8
+	ld	(0x09, sp), a
+	jrne	00107$
+;	../atan2f.c: 46: r=atanf(x/y);
+	ldw	x, (0x13, sp)
+	pushw	x
+	ldw	x, (0x13, sp)
+	pushw	x
+	ldw	x, (0x13, sp)
+	pushw	x
+	ldw	x, (0x13, sp)
+	pushw	x
+	call	___fsdiv
+	addw	sp, #8
+	pushw	x
+	pushw	y
+	call	_atanf
+	addw	sp, #4
+	ldw	(0x08, sp), x
+	ldw	(0x06, sp), y
+;	../atan2f.c: 47: if(y<0.0) r+=(x>=0?PI:-PI);
+	clrw	x
+	pushw	x
+	clrw	x
+	pushw	x
+	ldw	x, (0x17, sp)
+	pushw	x
+	ldw	x, (0x17, sp)
+	pushw	x
+	call	___fslt
+	addw	sp, #8
+	tnz	a
+	jrne	00150$
+	jp	00108$
+00150$:
+	tnz	(0x0a, sp)
+	jrne	00111$
+	ldw	x, #0x0fdb
+	ldw	(0x04, sp), x
+	ldw	x, #0x4049
+	ldw	(0x02, sp), x
+	jra	00112$
+00111$:
+	ldw	x, #0x0fdb
+	ldw	(0x04, sp), x
+	ldw	x, #0xc049
+	ldw	(0x02, sp), x
+00112$:
+	ldw	x, (0x04, sp)
+	pushw	x
+	ldw	x, (0x04, sp)
+	pushw	x
+	ldw	x, (0x0c, sp)
+	pushw	x
+	ldw	x, (0x0c, sp)
+	pushw	x
+	call	___fsadd
+	addw	sp, #8
+	ldw	(0x08, sp), x
+	ldw	(0x06, sp), y
+	jra	00108$
+00107$:
+;	../atan2f.c: 51: r=-atanf(y/x);
+	ldw	x, (0x0f, sp)
+	pushw	x
+	ldw	x, (0x0f, sp)
+	pushw	x
+	ldw	x, (0x17, sp)
+	pushw	x
+	ldw	x, (0x17, sp)
+	pushw	x
+	call	___fsdiv
+	addw	sp, #8
+	pushw	x
+	pushw	y
+	call	_atanf
+	addw	sp, #4
+	exgw	x, y
+	sllw	x
+	ccf
+	rrcw	x
+	ldw	(0x08, sp), y
+	ldw	(0x06, sp), x
+;	../atan2f.c: 52: r+=(x<0.0?-HALF_PI:HALF_PI);
+	ld	a, (0x0a, sp)
+	jreq	00113$
+	ldw	x, #0x0fdb
+	ldw	(0x04, sp), x
+	ldw	x, #0xbfc9
+	jra	00114$
+00113$:
+	ldw	x, #0x0fdb
+	ldw	(0x04, sp), x
+	ldw	x, #0x3fc9
+00114$:
+	ldw	y, (0x04, sp)
+	pushw	y
+	pushw	x
+	ldw	x, (0x0c, sp)
+	pushw	x
+	ldw	x, (0x0c, sp)
+	pushw	x
+	call	___fsadd
+	addw	sp, #8
+	ldw	(0x03, sp), x
+	ldw	(0x01, sp), y
+	ldw	y, (0x03, sp)
+	ldw	(0x08, sp), y
+	ldw	y, (0x01, sp)
+	ldw	(0x06, sp), y
+00108$:
+;	../atan2f.c: 54: return r;
+	ldw	x, (0x08, sp)
+	ldw	y, (0x06, sp)
+00109$:
+;	../atan2f.c: 55: }
+	addw	sp, #10
+	ret
+	.area CODE
+	.area CONST
+	.area INITIALIZER
+	.area CABS (ABS)