Fixed wrong compares (new code by Piotr Fusik)

git-svn-id: svn://svn.cc65.org/cc65/trunk@1243 b7a2c559-68d2-44c3-8de9-860c34a00d81

libsrc/runtime/icmp.s

@@ -1,5 +1,6 @@
 ;
-; Ullrich von Bassewitz, 10.12.1998
+; Piotr Fusik, 15.04.2002
+; originally by Ullrich von Bassewitz
 ;
 ; Integer compare function - used by the compare operators
 ;
@@ -9,35 +10,35 @@
 
 
 tosicmp:
-  	sta	sreg
+	sta	sreg
-	stx	sreg+1	   	; Save ax
+	stx	sreg+1		; Save ax
 
-	ldy    	#$01
+	ldy	#$00
-       	lda    	(sp),y 	       	; Get high byte
+	lda	(sp),y		; Get low byte
 	tax
-    	dey
+	inc	sp		; 5
-    	lda	(sp),y	   	; Get low byte
+	bne	@L1		; 3
-
+	inc	sp+1		; (5)
-; Inline incsp2 for better performance
+@L1:
-
+	lda	(sp),y		; Get high byte
-    	inc	sp	   	; 5
+	inc	sp		; 5
-       	bne	@L1	   	; 3
+	bne	@L2		; 3
-    	inc	sp+1	   	; (5)
+	inc	sp+1		; (5)
-@L1:	inc	sp	   	; 5
-    	bne	@L2	   	; 3
-    	inc	sp+1	   	; (5)
 
 ; Do the compare.
 
-@L2:	cpx	sreg+1	   	; Compare high byte
+@L2:	sec
-    	bne    	@L3
+	sbc	sreg+1		; Compare high byte
-    	cmp	sreg  	   	; Compare low byte
+	bne	@L4
-       	beq	@L3
+	cpx	sreg		; Compare low byte
-       	bcs    	@L4
+	beq	@L3
-       	lda	#$FF		; Set the N flag
+	adc	#$FF		; If the C flag is set then clear the N flag
-@L3: 	rts
+	ora	#$01		; else set the N flag
+@L3:	rts
 
-@L4:   	lda    	#$01		; Clear the N flag
+@L4:	bvc	@L3
+	eor	#$FF		; Fix the N flag if overflow
+	ora	#$01		; Clear the Z flag
 	rts
 
 

libsrc/runtime/lcmp.s

@@ -1,51 +1,56 @@
 ;
-; Ullrich von Bassewitz, 10.12.1998
+; Piotr Fusik, 15.04.2002
+; originally by Ullrich von Bassewitz
 ;
 ; Long int compare function - used by the compare operators
 ;
 
- 	.export		toslcmp
+	.export		toslcmp
- 	.import		incsp4
+	.import		incsp4
- 	.importzp	sp, sreg, ptr1
+	.importzp	sp, sreg, ptr1
 
 
 toslcmp:
-  	sta    	ptr1
+	sta	ptr1
-  	stx	ptr1+1 	  	; EAX now in sreg:ptr1
+	stx	ptr1+1		; EAX now in sreg:ptr1
 
-  	ldy    	#$03
+	ldy	#$03
-       	lda    	(sp),y
+	lda	(sp),y
-  	cmp	sreg+1
+	sec
-  	bne	L4
+	sbc	sreg+1
+	bne	L4
 
-  	dey
+	dey
-  	lda	(sp),y
+	lda	(sp),y
-  	cmp	sreg
+	cmp	sreg
-  	bne	L1
+	bne	L1
 
-  	dey
+	dey
-  	lda	(sp),y
+	lda	(sp),y
-  	cmp	ptr1+1
+	cmp	ptr1+1
-  	bne	L1
+	bne	L1
 
-  	dey
+	dey
-  	lda	(sp),y
+	lda	(sp),y
-  	cmp	ptr1
+	cmp	ptr1
 
-L1:	php	      		; Save flags
+L1:	php			; Save flags
-   	jsr	incsp4		; Drop TOS
+	jsr	incsp4		; Drop TOS
-   	plp	  		; Restore the flags
+	plp			; Restore the flags
-   	beq	L2
+	beq	L2
-   	bcs	L3
+	bcs	L3
-   	lda	#$FF		; Set the N flag
+	lda	#$FF		; Set the N flag
-L2:  	rts
+L2:	rts
 
 L3:	lda	#$01		; Clear the N flag
-  	rts
+	rts
 
-L4:	php	  		; Save flags
+L4:	bvc	L5
+	eor	#$FF		; Fix the N flag if overflow
+	ora	#$01		; Clear the Z flag
+L5:	php			; Save flags
 	jsr	incsp4		; Drop TOS
-	plp	  		; Restore flags
+	plp			; Restore flags
-  	rts
+	rts