proc Bits, number, result, numberLen
             push eax edi ecx esi edx
             pushf
             mov ecx, [numberLen]
             mov edi, [number]
             add edi, [numberLen]
             dec edi
             mov esi, [result]

             .loop:
                cmp ecx, 0
                je .exit_loop
                xor ax, ax
                mov al, [edi]
                push ecx
                mov ecx, 8d

                .zaloopa:
                    mov bx, 1
                    shl bx, cl
                    shr bx, 1
                    test ax, bx


                    jz .zero
                    mov dl, '1'
                    mov [esi], dl
                    jmp .endif
                    .zero:
                    mov dl, '0'
                    mov [esi], dl
                    .endif:


                    inc esi
                loop .zaloopa
                pop ecx
                dec ecx
                dec edi
             jmp .loop
             .exit_loop:
             popf
             pop edx esi ecx edi eax
             ret
        endp