git.sur5r.net Git - cc65/blob - libsrc/cbm/sysrename.s

   1 ;
   2 ; Ullrich von Bassewitz, 2009-02-22
   3 ;
   4 ; unsigned char __fastcall__ _sysrename (const char *oldpath, const char *newpath);
   5 ;
   6
   7         .export         __sysrename
   8
   9         .import         fnparse, fnadd, fnparsename
  10         .import         writefndiskcmd, closecmdchannel
  11         .import         popax
  12
  13         .import         fncmd, fnunit
  14
  15
  16 ;--------------------------------------------------------------------------
  17 ; __sysrename:
  18
  19 .proc   __sysrename
  20
  21         jsr     fnparse         ; Parse first filename, pops newpath
  22         bne     done
  23
  24         lda     #'='
  25         jsr     fnadd
  26
  27         jsr     popax
  28         jsr     fnparsename     ; Parse second filename
  29         bne     done
  30
  31         lda     #'r'            ; Rename command
  32         sta     fncmd
  33         jsr     writefndiskcmd
  34
  35         pha
  36         ldx     fnunit
  37         jsr     closecmdchannel
  38         pla
  39
  40 done:   rts
  41
  42 .endproc
  43
  44