From: uz <uz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Sun, 23 Aug 2009 21:40:36 +0000 (+0000)
Subject: Fixed two more function that didn't clear the high byte of the function result.
X-Git-Tag: V2.13.0rc1~207
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=23dae5a04bfcc6a03e36f29d2984af3005232a4e;p=cc65

Fixed two more function that didn't clear the high byte of the function result.


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

diff --git a/libsrc/cbm/c_chkin.s b/libsrc/cbm/c_chkin.s
index f687147ac..4565e6fb9 100644
--- a/libsrc/cbm/c_chkin.s
+++ b/libsrc/cbm/c_chkin.s
@@ -10,7 +10,8 @@
 _cbm_k_chkin:
 	tax
        	jsr    	CHKIN
+	ldx     #0              ; Clear high byte
 	bcs	@NotOk
-        lda     #0
+        txa
 @NotOk:	rts
 
diff --git a/libsrc/cbm/c_ckout.s b/libsrc/cbm/c_ckout.s
index 299254c03..faeee4b70 100644
--- a/libsrc/cbm/c_ckout.s
+++ b/libsrc/cbm/c_ckout.s
@@ -11,6 +11,7 @@
 _cbm_k_ckout:
 	tax
        	jsr    	CKOUT
+	ldx     #0              ; Clear high byte
 	bcs	@NotOk
-	lda     #0
+        txa
 @NotOk:	rts