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