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