More entry points for long ops that clear the high word of the lhs.

git-svn-id: svn://svn.cc65.org/cc65/trunk@4025 b7a2c559-68d2-44c3-8de9-860c34a00d81
2009-08-15 21:06:06 +00:00
parent 582506b7fc
commit aa7d419165
4 changed files with 28 additions and 6 deletions
--- a/libsrc/runtime/lxor.s
+++ b/libsrc/runtime/lxor.s
@@ -4,11 +4,16 @@
 ; CC65 runtime: xor on longs
 ;

-	.export		tosxoreax
+	.export		tosxor0ax, tosxoreax
 	.import		addysp1
 	.importzp	sp, sreg, tmp1

-tosxoreax:
+tosxor0ax:
+        ldy     #$00
+        sty     sreg
+        sty     sreg+1
+
+tosxoreax:                         
       	ldy    	#0
       	eor    	(sp),y		; byte 0
 	sta    	tmp1