Problem mit dem TLC9571 und Bascom

$regfile = "xm128a3def.dat"

$crystal = 32000000                                         ' xmega128 is running on 32 MHz

$hwstack = 64

$swstack = 40

$framesize = 40

$lib "xmega.lib"

$external _xmegafix_clear

$external _xmegafix_rol_r1014

'System Clock

'=====================================================================================

'=====================================================================================

Config Osc = Disabled , 32mhzosc = Enabled                   'internal 2 MHz and 32 MHz enabled

Config Sysclock = 32mhz

'Debug UART und BOOTLOADER

'=====================================================================================

'=====================================================================================

Config Com1 = 115200 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8       ' use USART C0

Echo off

'LED Modul

'=====================================================================================

'=====================================================================================

LED_DATA alias Portc.0

LED_SCK Alias Portc.1

Config LED_DATA = output

config LED_SCK = output

LED_SCK = 0

LED_DATA = 0

Dim LED_Config as Long

Dim LED_R as Word

Dim LED_G as Word

Dim LED_B as Word

Dim LED_Counter0 as byte

Dim LED_Counter1 AS Byte

Dim OUT_TESt as byte

Declare Sub LED_Refresh()

LED_Config = &B10010110010010101010101010101010 'Write Command _ Function _ BC B _ BC G _ BC R

'Farbe 0 - 65535

LED_R = 30000

LED_G = 30000

LED_B = 65535

do

call LED_Refresh

waitms 500

loop

Sub LED_Refresh()

WAITUS 100

'Die ersten 32 bit Config Senden

For LED_Counter0 = 0 to 31

   led_Counter1 = 31 - Led_Counter0

   Led_Data = Led_Config.Led_Counter1

   LED_SCK = 1

   LED_SCK = 0

next LED_Counter0

For LED_Counter0 = 0 to 191

   led_Counter1 = 191 - Led_Counter0

   Led_Data = 1

   LED_SCK = 1

   LED_SCK = 0

Next LED_Counter0

LED_SCK = 0

LED_DATA = 0

end sub

END