X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=libsrc%2Fapple2%2Fsysrename.s;h=0fe8dd7b184d8032ef0e309a4310ac643242c616;hb=85885001b133e2dc320b6f6459259afa69784ca8;hp=af57e1405c7ca86ed6112dde89e5ea86dac4ebe3;hpb=44fd1082ae807a0b6b4046c65914e20a7e27101c;p=cc65 diff --git a/libsrc/apple2/sysrename.s b/libsrc/apple2/sysrename.s index af57e1405..0fe8dd7b1 100644 --- a/libsrc/apple2/sysrename.s +++ b/libsrc/apple2/sysrename.s @@ -5,55 +5,55 @@ ; .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