Introduced getcurrentdevice() and implemented it for CBM and Apple.

git-svn-id: svn://svn.cc65.org/cc65/trunk@5863 b7a2c559-68d2-44c3-8de9-860c34a00d81
2012-10-21 14:35:17 +00:00
parent 74fb91a3a2
commit 89d4f4a90c
6 changed files with 51 additions and 0 deletions
--- a/libsrc/cbm/Makefile
+++ b/libsrc/cbm/Makefile
@@ -68,6 +68,7 @@ S_OBJS =	c_acptr.o	\
 		close.o		\
 		closedir.o	\
 		ctype.o		\
+		curdevice.o	\
 		cvline.o	\
 		devicedir.o	\
 		dir.o		\
--- a/libsrc/cbm/curdevice.s
+++ b/libsrc/cbm/curdevice.s
@@ -0,0 +1,19 @@
+;
+; Oliver Schmidt, 2012-10-21
+;
+; unsigned char getcurrentdevice (void);
+;
+
+        .export         _getcurrentdevice
+        .import         curunit
+
+;------------------------------------------------------------------------------
+; _getcurrentdevice
+
+.proc   _getcurrentdevice
+
+        lda     curunit
+        ldx     #$00
+        rts
+
+.endproc