2005-08-31 20:11:45 +00:00
|
|
|
;
|
|
|
|
|
; Oliver Schmidt, 15.04.2005
|
|
|
|
|
;
|
|
|
|
|
; unsigned char __fastcall__ _sysrename (const char* oldname, const char* newname);
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
.export __sysrename
|
|
|
|
|
.import pushname, popname
|
|
|
|
|
.import popax
|
|
|
|
|
|
|
|
|
|
.include "zeropage.inc"
|
|
|
|
|
.include "mli.inc"
|
|
|
|
|
|
|
|
|
|
__sysrename:
|
|
|
|
|
; Save newname
|
|
|
|
|
sta ptr2
|
|
|
|
|
stx ptr2+1
|
|
|
|
|
|
|
|
|
|
; Get and push oldname
|
|
|
|
|
jsr popax
|
|
|
|
|
jsr pushname
|
|
|
|
|
bne oserr1
|
|
|
|
|
|
|
|
|
|
; Save pushed oldname
|
|
|
|
|
lda sp
|
|
|
|
|
ldx sp+1
|
|
|
|
|
sta ptr3
|
|
|
|
|
stx ptr3+1
|
|
|
|
|
|
|
|
|
|
; Restore and push newname
|
|
|
|
|
lda ptr2
|
|
|
|
|
ldx ptr2+1
|
|
|
|
|
jsr pushname
|
|
|
|
|
bne oserr2
|
|
|
|
|
|
|
|
|
|
; Restore and set pushed oldname
|
|
|
|
|
lda ptr3
|
|
|
|
|
ldx ptr3+1
|
|
|
|
|
sta mliparam + MLI::RENAME::PATHNAME
|
|
|
|
|
stx mliparam + MLI::RENAME::PATHNAME+1
|
|
|
|
|
|
|
|
|
|
; Set pushed newname
|
|
|
|
|
lda sp
|
|
|
|
|
ldx sp+1
|
|
|
|
|
sta mliparam + MLI::RENAME::NEW_PATHNAME
|
|
|
|
|
stx mliparam + MLI::RENAME::NEW_PATHNAME+1
|
|
|
|
|
|
|
|
|
|
; Rename file
|
|
|
|
|
lda #RENAME_CALL
|
|
|
|
|
ldx #RENAME_COUNT
|
|
|
|
|
jsr callmli
|
|
|
|
|
|
|
|
|
|
; Cleanup newname
|
|
|
|
|
jsr popname ; Preserves A
|
|
|
|
|
|
|
|
|
|
; Cleanup oldname
|
2010-04-22 19:51:34 +00:00
|
|
|
oserr2: jmp popname ; Preserves A
|
2005-08-31 20:11:45 +00:00
|
|
|
|
|
|
|
|
oserr1: rts
|
