Fixes/improvements from Stefan Haubenthal

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

diff --git a/libsrc/cbm/c_basin.s b/libsrc/cbm/c_basin.s
index 80dda8bdbbb521fca48182b86128ba04937225e7..5dc0c0f6615a5e7e72a782e92a0a6561a7c87516 100644 (file)
--- a/libsrc/cbm/c_basin.s
+++ b/libsrc/cbm/c_basin.s
@@ -4,7 +4,11 @@
 ; unsigned char __fastcall__ cbm_k_basin (void);
 ;
 
-               .export         _cbm_k_basin
-        .import         BASIN
+       .export         _cbm_k_basin
+       .import         BASIN
 
-_cbm_k_basin = BASIN
+
+_cbm_k_basin:
+       jsr     BASIN
+       ldx     #0              ; Clear high byte
+       rts

diff --git a/libsrc/cbm/c_open.s b/libsrc/cbm/c_open.s
index 300aa54ad5a0e1010dd49ccc92ccfaadef5abbf3..b8f9527814aca1de6211c959b07909379ab9b4a1 100644 (file)
--- 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

diff --git a/libsrc/cbm/c_readst.s b/libsrc/cbm/c_readst.s
index 2a3075accfc4e8e5498589a836241f70df738e57..4aeab41b3fdba08e17822132d351a8d83f1c21c8 100644 (file)
--- a/libsrc/cbm/c_readst.s
+++ b/libsrc/cbm/c_readst.s
@@ -4,8 +4,11 @@
 ; unsigned char __fastcall__ cbm_k_readst (void);
 ;
 
-               .export         _cbm_k_readst
-        .import         READST
+       .export         _cbm_k_readst
+       .import         READST
 
 
-_cbm_k_readst = READST
+_cbm_k_readst:
+       jsr     READST
+       ldx     #0              ; Clear high byte
+       rts