implement _sysrename for Atari

2013-07-24 00:40:09 +02:00
parent a01b9f08ed
commit 993555da94
7 changed files with 231 additions and 10 deletions
--- a/libsrc/atari/sysrmdir.s
+++ b/libsrc/atari/sysrmdir.s
@@ -11,11 +11,16 @@
        .export         __sysrmdir
        .import         __sysremove
        .import         __dos_type
-        .import         ucase_fn
        .import         findfreeiocb
+        .importzp       tmp4
+.ifdef  UCASE_FILENAME
+        .import         ucase_fn
        .import         addysp
        .importzp       tmp3
-        .importzp       tmp4
+.ifdef  DEFAULT_DEVICE
+        .importzp tmp2
+.endif
+.endif

 .proc   __sysrmdir

@@ -51,6 +56,10 @@ do_sparta:

 .ifdef  UCASE_FILENAME

+.ifdef  DEFAULT_DEVICE
+        ldy     #$80
+        sty     tmp2            ; set flag for ucase_fn
+.endif
        jsr     ucase_fn
        bcc     ucok1