$regfile = "attiny26.dat"
Const Quarz = 10000000
'$crystal = intern



Do

Ampel1_rot Alias Portb.1
Ampel1_gelb Alias Portb.2
Ampel1_gruen Alias Portb.3

Ampel2_gruen Alias Portb.4
Ampel2_gelb Alias Portb.5
Ampel2_rot Alias Portb.6


Config Ampel1_gruen = Output
Config Ampel1_gelb = Output
Config Ampel1_rot = Output

Config Ampel2_gruen = Output
Config Ampel2_gelb = Output
Config Ampel2_rot = Output





Ampel1_rot = 1
Wait 4
Ampel1_gelb = 1
Wait 3

Ampel1_rot = 0
Ampel1_gelb = 0



Ampel1_gruen = 1



Wait 3

Ampel1_gruen = 0

Ampel1_gelb = 1

Wait 2

Ampel1_gelb = 0




Ampel2_rot = 1
Wait 4
Ampel2_gelb = 1
Wait 3

Ampel2_rot = 0
Ampel1_gelb = 0



Ampel2_gruen = 1



Wait 3

Ampel2_gruen = 0

Ampel2_gelb = 1

Wait 2

Ampel2_gelb = 0



Loop

End