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