From bfc8bd6d74593801909be1be189d4a4be2f1fff4 Mon Sep 17 00:00:00 2001
From: uz <uz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Sun, 16 Aug 2009 16:38:52 +0000
Subject: [PATCH] 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
---
 libsrc/runtime/lrsub.s | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

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
-- 
2.39.5