6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-04-04 21:33:30 +00:00
Code Issues Projects Releases Wiki Activity

Small optimization

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@2149 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2003-05-05 17:05:22 +00:00
parent 7b4d3b9a9f
commit 62dbbcc4b6
2 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
libsrc/common/strcat.s
View File

@ -6,7 +6,7 @@
.export _strcat
.import popax
.importzp ptr1, ptr2, ptr3
.importzp ptr1, ptr2, tmp3
_strcat:
sta ptr1 ; Save src
@ -14,8 +14,7 @@ _strcat:
jsr popax ; Get dest
sta ptr2
stx ptr2+1
sta ptr3 ; Remember for function return
stx ptr3+1
sta tmp3 ; Remember for function return
ldy #0
; find end of dest
@ -50,8 +49,7 @@ sc4: lda (ptr1),y
; done, return pointer to dest
sc5: lda ptr3
ldx ptr3+1
sc5: lda tmp3 ; X does still contain high byte
rts

8
libsrc/common/strcpy.s
View File

@ -6,7 +6,7 @@
.export _strcpy
.import popax
.importzp ptr1, ptr2, ptr3
.importzp ptr1, ptr2, tmp3
_strcpy:
sta ptr1 ; Save src
@ -14,8 +14,7 @@ _strcpy:
jsr popax ; Get dest
sta ptr2
stx ptr2+1
sta ptr3 ; remember for function return
stx ptr3+1
sta tmp3 ; remember for function return
ldy #$00
L1: lda (ptr1),y
@ -27,7 +26,6 @@ L1: lda (ptr1),y
inc ptr2+1
bne L1
L9: lda ptr3
ldx ptr3+1
L9: lda tmp3 ; X still contains high byte
rts