.text
        .global bitcount
bitcount:
        stmfd   sp!, {lr}

        movs    r0, r0
loop:
        addmi   r1, r1, #1
        movs    r0, r0, lsl #1
        bne     loop

        mov     r0, r1

        ldmfd   sp!, {pc}
        bx      lr