put  0x0001 → t1    ; maska zdrojového bitu
    put  0x8000 → t2    ; maska cílového bitu
    put  0      → rv
loop:
    and  l1, t1 → t3    ; zjištění zdrojového bitu
    jz   t3, zero
    or   rv, t2 → rv    ; nastavení cílového bitu
zero:
    shl  t1, 1  → t1    ; posuv obou masek
    shr  t2, 1  → t2
    jz   t2, check      ; skončit, když cílový bit vypadl z registru
    jmp  loop