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/sysmkdir.s
+++ b/libsrc/atari/sysmkdir.s
@@ -15,6 +15,9 @@
 .ifdef  UCASE_FILENAME
        .importzp tmp3
        .import ucase_fn
+.ifdef  DEFAULT_DEVICE
+        .importzp tmp2
+.endif
 .endif
        .export __sysmkdir

@@ -46,6 +49,10 @@ iocbok: stx     tmp4            ; remember IOCB index

 .ifdef  UCASE_FILENAME

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