home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / EMXLIB8F.ZIP / EMX / LIB / STR / SWAB.S < prev   
Encoding:
Text File  |  1993-01-02  |  775 b   |  40 lines
  1. / swab.s (emx+gcc) -- Copyright (c) 1992-1993 by Eberhard Mattes
  2.  
  3.         .globl _swab
  4.  
  5. / void swab (const void *src, void *dst, size_t n)
  6. / {
  7. /   char *s, *d;
  8. / 
  9. /   if (n & 1) return;
  10. /   while (n > 0)
  11. /     {
  12. /       d[0] = s[1];
  13. /       d[1] = s[0];
  14. /       d += 2; s += 2; n -= 2;
  15. /     }
  16. / }
  17.  
  18. / assumes ds=es!
  19.  
  20.         .text
  21.  
  22.         .align  2, 0x90
  23.  
  24. _swab:
  25.         pushl   %esi
  26.         pushl   %edi
  27.         movl    3*4(%esp), %esi         / src
  28.         movl    4*4(%esp), %edi         / dst
  29.         movl    5*4(%esp), %ecx         / n
  30.         shrl    $1, %ecx
  31.         jc      9f
  32.         .align  2, 0x90
  33. 1:      lodsw
  34.         xchgb   %al, %ah
  35.         stosw
  36.         loop    1b
  37. 9:      popl    %edi
  38.         popl    %esi
  39.         ret
  40.