Плавное свечение св-диода

[maratino]

Добрый день форумчане.
Кто поможет разобраться с кодом? Св-диод плавно зажигается, но зараза, гаснет резко. Просьба чайника
1) Прокомментировать код по строчно
2) Что надо добавить или изменить, что бы гаснул плавно?

$regfile = "attiny2313.dat"
$crystal = 4000000
$hwstack = 32
$swstack = 8
$framesize = 24

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1

Dim A As Byte

Do

For A = 0 To 50
Pwm1a = A
Waitms 5

For A = 255 To 0 Step -5
Pwm1a = A
Waitms 5
Next A

Loop

End
Next

[Мурик]

Должно быть.

Код: Выделить всё

For A = 0 To 50
  Pwm1a = A
  Waitms 5
Next A

For A = 50 To 0 Step -1
  Pwm1a = A
  Waitms 5
Next A

[phantom36]

я чёто не помню, но таймер включить не надо случаем в добавок к тому что Мурик сказал?..