38 popr

.686
.model flat
extern _ExitProcess@4 : PROC
public _main

.data
znak db 11111111b

.code

wczytaj5bitow PROC

    and al, 00011111b
    mov ah, 0
    mov dx, 0FFE0h

ptl:    cmp cl, 0
    je dalej
    dec cl
    rol dx, 1
    rol ax, 1
    jmp ptl

dalej:
    and word ptr [edi], dx
    or word ptr [edi], ax


    ret
wczytaj5bitow ENDP

_main PROC
    mov eax, 0
    mov al, 01001010b
    mov edi, OFFSET znak
    mov ecx, 1
    call wczytaj5bitow







push 0
call _ExitProcess@4
_main ENDP
END