From 4c4071b34ac6a6e1ce282fc76ba7ca76ff45bbe6 Mon Sep 17 00:00:00 2001
From: uz <uz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Sun, 23 Aug 2009 21:38:11 +0000
Subject: [PATCH] Fixed an error in cbm_k_save (on which cbm_save is based):
 The X register was not cleared on return.

git-svn-id: svn://svn.cc65.org/cc65/trunk@4048 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/cbm/c_save.s | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/libsrc/cbm/c_save.s b/libsrc/cbm/c_save.s
index e17471fa7..115d89242 100644
--- a/libsrc/cbm/c_save.s
+++ b/libsrc/cbm/c_save.s
@@ -8,7 +8,7 @@
         .import         SAVE
         .import         popax
         .importzp       ptr1, tmp1
-                            
+
 
 _cbm_k_save:
         sta     tmp1            ; store end address
@@ -20,6 +20,7 @@ _cbm_k_save:
         ldx     tmp1
         ldy     tmp1+1
         jsr     SAVE
+	ldx     #0              ; Clear high byte
 	bcs	@NotOk
-        lda     #0
+        txa
 @NotOk:	rts
-- 
2.39.5