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/sysremove.s
+++ b/libsrc/atari/sysremove.s
@@ -12,6 +12,9 @@
        .importzp tmp3
        .import addysp
        .import ucase_fn
+.ifdef  DEFAULT_DEVICE
+        .importzp tmp2
+.endif
 .endif
        .export __sysremove

@@ -37,6 +40,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