ASM.def

.model flat, stdcall
.data
DataString DB 'AGIJKSZ', 0FFH				; definicja ciagu znakow
.code

FindChar_4	PROC NEAR						; deklaracja procedury FindChar_4
			MOV ESI, 0						; zaladuj indeks lancucha 'DataString' do ESI
			MOV AH, 'J'						; zaladuj kod litery 'J' do rej. AH
Check_End:
			CMP DataString[ESI], 0FFH		; czy koniec lancucha (znak specjalny FF)?
			JE Not_Find						; znaleziono znak konca (wartownik)
			CMP AH, DataString[ESI]			; porownaj znak z elementem lancucha 'DataString'
			JE Got_Equal					; znaleziono znak!
			ADD SI, 1						; inkrementuj indeks
			JMP Check_End					; petla wyszukiwania
Got_Equal:
			MOV DL, DataString[ESI]			; zaladuj znaleziony znak do DL
			JMP Done
Not_Find:
			MOV EAX,0						; nie znaleziono znaku
			RET								; powrot z procedury
Done:
			MOV EAX,1						; znaleziono znak
			RET								; powrot z procedury
FindChar_4	ENDP							; koniec FindChar_4
			END