Kolokvijum

.section .data
    poruka1: .ascii "Unesite string: \0"
    duzina1 = . - poruka1
    poruka2: .ascii "Ispravljen string: \0"
    duzina2 = . - poruka2

    unos: .fill 51,1,42
    n: .long 0
.section .text
.global main
main:
    movl $4, %eax
    movl $1, %ebx
    movl $poruka1, %ecx
    movl $duzina1, %edx
    int $0x80

    movl $3, %eax
    movl $0, %ebx
    movl $unos, %ecx
    movl $51, %edx
    int $0x80

    movl %eax, %esi
    movl %esi, n
    movl $unos, %eax
    decl %esi
    movl $0, %edi

preskoci:
    cmpb $' ',(%eax, %edi,1)
    jne malo
    addl $1,%edi
    jmp preskoci

malo:
    cmpb $'a',(%eax, %edi,1)
    jl veliko
    cmpb $'z',(%eax, %edi,1)
    jle ispravakm
    jmp sledeci

veliko:
    cmpb $'A',(%eax, %edi,1)
    jl sledeci
    cmpb $'Z',(%eax, %edi,1)
    jle ispravakv
    jmp sledeci

ispravakm:
    cmpb $'n',(%eax, %edi,1)
    jl normalno
    jmp obrnuto
ispravakv:
    cmpb $'N',(%eax, %edi,1)
    jl normalno
    jmp obrnuto

normalno:
    addl $13,(%eax, %edi,1)
    jmp sledeci

obrnuto:
    subl $13, (%eax, %edi,1)
    jmp sledeci

sledeci:
    addl $1, %edi
    cmpl %edi, %esi
    je ispis
    jmp preskoci

ispis:
    movl $4, %eax
    movl $1, %ebx
    movl $poruka2, %ecx
    movl $duzina2, %edx
    int $0x80

    movl $4, %eax
    movl $1, %ebx
    movl $unos, %ecx
    movl n, %edx
    int $0x80

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