add dh,bh
mov dh,[edi]

Shorter, faster solution?

and ax, 0x0101
and bx, 0x0101
and cx, 0x0101
and dx, 0x0101
shl al, 7
shl ah, 6
or al, ah
shl bl, 5
or al, bl
shl bh, 4
or al, bh
shl cl, 3
or al, cl
shl ch, 2
or al, ch
shl dl, 1
or al, dl
or al, dh    

mov al,1
mov ah,1
mov bl,1
mov bh,1
mov cl,1
mov ch,1
mov dl,1
mov dh,1
shl al,7
shl ah,7
shr ah,1
shl bl,7
shr bl,2
shl bh,7
shr bh,3
shl cl,7
shr cl,4
shl ch,7
shr ch,5
shl dl,7
shr dl,6
shl dh,7
shr dh,7
add ah,al
add bh,bl
add ch,cl
add dh,dl
add bh,ah
add dh,ch
add dh,bh
mov ]edi],dh
add edi,1
    

        mov     rax,0101010101010101h
        and     rax,qword [input]
        mov     rdx,0102040810204080h
        mul     rdx
        shr     rax,64-8 ; extract the result from the highest byte    

How can I write to code window?

and ax,0101h
and bx,0101h
and cx,0101h
and dx,0101h
shl al, 7
shl ah, 6
shl bl, 5
shl bh, 4
shl cl, 3
shl ch, 2
shl dl, 1
or al,ah
or bl,bh
or cl,ch
or dl,dh
or al,bl
or cl,dl
or al,cl
mov [edi],al
    

pext rax, rax, 0101010101010101h    

What about Ibts?
Wikipedia write this is insert bit in string.