[1.4.6] RedPower 2 [Prerelease 6]

00195E IOX@ (length=16)00195E   22         ENT00195F   50 19         IOXADDR001961   73 07         @001963   B0 0D         RBP!001965   50 05         (lit)001967   00 03         [paste][/paste]dw #$0300001969   73 07         @00196B   5C 05         EXIT000DB0 RBP! (length=5)000DB0   68         PLA000DB1   EF 00      MMU $00000DB3   02         NXT000550 (lit) (length=4)000550   42         NXA000551   48         PHA000552   02         NXT000773 @ (length=6)000773   FA         PLX000774   B5 00      LDA $00,x000776   48         PHA000777   02         NXTИ т[paste][/paste]д

[*]Сколько будет гореть зелёный
[*]Сколько раз он будет мигать
[*]Сколько будет гореть жёлтый
[/list] Красный будет гореть все 3 интервала вместе.

В этом варианте провода подключены так:


Проще всего организовать управление с помощью компьютера.

: BLINK \(n-->)5 0 DO \сколько раз  DUP IOXSET  10 TICKS  DUP IOXRST  10 TICKSLOOPDROP ;HEX\1  - Красный-1\2  - Жёлтый-1\4  - Зелёный-1\8  - Красный-2\10 - Жёлтый-2\20 - Зелёный-2: MAINBEGIN  C IOX!      \Зелёный-1 и Красный-2  200 TICKS  4 BLINK     \Мигание зелёного  1A IOX!     \Красный-2 и оба жёлтых  30 TICKS  21 IOX!     \Красный-1 и Зелёный-2  200 TICKS  20 BLINK  13 IOX!     \Красный-1 и оба жёлтых  30 TICKSAGAIN ;

Если у вас не хватает алмазов на компьютер, то вот готовая схема для вас:

Все повторители установлены на 0.8 сек. (4 ПКМ)
2 таймера на 1.6 сек.
Элементы задержки настраиваются в зависимости от ваших величин:

З - сколько должен гореть зелёный.
М - сколько раз он будет мигать (1,6*n + 0,6 сек).
Ж - сколько должен гореть жёлтый.
К - сумма всех значений выше минус 0,3 сек.
Левая часть настраивается точно так же. Можно применить другое время, например, чтобы зелёный горел больше или меньше для другого направления.

DECIMAL101 ALLOT CONSTANT string_buf: test0 DO	IOX@ 0 = 49 +	string_buf I + !	0 string_buf I 1 + + !LOOPCRstring_buf TYPECR;