Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #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
Add Comment
Please, Sign In to add comment
