.section .text
.globl palindrom
palindrom:
    pushl %ebp
    movl %esp, %ebp
    movl 8(%ebp), %eax
    movl %eax,%ebx
nakraj:
    cmpb $0, (%ebx)
    je dalje
    incl %ebx
    jmp nakraj
dalje:
    decl %ebx
petlja:
    cmpb $' ',(%eax)
    jne pomerib
    incl %eax
    jmp petlja
pomerib:
    cmpb $' ',(%ebx)
    jne ljeda
    decl %ebx
    jmp pomerib
ljeda:
    movb (%eax), %cl
    cmpb %cl, (%ebx)
    je steje
    addb $32, %cl
    cmpb %cl, (%ebx)
    je steje
    subb $64, %cl
    cmpb %cl, (%ebx)
    jne nije
steje:
    cmpl %eax, %ebx
    je jeste
    incl %eax
    cmpl %eax, %ebx
    je jeste
    decl %ebx
    cmpl %eax, %ebx
    je jeste
    jmp petlja
jeste:
    movl $1, %eax
    jmp kraj
nije:
    movl $0, %eax
kraj:
    movl %ebp, %esp
    popl %ebp
    ret