Arqui 3.1

.data
str1: .asciz "pepereloco"
char: .asciz "r"
iter: .quad 10

.text

.global main
main:
	cld					# izq a der
	movq iter, %rcx		# iteraciones
	movq $str1, %rdi	# cadena a buscar
	movq char, %rax		# char a buscar

	repne scasb			# comparar rcx veces

	movq $1, %rax
	je end				# si no lo encontró
	movq $0, %rax

end:
	ret