Subversion Repositories Kolibri OS

Rev

Rev 255 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 255 Rev 6341
Line 1... Line 1...
1 
;-----------------------------------------------------------
 1 
;-----------------------------------------------------------
2 
;-------find simvole in string------------------------------
 2 
;-------find simvole in string------------------------------
3 
;-----------------------------------------------------------
 3 
;-----------------------------------------------------------
- 
 
 4 
 
4 
find_symvol:
 5 
;input:
5 
	;eax=string
 6 
;eax=string
6 
	;ebx=symvol
 7 
;ebx=symvol
- 
 
 8 
find_symvol:
7 
	mov esi,eax
 9 
	mov esi,eax
8 
	next_symvol:
 10 
	next_symvol:
9 
	xor ecx,ecx
 - 
 
10 
	mov cl,[eax]
 - 
 
11 
	cmp cl,bl
 11 
	cmp byte[eax],bl
12 
	je symvol_fined
 12 
	je symvol_fined
13 
	inc eax
 13 
	inc eax
14 
	jmp next_symvol
 14 
	jmp next_symvol
Line 15... Line 15...
15 
 
 15