From: uz <uz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Sun, 16 Aug 2009 16:38:52 +0000 (+0000)
Subject: Added an entry point that clears the high word of rhs.
X-Git-Tag: V2.13.0rc1~228
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=bfc8bd6d74593801909be1be189d4a4be2f1fff4;p=cc65

Added an entry point that clears the high word of rhs.


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

diff --git a/libsrc/runtime/lrsub.s b/libsrc/runtime/lrsub.s
index 607b7fed2..7dfe43ac5 100644
--- a/libsrc/runtime/lrsub.s
+++ b/libsrc/runtime/lrsub.s
@@ -7,11 +7,16 @@
 ;
 ; EAX = EAX - TOS
 ;
-	.export		tosrsubeax
+	.export		tosrsub0ax, tosrsubeax
 	.import		addysp1
 	.importzp	sp, sreg, tmp1
 
-tosrsubeax:
+tosrsub0ax:
+        ldy     #$00
+        sty     sreg
+        sty     sreg+1
+
+tosrsubeax:                         
       	ldy	#0
        	sec
 	sbc	(sp),y	       	; byte 0