Fix signed comparisons

Author: runer112

src/crt/lcmps.src

@@ -17,6 +17,7 @@ __lcmps:
 	jr	nz, .finish
 	sbc	hl, bc
 	add	hl, bc
+	sbc	a, a
 .finish:
 	ld	a, d
 	pop	de

src/crt/lcmps_fast.src

@@ -8,4 +8,5 @@ __lcmps_fast:
 	sub 	a, d
 	ret	nz
 	sbc	hl, bc
+	sbc	a, a
 	ret

src/crt/llcmps.src

@@ -13,17 +13,21 @@ __llcmps:
 	ld	bc, (iy + 12)
 	sbc.s	hl, bc
 	pop	hl
-	jr	nz, .ne
+	jr	nz, .finish
 	ld	bc, (iy + 9)
 	ex	de, hl
 	sbc	hl, de
 	add	hl, de
 	ex	de, hl
-	jr	nz, .ne
+	jr	nz, .finish_unsigned
 	ld	bc, (iy + 6)
 	sbc	hl, bc
 	add	hl, bc
-.ne:
+.finish_unsigned:
+	ld	b, a
+	sbc	a, a
+	ld	a, b
+.finish:
 	pop	bc
 	pop	iy
 	ret

src/crt/llcmps_fast.src

@@ -0,0 +1,23 @@
+	assume	adl=1
+
+	section	.text
+	public	__llcmps_fast
+__llcmps_fast:
+	ld	iy, 0
+	add	iy, sp
+	ld	a, b
+	sub	a, (iy + 10)
+	ret	nz
+	ld	a, c
+	sub	a, (iy + 9)
+	jr	nz, .finish
+	ex	de, hl
+	ld	bc, (iy + 6)
+	sbc	hl, bc
+	jr	nz, .finish
+	ex	de, hl
+	ld	bc, (iy + 3)
+	sbc	hl, bc
+.finish:
+	sbc	a, a
+	ret

src/crt/llcmpu_fast.src

@@ -1,8 +1,6 @@
 	assume	adl=1
 
 	section	.text
-	public	__llcmps_fast
-__llcmps_fast:
 	public	__llcmpu_fast
 __llcmpu_fast:
 	ld	iy, 0