Нужно сформировать некую последовательность сигналов

[bagfinder]

< решено >

[veniside]

на асме:

  sub  eax, eax

loop:
  shr   eax, 1
  inc   eax
  shl   eax, 1
  or    eax, 1

  ; "signal" is in eax, do what you need with it now
  
  jmp loop

на С:

int signal = 0;

while (1) {
  //
  signal = signal >> 1;
  signal++;
  signal = (signal << 1) | 1;
  //
  // "signal" is in signal, do what you need with it now
}

на паскале:

var
  signal: Integer;
begin
  signal := 0;
  repeat
    //
    signal := signal shr 1;
    inc(signal);
    signal := signal shl 1 or 1;
    //
    // "signal" is in signal, do what you need with it now
  until (false);
end;

на фортране:

<не, слабо>

[bagfinder]

Тогда пропадает первая единица и счет начинается с 00000011, нет?

[veniside]

всё на месте

[bagfinder]

Разобрался, спасибо.