правильно я раскомментил ?
Код:
ld hl,OutPut
ld de,0 ; счётчик бит ( 0-260 )
exx
ld hl,Input
ld b,35 ; счётчик байт
lab1 ld a,(hl)
ld c,8 ; счётчик бит в байте
lab2 rla : 7 бит в Carry
exx
jr c,lab3 ; если Carry =0 ( установлен ) то
ld (hl),e ; иначе записывем текущий номер бита в результат
inc hl ; +1 адрес результата
ld (hl),d
inc hl ; +1 адрес результата
lab3 inc de ; увеличиваем счётчик бит
exx
dec c ; уменьшаем 8 битовый проход
jr nz,lab2 ; биты еще остались ?
inc hl ; перешли к следующему байту последовательности
djnz lab1
ret