mirror of
https://github.com/cc65/cc65.git
synced 2024-11-03 10:07:02 +00:00
57 lines
1.1 KiB
ArmAsm
57 lines
1.1 KiB
ArmAsm
;
|
|
; Ullrich von Bassewitz, 2009-02-22
|
|
;
|
|
; unsigned char __fastcall__ _sysrename (const char *oldpath, const char *newpath);
|
|
;
|
|
|
|
.export __sysrename
|
|
|
|
.import fnparse, fnadd, fnparsename
|
|
.import opencmdchannel, closecmdchannel
|
|
.import writefndiskcmd, readdiskerror
|
|
.import popax
|
|
|
|
.import fncmd, fnunit
|
|
.importzp ptr1
|
|
|
|
|
|
;--------------------------------------------------------------------------
|
|
; __sysrename:
|
|
|
|
.proc __sysrename
|
|
|
|
jsr fnparse ; Parse first filename, pops newpath
|
|
bne done
|
|
|
|
lda #'='
|
|
jsr fnadd
|
|
|
|
jsr popax
|
|
sta ptr1
|
|
stx ptr1+1
|
|
ldy #0
|
|
jsr fnparsename ; Parse second filename
|
|
bne done
|
|
|
|
ldx fnunit
|
|
jsr opencmdchannel
|
|
bne done
|
|
|
|
lda #'r' ; Rename command
|
|
sta fncmd
|
|
jsr writefndiskcmd
|
|
|
|
; ldx fnunit
|
|
; jsr readdiskerror
|
|
|
|
pha
|
|
ldx fnunit
|
|
jsr closecmdchannel
|
|
pla
|
|
|
|
done: rts
|
|
|
|
.endproc
|
|
|
|
|