From 028d03b48258ac13874dfcb8e1cdbe3d02fe5aaf Mon Sep 17 00:00:00 2001
From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Sun, 21 Dec 2003 13:13:26 +0000
Subject: [PATCH] Fix a kernal problem

git-svn-id: svn://svn.cc65.org/cc65/trunk@2810 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/c16/Makefile |  1 +
 libsrc/c16/kclose.s | 14 ++++++++++++++
 libsrc/c16/kernal.s |  3 +--
 3 files changed, 16 insertions(+), 2 deletions(-)
 create mode 100644 libsrc/c16/kclose.s

diff --git a/libsrc/c16/Makefile b/libsrc/c16/Makefile
index e101f7189..0505d31c5 100644
--- 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
index 000000000..e957117c5
--- /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 e14a17bdf..376f82506 100644
--- 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
-- 
2.39.5