git.sur5r.net Git - cc65/blob - libsrc/common/strcpy.s

   1 ;
   2 ; Ullrich von Bassewitz, 31.05.1998
   3 ;
   4 ; char* strcpy (char* dest, const char* src);
   5 ;
   6
   7         .export         _strcpy
   8         .import         popax
   9         .importzp       ptr1, ptr2, ptr3
  10
  11 _strcpy:
  12         sta     ptr1            ; Save src
  13         stx     ptr1+1
  14         jsr     popax           ; Get dest
  15         sta     ptr2
  16         stx     ptr2+1
  17         sta     ptr3            ; remember for function return
  18         stx     ptr3+1
  19         ldy     #$00
  20
  21 L1:     lda     (ptr1),y
  22         sta     (ptr2),y
  23         beq     L9
  24         iny
  25         bne     L1
  26         inc     ptr1+1
  27         inc     ptr2+1
  28         bne     L1
  29
  30 L9:     lda     ptr3
  31         ldx     ptr3+1
  32         rts
  33