Fixes/improvements from Stefan Haubenthal

git-svn-id: svn://svn.cc65.org/cc65/trunk@2873 b7a2c559-68d2-44c3-8de9-860c34a00d81
2004-01-09 17:39:55 +00:00 · 2004-01-09 17:39:55 +00:00 · e717b44d4d
commit e717b44d4d
parent 95c0fb6e0b
3 changed files with 16 additions and 9 deletions
--- a/libsrc/cbm/c_basin.s
+++ b/libsrc/cbm/c_basin.s
@ -7,4 +7,8 @@
 	.export		_cbm_k_basin
 	.import		BASIN

-_cbm_k_basin = BASIN
+
+_cbm_k_basin:
+	jsr	BASIN
+	ldx	#0		; Clear high byte
+	rts
--- a/libsrc/cbm/c_open.s
+++ b/libsrc/cbm/c_open.s
@ -10,7 +10,7 @@

 _cbm_k_open:
 	jsr	OPEN
+	ldx     #0              ; Clear high byte
 	bcs	@NotOk
-        lda     #0
-@NotOk:	ldx     #0              ; Clear high byte
-        rts
+        txa
+@NotOk: rts
--- a/libsrc/cbm/c_readst.s
+++ b/libsrc/cbm/c_readst.s
@ -8,4 +8,7 @@
 	.import		READST


-_cbm_k_readst = READST
+_cbm_k_readst:
+	jsr	READST
+	ldx	#0		; Clear high byte
+	rts