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

   1 ;
   2 ; Ullrich von Bassewitz, 31.05.1998
   3 ;
   4 ; int strcmp (const char* s1, const char* s2);
   5 ;
   6
   7         .export         _strcmp
   8         .import         popax
   9         .importzp       ptr1, ptr2
  10
  11 _strcmp:
  12         sta     ptr2            ; Save s2
  13         stx     ptr2+1
  14         jsr     popax           ; Get s1
  15         sta     ptr1
  16         stx     ptr1+1
  17         ldy     #0
  18
  19 loop:   lda     (ptr1),y
  20         cmp     (ptr2),y
  21         bne     L1
  22         tax                     ; end of strings?
  23         beq     L3
  24         iny
  25         bne     loop
  26         inc     ptr1+1
  27         inc     ptr2+1
  28         bne     loop
  29
  30 L1:     bcs     L2
  31         ldx     #$FF
  32         rts
  33
  34 L2:     ldx     #$01
  35 L3:     rts