home *** CD-ROM | disk | FTP | other *** search
/ BURKS 2 / BURKS_AUG97.ISO / BURKS / SOFTWARE / LIBS / PMC101.ZIP / LIBSRC.ZIP / STRNSET.ASM (.txt) < prev    next >
Assembly Source File  |  1994-06-14  |  377b  |  27 lines
  1. .386p
  2. locals
  3.  
  4. extrn   STRLEN:near
  5. extrn   MEMSET:near
  6.  
  7. public  STRNSET
  8.  
  9. _TEXT           segment byte public use32 'CODE'
  10. assume  cs:_TEXT
  11.  
  12. STRNSET:
  13.         mov eax,[esp+4+0+08h]
  14.         push eax
  15.         call STRLEN
  16.  
  17.         cmp eax,[esp+4+0+00h]
  18.         ja short @@00
  19.         mov [esp+4+0+00h],eax
  20.  
  21. @@00:
  22.         jmp MEMSET
  23.  
  24. _TEXT           ends
  25. end
  26.  
  27.