klk

#svsd
#vnsdnvs

.section .data
ulaz:   .ascii "Unesite string: \0"
ulaz_len= . - ulaz
izlaz1: .ascii "U unetom strigu najveci kod ima slovo: \0"
izlaz1_len= . - izlaz1
slovo: .ascii "1"
izlaz2: .ascii "U unetom stringu nema slova!\n\0"
izlaz2_len= . - izlaz2
str1: .fill 51,1,0
str1_max: .long 51
brojac: .long 0

.section .text
.globl main
main:
	movl $4, %eax
	movl $1, %ebx
	movl $ulaz, %ecx
	movl $ulaz_len, %edx
	int $0x80

	movl $3, %eax
	movl $0, %ebx
	movl $str1, %ecx
	movl str1_max, %edx
	int $0x80
	movl %eax, str1_max
	movl $0, %esi
	movb $0, %cl


petlja:
	cmpl $'\n' ,str1(,%esi,1)
	je ispitaj
	movb str1(,%esi,1), %al
	cmpb $'A', %al
	jb dalje
	cmpb $'Z', %al
	jbe poredi
	cmpb $'a', %al
	jb dalje
	cmpb $'z', %al
	jbe poredi
	incl %esi
	jmp petlja

poredi:
	movb %al, %bl
	cmpb %cl, %bl
	ja zameni
	incl brojac
	incl %esi
	jmp petlja
zameni:
	movb %bl, %cl
	incl brojac
	incl %esi
	jmp petlja
dalje:
	incl %esi
	jmp petlja

ispitaj:
	movb %cl, slovo
	cmpl $0, brojac
	jne ispis2
ispis1:
	movl $4, %eax
	movl $1, %ebx
	movl $izlaz2, %ecx
	movl $izlaz2_len, %edx
	int $0x80
	jmp kraj
ispis2:
	movl $4, %eax
	movl $1, %ebx
	movl $izlaz1, %ecx
	movl $izlaz1_len+1, %edx
	int $0x80


kraj:
	movl $1, %eax
	movl $0, %ebx
	int $0x80