Ну можно еще так...
Код:
    ld de,dst
allkc:
    ld hl,src
    ld a,-1
    exa
    ld a,e
    cpl
keyc:
    and a
    jr z,nokey
    rra
    jr nc,nochk
    exa
    and (hl)
    exa
nochk:
    inc l    ;??
    jr keyc
nokey:
    exa
    ld (de),a
    inc e
    jr nz,allkc
Признаюсь, запамятовал- влияет ли rra на флаг нуля. Если да, то можно сократить.
Сколько весит по тактам- не считал