This commit was generated by cvs2svn to compensate for changes in r2,

which included commits to RCS files with non-trunk default branches.


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

libsrc/runtime/icmp.s

@@ -0,0 +1,44 @@
+;
+; Ullrich von Bassewitz, 10.12.1998
+;
+; Integer compare function - used by the compare operators
+;
+
+	.export		tosicmp
+	.import		incsp2
+	.importzp	sp, sreg
+
+
+tosicmp:
+  	sta	sreg
+	stx	sreg+1	   	; Save ax
+
+	ldy    	#$01
+       	lda    	(sp),y 	       	; Get high byte
+	tax
+    	dey
+    	lda	(sp),y	   	; Get low byte
+
+; Inline incsp2 for better performance
+
+    	inc	sp	   	; 5
+       	bne	@L1	   	; 3
+    	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
+    	bne    	@L3
+    	cmp	sreg  	   	; Compare low byte
+       	beq	@L3
+       	bcs    	@L4
+       	lda	#$FF		; Set the N flag
+@L3: 	rts
+
+@L4:   	lda    	#$01		; Clear the N flag
+	rts
+
+