Apple2: -8 bytes on rename
This commit is contained in:
committed by
Oliver Schmidt
parent
280f296952
commit
850accee3a
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user