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
|
||||
bne oserr1
|
||||
|
||||
; Save pushed oldname
|
||||
; Set pushed oldname
|
||||
lda c_sp
|
||||
ldx c_sp+1
|
||||
sta ptr3
|
||||
stx ptr3+1
|
||||
sta mliparam + MLI::RENAME::PATHNAME
|
||||
stx mliparam + MLI::RENAME::PATHNAME+1
|
||||
|
||||
; Restore and push newname
|
||||
lda ptr2
|
||||
@@ -32,12 +32,6 @@ __sysrename:
|
||||
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 c_sp
|
||||
ldx c_sp+1
|
||||
|
||||
Reference in New Issue
Block a user