implement _sysrename for Atari

2013-07-24 00:40:09 +02:00
parent 2df404f14e
commit bbc31f67da
7 changed files with 231 additions and 10 deletions
--- a/libsrc/atari/open.s
+++ b/libsrc/atari/open.s
@@ -91,7 +91,10 @@ cont:   ldy     #3
        jsr     ldaxysp

 .ifdef  UCASE_FILENAME
-
+.ifdef  DEFAULT_DEVICE
+        ldy     #$80
+        sty     tmp2            ; set flag for ucase_fn
+.endif
        jsr     ucase_fn
        bcc     ucok1
 invret: lda     #<EINVAL        ; file name is too long