Глубоко задумался над процедурой...или обращение в Вселенскому Разуму

[SAM style]

А что делать, когда бит=1
Something like thizzz?

     ld hl,OutPut
     ld de,0
     exx
     ld hl,Input
     ld b,35
lab1 ld a,(hl)
     ld c,8
lab2 rla
     exx
     jr c,lab3
     ld (hl),e
     inc hl
     ld (hl),d
     inc hl
lab3 inc de
     exx
     dec c
     jr nz,lab2
     inc hl
     djnz lab1
     ret

[Advertiser]

[Orionsoft]

А что делать, когда бит=1
Something like thizzz?

если бит = 1 то ничего , а как пройдёт последовательность и все =1 записать AAFF например

[Orionsoft]

да , нужна и процедура которая делает из результата всё наоборот

[Orionsoft]

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

     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

[SAM style]

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

Всё почти так и есть.
Только тут:

     jr c,lab3 ; если Carry = 1 ( установлен ) то блок пропускается, иначе...

[Orionsoft]

" Этюды " - рулят !

[Orionsoft]

а процедура наоборот делающая ?
если не трудно