home *** CD-ROM | disk | FTP | other *** search
/ BURKS 2 / BURKS_AUG97.ISO / BURKS / SOFTWARE / LIBS / PMC101.ZIP / LIBSRC.ZIP / STRDUP.ASM (.txt) < prev    next >
Assembly Source File  |  1994-06-13  |  537b  |  38 lines
  1. .386p
  2. locals
  3.  
  4. extrn   MALLOC:near
  5. extrn   STRLEN:near
  6. extrn   MEMCPY:near
  7.  
  8. public  STRDUP
  9.  
  10. _TEXT           segment byte public use32 'CODE'
  11. assume  cs:_TEXT
  12.  
  13. STRDUP:
  14.         push esi edi
  15.  
  16.         mov edi,[esp+4+8+00h]
  17.         push edi
  18.         call STRLEN
  19.         lea esi,[eax+1]
  20.  
  21.         push esi
  22.         call MALLOC
  23.         or eax,eax
  24.         jz short @@00
  25.  
  26.         push eax
  27.         push edi
  28.         push esi
  29.         call MEMCPY
  30.  
  31. @@00:
  32.         pop edi esi
  33.         ret 04h
  34.  
  35. _TEXT           ends
  36. end
  37.  
  38.