git.sur5r.net Git - cc65/blob - libsrc/geos-common/file/sysrename.s

   1 ;
   2 ; Maciej 'YTM/Elysium' Witkowiak
   3 ;
   4 ; 19.07.2005
   5
   6 ; unsigned char __fastcall__ _sysrename (const char* oldname, const char* newname);
   7
   8             .export __sysrename
   9             .import popax
  10
  11             .include "jumptab.inc"
  12             .include "diskdrv.inc"
  13             .include "geossym.inc"
  14
  15 __sysrename:
  16         sta r0L
  17         stx r0H
  18         jsr popax
  19         sta r6L
  20         stx r6H
  21         jsr RenameFile
  22         txa
  23         ldx #0
  24         rts