Added additional entry points that clear the high word of the right operand.

git-svn-id: svn://svn.cc65.org/cc65/trunk@4023 b7a2c559-68d2-44c3-8de9-860c34a00d81
2009-08-15 20:58:35 +00:00
parent d0f9a0d6a7
commit b1f772e9be
6 changed files with 42 additions and 11 deletions
--- a/libsrc/runtime/lsub.s
+++ b/libsrc/runtime/lsub.s
@@ -7,12 +7,17 @@
 ;
 ; EAX = TOS - EAX
 ;
-	.export		tossubeax
-	.import		addysp1
-	.importzp   	sp, sreg
+	.export	      	tossub0ax, tossubeax
+	.import	      	addysp1
+	.importzp     	sp, sreg

        .macpack        cpu

+tossub0ax:
+        ldy     #$00
+        sty     sreg
+        sty     sreg+1
+
 tossubeax:
      	sec
 	eor	#$FF