'File:   T402 Rainbow Test 2021 V2.bas
'JC   Bascom
'Feb. 2021

'This program runs on an XTiny402, 10 MHz, 5V.

'This program demos the Bascom Rainbow (WS2812B Digital LED)
'instructions on a single string of LEDs.

'This is a simple test program, no interrupts or other code
'is running.

'+++++++++++++++++++++++++++++++++++++++++++++++++
'+++  This program fails to flash the WS2812B Digital LEDs                      +++
'+++  The T402 is running, it flashes the normal LED at the correct speed  +++
'+++  Could be hardware, as it has never worked yet                               +++
'+++  Could be the Rainbow Library isn't functioning on the XTiny Series   +++
'+++++++++++++++++++++++++++++++++++++++++++++++++

'Hardware:
'XTiny402, 10 MHz, 5V
'Dig LED on PortA.7
'PCB LED on PortA.6

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
   'Config for XTiny402:
   $regfile = "atxtiny402.dat"    'Micro being used
   $crystal = 10000000            '10.0 MHz, Internal RC Osc

   'Config for Nano, M328P:
   '$regfile = "m328pdef.dat"                                'Micro being used
   '$crystal = 16000000                                      '16 MHz Clock Freq

   $hwstack = 64                                            'Hardware Stack
   $swstack = 64                                            'Software Stack
   $framesize = 64                                          'Frame Space

   $lib "RAINBOWBSCN.lib"                                   'Force new Rainbow LED Library

   'Config for XTiny402:
   'Config I/O Pins:
   Config PortA.6 = Output                                  'PCB LED
   Config PortA.7 = Output                                  'Dig LED string

   'Config for Nano, M328P:
   'Config I/O Pins:
   'Config PortB.5 = Output                                  'NANO PCB LED
   'Config PortD.7 = Output                                  'Dig LED string

   'XTiny402:
   LED Alias PortA.6                                        'PCB Led

   'Nano:
   'LED Alias PortB.5                                        'Nano PCB Led

   'Variable Definitions:
   Dim LpCnt As Word                                        'Loop Counter

   'Dig LED Variables:
   Dim Color(3) as Byte                                     'Color array for digital leds

'===============================================================================
   'Hardware Startup Delay:
   Waitms 100

   'Config the Clock for the XTiny402:
   'Config Internal RC 20 MHz Osc for 10.0 MHz System Clock
   'Set Clock to 10.0 MHz:
   Config Sysclock =20MHZ, Prescale = 2

   'Config the WS2812B Digital LED Rainbow Instruction Driver:
   'Use 1 string of LEDs
   '2 LEDs in the string
   'Use PortD.7
   'Use the new Rainbow Library
   'This is Channel #0

   'XTiny402:
   Config Rainbow = 1 , RGB = 3 , RB0_LEN = 2 , RB0_Port = PortA , RB0_Pin = 7

   'Nano:
   'Config Rainbow = 1 , RGB = 3 , RB0_LEN = 2 , RB0_Port = PortD , RB0_Pin = 7

Main:
   'Flash the Normal LED to show that the XTiny or Nano is running:
   Gosub FlashLED

   'Now turn on the two digital LEDs:
   Gosub DigLEDTest1                        'All ON, Low Intensity Blue
   Waitms 1000

   'Now alternate the 2 digital LEDs Red and White:
   Do
      Gosub DigLEDTest2          'LEDs: Red and White
      Waitms 200
      Gosub DigLEDTest3          'LEDs: White and Red
      Waitms 200
   Loop                          'Forever

'+++++++++++++++++++++++++++++++++++++++++++++
DigLEDTest1:
   'Turn On All (Two) LEDs, Low Intensity Blue
   'Select the Active string of digital LEDs
   RB_SelectChannel 0                 'Channel #0
   Gosub LEDColor4                     'Low intensity Blue
   RB_FILL color(1)                    'Turn on ALL Leds in strip
   Return

DigLEDTest2:
   'Channel #0, (2 LEDs)
   'Turn On Dig LED 1 Red
   'Turn On Dig LED 2 White
   RB_SelectChannel 0                 'Channel #0
   Gosub LEDColor3                     'Low intensity Red
   RB_SetColor 0, color(1)             'LED 1, Red
   Gosub LEDColor2                     'Low intensity White
   RB_SetColor 1, color(1)             'LED 2, White
   RB_Send                             'Update the LEDs
   Return

DigLEDTest3:
   'Channel #0, (2 LEDs)
   'Turn On Dig LED 1 White
   'Turn On Dig LED 2 Red
   RB_SelectChannel 0                 'Channel #0
   Gosub LEDColor2                     'Low intensity White
   RB_SetColor 0, color(1)             'LED 1, Red
   Gosub LEDColor3                     'Low intensity Red
   RB_SetColor 1, color(1)             'LED 2, White
   RB_Send                             'Update the LEDs
   Return

LEDColor1:
   'This sets up the data for the digital LEDs
   'Color #1 = Off
   Color(1) = 0                                             'Red
   Color(2) = 0                                             'Green
   Color(3) = 0                                             'Blue
   Return

LEDColor2:
   'This sets up the data for the digital LEDs
   'Color #2 = Low Intensity White (All 3 colors equal intensity)
   Color(1) = 30                                            'Red
   Color(2) = 30                                            'Green
   Color(3) = 30                                            'Blue
   Return

LEDColor3:
   'This sets up the data for the digital LEDs
   'Color #3 = Low Intensity Red
   Color(1) = 0                                             'Red
   Color(2) = 20                                            'Green
   Color(3) = 0                                             'Blue
   Return

LEDColor4:
   'This sets up the data for the digital LEDs
   'Color #4 = Low Intensity Blue
   Color(1) = 0                                             'Red
   Color(2) = 0                                             'Green
   Color(3) = 10                                            'Blue
   Return

FlashLED:
         'This flashes the normal, non-digital LED, on the Nano, PortB.5
         'This shows that the Nano is running.
         For LpCnt = 1 to 5
             Set Led
             Waitms 100
             Reset Led
             Waitms 100
         Next LpCnt
         Return

 

#IF _XMEGA=0
   CLR ZH
#ELSE
   LDI ZH, &H06
#ENDIF

#IF _XMEGA=1
   LDI ZH, &H06
#ELSEIF _XTINY=1
   LDI ZH, &H04
#ELSE
   CLR ZH
#ENDIF

#IF varexist("chrperline")
  LDS   R16. {chrperline}
#ELSE
   LDI   R16, &H20
#ENDIF