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

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

include/device.h

@@ -55,6 +55,8 @@ unsigned char getfirstdevice (void);
 
 unsigned char __fastcall__ getnextdevice (unsigned char device);
 
+unsigned char getcurrentdevice (void);
+
 char* __fastcall__ getdevicedir (unsigned char device, char* buf, size_t size);
 
 

libsrc/apple2/Makefile

@@ -61,6 +61,7 @@ S_OBJS=	_scrsize.o	\
 	cputc.o		\
 	crt0.o		\
 	ctype.o		\
+	curdevice.o	\
 	cvline.o	\
 	devicedir.o	\
 	dioclose.o	\

libsrc/apple2/curdevice.s

@@ -0,0 +1,27 @@
+;
+; Oliver Schmidt, 2012-10-21
+;
+; unsigned char getcurrentdevice (void);
+;
+
+        .export         _getcurrentdevice
+        .import         __dos_type
+
+        .include        "mli.inc"
+
+_getcurrentdevice:
+
+        ; Use unit number of most recent accessed device
+        lda     DEVNUM
+        lsr
+        lsr
+        lsr
+        lsr
+
+        ; Check for ProDOS 8
+        ldx     __dos_type
+        bne     :+
+        lda     #$FF            ; INVALID_DEVICE
+
+:       ldx     #$00
+        rts

libsrc/apple2enh/Makefile

@@ -64,6 +64,7 @@ S_OBJS=	_scrsize.o	\
 	cputc.o		\
 	crt0.o		\
 	ctype.o		\
+	curdevice.o	\
 	cvline.o	\
 	devicedir.o	\
 	dioclose.o	\

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		\

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