Apple2: -8 bytes on rename

This commit is contained in:
Colin Leroy-Mira
2025-10-25 13:29:08 +02:00
committed by Oliver Schmidt
parent 280f296952
commit 850accee3a

View File

@@ -20,11 +20,11 @@ __sysrename:
jsr pushname_tos jsr pushname_tos
bne oserr1 bne oserr1
; Save pushed oldname ; Set pushed oldname
lda c_sp lda c_sp
ldx c_sp+1 ldx c_sp+1
sta ptr3 sta mliparam + MLI::RENAME::PATHNAME
stx ptr3+1 stx mliparam + MLI::RENAME::PATHNAME+1
; Restore and push newname ; Restore and push newname
lda ptr2 lda ptr2
@@ -32,12 +32,6 @@ __sysrename:
jsr pushname jsr pushname
bne oserr2 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 ; Set pushed newname
lda c_sp lda c_sp
ldx c_sp+1 ldx c_sp+1