home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / EMXLIB8F.ZIP / EMX / LIB / STR / STRLEN.S < prev    next >
Encoding:
Text File  |  1993-01-02  |  546 b   |  31 lines
  1. / strlen.s (emx+gcc) -- Copyright (c) 1990-1993 by Eberhard Mattes
  2.  
  3.         .globl _strlen
  4.  
  5. / size_t strlen (const char *string)
  6. / {
  7. /   size_t i;
  8. / 
  9. /   i = 0;
  10. /   while (string[i] != 0) ++i;
  11. /   return (i);
  12. / }
  13.  
  14. / assumes ds=es!
  15.  
  16.         .text
  17.  
  18.         .align  2, 0x90
  19.  
  20. _strlen:
  21.         pushl   %edi
  22.         movl    2*4(%esp), %edi         / string
  23.         movl    $-1, %ecx
  24.         xorb    %al, %al
  25.         repne
  26.         scasb
  27.         movl    $-2, %eax
  28.         subl    %ecx, %eax
  29.         popl    %edi
  30.         ret
  31.