$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 byte)
'Configured SPI
spi0_ctrla=&B00100001
spi0_ctrlb=&B01000100
config porta.6=output
portmux_ctrlb=&B00000100            'alternative SPI output
porta_pin6ctrl=&B10000000           'MOSI output negation



'Number of LEDs  x3
delka = 192


do
'Configured color
color(1)= 0
color(2)= 0
color(3)= 0
call vys (color(1),delka)
wait 1
color(1)= 255
color(2)= 0
color(3)= 0
call vys (color(1),delka)
wait 1
color(1)= 0
color(2)= 255
color(3)= 0
call vys (color(1),delka)
wait 1
color(1)= 0
color(2)= 0
color(3)= 255
call vys (color(1),delka)
wait 1
loop




sub vys (color() as byte,  byval delka as byte)
 dim maska as byte
 dim i as word
 dim pom as byte
 dim pom1 as byte
 dim m as byte
    i=0
   pom1=0
  disable interrupts    'Turn off interrupts to be sure
  for  i= delka to 0 step -1
       pom1=pom1+1
       maska = &B10000000
       m=8
      while m > 0

            pom=color(pom1)
            pom=maska and pom
            if pom>0 then
             spi0_data=&B10001111    'Number of timer pulses for state H

            else
             spi0_data=&B11011111     'Number of timer pulses for state L

            end if
             while spi0_intflags.7=0   'waiting for byte to drop
             wend
            spi0_intflags.7=1           'flag zero
            m=m-1


        shift maska,right
      wend
      if pom1=3 then
      pom1=0
      end if
  next i
  enable Interrupts

 waitus 70                     'Latch WS
 end sub