home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / EMXLIB8F.ZIP / EMX / LIB / STR / STRCAT.S < prev    next >
Encoding:
Text File  |  1993-01-02  |  881 b   |  42 lines
  1. / strcat.s (emx+gcc) -- Copyright (c) 1990-1993 by Eberhard Mattes
  2.  
  3.         .globl _strcat
  4.  
  5. / char *strcat (char *string1, const char *string2)
  6. /     {
  7. /     char *dst;
  8. / 
  9. /     dst = string1;
  10. /     while (*dst != 0)
  11. /         ++dst;
  12. /     while ((*dst = *string2) != 0)
  13. /         ++dst, ++string2;
  14. /     return (string1);
  15. /     }
  16.  
  17. / assumes ds=es!
  18.  
  19.         .text
  20.  
  21.         .align  2, 0x90
  22.  
  23. _strcat:
  24.         pushl   %esi
  25.         pushl   %edi
  26.         movl    3*4(%esp), %edi         / string1
  27.         movl    $-1, %ecx
  28.         movb    $0, %al
  29.         repne
  30.         scasb
  31.         decl    %edi
  32.         movl    4*4(%esp), %esi         / string2
  33.         .align  2, 0x90
  34. 1:      lodsb
  35.         stosb
  36.         orb     %al, %al
  37.         jnz     1b
  38.         movl    3*4(%esp), %eax         / string1
  39.         popl    %edi
  40.         popl    %esi
  41.         ret
  42.