Fix a kernal problem

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

diff --git a/libsrc/c16/Makefile b/libsrc/c16/Makefile
index e101f71890119378ac14929ba58bc9bc574d25c0..0505d31c5ec655237e31348148985507d4e12990 100644 (file)
--- a/libsrc/c16/Makefile
+++ b/libsrc/c16/Makefile
@@ -40,6 +40,7 @@ OBJS =        _scrsize.o      \
         get_tv.o        \
        joy_stddrv.o    \
        kbhit.o         \
+        kclose.o        \
         kernal.o        \
         mainargs.o      \
         randomize.o     \

diff --git a/libsrc/c16/kclose.s b/libsrc/c16/kclose.s
new file mode 100644 (file)
index 0000000..e957117
--- /dev/null
+++ b/libsrc/c16/kclose.s
@@ -0,0 +1,14 @@
+;
+; Ullrich von Bassewitz, 2003-12-21
+;
+; CLOSE replacement function
+;
+
+        .export         CLOSE
+
+.proc   CLOSE
+       clc                             ; Force C64 compatible behaviour
+        jmp    $FFC3                   ; Call the ROM routine
+.endproc
+
+

diff --git a/libsrc/c16/kernal.s b/libsrc/c16/kernal.s
index e14a17bdf08e59bd066babbfa7c39345c3bd4d9b..376f8250688c373e258257a163d71a3da93d4c21 100644 (file)
--- a/libsrc/c16/kernal.s
+++ b/libsrc/c16/kernal.s
@@ -26,7 +26,6 @@
         .export         SETLFS
         .export         SETNAM
         .export         OPEN
-        .export         CLOSE
         .export         CHKIN
         .export         CKOUT
         .export         CLRCH
@@ -70,7 +69,7 @@ READST                = $FFB7
 SETLFS         = $FFBA
 SETNAM         = $FFBD
 OPEN           = $FFC0
-CLOSE          = $FFC3
+;CLOSE         = $FFC3
 CHKIN          = $FFC6
 CKOUT          = $FFC9
 CLRCH          = $FFCC