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         opencmdchannel, closecmdchannel
11        .import         writefndiskcmd, readdiskerror
12        .import         popptr1
13
14        .import         fncmd, fnunit
15        .importzp       ptr1
16
17
18;--------------------------------------------------------------------------
19; __sysrename:
20
21.proc   __sysrename
22
23        jsr     fnparse         ; Parse first filename, pops newpath
24        bne     done
25
26        lda     #'='
27        jsr     fnadd
28
29        jsr     popptr1
30        ; ldy     #0              Y=0 guaranteed by popptr1
31        jsr     fnparsename     ; Parse second filename
32        bne     done
33
34        ldx     fnunit
35        jsr     opencmdchannel
36        bne     done
37
38        lda     #'r'            ; Rename command
39        sta     fncmd
40        jsr     writefndiskcmd
41
42;       ldx     fnunit
43;       jsr     readdiskerror
44
45        pha
46        ldx     fnunit
47        jsr     closecmdchannel
48        pla
49
50done:   rts
51
52.endproc
53
54
55