sebastian.heyn
25.04.2005, 21:52
Hallo,
ich versuche einen STV5730 anzusteuern, habe mir dazu ein board bei elv besorgt welches den IC funktionierend drauf hat. Habe dann den Controller mit dem IC verbunden (vorher den controller von der elv platine entfernt) aber ich kriege dees ding ned zum laufen folgender code sollte funktionieren (den datenbereich habe ich für testzwecke von dem code von ulrich radig genommen) liegt es evtl an der einstellung für die SPI schnittstelle? mit mosi/miso war ich nicht sicher, aber keine von beiden läuft... oder lese ich den datenteil falsch aus?
$regfile = "m128def.dat"
$crystal = 16000000
$baud = 9600
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = High , Phase = 0 , Clockrate = 128 , Noss = 0
Dim A(8) As Byte
Dim I As Byte
Dim I2 As Byte
Spiinit
Wait 1
I = 0
Restore Da1
'# initialisierung
Do
Read A(1)
Read A(2)
Spiout A(1) , 2
Incr I
Loop Until I = 24
'eine zeile hat 8 bytes, es werden immer 2 gleichzeitig gelesen,daher 6x4
'### Text der ausgegeben wird
Restore Da2
I = 0
Do
Read A(1)
Spiout A(1) , 1
Incr I
Loop Until I = 16
Do
nop
nop
nop
Loop
End
Da1:
Data &H30 , &H00 , &H30 , &H00 , &H00 , &HDB , &H10 , &H00
Data &H00 , &HCF , &H10 , &H4E , &H00 , &HD0 , &H15 , &H32
Data &H00 , &HCD , &H12 , &H01 , &H00 , &HCE , &H1B , &H95
Data &H00 , &HC0 , &H1F , &H90 , &H1F , &H90 , &H1F , &H80
Data &H1F , &H80 , &H1F , &H80 , &H1F , &H80 , &H1F , &H80
Data &H1F , &H80 , &H1F , &H80 , &H1F , &H80 , &H1F , &H80
Da2:
Data &H20 , &H35 , &H3B , &H32 , &H2C , &H31 , &H0B , &H0B
Data &H1D , &H2A , &H2D , &H32 , &H30 , &H0B , &H0B , &H0B
[/code]
ich versuche einen STV5730 anzusteuern, habe mir dazu ein board bei elv besorgt welches den IC funktionierend drauf hat. Habe dann den Controller mit dem IC verbunden (vorher den controller von der elv platine entfernt) aber ich kriege dees ding ned zum laufen folgender code sollte funktionieren (den datenbereich habe ich für testzwecke von dem code von ulrich radig genommen) liegt es evtl an der einstellung für die SPI schnittstelle? mit mosi/miso war ich nicht sicher, aber keine von beiden läuft... oder lese ich den datenteil falsch aus?
$regfile = "m128def.dat"
$crystal = 16000000
$baud = 9600
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = High , Phase = 0 , Clockrate = 128 , Noss = 0
Dim A(8) As Byte
Dim I As Byte
Dim I2 As Byte
Spiinit
Wait 1
I = 0
Restore Da1
'# initialisierung
Do
Read A(1)
Read A(2)
Spiout A(1) , 2
Incr I
Loop Until I = 24
'eine zeile hat 8 bytes, es werden immer 2 gleichzeitig gelesen,daher 6x4
'### Text der ausgegeben wird
Restore Da2
I = 0
Do
Read A(1)
Spiout A(1) , 1
Incr I
Loop Until I = 16
Do
nop
nop
nop
Loop
End
Da1:
Data &H30 , &H00 , &H30 , &H00 , &H00 , &HDB , &H10 , &H00
Data &H00 , &HCF , &H10 , &H4E , &H00 , &HD0 , &H15 , &H32
Data &H00 , &HCD , &H12 , &H01 , &H00 , &HCE , &H1B , &H95
Data &H00 , &HC0 , &H1F , &H90 , &H1F , &H90 , &H1F , &H80
Data &H1F , &H80 , &H1F , &H80 , &H1F , &H80 , &H1F , &H80
Data &H1F , &H80 , &H1F , &H80 , &H1F , &H80 , &H1F , &H80
Da2:
Data &H20 , &H35 , &H3B , &H32 , &H2C , &H31 , &H0B , &H0B
Data &H1D , &H2A , &H2D , &H32 , &H30 , &H0B , &H0B , &H0B
[/code]