.section .text
.globl RazmeniBit
RazmeniBit:
	pushl %ebp
	movl %esp, %ebp
	pushl %ebx
	pushl %edi
	pushl -4(%ebp)
	movl 8(%ebp), %ecx	#pokazivac na niz
	movl 12(%ebp), %esi	#broj elem
	movw $1, %dx	#maska
	movl $0, %edi	#brojac elemenata sa parnim brojem 1

provera:
	cmpl $0, %esi
	je kraj
slelem:
	decl %esi
	movl %esi, -4(%ebp)
	movl $0, %eax
	cmpl $0, %esi
	jl kraj
	movw (%ecx, %esi, 2), %bx

petlja:
	testw %bx, %dx
	jz dalje
	incl %eax
	shrw $1, %bx
	jz proveri
	jmp petlja

dalje:
	shrw $1, %bx
	jz proveri
	jmp petlja

proveri:
	testw $0x0001, %ax
	jz par
	xorw $0b1000000000000001, -4(%ebp)
	movw -4(%ebp), %ax
	movw %ax, (%ecx, %esi, 2)
	jmp slelem

par:
	xorw $0b1110000000000111, -4(%ebp)
	movw -4(%ebp), %ax
	movw %ax, (%ecx, %esi, 2)
	incl %edi
	jmp slelem

kraj:
	movl %edi, %eax
	popl -4(%ebp)
	popl %edi
	popl %ebx
	movl %ebp, %esp
	popl %ebp
	ret