$regfile = "atXtiny412.dat"
$crystal = 20000000
$hwstack = 16
$swstack = 16
$framesize = 24

'set the system clock and prescaler
Config Sysclock = 20mhz , Prescale = 1

dim color(3) as byte
dim delka as word


Declare sub vys(byval color(1) as byte,color(2) as byte,color(3) as byte, byval delka as byte)


config porta.6=output

' Configured event system
evsys_asyncuser0=0x02
'Output Assignment
portmux_ctrld=0x01
'Configured TCB0
tcb0_ctrlb=0b01010110
tcb0_evctrl=0b00010001
tcb0_ctrla=0b00000011
'Number of LEDs  x3
delka = 1500
'Configured color
color(1)=36
color(2)=125
color(3)=196
do
call vys (color(1),color(2),color(3),delka)


waitms 2
loop




sub vys(byval color(1) as byte,color(2) as byte,color(3) as byte, byval delka as byte)
 dim maska as byte
 dim i as word
 dim pom as byte
 dim pom1 as byte
 tcb0_ccmp=65534    'Comparison Registry Settings
 pom1=0
  disable interrupts    'Turn off interrupts to be sure
  for  i= delka to 0 step -1
  pom1=pom1+1
      maska = 0b10000000
      while maska > 0
        while tcb0_status.0=1   'Wait if the timer is running
        wend
        pom=color(pom1)
        pom=maska and pom
         if pom>0 then
            tcb0_cnt=65524    'Number of timer pulses for state H(in catalogue sheet 550-850ns,for 20MHz-10)
            evsys_syncstrobe=0x01   'Generating SW event for timer start
         else
            tcb0_cnt=65528     'Number of timer pulses for state L(in catalogue sheet 200-500ns,for 20MHz-6)
            evsys_syncstrobe=0x01   '  Generating SW event for timer start
         end if
        shift maska,right

      wend
      if pom1=3 then
      pom1=0
      end if
  next i
  enable Interrupts
 while tcb0_status.0=1
 wend
 waitus 70                     'Latch WS
 end sub

$regfile = "atXtiny412.dat"
$crystal = 20000000
$hwstack = 16
$swstack = 16
$framesize = 24
'set the system clock and prescaler
Config Sysclock = 16_20mhz , Prescale = 1
Dim Color(3) As Byte
Dim Delka As Word

Declare Sub Vys(color() As Byte , Byval Delka As Word)

Config Porta.6 = Output
' Configured event system
Evsys_asyncuser0 = &H02
'Output Assignment
Portmux_ctrld = &H01
'Configured TCB0
Tcb0_ctrlb = &B01010110
Tcb0_evctrl = &B00010001
Tcb0_ctrla = &B00000011
'Number of LEDs  x3
Delka = 1500
'Configured color
Color(1) = 36
Color(2) = 125
Color(3) = 196
Do
   Call Vys(color(1) , Delka)
   Waitms 2
Loop


Sub Vys(color() As Byte , Byval Delka As Word)
   Dim Maska As Byte
   Dim I As Word
   Dim Pom As Byte
   Dim Pom1 As Byte
   Tcb0_ccmp = 65534                                        'Comparison Registry Settings
   Pom1 = 0
   Disable Interrupts                                       'Turn off interrupts to be sure
   For I = Delka To 0 Step -1
      Pom1 = Pom1 + 1
      Maska = &B10000000
      While Maska > 0
         While Tcb0_status.0 = 1                            'Wait if the timer is running
         Wend
         Pom = Color(pom1)
         Pom = Maska And Pom
         If Pom > 0 Then
            Tcb0_cnt = 65524                                'Number of timer pulses for state H(in catalogue sheet 550-850ns,for 20MHz-10)
            Evsys_syncstrobe = &H01                         'Generating SW event for timer start
         Else
            Tcb0_cnt = 65528                                'Number of timer pulses for state L(in catalogue sheet 200-500ns,for 20MHz-6)
            Evsys_syncstrobe = &H01                         '  Generating SW event for timer start
         End If
         Shift Maska , Right
      Wend
      If Pom1 = 3 Then
         Pom1 = 0
      End If
   Next I
   Enable Interrupts
   While Tcb0_status.0 = 1
   Wend
   Waitus 70                                                'Latch WS
End Sub