home *** CD-ROM | disk | FTP | other *** search
/ BURKS 2 / BURKS_AUG97.ISO / BURKS / SOFTWARE / LIBS / PMC101.ZIP / LIBSRC.ZIP / STRPBRK.ASM (.txt) < prev    next >
Assembly Source File  |  1994-06-14  |  572b  |  45 lines
  1. .386p
  2. locals
  3.  
  4. public  STRPBRK
  5.  
  6. _TEXT           segment byte public use32 'CODE'
  7. assume  cs:_TEXT
  8.  
  9. STRPBRK:
  10.         cld
  11.  
  12.         mov eax,[esp+4+0+04h]
  13.         jmp short @@00lc
  14.  
  15. @@00l:
  16.         mov ecx,[esp+4+0+00h]
  17.  
  18. @@00l00l:
  19.         mov dh,[ecx]
  20.         or dh,dh
  21.         jz short @@00l00
  22.  
  23.         cmp dl,dh
  24.         je short @@00
  25.  
  26.         inc ecx
  27.         jmp @@00l00l
  28.  
  29. @@00l00:
  30.         inc eax
  31.  
  32. @@00lc:
  33.         mov dl,[eax]
  34.         or dl,dl
  35.         jnz @@00l
  36.  
  37.         xor eax,eax
  38.  
  39. @@00:
  40.         ret 08h
  41.  
  42. _TEXT           ends
  43. end
  44.  
  45.