; ; Ullrich von Bassewitz, 31.05.1998 ; ; char* strcpy (char* dest, const char* src); ; .export _strcpy .import popax .importzp ptr1, ptr2, ptr3 _strcpy: sta ptr1 ; Save src stx ptr1+1 jsr popax ; Get dest sta ptr2 stx ptr2+1 sta ptr3 ; remember for function return stx ptr3+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 ptr3 ldx ptr3+1 rts
strcpy.s.html; generated on Sat Oct 13 22:41:33 2001 by ca65html