cc65/libsrc/common/strcpy.s

;
; Ullrich von Bassewitz, 31.05.1998
;
; char* strcpy (char* dest, const char* src);
;

	.export		_strcpy
	.import		popax
	.importzp	ptr1, ptr2

_strcpy:
	sta	ptr1		; Save src
	stx	ptr1+1
	jsr	popax 		; Get dest
	sta	ptr2
	stx	ptr2+1
	ldy	#$00

L1:	lda	(ptr1),y
 	sta	(ptr2),y
	beq	L9
	iny
	bne	L1
	inc	ptr1+1
	inc	ptr2+1
	bne	L1

L9:    	lda    	ptr2            ; X still contains high byte
 	rts
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`;`
			`; Ullrich von Bassewitz, 31.05.1998`
			`;`
			`; char* strcpy (char* dest, const char* src);`
			`;`

			`.export _strcpy`
			`.import popax`
Another small optimization git-svn-id: svn://svn.cc65.org/cc65/trunk@2150 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-05-05 17:07:14 +00:00			`.importzp ptr1, ptr2`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00
			`_strcpy:`
			`sta ptr1 ; Save src`
			`stx ptr1+1`
			`jsr popax ; Get dest`
			`sta ptr2`
			`stx ptr2+1`
			`ldy #$00`

			`L1: lda (ptr1),y`
			`sta (ptr2),y`
			`beq L9`
			`iny`
			`bne L1`
			`inc ptr1+1`
			`inc ptr2+1`
			`bne L1`

Another small optimization git-svn-id: svn://svn.cc65.org/cc65/trunk@2150 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-05-05 17:07:14 +00:00			`L9: lda ptr2 ; X still contains high byte`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`rts`