#unsigned parrot(unsigned *x);

.section .text
.globl parrot

parrot:
	pushl %ebp
	movl %esp, %ebp
	movl 8(%ebp), %eax
	andl $0x7fffffff, (%eax) #bit pariteta na 0, jer se on ne broji
	movl (%eax), %eax #vrijednost u %eax
	movb $0, %cl #cl brojac zbog rotacija

	petlja:
		cmpl $0, %eax
		je done
		shrl %eax
		jnc petlja
		incb %cl
		jmp petlja

done:
	movl 8(%ebp), %eax
	testb $1, %cl
	jnz neparan
	roll %cl, (%eax)
	movl $0, %eax
	movb %cl, %al
	movl %ebp, %esp
	popl %ebp
	ret

neparan:
	orl $0x80000000, (%eax)
	rorl %cl, (%eax)
	movl $0, %eax
	movb %cl, %al
	movl %ebp, %esp
	popl %ebp
	ret