;
.export __sysrename
- .import pushname, popname
- .import popax
+ .import pushname, popname
+ .import popax
- .include "zeropage.inc"
- .include "mli.inc"
+ .include "zeropage.inc"
+ .include "mli.inc"
__sysrename:
- ; Save newname
- sta ptr2
- stx ptr2+1
+ ; Save newname
+ sta ptr2
+ stx ptr2+1
; Get and push oldname
- jsr popax
- jsr pushname
- bne oserr1
+ jsr popax
+ jsr pushname
+ bne oserr1
- ; Save pushed oldname
- lda sp
- ldx sp+1
- sta ptr3
- stx ptr3+1
+ ; 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
+ 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
+ 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
+ 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
+ lda #RENAME_CALL
+ ldx #RENAME_COUNT
+ jsr callmli
; Cleanup newname
- jsr popname ; Preserves A
+ jsr popname ; Preserves A
; Cleanup oldname
-oserr2: jmp popname ; Preserves A
+oserr2: jmp popname ; Preserves A
-oserr1: rts
+oserr1: rts