6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-11 11:30:13 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@5863 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
ol.sc 2012-10-21 14:35:17 +00:00
parent 74fb91a3a2
commit 89d4f4a90c
6 changed files with 51 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
include/device.h
View File

@ -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);

1
libsrc/apple2/Makefile
View File

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

27
libsrc/apple2/curdevice.s Normal file
View File

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

1
libsrc/apple2enh/Makefile
View File

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

1
libsrc/cbm/Makefile
View File

@ -68,6 +68,7 @@ S_OBJS = c_acptr.o \
close.o \
closedir.o \
ctype.o \
curdevice.o \
cvline.o \
devicedir.o \
dir.o \

19
libsrc/cbm/curdevice.s Normal file
View File

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