sdcc-3.9.0 fork implementing GNU assembler syntax

This fork aims to provide better support for stm8-binutils

1 files changed, 77 insertions, 0 deletions

diff --git a/device/lib/stm8/strcmp.s b/device/lib/stm8/strcmp.s
new file mode 100644
index 0000000..be2b5fd
--- /dev/null
+++ b/device/lib/stm8/strcmp.s
@@ -0,0 +1,77 @@
+;--------------------------------------------------------------------------
+;  strcmp.s
+;
+;  Copyright (C) 2016, Philipp Klaus Krause
+;
+;  This library is free software; you can redistribute it and/or modify it
+;  under the terms of the GNU General Public License as published by the
+;  Free Software Foundation; either version 2, or (at your option) any
+;  later version.
+;
+;  This library is distributed in the hope that it will be useful,
+;  but WITHOUT ANY WARRANTY; without even the implied warranty of
+;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;  GNU General Public License for more details.
+;
+;  You should have received a copy of the GNU General Public License 
+;  along with this library; see the file COPYING. If not, write to the
+;  Free Software Foundation, 51 Franklin Street, Fifth Floor, Boston,
+;   MA 02110-1301, USA.
+;
+;  As a special exception, if you link this library with other files,
+;  some of which are compiled with SDCC, to produce an executable,
+;  this library does not by itself cause the resulting executable to
+;  be covered by the GNU General Public License. This exception does
+;  not however invalidate any other reasons why the executable file
+;   might be covered by the GNU General Public License.
+;--------------------------------------------------------------------------
+
+	.globl _strcmp
+
+	.area CODE
+
+_strcmp:
+
+	ldw	y, (3, sp)
+	ldw	x, (5, sp)
+
+loop:
+	ld	a, (y)
+	jreq	null
+	cp	a, (x)
+	jrne	diff
+
+	ld	a, (1, y)
+	jreq	null_1
+	cp	a, (1, x)
+	jrne	diff
+
+	ld	a, (2, y)
+	jreq	null_2
+	cp	a, (2, x)
+	jrne	diff
+
+	addw	y, #3
+	addw	x, #3
+
+	jra	loop
+
+null_2:
+	incw	x
+null_1:
+	incw	x
+null:
+	tnz	(x)
+	jrne	less
+	clrw	x
+	ret
+
+diff:
+	jrult less
+	ldw	x, #1
+	ret
+
+less:
+	ldw	x, #-1
+	ret
+