правильно я раскомментил ?

Код:
     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