From eca3740fd165513f673321d4f8aee159a84fec5b Mon Sep 17 00:00:00 2001
From: BlastBrothers <83738994+BlastBrothers@users.noreply.github.com>
Date: Thu, 11 Jul 2024 17:02:58 -0400
Subject: [PATCH] Fix toupper, tolower, strncasecomp (#39)

* delete tolower and toupper

* delete a third one
---
 src/libc/strncasecmp.src | 48 ----------------------------------------
 src/libc/tolower.src     | 26 ----------------------
 src/libc/toupper.src     | 26 ----------------------
 3 files changed, 100 deletions(-)
 delete mode 100644 src/libc/strncasecmp.src
 delete mode 100644 src/libc/tolower.src
 delete mode 100644 src/libc/toupper.src

diff --git a/src/libc/strncasecmp.src b/src/libc/strncasecmp.src
deleted file mode 100644
index 95b6d29..0000000
--- a/src/libc/strncasecmp.src
+++ /dev/null
@@ -1,48 +0,0 @@
-	assume	adl=1
-
-	section	.text
-	public	_strncasecmp
-
-_strncasecmp:
-	push	ix
-	ld	ix,0
-	add	ix,sp
-	dec	sp
-loop:
-	ld	hl,(ix+12)
-	add	hl,de
-	or	a,a
-	sbc	hl,de
-	jr	z,done
-	dec	hl
-	ld	(ix+12),hl
-	ld	hl,(ix+6)
-	ld	c,(hl)
-	inc	hl
-	ld	(ix+6),hl
-	push	bc
-	call	_tolower
-	pop	bc
-	ld	(ix-1),l
-	ld	hl,(ix+9)
-	ld	c,(hl)
-	inc	hl
-	ld	(ix+9),hl
-	push	bc
-	call	_tolower
-	pop	bc
-	ex	de,hl
-	sub	a,a
-	sbc	hl,hl
-	ld	l,(ix-1)
-	sbc	hl,de
-	jr	nz,done
-	ld	a,(ix-1)
-	or	a,e
-	jr	nz,loop
-done:
-	ld	sp,ix
-	pop	ix
-	ret
-
-	extern	_tolower
diff --git a/src/libc/tolower.src b/src/libc/tolower.src
deleted file mode 100644
index 23f09a0..0000000
--- a/src/libc/tolower.src
+++ /dev/null
@@ -1,26 +0,0 @@
-	assume	adl=1
-
-	section	.text
-	public	_tolower
-
-if PREFER_OS_LIBC
-
-_tolower := 021E34h
-
-else
-
-_tolower:
-	pop	de
-	ex	(sp), hl
-	push	de
-
-	ld	a, l
-	sub	a, 'A'
-	cp	a, 1+'Z'-'A'
-	ret	nc
-
-	add	a, 'a'
-	ld	l, a
-	ret
-
-end if
diff --git a/src/libc/toupper.src b/src/libc/toupper.src
deleted file mode 100644
index aa28ddb..0000000
--- a/src/libc/toupper.src
+++ /dev/null
@@ -1,26 +0,0 @@
-	assume	adl=1
-
-	section	.text
-	public	_toupper
-
-if PREFER_OS_LIBC
-
-_toupper := 021E38h
-
-else
-
-_toupper:
-	pop	de
-	ex	(sp), hl
-	push	de
-
-	ld	a, l
-	sub	a, 'a'
-	cp	a, 1+'z'-'a'
-	ret	nc
-
-	add	a, 'A'
-	ld	l, a
-	ret
-
-end if