From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Sun, 21 Dec 2003 13:13:26 +0000 (+0000)
Subject: Fix a kernal problem
X-Git-Tag: V2.12.0~999
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=028d03b48258ac13874dfcb8e1cdbe3d02fe5aaf;p=cc65

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 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