Fix a kernal problem

git-svn-id: svn://svn.cc65.org/cc65/trunk@2810 b7a2c559-68d2-44c3-8de9-860c34a00d81
2003-12-21 13:13:26 +00:00 · 2003-12-21 13:13:26 +00:00 · 028d03b482
commit 028d03b482
parent b7c203856b
3 changed files with 16 additions and 2 deletions
--- 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     \
--- a/libsrc/c16/kclose.s
+++ 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
+
+
--- 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