Added a new sysrename module to make the high level function rename work. Code

is untested! git-svn-id: svn://svn.cc65.org/cc65/trunk@3940 b7a2c559-68d2-44c3-8de9-860c34a00d81
2009-02-22 14:06:12 +00:00
parent 30237d3c36
commit ef18b567f0
3 changed files with 120 additions and 59 deletions
--- a/libsrc/cbm/sysrename.s
+++ b/libsrc/cbm/sysrename.s
@@ -0,0 +1,44 @@
+;
+; Ullrich von Bassewitz, 2009-02-22
+;
+; unsigned char __fastcall__ _sysrename (const char *oldpath, const char *newpath);
+;
+
+        .export         __sysrename
+
+        .import         fnparse, fnadd, fnparsename
+        .import         writefndiskcmd, closecmdchannel
+        .import         popax
+
+        .import         fncmd, fnunit
+
+
+;--------------------------------------------------------------------------
+; __sysrename:
+
+.proc   __sysrename
+
+        jsr     fnparse         ; Parse first filename, pops newpath
+        bne     done
+
+        lda     #'='
+        jsr     fnadd
+
+        jsr     popax
+        jsr     fnparsename     ; Parse second filename
+        bne     done
+
+        lda     #'r'            ; Rename command
+        sta     fncmd
+        jsr     writefndiskcmd
+
+        pha
+        ldx     fnunit
+        jsr     closecmdchannel
+        pla
+
+done:   rts
+
+.endproc
+
+